国家二级VB机试（上机操作）模拟试卷418
基本操作题
1.(1)在名称为Form1，标题为“图片”的窗体上添加1个名称为Image1的图像框，其高为2500，宽为2000。请通过属性窗口设置适当属性，将考生文件夹下的图片文件pic1．jpg插入图像框，并使图片自动适应图像框的大小(如图所示)。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Label1，标题为“口令”的标签；添加一个名称为Text1的文本框；再添加三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。
程序运行时，在Text1中输入若干字符，单击“隐藏口令”按钮，则只显示与字符同样数量的“*”(如图2所示)；单击“显示口令”按钮，则正常显示输入的字符(如图1所示)，单击“重新输入”按钮，则清除Text1中的内容，并把光标定位到Text1中。
要求：请按要求添加所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在“显示口令”、“隐藏口令”按钮的事件过程中只能写1条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为st2．frm。
(1)【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设詈其属性．如表3．33所示。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1：新建一个窗体，按照题目要求建立标控件，程序中用到的控件及属性见表3．34和表3．35。
[*]
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”将问号改为正确的内容。
参考答案
Private Sub Command1_C1ick()
Text1．PasswordChar＝\\
解析：
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp，在程序运行时，单击“输入整数”按钮，输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果，图2是输入100后的结果。已经给出了全部控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
(2)在考生文件夹下有一个工程文件sjt4．vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时，选中List1中若干个列表项(如图1所示)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Text1文本框中显示这些选中的城市(如图2所示)。已经给出了所有控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
(1)【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
Dim n As Integer
Cls ’清空窗体
n＝InputBox(\\
解析：
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp，在其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何空白位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。
参考答案
Dim stepy As Integer ’纵向移动增量
Dim stepx As Integer ’横向移动增量
Const LEFT BUTTON＝1
Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single t Y As Single)
Dim x0 As Integer，y0 As Integer，a As Single，radius As Integer
radius＝Shape1．Width／2 ’圆的半径
If Button＝LEFT_BUTTON Then
’单击鼠标左键移动
x0＝Shape1．Left＋radius’圆心的x坐标
y0＝Shape1．Top＋radius ’圆心的y坐标
If x＝x0 Then ’垂直移动
stepy＝Sgn(y－y0) * 50
stepx＝0
Else ’倾斜移动
a＝(y－y0)／(x－x0) ’斜率
stepx＝Sgn(x－x0) * 50 stepy＝a * stepx
’通过stepx确定stepy的值
If Abs(stepy)＞Abs (stepx)Then
stepy＝Sgn(y－y0) * 50
Stepx＝Stepv／a
End If
End If
Timer1．ENabled＝True’单击鼠标左键则触发Timer事件
Else
Timer1．Enabled＝False ’单击鼠标右键则停止Timer事件
End If
End Sub
Private Sub Timer1_Timer()
Shape1．Move Shape1．Left＋stepx，Shape1．Top＋stepy’移动shape1
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：
本文档预览：3600字符，共3588字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
