国家二级VB机试（上机操作）模拟试卷455
基本操作题
1.(1)在名称为Form1的窗体上添加两个名称分别为Frame1、Frame2的框架，标题分别为“字号”、“修饰”；在Frame1中添加两个单选按钮，名称分别为Option1、Option2，标题分别为“10号字”、“20号字”，且标题显示在单选按钮的左边；在Frame2中添加一个名称为Checkl的复选框，怀题为“下划线”。程序运行后的窗体如图所示。
注意：存盘时必须存放在考乍文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上从上到下添加两个文本框，名称分别为Text1、Text2；再添加一个命令按钮，名称为Command1，标题为“选中字符数是”。程序运行时，在Text1中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则选中的字符个数显示在Text2中(如图所示)。请编写按钮的Click事件过程。
要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
(1)步骤1：建立界面，添加相应的控件并设置控件的属性。程序中的控件及属性见表3．43。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤l：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表3．44。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
PriVate sub Command1_Slick()
Text2 =Text1．SelLength
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：(1)通过框架的Name和Caption属性设置框架的名称和标题，通过单选按钮的Name和Caption属性设置单选按钮的名称和标题，通过复选框的Name和Caption属性设置复选框的名称和标题。
(2)SelLength属性用于返回／设置选定的字符数，通过文本框的Name和Caption属性设置文本框的名称和标题，通过命令按钮的Name和Caption属性设置命令按钮的名称和标题。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，将大于文本框中的正整数，并且能够被所选除数整除的5个数添加到列表框List1中，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动。每隔0．5秒移动一次，当图片顶端移动到距窗体下边界的距离少于200时，则再回到窗体的顶部，重新向下移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。
(1)步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口中，去掉程序中的注释符“t”，将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
Dim y 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(Text1．Text)+1
Do While i<=5’只需要显示5个数
If x Mod y=0 Then’判断x是否能被y整除
List1．AddItem x’添加满足条件的数至表
i=i+1’统计
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 Command1_Click()
Timerl．Enabled=True
End Sub
Private Sub Command2_Click()
Timerl．Enabled=False
End Sub
Private Sub Form Load()
Timerl．Interval=500’设置Timerl执行间隔数，以毫秒计算
End Sub
Private Sub Timerl_Timer()
Picturel．Top=Picturel．Top+200’顶端位置保持一致
Vscroll1．Value=Picturel．Top’滚动条滑块的位置与图片顶端位置保持一致
If VScrolll．Value +200 >=Form1．Height一200 Then
Picturel．Top=0’当图片顶端移动到距窗体下边界距离少于200时，则图片重新向下移动
End If
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：(1)calc()函数实现将大于文本框中的正整数，并且能够被所选除数整除的5个数添加
本文档预览：3600字符，共5378字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
