【计算机类职业资格】国家二级VB机试（上机操作）模拟试卷331及答案解析.doc

1、国家二级 VB机试（上机操作）模拟试卷 331及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1、标题为“输入”、最大化按钮失效的窗体上画一个名称为 Label1的标签控件，其标题为“输入密码”；再向窗体内画一个名称为 Text1的文本框控件，并清空其中的文本。程序执行时，用户在文本框中最多可输入由 6个字符组成的密码，密码字符在文本框中显示为“*”，其画面如图所示，请设置相应属性。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为sjt1frm。 (2)在名称为 Form1的窗体上，画一个

2、名称为 Shape1的形状控件，将其形状设置为圆、背景样式设置为不透明；再向窗体上画一个名称为 HScmll1的水平滚动条控件，并将滚动条所能表示的最小值设置为 0、所能表示的最大值设置为 255。 要求：编写适当的事件过程，使得程序运行时，当单击水平滚动条 HScroll1两端的箭头时，能将 Shape1中的背景颜色设置为由红、绿、蓝三原色组合形成的一种颜色，其中，红色的分量值为滚动条中滚动框当前位置所表示的值，绿色、蓝色的分量值都为 0。程序运行示意图如图所示。 提示：系统库函数 RGB可将红、绿、蓝三原色组合，并返回组合后的颜色值。注意：要求程序中不能使用变量，每个事件过程中只能写一条语

3、句(不得使用选择语句或循环语句)。保存时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp.程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，将大于文本框中的正整数，并且能够被所选除数整除的 5个数添加到列表框 List1中，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属

4、性，最后将修改后的文件按原文件名进行存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动。每隔 05 秒移动一次，当图片顶端移动到距窗体下边界的距离少于 200时，则再回到窗体的顶部，重新向下移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，其窗体上有两个标签 L1和 L2，标题分别为“口令”和“允许次数”；一个命令按钮 C1，标题为“确定”；两个文本框名称分别为 Text1和 Text2

5、。其中 Text1用来输入口令(输入时，文本框内容显示“*”)，初始内容为空；Text2 的初始内容为 3。并给出了 C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得程序运行时，在Text1中输入口令后，单击“确定”，如果输入的是“123456”则在 Text1中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出错误提示对话框(如图所示)，并且 Text2中的数字减 1。最多可输入3次口令，若 3次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷

6、331答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1、标题为“输入”、最大化按钮失效的窗体上画一个名称为 Label1的标签控件，其标题为“输入密码”；再向窗体内画一个名称为 Text1的文本框控件，并清空其中的文本。程序执行时，用户在文本框中最多可输入由 6个字符组成的密码，密码字符在文本框中显示为“*”，其画面如图所示，请设置相应属性。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为sjt1frm。 (2)在名称为 Form1的窗体上，画一个名称为 Shape1的形状控件，将其形状设

7、置为圆、背景样式设置为不透明；再向窗体上画一个名称为 HScmll1的水平滚动条控件，并将滚动条所能表示的最小值设置为 0、所能表示的最大值设置为 255。 要求：编写适当的事件过程，使得程序运行时，当单击水平滚动条 HScroll1两端的箭头时，能将 Shape1中的背景颜色设置为由红、绿、蓝三原色组合形成的一种颜色，其中，红色的分量值为滚动条中滚动框当前位置所表示的值，绿色、蓝色的分量值都为 0。程序运行示意图如图所示。 提示：系统库函数 RGB可将红、绿、蓝三原色组合，并返回组合后的颜色值。注意：要求程序中不能使用变量，每个事件过程中只能写一条语句(不得使用选择语句或循环语句)。保存时必

8、须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：新建一个窗体，根据表 48 设置窗体的相关属性步骤 2：向窗体中添加一个标签控件，根据表 49 设置控件的相关属性 步骤 3：向窗体中添加一个文本框控件，根据表 410 设置控件的相关属性，设置后窗体的效果如图 48 所示 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：新建一个窗体，在窗体上添加一个 Shape控件，并按照表 411 设置控件的相关属性。 步骤 2：向窗体中添加一个 HScroll控

9、件，按照表 412 设置控件的相关属性，设置后窗体的效果如图 49 所示 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp.程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，将大于文本框中的正整数，并且能够被所选除数整除的 5个数添加到列表框 List1中，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 (2)在考生文件夹下

10、有一个工程文件 sjt4vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动。每隔 05 秒移动一次，当图片顶端移动到距窗体下边界的距离少于 200时，则再回到窗体的顶部，重新向下移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。 （分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口中，去掉程序中的注释符“”，将问号改为正确的内容。 Private Sub Commandl_Click() Dim Y As Integer For i=0 To 2循环三个单选按钮 If option1(

11、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(TextlText)+1 Do While i=5只需要显示 5个数 If x Mod y=0 Then判断 x是否能被 y整除 List1AddItemx添加满足条件的数至表 i=i+1统计 End If x=x+1自加，判断下次循环 Loop End Sub Private Sub

12、 ClearList()清空列表框的项目 For k=ListlListCount 一 1 To 0 Step-1 List1RemoveItem k Next k End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Private Sub Commandl_Click() TimerlEnabled=True End Sub Private Sub Command2_Click() TimerlEnabled=FalSe End Sub Priva

13、te Sub Form_Load() TimerlInterval=500设置 Timer1执行间隔数，以毫秒计算 End Sub Private Sub Timerl_Timer() Picture1Top=PicturelTop+200顶端位置保持一致 VScroll1Value=PicturelTop 滚动条滑块的位置与图片顶端位置保持一致 If VScroll1Value + 200 = FormlHeight 一 200 Then PicturelTop=0当图片顶端移动到距窗体下边界距离少于 200时，则图片重新向下移动 End If End Sub 步骤 3：调试并运行程序，关闭

14、程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，其窗体上有两个标签 L1和 L2，标题分别为“口令”和“允许次数”；一个命令按钮 C1，标题为“确定”；两个文本框名称分别为 Text1和 Text2。其中 Text1用来输入口令(输入时，文本框内容显示“*”)，初始内容为空；Text2 的初始内容为 3。并给出了 C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得程序运行时，在Text1中输入口令后，单击“确定”，如果输入的是“123456”则在 Text1中显示“口令正确”；如果输入其

15、他内容，单击“确定”后，弹出错误提示对话框(如图所示)，并且 Text2中的数字减 1。最多可输入3次口令，若 3次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件，将文本框 Text1的 PasswordChar属性设置为“*”。 步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。 PriVate sub C1_Click() If Text1.Text=“123456“Then输入的口令与正确的口令相比较 Text1Text=”口令正确” Text1PaeswordChar=“” Else Text2Text=Text2Text 一 1当密码错误时 Text2中的数减 1 If Text2Text0 Then MsgBox”第”(3 一 Text2 Text)”次口令错误，请重新输入” Else MsgBox”3次输入错误，请退出” Text1Enabled=False当 Text1 的 Enabled属性为 false时则文本不能输入 End If End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：