1、国家二级 VB机试（上机操作）模拟试卷 331及答案与解析 一、基本操作题 1 (1)在名称为 Form1、标题为 “输入 ”、最大化按钮失效的窗体上画一个名称为Label1的标签控件，其标题为 “输入密码 ”；再向窗体内画一个名称为 Text1的文本框控件，并清空其中的文本。程序执行时，用户在文本框中最多可输入由 6个字符组成的密码，密码字符在文本框中显示为 “*”，其画面如图所示，请设置相应属性。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Form1的窗体上，画一个名称为 Shape1的形状控件，将其形状设置为圆、
2、背景样式设置为不透明；再向窗体上画一个名称为 HScmll1的水平滚动条控件，并将滚动条所能表示的最小值设置为 0、所能表示的最大值设置为 255。 要求：编写适当的事件过程，使得程序运行时，当单击水平滚动条 HScroll1两端的箭头时，能将 Shape1中的背景颜色设置为由红、绿、蓝三原色组合形成的一种颜色，其中，红色的分量值为滚动条中滚动框当前位置所表示的值，绿色、蓝色的分量值都为 0。程序运行示意图如图所示。 提示：系统库函数 RGB可将红、绿、蓝 三原色组合，并返回组合后的颜色值。注意：要求程序中不能使用变量，每个事件过程中只能写一条语句(不得使用选择语句或循环语句 )。保存时必须存
3、放在考生文件夹下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp.程序的功能是通过键盘输入正整数到文本框中。在 “除数 ”框架中选择一个单选按钮，然后单击 “处理数据 ”命令按钮，将大于文本框中的正整数，并且能够被所选除数整除的 5个数添加到列表框 List1中，如图所示。在窗体文件中已经给出了 全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。(2)在考生文件夹下有一个工程文件s
4、jt4 vbp。程序运行后，单击 “开始 ”按钮，图片自上而下移动，同时滚动条的滑块随之移动。每隔 0 5秒移动一次，当图片顶端移动到距窗体下边界的距离少于200时，则再回到窗体的顶部，重新向下移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 ?改为 正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有两个标签 L1和 L2，标题分别为 “口令 ”和 “允许次数 ”；一个命令按钮 C1，标题为 “确定 ”；两个
5、文本框名称分别为 Text1和 Text2。其中 Text1用来输入口令 (输入时，文本框内容显示 “*”)，初始内容为空； Text2的初始内容为 3。并给出了 C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容，使得程序 运行时，在 Text1中输入口令后，单击 “确定 ”，如果输入的是 “123456”则在 Text1中显示 “口令正确 ”；如果输入其他内容，单击 “确定 ”后，弹出错误提示对话框 (如图所示 )，并且Text2中的数字减 1。最多可输入 3次口令，若 3次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件
6、名存盘。国家二级 VB机试（上机操作）模拟试卷 331答案与解析 一、基本操作题 1 【正确答案】 (1) 【操作步骤】 步骤 1：新建一个窗体，根据表 4 8设置窗体的相关属性 步骤 2：向 窗体中添加一个标签控件，根据表 4 9设置控件的相关属性步骤 3：向窗体中添加一个文本框控件，根据表 4 10设置控件的相关属性，设置后窗体的效果如图 4 8所示步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：新建一个窗体，在窗体上添加一个Shape控件，并按照表 4 11设置控件的相关属性。步骤 2：向窗体中添加一个 HScroll控件，按照表 4 12设置控件的
7、相关属性，设置后窗体的效果如图 4 9所示步骤 3：双击 HScrolll控件，打开代码编辑窗口，在代码编辑窗口指定位 置编写以下代码。 编写程序代码。 Private Sub HScroll1_Change() Shape1.HackColor=HCB(HScroll1.Value,0,0) End Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口中，去掉程序中的注释符 “”，将问号改为正确的内容。 Private Sub Commandl_Click() Dim Y
8、 As Integer For i=0 To 2循环三个单选按钮 If option1(i).Value=True Then当某个按钮被选 Y=Val(Optionl(i) Caption)提取按钮名并转换为数值 End If Next Call calc(y)调用子函数 End Sub Private Sub calc(Y As Integer) ClearList执行子函数 i=1 x=Val(Textl Text)+1 Do While i =5只需要显示 5个数 If x Mod y=0 Then判断 x是否能被 y整除 List1 AddItemx添加满足条件的数至表 i=i+1统计
9、 End If x=x+1自加，判断下次循环 Loop End Sub Private Sub ClearList()清空列表框的项目 For k=Listl ListCount一 1 To 0 Step-1 List1 RemoveItem k Next k End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Private Sub Commandl_Click() Timerl Enabled=True End Sub Private Sub
10、Command2_Click() Timerl Enabled=FalSe End Sub Private Sub Form_Load() Timerl Interval=500设置 Timer1执行间隔数，以毫秒计算 End Sub Private Sub Timerl_Timer() Picture1 Top=Picturel Top+200顶端位置保持一致 VScroll1 Value=Picturel Top 滚动条滑块的位置与图片顶端位置保持一致 If VScroll1 Value + 200 = Forml Height一 200 Then Picturel Top=0当图片顶端移
11、动到距窗体下边界距离少于 200时，则图片重新向下移动 End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件，将文本框 Text1的 PasswordChar属性设置为 “*”。 步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。 PriVate sub C1_Click() If Text1.Text=“123456“Then输入的口令与正确的口令相比较 Text1 Text=”口令正确 ” Text1 PaeswordChar=“” Else Text2 Text=Text2 Text一 1当密码错误时 Text2中的数减 1 If Text2 Text 0 Then MsgBox”第 ” (3一 Text2 Text) ”次口令错误，请重新输入 ” Else MsgBox”3次输入错误，请退出 ” Text1 Enabled=False当 Text1的 Enabled属性为 false时则文本不能输入 End If End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
