国家二级VB机试（上机操作）模拟试卷464
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在窗体上画出2个名称分别为Shape1、Shape2的形状控件，在属性窗口设置控件的属性，使得Shape1为圆角矩形，并填充红色(＆H000000FF&)；Shape2为圆形，并填充网格线，如图3－24所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在窗体上画1个名称为Picture1的图片框，其Picture属性为pic1．bmp(在考生文件夹中)。画2个名称分别为Command1、Command2的命令按钮，Caption属性分别为“左移”“右移”。请编写适当的程序，使得运行程序时，单击“左移”按钮，图片框移至窗体左侧(如图3－25(a)所示)；单击“右移”按钮，图片框移至窗体右侧(如图3－25(b)所示，注：可以不考虑窗体边框的影响)。
第1小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Form1中加入两个Shape控件。按表4－15设置其相关属性。
[*]
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Fonnl中加入一个图片框和两个命令按钮。按表4－16设置其相关属性。
[*]
步骤2：在打开的代码编辑窗口中，编写命令按钮的Click事件代码。参考代码：
Private Sub Commandl Click( )
Picture1．Left＝0
End Sub
Private Sub Command2_Click( )
Picture1．Left＝Form1．Width－
Picture1．Width
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：
简单应用题
2.(1)考生文件夹中有工程文件sjt3．vbp。窗体上已有部分控件。在窗体上画一个名称为Text1的文本框，设置相应属性，使得该文本框能够显示多行文本，且有垂直滚动条，如图3－26所示。运行程序时，将在文本框Text1中显示一段英文短文。
第1小题
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，在窗体中加入一个文本框。按步骤2：在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
表4－17设置其相关属性。
[*]
步骤2：在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
n＝Len(str2)’或n＝Len(Text2．Text)
For i＝1 To Len(str1)
MsgBox str2 ＆\\
解析：
综合应用题
3.在考生目录下有一个工程文件sjt5．vbp。运行程序后，单击“读数据”按钮，从data5．dat文件中读出一个数据，并显示在标签Label1中；单击“找素数”按钮，则在大于Label1的数据范围内找出最小的素数，并将其显示在标签Label2中。
在给出的窗体文件中已经有了全部控件，并给出了读写文件和判断素数的程序代码。但程序不完整。
要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，并编写相应程序段，实现程序功能。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，各命令按钮的事件过程必须至少各执行一次。
【操作步骤】
步骤1：打开考生文件夹中的工程文件sjt5．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
Labell．Caption＝x
Close ＃1
Private Sub Command2 Click( )
’＝＝＝＝＝＝＝＝＝以下考生编写＝＝＝＝＝＝＝＝＝＝＝＝
Dim n As Integer
n＝Label1．Caption＋1
While(P(n)＝False)
n＝n＋1
Wend
Label2．Caption＝n
’＝＝＝＝考生编写程序结束＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Open App．Path ＆\\
解析：
本文档预览：3600字符，共2641字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
