1、VB 机试-试卷 42 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Forml 的窗体上建立一个二级下拉菜单。一级菜单的标题为“文件”，名称为 vbFile，有效；二级菜单有两项，一项标题为“打开”，名称为“vbOpen”，有效，命令执行的快捷方式为Crtl+N，一项标题为“保存”，名称为“VbSaVe”，执行快捷键方式为 Ctrl 十 S，有效，另一项标题为“关闭”，名称为“vbClose”，无效，命令执行的快捷方式为 Ctrl+C。程序运行时，窗体界面如图 561 所示。 注意：存
2、盘时必须存放到考生文件夹下，工程文件名为 sjlvbp，窗体文件名为 sjlfrm。 (2)在名称为 Forml 的窗体上绘制一个名为 Textl 的文本框控件和一个名为 Timerl 的计时器控件，程序运行后，文本框中显示的是当前的日期和时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变，如图 562 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹下有一个工程文件 sj3vbp，相应的窗体文件为 sj3frm。其功能是随机产生 30 个01000 的整数，放入一个数组中，然后输出其中的最小值。程序运
3、行后，单击命令按钮(名称为Commandl，标题为“输出最小值”)，即可求出其最小值，并在窗体上显示出来(如图 40 一 4 所示)。这个程序不完整，请把它补充完整，并能正确运行。 注意：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有工程文件 sj4vbp 及窗体文件 sj4frm，该程序是不完整的。窗口中有一个名称为Picturel 的图片框，一个名称为 HScrolll 的滚动条，3 个名称分别为 Commandl、Command2 和 Command3的命令按钮，标题分别为“开始”、
4、“暂停”和“关闭”，一个名称为 Timerl 的计时器控件。程序运行后，单击“开始”按钮后，使红框沿直线左右运动，并可以使用滚动条调节运动的速度；单击“暂停”按钮后，小球暂停运动；单击“关闭”按钮结束程序。程序运行界面如图 405 所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分。在窗体上有 3 个命令按钮，名称分别为 Read、Cal 和 save，标题分别为“读入数据”、“判断计算”和“保存”，还有两个文本框(名称分别为 Te
5、xtl 和 Text2，其中 Textl 的 MultiLine 属性设置为 True，ScrollBars 属性设置为 2)，程序运行界面如图 315 所示。 （分数：2.00）_VB 机试-试卷 42 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在名称为 Forml 的窗体上建立一个二级下拉菜单。一级菜单的标题为“文件”，名称为 vbFile，有效；二级菜单有两项，一项标题为“打开”，名称为“vbOpen”，有效，命令执行的快捷方式为Crtl+N，一项标题为“保存”，名称为“VbSaVe
6、”，执行快捷键方式为 Ctrl 十 S，有效，另一项标题为“关闭”，名称为“vbClose”，无效，命令执行的快捷方式为 Ctrl+C。程序运行时，窗体界面如图 561 所示。 注意：存盘时必须存放到考生文件夹下，工程文件名为 sjlvbp，窗体文件名为 sjlfrm。 (2)在名称为 Forml 的窗体上绘制一个名为 Textl 的文本框控件和一个名为 Timerl 的计时器控件，程序运行后，文本框中显示的是当前的日期和时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变，如图 562 所示。 （分数：2.00）_正确答案：(正确答案：(1)根据题意，新建“标准 EXE”工程，打开菜单
7、编辑器，添人以下几项：单击 按钮运行程序，并按要求保存。 (2)根据题意，新建“标准 EXE”工程，将一个 Timer 控件和一个 Text 控件添加到窗体上，Timer 的名称为 Timerl、Interval 属性为 1 000 毫秒，Text 的名称为Textl、Text 属性为空。双击 Timerl，进入代码窗口，编写如下代码： Private Sub Timerl_Timer() TextlText=Date+Time End Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹下有一个工程文件 sj3v
8、bp，相应的窗体文件为 sj3frm。其功能是随机产生 30 个01000 的整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮(名称为Commandl，标题为“输出最小值”)，即可求出其最小值，并在窗体上显示出来(如图 40 一 4 所示)。这个程序不完整，请把它补充完整，并能正确运行。 注意：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有工程文件 sj4vbp 及窗体文件 sj4frm，该程序是不完整的。窗口中有一个名称为Picturel 的图片框，一个名称为 HSc
9、rolll 的滚动条，3 个名称分别为 Commandl、Command2 和 Command3的命令按钮，标题分别为“开始”、“暂停”和“关闭”，一个名称为 Timerl 的计时器控件。程序运行后，单击“开始”按钮后，使红框沿直线左右运动，并可以使用滚动条调节运动的速度；单击“暂停”按钮后，小球暂停运动；单击“关闭”按钮结束程序。程序运行界面如图 405 所示。 （分数：2.00）_正确答案：(正确答案： (1)本题主要考查 Randomize 语句、Rnd()函数、Int()函数、循环语句、判断语句以及 Print 方法，根据题意，双击进入代码窗口，编写如下代码： 0ption Base
10、1 Private Sub Commandl_Click() Dim arrN(30)As Integer Dim Min As Integer Randomize For i=1 To 30 arrN(i)=Int(Rnd* 1000 ) Next i Min =arrN(1) For i=2 To 30 If arrN(i) Then Min=arrN(i) End If Next i Print Min End Sub 单击*按钮运行程序，并按要求保存。 (2)计时器控件作用是以一定的时间间隔激发计时器事件(Timer)执行相应的代码。当计时器控件的 Enabled 属性为 True 时
11、，计时器计时开始，当为 False 时计时器计时暂停。 根据题意，将 3 个命令按钮、一个标签、一个计时控件和一个水平滚动条控件添加到窗体中，命令按钮的名称分别为 Commandl、Command2 和 Command3，Caption 属性为“开始”、“暂停”和“关闭”，Timer 的间隔为 0，名称为 Timerl，标签的名称为 Labell，背景色为红色，水平滚动条的名称为 HScrolll，Min 属性为 5，Max 属性为 30。双击 Commandl 进入代码编写窗口，开始时，将 Timer 的 Interval 赋为 1，而暂停时则设为 0，初始 Interval 为 0，具体代
12、码如下： Dim direct As Integer Dim rights As Integer Dim lr As Integer Private Sub Commandl_Click() TimerlInterval=1 gnd Sub Private Sub Command2 Click() TimerlInterval=0 End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() direct=0 TimerlInterval=0 Timerl Timer End Sub Private
13、 Sub Timerl Timer() rights=FormlWidth-1500 lr=LabellLeft+LabellWidth If LabellLeft=3 60 And lr400 And a(i)Mod 2=1 Then判断是否大于 400 且是奇数 total= total+a(i) 如果是则求和 str=str+CStr(a(i)+vbCrLf并放入输出字符串中 End If Next i TextlText=str在 Textl 中显示符合条件的数 Text2 Text =total在 Text2 中显示和 End Sub Private Sub Command3 Click() Open“AppPathg&sjouttxt“For Output As#2 打开文件准备写入 Print#2，total将求得的和写入文件中 Close#2 End Sub 单击 )解析：
