国家二级上机

二级VB上机考试试题题库 VB考试上机试题 1).新建一个工程，实现单击 Command1将 text1中的内容复制（或者剪切）到 Text2中。（要 求使用 Clipboard对象）保存。 窗体上一个 text文本框，两个 command按钮，caption分别为“剪切”，“恢复”，运行后要 求在 text1中输入文本，点“剪切”，把 text1中的内容剪切掉，点”恢复“，把 text1中 的内容恢复出来。提示：定义一个变量用来存放 text1中的内容。 2).新建一个工程，文本框text1,使用户输入字母一律转换为大写显示（焦点在最右端） 保存。 3).新建一个工程，实现功能：在窗体中实现由下向上滚动显示“您好！网络之家”这几 个字。保存。 4).新建一个工程，在Form1界面创建 Form2，Form3两个子菜单的 Forms菜单，选择 Form2 子菜单，以无模式显示Form2,选择 Form3子菜单，以有模式显示Form3.保存。 5).新建一个工程，在界面上放置一个工具条Toobar1,在工具条上有三个按纽，按下第一 个按钮时用 MsgBox显示：“第一个按纽被按下”；按下第二个按纽时用 MsgBox显示：“第二 个按纽被按下”；按下第三个按纽时用 MsgBox显示：“第三个按钮被按下”。保存。 6)。新建一个工程，包含两个窗体Form1,Form2。实现功能制作－－－欢迎界面，时间为 三秒，三秒后，Form1消失，Form2出现。保存。 7)。新建一个工程，实现功能限制：在 Text1中只能输入 10个字母，超过的在 Text2 中显示。保存。 8)。新建一个工程，实现功能单击 Text1框时，Text1中的内容被全选。保存。 9)。新建一个工程，实现功能点击 Command1按钮，读取系统的汉字字型，在 ComBox 列框中显示。保存。 10)。新建一个工程，实现单击 Commmand1将 Text1的内容剪切到 Text2中。（上次的那 道题目是复制）保存。 11)。新建一个工程，其中含五个单选按钮，两个面板StratusBar1. 第一面板题“欢迎 探讨”，点击单选按钮时，第二个面板标题为选中的标题号。保存。 12)。新建一个工程，使用打开对话框找到某一文件（硬盘上任意一文本文件），带全路 径的文件名，显示在一文本框内。保存。 13)。新建一个工程，其中含一个图片框PictureBox1,五个命令按钮 Command1-Command5， 控件标题分别为画点、画线、画圆、擦除、休息。实现单击按钮图片框内实现功能。 14)。新建一个工程，在窗体上放置一个 data控件，实现程序功能：不用 data控件启动 工程时，可选择打开一个 mdb文件，统计其中有多少张表。保存。（此题要求，我不理解， 你看怎样） 15)。新建一个工程，左右两边各放置一个列表框 ListBox的控件 List1和List2，在 List1中竖排显示内容“第一题、第二题、第三题、第四题、第五题”这五项。在两个列表 框中间竖排四个命令按钮，标题分别为“＜”、“＞”、“＜＜”、“＞＞”。实现程序功能： 1）点击“＜”将 List1中所选中的项添加到 List2中，并将 List1中的项删除。 2）点击“＞”将 List2中所选中的项添加到 List1中，并将 List2中的项删除。 3）点击“＜＜”将 Lixt1中所有的选项添加到 List2中，并将 List1中的项清空。 4）点击“＞＞”将 List2中所有的选项添加到 List1中，并将 List2中的项清空。 最后保存。 16) 新建一个工程，在界面上放置一个按扭command1 和文本空件text1，当点击按扭时 将当前工程所在的路径显示在文本框里。程序以 vb39保存在考生文件夹下 17)建一个工程，放置 6个checkbox,组一个空件组 checkbox(i),并放一个按扭，点击 能统计有多少个 checkbox被选，用 msgbox将数字显示出来，文件保存在 vb33里 简单应用 19)有一文档不完整，在有“？”的地方把程序补完整 form上有一个text1, 一个 command1,要求在 text1中添入文本，但用“*”显示，若文本 是“ABC”，则msgbox"正确",否则msgbox"错误" 以给程序： Private Sub command1.Click() if text1.text="ABC" or text1.text="?"then msgbox"正确"Else msgbox"错误" >Subject: vb考试的试题 > 1． 简单应用（2小题，每题 20分，计 40分） 注意：下面出现的"考生文件夹"均为 **************************************************************** * （1）在考生文件夹中有工程文件 wy5.vbp及其窗体文件wy5.frm，该程序是不完整的，请 在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其他部分。 存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名 称为C1，标题为"复制"。要求程序运行后，在列表框中自动建立四个列表项，分别为"Item1"、 "Item2"、"Item3"、"Item4"。如果选择列表框中的一项，则单击"复制"按钮时，可以把该 项复制到文本框中。 （2）在考生文件夹中有工程文件 wy6.vbp及其窗体文件wy6.frm ，该程序是不完整的，请 在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。 存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体有三个复选框，名称分别为Ch1、Ch2和Ch3，标题依次为"体育"、"音乐"、"美术"， 还有一个命令按钮，名称为C1，标题为"显示"。要求程序运行后，如果选中某个复选框， 则当单击"显示"命令按钮时，则显示相应的信息。例如，如果选取中"体育"和"音乐"复选框， 则单击"显示"命令按钮后，在窗体上显示"我的爱好是体育音乐"（如图所示）；而如果选中" 体育"、"音乐"和"美术"复选框，则单击"显示"按钮后，在窗体上显示"我的爱好是体育音乐 美术"。 2． 第3题、 3．综合应用（1小题，计 30分） 注意：下面出现的"考生文件夹"均为 在名称为Form1的窗体上建立两个单选按钮（名称分别为Opt1和Opt2，标题分别为"100-200 之间素数"和"200-400之间素数"）、一个文本框（名称为Text1）和两个命令按钮，其名称 分别为 Cmd1和Cmd2，标题分别为"计算"、"存盘"（如图所示）。程序运行后，如果选中一 个单选按钮并单击"计算"按钮，则计算出该单选按钮标题所指明的所有素数之和。并在文本 框中显示出来。如果单击"存盘"按钮，则把计算结果存入"out.txt"文件中，该文件必须放 在考生文件夹中。（在考生文件夹中有模块mode.bas，其中的putdata 过程可以把结果 存入指定的文件，而 isprime函数可以判断整数 x是否为素数，如果是素数，则函数返回 True，否则返回False，考生可以将该模块文件添加到自己的工程中。） 注意： （1） 必须把200-400之间的素数之和存入考生文件夹下的 out.txt文件中，否则没有成绩。 （2） 保存程序时必须存放在考生文件夹下，窗体文件名为wy7.frm，工程文件名为wy7.vbp。 3． 第4题、 1．基本操作（4小题，计 30分） 注意：下面出现的"考生文件夹"均为 ***************************************************************** 请根据以下各小题的要求设计 Visual Basic应用程序（包括界面和代码）。 （1）在考生文件夹中有工程文件 wy1.vbp及其窗体文件wy1.frm，该程序是不完整的，请 在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。 存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体上有一个名称为 P1的图片框和二个名称分别为C1、C2，标题分别为"显示"、"清除" 的命令按钮（如图所示）。程序运行后，如果单击"显示"按钮，则把考生文件夹中的图形文 件 pic1.gif装入图片框中，如果单击"清除"按钮，则从图片框中清除该图片。请填空（程 序中的 App.path用来指定当前目录）。 4． ##（2）在窗体上建立一个名称为 Text1的文本框和一个名称为Cmd1，标题为"计算"的 命令按钮（如图所示）。程序运行后，单击"计算"命令按钮，通过在对话框输入整数12，放 入整形变量 a中，然后计算a!，（提示：运算结果应放入 Long型变量中），在文本框中显示 结果，并把结果存入文件out.txt中。在考生文件夹中有一个标准模块mode.bas ，该模块 中提供了保存文件的过程putdata,考生可以直接调用。 注意： 保存时必须存放在考生文件夹下，窗体文件名为wy6.frm，工程文件名为wy6.vbp。 5． 3．综合应用（1小题，计 30分） 注意：下面出现的"考生文件夹"均为 在名称为 Form1的窗体上建立一个文本框（名称为 Text1，Multiline属性为 True， ScrollBars属性为2）和两个命令按钮（名称分别为 Cmd1和Cmd2，标题分别为"读入数据" 和"计算保存"）（如图所示）。要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt" 文件中的 100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果 单击"计算保存"按钮，则计算数组中大于或等于 400并且小于 800的所有数之和，把求和结 果在文本框 Text1中显示出来，同时把结果存入考生文件夹中的文件"result.txt"中。（在 prog.bas，其中的 putdata过程可以把结果存入 result.txt文件，考生可以把该模块文件 添加到自己的工程中，直接调用此过程）。 注意：文件必须存放在考生文件夹下，窗体文件名为wy7.frm，工程文件名为wy7.vbp，计 算结果存入result.txt，否则没有成绩。 （2）在窗体上建立一个名称为 Text1的文本框，再建立一个名称为Cmd1，标题为"计算"的 命令按钮（如图所示）。要求程序运行后，单击命令按钮，将计算 100-200之间所有素数之 和，在文本框中显示结果，同时把结果存入文件 out.txt中。（在考生文件夹中有标准模块 mode.bas,其中的putdata过程可以把结果存入文件，而isprime函数可以判断整数x 是否 为素数，如果是素数，则函数返回true,否则返回false,考生可以把该模块文件添加到自己 的工程中。） 注意： 保存时必须存放在考生文件夹下，窗体文件名为wy6.frm，工程文件名为wy6.vbp，结果存 入out.txt文件。 6． 第9题、 3．综合应用（1小题，计 30分） 注意：下面出现的"考生文件夹"均为 在名称为 form1的窗体上建立一个文本框（名称为 Text1,Multiline属性为 True， ScrollBars属性为2）和两个命令按钮（名称分别为 Cmd1和Cmd2，标题分别为"读入数据" 和"保存数据"）（如图所示）。程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件 中的 100个整数，放入一个数组中（数组下界为1），并在文本框 Text1中显示出来；如果 单击"保存数据"按钮，则把数组中的前 50个数据在文本框 Text1中显示出来，并存入考生 文件夹中的文件"result.txt"中，（在考生文件夹中有标准模块prog.bas，其中的 putdata 过程可以把指定个数的数组元素存入 result.txt文件，考生可以把该模块文件添加到自己 的工程中）。 注意： 文件必须存放在考生文件夹下，窗体文件名为wy7.frm，工程文件名为wy7vbp，结果存入 result.txt文件，否则没有成绩。 7． 2）在名称为 Form1的窗体上建立二个名称分别为Cmd1、Cmd2，标题为"按钮一"、"按 钮二"的命令按钮（如图所示）。要求程序运行后，如果单击"按钮一"，则把"按钮二"移到" 按钮一"上，使两个按钮重合。 注意： 1） 在程序中不得使用任何变量（必须通过属性设置来移动控件）。 2） 保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名为 wy2.vbp 8． 2．简单应用（2小题，每题 20分，计 40分） 注意：下面出现的"考生文件夹"均为 ******************************************************************** (1)在考生文件夹中有工程文件 wy5.vbp及其窗体文件wy5.frm，该程序是不完整的。请在 有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其他部分。存 盘时不得改变文件名和文件夹。 本题描述如下： 在窗体上有三个名称分别为Text1、Text2、Text3的文本框，一个名称为C1，标题为"计算 "的命令按钮（如图所示）。要求程序运行后，在 Text1和 Text2中分别输入两个整数，单击 "计算"按钮后，可把两个整数之间的所有整数（含着两个整数）累加起来并在 Text3中显示 出来。 9． (2) 在窗体上建立一个名称为 Text1的文本框,建立一个名称为Cmd1,标题为"计算"的 命令按钮（如图所示）。要求程序运行后，如果单击"计算"按钮，则求出 100-200之间所有 可以被 3整除的数的总和，在文本框中显示出来，并把结果存入考生文件夹下的 out.txt 文件中。注意，在考生的文件夹下有一个 mode.bas标准模块，该模块中提供了保存文件的 过程putdata，考生可以直接调用。 注意：保存时必须存放在考生文件夹下，窗体文件名为 wy6.frm。工程文件名为 wy6.vbp, 结果存入 out.txt文件。 第 12题、 10． 3．综合应用（1小题，计 30分） 注意：下面出现的"考生文件夹"均为 在名称为 Form1的窗体上建立一个文本框（名称为 Text1，Multiline属性为 True， ScrollBars属性为2）和两个命令按钮（名称分别为 Cmd1和Cmd2，标题分别为"读入数据" 和"排序显示保存"）（如图所示）。程序运行后，如果单击"读入数据"按钮，则读入"in.txt" 文件中的 100个整数，放入一个数组中（数组下界为1）；如果单击"排序显示保存"按钮， 则对这 100个整数按从小到大进行排序，把排序后的全部数据在文本框 text1中显示出来， 然后存入考生文件夹中的文件"result.txt"中（在考生的目录下有标准模块 prog.bas过程 可以把指定个数的数组元素存入 result.txt文件，考生可以把该模块文件添加到自己的工 程中）。 注意：文件必须存放在考生文件夹下，窗口文件名为wy7.frm，工程文件名为wy7.vbp，排 序结果存入 result.txt文件，否则没有成绩。 2003-3-1 15:44:28 鲜花(0)鸡蛋(0) 1032173 等级：小乞丐 文章：8 积分：35 注册：2003-2-22 第2楼 - 3．综合应用（1小题，计 30分） 注意：下面出现的"考生文件夹"均为 在名称为Form1的窗体上建立一个文本框（名称为Text1,Multline属性为True,ScrollBars 属性为2）和两个命令按钮（名称分别为 Cmd1和 Cmd2，标题分别为"读入数据"和"排序显示 保存"）（如图所示）。程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的 100 个整数，放入一个数组中（数组下界为1）；如果单击"排序显示保存"按钮，则对这 100个 整数按从大到小进行排序，把排序后的全部数据在文本框 Text1中显示出来，然后存入考生 文件夹的"out.txt"中。（在考生的文件夹下有标准模块mode1.bas，其中的 putdata过程可 以把指定个数的数组元素存入 out.txt文件，考生可以把模块文件添加到自己的工程中）。 注意： 文件必须存放在考生文件夹下，窗体文件名为wy7.frm，工程文件名wy7.vbp，排序结果存 入out.txt,否则没有成绩。 11． (4) 在名称为 Form1的窗体上建立两个名称分别为 Cmd1和Cmd2，标题分别为"输入" 和"连接"的命令按钮（如图所示）。要求程序运行后，单击"输入"按钮，可通过输入对话框 输入两个字符串，存入字符串变量a、b中（a、b应定义为窗体变量），如果单击"连接"按 钮，则把两个字符串连接为一个字符串（顺序不限）并在信息框中显示出来（在程序中不得 使用任何其他变量）。 注意：保存时必须存放在考生文件夹下，窗体文件名为wy4.frm，工程文件名为wy4.vbp。 第 18题、 3．综合应用（1小题，计 30分） 注意：下面出现的"考生文件夹"均为 在名称为 Form1的窗体上建立一个文本框（名称为 Text1，Multiline属性为 True， ScrollBars属性为2）和两个命令按钮（名称分别为 Cmd1和Cmd2，标题分别为"读入数据" 和"计算保存"）（如图所示）。要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt" 文件中的 100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果 单击"计算保存"按钮，则计算其中前 50个数之和，并把求和结果在文本框 Text1中显示出 来，同时把结果存入考生文件夹中的文件"out.txt"中。（在考生的文件夹下有标准模块 mode.bas，其中的 putdata过程可以把结果存入指定的文件，考生可以把该模块文件添加到 自己的工程中，直接调用此过程）。 注意：文件必须存放在考生文件夹下，窗体文件名为wy7.frm，工程文件名为wy7.vbp，计 算结果存入 out.txt文件，否则没有成绩。 12． 在窗体上建立两个名称分别为 C1和C2，标题分别为"输入"和"计算"的命令按钮（如 图所示）。要求程序运行后，单击"输入"按钮，可通过输入对话框输入两个数（分别为 53 和84），分别存入整形变量a、b中，如果单击"计算"按钮，则对a、b变量进行加法运算， 并把计算结果在信息框中显示出来 13． 第21题、 3．综合应用（1小题，计 30分） 在名称为 Form1的窗体上建立一个文本框（名称为 Text1，Multiline属性为 True， ScrollBars属性为2）和两个命令按钮（名称分别为 Cmd1和Cmd2，标题分别为"读入数据" 和"计算保存"）（如图所示）。要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt" 文件中的 100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果 单击"计算保存"按钮，则计算数组中前 30个数的平均值(结果四舍五入为整数)，并把结果 在文本框 Text1中显示出来，同时把结果存入考生文件夹中的文件"out.txt"中。（在考生的 文件夹下有标准模块mode.bas，其中的 putdata过程可以把结果存入指定的文件，考生可 以把该模块文件添加到自己的工程中，直接调用此过程）。 第 22题、 1．基本操作（4小题，计 30分） 请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码）。 （1）在名称为 Form1的窗体上建立一个名称为Cmd1，宽度为 1500，高度为500，标题为" 显示"的命令按钮（如图所示），编写适当的事件过程。要求程序运行后，如果单击"显示" 命令按钮，则在窗体上显示"祝你考试成功"。运行结果如图所示（要求：不要使用任何变量， 直接显示字符串 ( 综合应用题 ) 在名称为 Form1的窗体上建立一个文本框（名称为Text1，Multiline属性 为 True，ScrollBars属性为 2），两个命令按钮（名称分别为 Cmd1和 Cmd2，标题分别为" 读入数据"和"计算保存"）（如图所示）。要求程序运行后，如果单击"读入数据"按钮，则读 入"in.txt"文件中的 100个整数，放入一个数组中（数组下界为1），同时在文本框中显示 出来；如果单击"计算保存"按钮，则计算小于或等于 700的所有数之和，并把求和结果在文 本框 Text1中显示出来，同时把该结果存入考生文件夹中的文件"out.txt"中。（在考生文件 夹下有标准模块mode.bas，其中的 putdata过程可以把结果存入指定的文件，考生可以把 该模块文件添加到自己的工程中，直接调用此过程） 有一些题型很简单，有些重复就不贴了 14． > 综合应用 在 form上有以“开始”和“结束”两command,编程使： 按“开始”从文件 prog8a.dat中读出数，统计数字，大小写，其他类型个数，结果输入 prog8a.dat中，完毕后“开始”变为“完成”，且无效 20)．综合应用（1小题，计 30分） 注意：下面出现的"考生文件夹"均为 在名称为Form1的窗体上建立两个单选按钮（名称分别为Opt1和Opt2，标题分别为"100-200 之间素数"和"200-400之间素数"）、一个文本框（名称为Text1）和两个命令按钮，其名称 分别为 Cmd1和Cmd2，标题分别为"计算"、"存盘"（如图所示）。程序运行后，如果选中一 个单选按钮并单击"计算"按钮，则计算出该单选按钮标题所指明的所有素数之和。并在文本 框中显示出来。如果单击"存盘"按钮，则把计算结果存入"out.txt"文件中，该文件必须放 在考生文件夹中。（在考生文件夹中有标准模块mode.bas，其中的putdata 过程可以把结果 存入指定的文件，而 isprime函数可以判断整数 x是否为素数，如果是素数，则函数返回 True，否则返回False，考生可以将该模块文件添加到自己的工程中。） 注意： （1） 必须把200-400之间的素数之和存入考生文件夹下的 out.txt文件中，否则没有成绩。 （2） 保存程序时必须存放在考生文件夹下，窗体文件名为wy7.frm，工程文件名为wy7.vbp。 21)在考生文件夹中有工程文件 wy5.vbp及其窗体文件wy5.frm，该程序是不完整的。请 在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其他部分。 存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体上有三个名称分别为Text1、Text2、Text3的文本框，一个名称为C1，标题为"计算 "的命令按钮（如图所示）。要求程序运行后，在 Text1和 Text2中分别输入两个整数，单击 "计算"按钮后，可把两个整数之间的所有整数（含着两个整数）累加起来并在 Text3中显示 出来。 22 ）在名称为 Form1的窗体上建立二个名称分别为Cmd1、Cmd2，标题为"按钮一"、" 按钮二"的命令按钮（如图所示）。要求程序运行后，如果单击"按钮一"，则把"按钮二"移到 "按钮一"上，使两个按钮重合。 注意： 1） 在程序中不得使用任何变量（必须通过属性设置来移动控件）。 23) 在窗体上建立两个名称分别为 C1和 C2，标题分别为"输入"和"计算"的命令按钮（如 图所示）。要求程序运行后，单击"输入"按钮，可通过输入对话框输入两个数（分别为 53 和84），分别存入整形变量a、b中，如果单击"计算"按钮，则对a、b变量进行加法运算， 并把计算结果在信息框中显示出来。 24)已知平面坐标系中两点的坐标，求两点间的距离。 答：由数学知识可知，已知两点坐标（X1，Y1），（X2，Y2），求两点间距离的计算公式为： s=sqr((x2-x1)^2+(y2-y1)^225、)在文本框中输入小时、分、秒，化成共有多少秒，然后输出之。 26)、输入以秒为单位表示的时间，编写程序，将其换算成几日几时几分几秒。 ????? 27)、将弧度值换算为角度值度、分、秒的开式。 28)、键盘输入几个不同的数，将它们从大到小排序。 29)、键盘输入的值，判断它们能否构成三角形的三个边。如果能构成一个三角形，则计 算三角形的面积。 30)、编写程序，任意输入一个整数，判定该整数奇偶性。 ?????31 )、求一元二次方程的 a*x^2+b*x+c=0根 32)、设计程序，求出S=11+（1+2）+（1+2+3）+。。。 。。（1+2+3+4。 。。。。+N）的值 33)、编写程序，要求用户输入下列信息：姓名，年龄，通信地址，邮政编码，电话，然 后将输入的数据用适当的格式在窗体上显示出来。 34）在考生文件夹中有文件 wy6.vbp及其窗体文件wy6.frm，该程序是不完整的，请在有？ 号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时 不得改变文件夹和文件名。 本题描述如下： 窗体上有一个名称为 Text1的文本框；两个复选框，名称分别为 Ch1和 Ch2，标题分别为" 爱心社"和"学通社"。要求程序运行后，如果只选中Ch1，单击窗体，则在文本框中显示"报 名参加爱心社"；如果只选中Ch2，然后单击窗体，则在文本框中显示"报名参加学通社"； 如果同时选中 Ch1和Ch2，单击窗体，则在文本框中显示"报名参加爱心社和学通社"；如果 Ch1和 Ch2都不选取，在单击窗体后，则在文本框中什么都不显示。 35）本题描述如下： 在窗口中有三个 Label控件和两个名称分别为COMSTART，COMEXIT，标题分别为"开始"、" 退出"的命令按钮。要求程序运行后，单击"开始"按钮后，能打印出如下图所示的三角形， 并写入考生文件夹下的 picture.dat文件中；执行完毕"开始"按钮,变成"完成"，且无效（变 灰）。 A AAA AAAAA AAAAAAA BBBBBBB BBBBB BBB B 36）在窗体上建立一个名称为 Text1的文本框和一个名称为Cmd1，标题为"计算"的命令 按钮（如图所示）。程序运行后，单击"计算"命令按钮，通过在对话框输入整数12，放入整 形变量 a中，然后计算a!，（提示：运算结果应放入 Long型变量中），在文本框中显示结果， 并把结果存入文件 out.txt中。在考生文件夹中有一个标准模块mode.bas ，该模块中提供 了保存文件的过程putdata,考生可以直接调用。 注意： 保存时必须存放在考生文件夹下，窗体文件名为wy6.frm，工程文件名为wy6.vbp。 ?????37、 编写程序，输出 100~300间的所有素数。 38、 编写程序，求解鸡兔同笼问题。一个笼子中有鸡 X只，兔 Y只，每只鸡有 2只脚， 每只兔有 4只脚。今知鸡和兔的总头数为H，总脚数为F。问笼中鸡和兔各若干？ 提示：根据数学知识，可以写出如下的联立方程式： X+Y=H（1） 2X+4Y=F （2） （2）式—2*（1）式： 2Y=F—2H故 Y=（F—2H）/2 4*（1）—（2）式：2X=4H—F 故 X=（4H—F）/2 可按上式编写程序，用 INPUTBOX函数输入 H和 F的值，设H=71，F=158，请编写程序并上 机运行。 39 编写程序，演示列表框控件的基本操作。在窗体上建立两个列表框，两个命令按钮， 程序运行后，在第一个列表框中选择所需要的项目，单“添加”按钮，把所选择的项目移到 第二个列表框中。如果单击“删除”按钮，则执行相反的操作。在第二个列表框中，允许同 时选择多个项目，要求在每个列表框的下面用标签控件显示各自的 STYLE和 SORTED属性。 40、 编写程序，用计时器按秒计时，在窗体上画一个计时器控件和一个标签，程序运行 后，在标签内显示经过的秒数，并响铃。 41 勾股定理中 3个数的关系是：a^2+b^2=c^2。编写程序，输出 30以内满足上述关系的 整数组合，例如3、4、5就是一个整数组合。 42、 从键盘上输入两个正整数 M和N，求最大公因子。 43、 一个两位的正整数，如果将它的个位数字与十位数字对调，则产生另一个正整数， 我们把后者叫做前者的对调数。现给定一个两位的正数，请找到另一个两位的正整数，使得 这两位正整数之和等于它们积各自的对调数之和。例如，12+32=3=23+21。编写程序，把具 有这种特征的一对两位正整数都找出来。下面是其中的一种结果： 56+（10）=（1）+6556+（65）=（56）+65 56+（21）=（12）+65 56+（76）=（67）+65 56+（32）=（23）+65 56+（87）=（78）=65 56+（43）=（34）+65 56+（98）=（89）+65 56+（54）=（45）=65 44＝、从键盘上输入 10个整数，并放入一个一维数组中，然后将其前 5个元素与后 5 个元素对换，即第 1个元素与第 10个元素互换，第 2个元素与第 9个元素互换。。 。。。。。。第 5个元素与第 6个元素互换，。分别输出数组原来的各元素的值和对换后各元素的值。 45 设计一个“通讯录”程序，当用户在下拉列表框中选择某一人名后，在“电话号码” 文本框中显示出对应的电话号码，当用户选择或者取消“单位”和“住址”复选框后，将打 开或关闭“工作单位”或“家庭住址”文本框。 2004年VB上机试题 第1题： 　　 　　在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有一个文本框，名称 为 Text1； 还有两个命令按钮，名称分别为C1、C2，标题分别为"计算"、 "存盘"，如图所示。并有一 个函数过程 isprime可以在程序中直接调用， 其功能是判断参数 a 是否为素数，如果是 素数，则返回 True，否则返回 False。 请编写适当的事件过程，使得在运行时，单击"计 算"按钮，则找出小于 18000的最大的素数，并显示在Text1中；单击"存盘"按钮，则把 Text1 中的计算结果存入考生文件夹下的 out5.txt文件中。 　　 　　本题的考查主要有两个,一个是循环,一个是文件的访问。 　　由于在小于 18000中寻找最大素数,并且判断素数的函数已经给出,只要使用一个循环 在18000以下寻找,没有找到减一再寻找,找到记录在Text1.Text中,在结构化的程序中不再 提倡 GoTo以及从结构体中退出（例如 Exit For等）,使用 While判断是一个较好的选择。 　　 　　第2题： 　　 　　在考生文件夹下有一个工程文件 sjt4.vbp，窗体上已经有两个文本框，名 称分别为 Text1、Text2；和一个命令按钮，名称为C1，标题为"确定"；请画两个单选按钮，名称分 别为 Op1、Op2，标题分别为 "男生"、"女 生"；再画两个复选框，名称分别为 Ch1、 Ch2， 标题分别为"体育"、 "音乐"。请编写适当的事件过程，使得在运行时，单击"确定"按钮后 实 现下面的要求： 　　 1）根据选中的单选按钮，在 Text1中显示"我是男生"或"我是女生"。 　　 2）根据选中的复选框，在 Text2中显示"我的爱好是体育"或"我的爱好是 音乐"或" 我的爱好是体育音乐"。如图所示。 　　 注意： 不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必 须选 中一个单选按钮和至少一个复选框，并单击"确定"按钮。必须使用 窗体右上角的关闭按钮 结束程序，否则无成绩。 　　 　　分析：单选按钮 OptionButton和选择框 CheckBox的简单应用 OptionButton控件和 CheckBox控件功能相似，但是二者间也存在着重要差别。在选择一个 OptionButton时，同 组中的其它 OptionButton控件自动无效。相反，可以选择任意数量的 CheckBox控件。 　　只要注意了这一点本题可以在 C1_Click事件中判断他们的选中情况 OptionButton的 Value为 True表示选中,CheckBox的 Value=1时表示选中。 　　 　　第 3题： 　　 　　在名称为 Form1 的窗体上画一个标签，名称为 L1，标签上显示"请输入 密码"，在标 签的右边画一个文本框，名称为 Text1 ，其宽、高分别为 2000和300，设置适当的属性使 得在输入密码时，文本框中显示"*"字符， 此外再把窗体的标题设置为"密码窗口"，以上这 些设置都只能在属性窗 口中进行设置，运行时的窗体如图所示。 *注意： 存盘时必须存放 在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件 名为sjt1.frm。 　　 　　分析：创建的对象设置属性。属性窗口（选中对按[F4]调出）给出了设置所有的窗体对 象属性的简便。在"视图"菜单中选择"属性窗口"命令、单击工具栏上的"属性窗口"按钮 或使用控件的上下文菜单，都可以打开属性窗口。在本题中要求对于密码框的设定,只要为 Text1的 PasswordChar属性设置为*即可完成 　　 　　第 4题： 　　 　　在考生文件夹下有一个工程文件 sjt3.vbp，窗体上已经有一个标签 L1， 请画一个单 选按钮数组，名称为Op1， 含三个单选按钮，它们的 Index属性 分别为0、1、2，标题依 次为"飞机"、"火车"、"汽车"，再画一个名 称为 Text1的文本框。窗体文件中已经给出了 Op1的 Click事件过程，但不完 整，要求去掉程序中的注释符，把程序中的 ？改为正确的 内容，使得在运 行时单击"飞机"或"火车"单选按钮时，在 Text1中显示"我坐飞机去"或" 我坐火车去"，单击"汽车"单选按钮时，在Text1中显示"我开汽车 去"，如图所示。 注意： 不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 　　 　　本题考查对于OptionButton 控件的了解,OptionButton控件显示一个可以打开或者关 闭的选项,判断它是否被选中使用的是 value属性,选中为True,反之为False。 　　一般在使用 OptionButton控件使大多数人喜欢使用控件数组,在第一题中 Select Cas 语句是根据表达式的值，来决定执行几组语句中的其中之一。根据后续的语句我们可以知道, 这里需要根据用户的选择进行分流,分流的依据是用户选择了那一个OptionButton,这个可 以由 Index得到,这里填入Index,第二个空白,我们只要知道 OptionButton数组从零开始, 不难判断Op1（1).Caption是"火车",我们只能"坐",填入 a即可。 第5题： 　　 　　在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个图片框，名称为 　　 P1、P2，分别用来表示信号灯和汽车，其中在 P1 中轮流装入"黄灯.ico"、"红灯.ico"、 "绿灯.ico"文件来实现信号灯的切换；还有两个计时器Timer1 和Timer2，Timer1用于变 换信号灯，黄灯 1秒，红灯 2秒，绿灯 3秒；Timer2用于 控制汽车向左移动。运行时，信 号灯不断变换，单击"开车"按钮后。 汽车开 始移动，如果移动到信号灯前或信号灯下，遇 到红灯或黄灯，则停止移动， 当 变为绿灯后再继续移动。在窗体中已经给出了全部控件和 程序，但程序不完整， 　　 要求阅读程序并去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实 现上 述功能，但不能修改程序中的其他部分，也不能修改控件的属性。 最后把 修改后的文件以 原文件名存盘。 　　 　　本题中涉及三个事件 　　点击开车按钮C1_Click,汽车开始启动,由题面知道汽车的开动由 Timer2控制,那么这 里必须启动Timer2,所以填入 Timer2.Enable=True 　　红绿灯由Timer1控制,在Timer1的事件Timer1_Timer中根据时间a来更换P1.Picture 的图像,达到红绿灯转换的效果,如果看到其他灯已经有了,这里填入"绿灯.ioc"是简单的选 择,仔细分析要在绿灯有三秒,也必须这样填写 　　最后是汽车的移动,已知是由 Timer2操作的,在它的事件 Timer2_Timer中要移动汽车, 使用了 picture的 Move方法,平行向右移动,改变 Left值,这里填入 picture1.Left即可实 现。 　　其他关于 Timer控件以及 picture控件的属性方法事件请自己参阅有关资料。 　　 　　第6题： 　　 　　在考生文件夹下有一个工程文件sjt5.vbp，请在窗体上画两个框架，其名 称分别为 F1 和F2，标题分别为"交通工具"和"到达目标"。在 F1中画两 个单选按钮，名称分别为 Op1 和Op2，标题分别为"飞机"和"火车"。在 F2中画两个单选按钮，名称分别为 Op3和 Op4， 标题分别为"广州"和"昆 明"。画一个文本框，其名称为Text1。编写适当事件过程。程序 运行后， 选择不同单选按钮时产生的显示结果见下表 　　 　　 程序的运行情况如图所示。存盘时，工程文件名为sjt5.vbp，窗体文件名 为sjt5.frm。 　　 　　单选按钮的 Value属性： 　　 Value属性用来表示单选按钮的状态，可以取 True和False两种值，取值为 True时， 单选按钮是"打开"的，按钮中心有一个圆点；取值为 False时，单选按钮是"关闭"的，按钮 是一个圆圈。 　　设置单选按钮 Value属性的语法是： 　　单选按钮名.Value = True（-1)或False（0) 　　由于 Value属性是单选按钮的缺省属性，因此在设置该属性的值的时候，可以省略属性 名。 　　解题方法： 　　打开工程文件sjt5.vbp，点击工具箱中的 Frame控件图标，然后在窗体上拖拉出两个 框架，通过属性窗口分别设置其 Name属性为"F1"和"F2"，Caption属性为"交通工具"和"到 达目标"。 　　点击工具箱中的 OptionButton控件图标，然后在 F1中拖拉出两个单选按钮，通过属性 窗口分别设置其 Name属性为"Op1"和"Op2"，Caption属性为"飞机"和"火车"。 　　点击工具箱中的 OptionButton控件图标，然后在 F2中拖拉出两个单选按钮，通过属性 窗口分别设置其 Name属性为"Op3"和"Op4"，Caption属性为"广州"和"昆明"。 　　点击工具箱中的 TextBox控件图标，然后在窗体上拖拉出一个文本框。 　　打开代码窗口，输入如下的代码： 　　 Private Sub Form_Click（) 　　 If Op1.Value = True Then 　　 If Op3.Value = True Then 　　 Text1.Text = "坐飞机去广州" 　　 ElseIf Op4.Value = True Then 　　 Text1.Text = "坐飞机去昆明" 　　 End If 　　 ElseIf Op2.Value = True Then 　　 If Op3.Value = True Then 　　 Text1.Text = "坐火车去广州" 　　 ElseIf Op4.Value = True Then 　　 Text1.Text = "坐火车去昆明" 　　 End If 　　 End If 　　 End Sub 　　 　　第 7题： 　　 　　在考生文件夹下有一个工程文件sjt6.vbp，请在窗体上画三个文本框，其 名称分别为 Text1、Text2和Text3，文本框内容分别设置为"等级考试"、 "计算机"和空白。然后画两 个单选按钮，其名称分别为Op1和Op2，标题 分别为"交换"和"连接"（如图所示），编写适 当的事件程序。程序运 行后，如果选中"交换"单选按钮并单击 Text3文本框，则 Text1文 本框中 内容与 Text2文本框中内容进行交换，并在 Text3文本框中显示"交换成 功"；如果 选中"连接"单选按钮并单击 Text3 文本框，则把 Text1 和 Text2的内容按Text1、Text2 的顺序连接起来，并在Text3文本框中显示连 接后的内容。存盘时，工程文件名为sjt6.vbp， 窗体文件名为sjt6.frm。 　　解题方法： 　　打开工程文件sjt6.vbp，点击工具箱中的 TextBox控件图标，然后在窗体上拖拉出三 个文本框，通过属性窗口分别设置其 Text属性为"等级考试"、"计算机"和""。 　　点击工具箱中的 OptionButton控件图标，然后在窗体中拖拉出两个单选按钮，通过属 性窗口分别设置其 Name属性为"Op1"和"Op2"，Caption属性为"交换"和"连接"。 　　打开代码窗口，输入如下的代码： 　　 Private Sub Text3_Click() 　　 If Op1.Value Then 　　 Text1.Text = "计算机" 　　 Text2.Text = "等级考试" 　　 Text3.Text = "交换成功" 　　 Else 　　 Text3.Text = Text1.Text + Text2.Text 　　 End If 　　 End Sub 第8题： 　　 　　在 Form1的窗体上画一个文本框，其名称为Text1；再画两个命令按钮， 　　 其名称分别为C1和C2，标题分别为"显示"和"退出"，编写适当的事件 过程。程序运 行后，在窗体加载时使"退出"按钮不可用，如果单击"显 示"按钮，则在文本框中显示"等级 考试"，并使"退出"按钮可用，此 时如果单击"退出"按钮，则结束程序，程序运行情况如图 所示。 　　 　　解题方法： 　　新建一个名为 Form1的窗体，点击工具箱中的 CommandButton控件图标，然后在窗体上 拖拉出两个命令按钮，通过属性窗口分别设置其 Name属性为"C1"和"C2",Caption属性为" 显示"和"退出"。 　　点击工具箱中的 TextBox控件图标，然后在窗体上拖拉出一个文本框。 　　打开代码窗口，输入如下的代码： 　　 Private Sub C1_Click（) 　　 C2.Enabled = True 　　 Text1.Text = "等级考试" 　　 End Sub 　　 Private Sub C2_Click（) 　　 End 　　 End Sub 　　 　　第9题： 　　 　　在 Form1的窗体上画一个命令按钮，其名称为C1，标题为"显示"；再画 　　 一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗 体加载时使 文本框不可见，如果双击窗体，则文本框出现；此时如果单击 命令按钮，则在文本框中显 示"等级考试"。程序运行情况如图所示。 　　 　　解题方法： 　　新建一个名为 Form1的窗体，点击工具箱中的 CommandButton控件图标，然后在窗体上 拖拉出一个命令按钮，通过属性窗口设置其 Name属性为"C1"，Caption属性为"显示"。 　　点击工具箱中的 TextBox控件图标，然后在窗体上拖拉出一个文本框。 　　打开代码窗口，输入如下的代码： 　　 Private Sub C1_Click（) 　　 Text1.Text = "等级考试" 　　 End Sub 　　 Private Sub Form_DblClick（) 　　 Text1.Visible = True 　　 End Sub 　　 Private Sub Form_Load（) 　　 Text1.Visible = False 　　 End Sub 　　 　　第10题： 　　 　　在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命 令按钮，其 名称为C1，Visible属性为False。编写适当的事件过程。程序 运行后，如果在文本框中 输入字符，则命令按钮出现。程序运行情况如图 所示。 　　解题方法： 　　新建一个窗体，点击工具箱中的 TextBox控件图标，然后在窗体上拖拉出一个文本框， 通过属性窗口设置其 Text属性为""。 　　点击工具箱中的 CommandButton控件图标，然后在窗体上拖拉出一个命令按钮，通过属 性窗口设置其 Name属性为"C1",Visible属性为False。 　　打开代码窗口，输入如下的代码： 　　 Private Sub Text1_Change（) 　　 C1.Visible = True 　　 End Sub 　　按要求保存文件即完成本题。