2009年3月全国计算机二级VB计算机试题内容
考生文件夹下有一个工程文件sjt5.vbp，其表单上有一个名为text1的文本框；还有两个命令按钮，分别命名为C1和C2，标题分别为“计算”和“保存”，如图所示。还有一个函数过程isprime，可以在程序中直接调用。它的作用是判断参数A是否是素数，如果是素数则返回True，否则返回False。请写一个合适的事件过程，这样当你点击“计算”按钮时，可以找到小于18000的最大素数，并显示在Text1中；点击“保存”按钮，将Text1的计算结果保存在考生文件夹下的out5.txt文件中。
这个问题主要测试两个，一个是循环，一个是文件访问。
因为在18000以内找到最大的素数，并且已经给出了判断素数的函数，只要用一个循环在18000以下找到，没有找到减法，就找到并记录在Text1中。结构化程序中不再提倡Text，以及GoTo和exit from结构(如Exit For等。)，用While判断是比较好的选择。
问题2:
考生文件夹下有一个工程文件sjt4.vbp，表单上已经有两个文本框，分别命名为Text1和Text2分别是。以及一个名为C1，标题为“确定”的命令按钮；请画两个单选按钮，命名为Op1和Op2，标题分别为“男生”和“女生”。绘制两个复选框，分别命名为Ch1和Ch2，标题分别为“运动”和“音乐”。请编写一个适当的事件过程，以便在运行时，单击“确定”实现以下要求:
1)根据选择的单选按钮，在Text1中显示“我是男生”或“我是女生”。
2)根据选中的复选框，在Text2中显示“我的爱好是体育”或“我的爱好是音乐”或“我的爱好是体育音乐”。如图所示。
注意:不得修改给定程序和现有控件的属性。在结束程序之前，您必须选择一个单选按钮和至少一个复选框，然后单击“确定”。你必须使用表格右上角的关闭按钮来结束程序，否则你将得不到分数。
分析:单选按钮OptionButton和CheckBox的简单应用OptionButton控件和CheckBox控件的功能相似，但两者也有重要的区别。当选择一个OptionButton时，同一组中的其他OptionButton控件自动无效。相反，您可以选择任意数量的复选框控件。
注意这一点就好。这个题目可以判断他们在C1_Click事件中的选择。OptionButton的值为True，表示选中，CheckBox的值为1，表示选中。
问题3:
在名为Form1的表单上画一个标签，名称为L1，标签显示“请输入密码”。在标签右侧画一个文本框，名称为Text1，宽度和高度分别为2000和300。设置适当的属性，使“*”字符在输入密码时显示在文本框中，然后。*注意:保存时必须保存在考生文件夹中。项目文件名为sjt1.vbp，表单文件名为sjt1.frm。
分析:创建的对象设置属性。属性窗口(通过按[F4]选择和调用)提供了一种简单的方法来设置表单对象的所有属性。在“视图”菜单中，选择“属性窗口”命令，单击工具栏上的“属性窗口”按钮或使用控件的上下文菜单打开属性窗口。此题要求设置密码框，只要将Text1的PasswordChar属性设置为*。
问题4:
考生文件夹下有一个工程文件sjt3.vbp，表单上已经有一个标签L1。请绘制一个名为Op1的单选按钮数组，其中包含三个单选按钮，它们的索引属性分别为0、1和2，标题依次为“飞机”、“火车”、“汽车”。Op1的Click事件过程已经在表单文件中给出，但并不完整。需要删除程序中的注释，并将？将其更改为正确的内容，这样当你点击“飞机”或“火车”单选按钮时，Text1中将显示“我将乘飞机”或“我将乘火车”，当你点击“汽车”单选按钮时，Text1中将显示“我将开车”，如图所示。注意:您不能修改程序的其他部分。最后，按照原文件名保存修改后的文件。
本主题考察对OptionButton控件的理解。OptionButton控件显示一个可以打开或关闭的选项，并判断它是否用value属性选中。如果选中，则为真，否则为假。
一般来说，使用OptionButton控件会让大多数人喜欢使用控件数组。在第一个问题中，Select Cas语句根据表达式的值决定执行几组语句中的一组。根据后面的说法，我们可以知道，导流需要根据用户的选择来进行。转移的基础是用户选择了那个OptionButton，可以通过Index获得。在这里，填写索引和第二个空格。只要知道OptionButton数组从零开始，就不难判断OP 1 (1)。题注是“火车”，我们只能“坐着”填一个。
问题5:
考生文件夹下有一个工程文件sjt5.vbp，表单上有两个图片框，名为。
P1和P2分别用来表示红绿灯和汽车，其中P1装的是“黄灯。ico”，“红灯。ico”和“绿灯。ico”文件依次切换红绿灯；还有两个定时器Timer1和Timer2，Timer1用于改变信号灯，黄灯1秒，红灯2秒，绿灯3秒；定时器2用于控制轿厢向左移动。运行时，信号灯不断变化，点击“开始”按钮后。汽车开始移动。如果在信号灯前面或下面移动，遇到红灯或黄灯就停止移动，等绿灯了再继续移动。所有控件和程序都已在表格中给出，但程序不完整。
要求阅读程序并删除程序中的评论，并把？改成正确的内容实现以上功能，但是不能修改程序的其他部分或者控件的属性。最后，用原始文件名保存修改后的文件。
这个问题涉及三个事件。
点击启动按钮C1_Click，汽车启动。由题目可知，汽车的启动是由定时器2控制的，所以这里必须启动定时器2，所以填定时器2。Enable=True。
交通灯由定时器1控制。在Timer1事件Timer1的Timer _ Timer中，P1的图像。图片按照时间A进行替换，从而达到红绿灯转换的效果。如果您看到其他灯已经可用，那么填写“绿灯”是一个简单的选择。ioc”在这里。仔细分析的话，绿灯三秒的话一定要这样填。
最后，已知汽车的运动由定时器2操作。在其事件Timer2_Timer中，图片的move方法用于将汽车平行向右移动，并更改左值。这里，图片1。左边可以填。
其他关于定时器控制和画面控制的事件，请自行查阅相关资料。
问题6:
考生文件夹下有一个工程文件sjt5.vbp。请在表格上画两个框，分别命名为F1和F2，标题分别为“运输”和“到达目标”。在F1中绘制两个单选按钮，名称分别为Op1和Op2，标题分别为“飞机”和“火车”。在F2中画两个单选按钮，分别命名为Op3和Op4，标题分别为“广州”和“昆明”。绘制一个名为Text1的文本框。编写适当的事件过程。程序运行后，选择不同单选按钮产生的显示结果如下表所示。
程序的操作如图所示。保存时，项目文件名为sjt5.vbp，表单文件名为sjt5.frm。
单选按钮的Value属性:
Value属性用于指示单选按钮的状态，它可以接受两个值:True和False。当值为True时，单选按钮为“打开”,按钮中心有一个圆点。当值为False时，单选按钮为“off ”,按钮为圆形。
设置单选按钮的Value属性的语法是:
单选按钮名称。值=真(-1)或假(0)
因为Value属性是单选按钮的默认属性，所以在设置该属性的值时可以省略属性名称。
解决方法:
打开项目文件sjt5.vbp，在工具箱中单击框架控件图标，然后在窗体上拖出两个框架，通过属性窗口将Name属性分别设置为“F1”和“F2”，Caption属性设置为“vehicle”和“reaching the target”。
单击工具箱中的OptionButton图标，然后在F1中拖出两个单选按钮，通过属性窗口分别将它们的名称属性设置为“Op1”和“Op2”，标题属性设置为“飞机”和“火车”。
单击工具箱中的OptionButton控件图标，然后在F2中拖出两个单选按钮，通过属性窗口分别将它们的名称属性设置为“Op3”和“Op4”，标题属性设置为“广州”和“昆明”。
单击工具箱中的TextBox控件图标，然后在窗体上拖动一个文本框。
打开代码窗口，输入以下代码:
私有子窗体_Click()
如果Op1。那么值=真
如果Op3。那么值=真
Text1。Text = "坐飞机去广州"
埃尔塞夫作品4。那么值=真
Text1。Text = "坐飞机去昆明"
如果…就会结束
埃尔塞夫作品2。那么值=真
如果Op3。那么值=真
Text1。Text = "坐火车去广州"
埃尔塞夫作品4。那么值=真
Text1。Text = "坐火车去昆明"
如果…就会结束
如果…就会结束
末端接头
问题7:
考生文件夹下有一个工程文件sjt6.vbp。请在表格上画三个文本框，名称分别为Text1、Text2、Text3，文本框内容设置为“等级考试”、“计算机”和空白。然后画两个单选按钮，分别命名为Op1和Op2，标题分别为“交换”和“连接”(如图)，并写一个合适的事件程序。程序运行后，如果选择“交换”单选按钮并点击Text3文本框，Text1文本框中的内容将与Text2文本框中的内容进行交换，Text3文本框中将显示“交换到工作中”；如果选择了“连接”单选按钮并单击了文本3文本框，则文本1和文本2的内容将按照文本1和文本2的顺序进行连接，连接的内容将显示在文本3文本框中。保存时，项目文件名为sjt6.vbp，表单文件名为sjt6.frm。
解决方法:
打开项目文件sjt6.vbp，单击工具箱中的TextBox控件图标，然后在窗体上拖出三个文本框，通过属性窗口分别将它们的文本属性设置为“等级测试”、“计算机”和“”。
单击工具箱中的OptionButton控件图标，然后在窗体中拖出两个单选按钮。通过属性窗口，将Name属性分别设置为“Op1”和“Op2”，将Caption属性设置为“exchange”和“connection”。
打开代码窗口，输入以下代码:
私有子文本3_Click()
如果Op1。那就值了
Text1。Text = "计算机"
文本2。Text = "等级考试"
短信3。Text = "交换成功"
其他
短信3。Text = Text1。文本+文本2。文本
如果…就会结束
末端接头
问题8:
在Form1的窗体上画一个文本框，其名称为text 1；再画两个命令按钮，
它们的名字分别是C1和C2，标题分别是“显示”和“退出”，并编写了适当的事件过程。程序运行后，加载表单时“退出”按钮不可用。如果您点击“显示”按钮，文本框中将显示“等级考试”，并且“退出”按钮可用。如果此时点击“退出”按钮，程序将结束，程序运行如图所示。
解决方法:
创建一个名为Form1的新窗体，单击工具箱中的CommandButton控件图标，然后在窗体上拖出两个命令按钮。通过属性窗口，将其name属性分别设置为“C1”和“C2”，caption属性设置为“显示”和“退出”。
单击工具箱中的TextBox控件图标，然后在窗体上拖动一个文本框。
打开代码窗口，输入以下代码:
私有Sub C1_Click()
C2。启用=真
Text1。Text = "等级考试"
末端接头
私有子C2_Click()
结束
末端接头
问题9:
在Form1的窗体上绘制一个命令按钮，名称为C1，标题为“显示”；重画
一个名为Text1的文本框编写了一个适当的事件过程。程序运行后，加载窗体时使文本框不可见。如果双击表单，将出现文本框。此时，如果单击命令按钮，文本框中将显示“等级考试”。程序的操作如图所示。
解决方法:
创建一个名为Form1的新窗体，单击工具箱中的CommandButton控件图标，然后在窗体上拖动一个命令按钮，通过属性窗口将其name属性设置为“C1”，Caption属性设置为“Display”。
单击工具箱中的TextBox控件图标，然后在窗体上拖动一个文本框。
打开代码窗口，输入以下代码:
私有Sub C1_Click()
Text1。Text = "等级考试"
末端接头
私有子窗体_DblClick()
Text1。可见=真
末端接头
私有子窗体_Load()
Text1。可见=假
末端接头
问题10:
在窗体上绘制一个文本框，其名称为Text1，Text属性为空。绘制另一个命令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，命令按钮就会出现。程序的操作如图所示。
解决方法:
新建一个窗体，单击工具箱中的TextBox控件图标，然后在窗体上拖动一个文本框，通过属性窗口将其Text属性设置为“”。
单击工具箱中的CommandButton控件图标，然后在窗体上拖动一个命令按钮，通过属性窗口将其Name属性设置为“C1”，visible属性设置为False。
打开代码窗口，输入以下代码:
私有子文本1_Change()
C1。可见=真
末端接头
根据需要保存文件以完成此问题。