国家二级VB机试(上机操作)模拟试卷429
基本操作题
1.(1)在名称为Form1的窗体上添加一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图所示。
要求:程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2)在名称为Form1的窗体上添加一个名称为Shape1的形状控件,在属性窗口中将其形状设置为圆形。添加一个名称为List1的列表框,并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项,则将其值作为形状控件的填充参数。例如,选择3,则形状控件中被竖线填充,如图所示。
(1)【操作步骤】
步骤1:建立界面,添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表3.59。
[*]
步骤2:打开代码编辑窗口,在指定位置编写如下代码。
参考答案
Private Sub C1_Click()
Form1.BackColor=&HFF&
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1:建立界面,将窗体Form1的Caption属性设置为“图形控制”,然后添加相应的控件并设置控件的属性。程序中用到的控件及属性见表3.60。
[*]
步骤2:打开代码编辑窗口,在指定位置编写如下代码。
参考答案
Private Sub List1_Click()
Shape1.FillStyle=List1.Text
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析:
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。程序运行后,单击“开始”按钮,图片自上而下移动,同时滚动条的滑块随之移动。每隔0.5秒移动一次,当图片顶端移动到距窗体下边界的距离少于200时,则再回到窗体的顶部,重新向下移动,如图所示。在窗体文件中已经给出了全部控件,但程序不完整。
(1)【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口中,去掉程序中的注释符“’”,将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
Dim Y As Integer
For j=0 To 2 ’循环三个单选按钮
If Option1(i).Value=TrueThen ’当某个按钮被选
y=Val (Option1 (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=List1.ListCount-1 To 0 Step-1
List1.RemoveItem k
Next k
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
Timer1.Enabled=True
End Sub
Private Sub Command2_Click()
Timer1.Enabled=False
End Sub
Private Sub Form Load()Timer1.Interval=500 ’设置Timer1执行间隔数,以毫秒计算
End Sub
Private Sub Timer1_Timer()
Picture1.Top=Picture1.Top+200 ’顶端位置保持一致
VScro111.Value=Picturel.Top ’滚动条滑块的位置与图片顶端位置保持一致
If VScro111.Value+200>=Form1.Height-200 Then
Picture1.Top=0 ’当图片顶端移动到距窗体下边界距离少于200时,则图片重新向下移动
End If
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析:
综合应用题
3.在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90
本文档预览:3600字符,共4495字符,源文件无水印,下载后包含无答案版和有答案版,查看完整word版点下载