国家二级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版点下载