1、国家二级 VB机试（上机操作）模拟试卷 141及答案与解析 一、基本操作题 1 在名称为 Form1，标题为 “组合框 ”的窗体上画 1个名称为 Combo1的组合框，利用属性窗口设置适当属性使其在程序刚开始运行时的界面如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sit1 vbp，窗体文件名为 sit1 frm。2 在名称为 Form1的窗体上画一个名称为 Image1的图像框，并通过属性窗口为其装入考生文件夹中的图标文件 CARS ico；再画一个名称为 Timer1的计时器，一个名称为 Command1、 标题为 “开始 ”的命令按钮，如图所示。要求：通过属性窗口设置适当的
2、属性，再编写适当的事件过程，使得程序运行时，单击 “开始 ”按钮，图片可以每 0 2秒向右移动 50。注意：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 考生文件夹中有工程文件 sjt3 vbp。程序运行时，单击窗体，则开始每隔 5秒钟在文本框中显示一次当前时间，文本框中文字的颜色每隔 8秒在红色 (颜色值为&HFF)与黑色 (颜色值为 0)之间切换。在给出的窗体文件中已经有了全部控件，但程序不完整。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：考生不得修
3、改窗体文件中已经存在的程序。最后，程序按原文件名存盘。 4 在考生目录下有一个工程文件 sjt4 vbp。程序的功能是，单击 “产生随机数 ”按钮可以产生 10个随机数放到数组中并显示在图片框中，在文本框中输入一个小于 10的正整数 m，单击 “移动数据 ”按钮，可以把数组中的前 m个数据移动到后面去，并显示在图片框中。如图所示。在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程 序中的注释符，把程序中的 ?改为正确的内容。最后把修改后的文件按原文件名存盘。 三、综合应用题 5 考生文件夹下有工程文件 sjt5 vbp和数据文件 in5 txt。 in5 txt中有多条记录，每条记
4、录占一行，含 4个数据项，数据项的含义依次是：姓名、数学成绩、语文成绩、英语成绩。 窗体上按钮 “读取数据 ”的功能是把 in5 txt中的所有记录读到数组 a中 (每个数组元素中有一条记录 )；按钮 “排序 ”的功能是按总分从大到小排序，结果仍放在数组 a中；按钮 “保存 ”的功能是存盘，其代码已经给出，不能修改。 请将事件过程 中的注释符去掉，把 ?改为正确的内容，并编写 “排序 ”按钮的事件过程。 注意：考生不得修改窗体文件中已经存在的控件和程序，必须运行程序，并依次按下 “读入数据 ”、 “排序 ”、 “保存 ”按钮，否则无成绩，最后将程序按原文件名存盘。 国家二级 VB机试（上机操作
5、）模拟试卷 141答案与解析 一、基本操作题 1 【正确答案】 操作步骤 步骤 1：新建一个窗体，设置窗体的 Caption属性为 “组合框 ”。步骤 2：选择组合框控件，按照表 4 1在属性窗口中设置相应属性，如图4 1所示。 步骤 3：调试并运行程序，关闭程序后按题目要 求存盘。 2 【正确答案】 操作步骤 步骤 1：新建一个窗体，按照题目要求添加图像框控件，计时器控件和 Command控件。步骤 2：在属性窗口中设置各控件的属性，如表 4 2所示。设置完成后窗体界面如图 4 2所示。步骤 3：双击 “右击 ”按钮，打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。编写程序代码。参考代
6、码 (画下划线部分是需填入的内容 )Private sub Command1_Click()Timer1 Enabled=TrueEnd SubPrivate Sub Timer1_Timer()Image1 Left=Image1 Left+50End Sub步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 3 【正确答案】 操作步骤 步骤 1：打开本题项目工程 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Dim n As Integer Private Sub Form_Click() Tim
7、er1 Enabled=True End Sub Private Sub Form_Load() Timer1 Interval=10000 Timer1 Enabled=FalSe Text1 ForeColor=0 n=0 End Sub Private Sub Timer1_Timet() n=n+1 If n Mod 5=0 Then Text1 Text=Time() End If If n Nod 8=0Then If Text1 ForeColoE=0 Then Text1 ForeColor=&HFF Else Text1 ForeColor=0 End If End If E
8、nd Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘 4 【正确答案】 操作步骤 步骤 1：打开本题项目工程 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Dim a (1 To 10) Private Sub Command1 C1ick() Randomize For k=1 To 10 a(k)=Int(Rnd*90+10) Picture1 Print a(k)； Next k picture1 Print picture1 Print“-“ End Sub Private Sub Command2
9、_Click() m =Val(Text1) NoveArray a()， m For k=1 To 10 Picture1 Print a(k)； Next k Picture1 Print End Sub Sub NoveArray(a()As Integer， m As Integer) n =UBound(a) For k=1 Tom x=a(1) For j=1 To n-1 a(j)=a(j+1) Next j a(n)=x Next k End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘 三、综合应用题 5 【正确答案】 操作步骤 步骤 1：打开本题项目工程 步骤
10、 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) private Sub Command1_Click() Open App Path&“ in5 txt“For Input As #1 k=1 Do while Not EOF(1) Input #1， a(k) name， a(k) Math， a(k) Chirlese， a(k) English k=k+1 Loop Close #1 num=k End Sub Private Sub Command2_Click() Dim temp As rec Dim i， j As Integer For i=1 To num For j=1 To num-i If sum(j) sum(j+1)Ther temp=a(j) a(j)=a(j+1) a(j+1)=temp End If Next j Next i End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
