国家二级VB机试（上机操作）模拟试卷596
基本操作题
1.在名称为Form1，标题为“图片”的窗体上添加1个名称为Imagel的图像框，其高为2500，宽为2000。请通过属性窗口设置适当属性，将考生文件夹下的图片文件piel．jpg插入图像框，并使图片自动适应图像框的大小(如图所示)。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。
【操作步骤】
步骤l：新建一个窗体，按照题目要求建立控件并设置其属性。如表4．33所示。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
解析：图像框(Image)的Picture属性用于在设计阶段设置图像框中显示的图片，它的Stretch(自动伸缩)属性返回／设置一个值，决定是否调整图形的大小以适应图像框控件。
2. 在名称为Forml的窗体上添加一个名称为．Labell，标题为“口令”的标签；添加一个名称为Textl的文本框；再添加三个命令按钮，名称分别为Commahd1、Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。
程序运行时，在Textl中输入若干字符，单击“隐藏口令”按钮，则只显示与字符同样数量的“*”(如图2所示)；单击“显示口令”按钮，则正常显示输入的字符(如图l所示)，单击“重新输入”按钮，则清除Textl中的内容，并把光标定位到Textl中。
要求：请按要求添加所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在“显示口令”、“隐藏口令”按钮的事件过程中只能写l条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
【操作步骤】
步骤l：新建一个窗体，按照题目要求建立标控件，程序中用到的控件及属性见表4．34和表4．35。
[*]
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Commandl_Click()
Textl．PaSswordChar=＂＂′当Pass-
wordChar属性设置为空时，Textl文本框显示内容
End Sub
Private Sub Command2_Click()
Textl．PasswordChar=＂*＂′当PasS．
wordChar属性设置为*时，用*代替Textl文本框中的字符显示
End Sub
Private Sub Command3click()
Textl=＂＂′清空文本框
Textl．SetFocusTextl获得焦点
End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
解析：PasswordChar属性用来设置是否在控件中显示用户输入的字符。如果该属性设置为某一字符，那么无论Text属性值是什么，在文本框中都只显示该字符。另外，MuhiLine属性必须设置为False。运用SetFocus方法使文本框获得焦点。
简单应用题
3.在考生文件夹下有一个工程文件sjt3．vbp，在程序运行时，单击“输入整数”按钮，输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果，图2是输入100后的结果。已经给出了全部控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
【操作步骤】
步骤I：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Commandl_Click()
Dim n As Integer
Cls′清空窗体
n=InputBox(”请输入一个整数＂)′In-
putBox返回值赋给n
Print”因子数=”；fun(n)′调用fun函数并打印结果
End Sub
Function fun(m AS Integer)
Dim S As Integer
S=0
For k=1 TO Abs(m)／2
If m Mod k=0Then′当整除余数为0时则一定是它的因子
S=S+1
Print k
End If
Next k
fun=s′返回因子总数
End Function
程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：通过InputBox()函数实现对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。
4.在考生文件夹下有一个工程文件sjt4．vbp。在其窗体中“待选城市”下的Listl列表框中有若干个城市名称。程序运行时，选中Listl中若干个列表项(如图l所示)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Textl文本框中显示这些选中的城市(如图2所示)。已经给出了所有控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
【操作步骤】
步骤l：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Commandl～C1ick()
Dim k％
For k=Listl．ListCount一1 To
0Step－1
′k从最大到0，则步长应为一1
If Listl．Selected(k) =
True Then
L1St2． AddItem
Listl.
本文档预览：3600字符，共6098字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
