1、国家二级 VB机试（上机操作）模拟试卷 21及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画一个水平滚动条，其名称为 HScrolll，然后通过属性窗口设置窗体和滚动条的属性，实现如下功能： 窗体标题为 ”设置滚动条属性 ”； 滚动条所能表示的最小值和最大值分别为 0和 200； 程序运行后，单击滚动条两端的箭头时，滚动框移动的增量值为 2； 程序运行后，单击滚动框前面或后面的部位时，滚动框移动的增量值为 10； 滚动框 的初始位置为 100。 程序的运行情况如图 2-121所示。 要求：不要编写
2、任何代码。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 2 在名称为 Forml的窗体上画一个文本框，其名称为 Textl，如图 2-122(a)所示，编写适当的事件过程。程序运行后，如果单击窗体，则可使文本框移到窗体的左上角：而如果在文本框中输入信息，则可使文本框移到窗体的右上角。程序的运行情况如图 2-122(b)所示。要求：不得使用任何变量，只允许通过修改属性的方式移动文本框。注意 ：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 s
3、jt3 vbp，相应的窗体文件为 sjt3 frm。其功能是产生 20个 0 1000的随机整数，放入一个数组中，然后输出这 20个整数中大于 500的所有整数之和。程序运行后，单击命令按钮 (名称为 Commandl，标题为 ”输出大于 500的整数之和 ”)，即可求出这些整数的和，并在窗体上显示出来 (如图2-123所示 )。这个程序不完整，请把它补充完整，并能正确运行。要求：去 掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 f
4、rm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出 0100范围内不能被 7整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被 7整除的整数的和的操作在通用过程Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在 Function Fun( )和 End Function之间填入编写的若干语句。最后把修改后的文件按原文件名存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，相应的窗体文件为 sjt5 frm，此外还有一个名为 datain txt的文本文件，其内容如下：32437
5、658281298573142536475869713243546576879805937程序运行后，单击窗体，将把文件 datain txt中的数据输入到二维数组 Mat中，在窗体上按 5行、 5列的矩阵形式显示出来，然后计算矩阵第三行各项的和，并在窗体上显示出来，如图2-124所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确 运行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 21答案与解析 一、基本操作题 1 【正确答案】
6、 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中画一个滚动条，并设置它的相关属性，其属性及值如表 3-67所示。步骤 2：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体上画一个名为 Text1的文本框。 步骤 2：打开代码编 辑窗口，编写事件过程。 参考代码： Private Sub Form_Click( ) Text1 Left=0 Text1 Top=0 End Sub Private Sub Text 1_Change( ) Text1 Left=Forml Width-Textl Width Textl Top=0
7、 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释 符 ”“，将问号 ”?”改为正确的内容。 参考代码： arrN(i)=Int(Rnd*1000) Sum=0 If arrN(i) 500 Then Sum=Sum+arrN(i) 步骤 2：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件下的本题工程文件 sjt4 vbp，在代码编辑窗口，编辑 Fun函数的内容。 参考代码： Sum=0 For i=0 To 100 If i Mod 7 0 Then Sum=Sum+i End If Next i Fun=Sum 步骤 2： 按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开本题对应工程文件 sjt5 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： Dim Mat (M， N) Open App Path & “ ” & “in5 txt” For_ Input As #1 Input #1， Mat(i， j) Sum=0 Sum=Sum+Mat(3， j) 步骤 3：按要求将文件保存在考生文件夹中。
