国家二级VB机试（上机操作）模拟试卷560
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1、标题为“窗体”的窗体上画一个标签，其名称为Label1，标题为“等级考试”，字体为“黑体”，BorderStyle属性为1，且可以自动调整大小，再画一个框架，名称为Frame1，标题为“科目”，如图1－293所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1的窗体上画两个图像框，其名称分别为Image1和Image2，Stretch属性分别为True和False，然后通过属性窗口在Image1 中装入一个图形文件pic.jpg（位于考生文件夹下），如 图1－294（a）所示，编写适当的事件过程。程序运行后，如果单击窗体，则可清除Image1 中的图形，并把该图形复制到Image2中，如 图1－294（b）所示。
第1小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，按表2－157在窗体中画出控件并设置其相关属性。
[*]
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，按表2－158在窗体中画出控件并设置其相关属性。
[*]
步骤2：打开代码编辑窗口，编写窗体的Click事件过程。
参考代码：
Private Sub Form_Click()
Image2.Picture = Image1.Picture
Image1.Picture = LoadPicture(\\
解析：
简单应用题
2.（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。在窗体上有一个文本框，其名称为Text1；另有一个命令按钮，其名称为Command1，标题为“计算/输出”。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入n 的值，然后单击“确定”按钮，即可计算1＋(1＋2)＋(1＋2＋3)＋ …＋(1＋2＋3＋…＋n)的值，并把结果在文本框中显示出来，如图1－295所示。
注意：去掉程序中的注释符，把程序中的?
（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。在窗体上有两个文本框，其名称分别为Text1和Text2，其中Text1中的内容为“计算机等级考试”；另有一个命令按钮，其名称为Command1，标题为“反向显示”，如 图1－296（a）
所示。程序运行后，如果单击命令按钮，则在Text2中按相反方向显示Text1 中的内容，如图1－296（b）所示。该程序不完整，请把它补充完整。
第1小题
【操作步骤】
步骤1：打开本题工程文件sjt3.vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
Sum = 0
k = 0
k = k + i
Sum = Sum + k
LoadPicture
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
For i = 1 To Len(S1)
S2 = S2 + Mid(S1, Len(S1) + 1 – i, 1)
Text2.Text = S2
步骤2：按要求将文件保存至考生文件夹中。
解析：
综合应用题
3.在名称为Form1的窗体上画一个文本框，其名称为Text1，可以多行显示，并有垂直滚动条；然后再画三个命令按钮，其名称分别为Command1、Command2 和Command3，标题分别为“取数”、“排序”和“存盘”，如图1－297（a）所示，编写适当的事件过程。程序运行后，如果单击“取数”命令按钮，则将in5.txt 文件中的100个整数读到数组中，并在文本框中显示出来，如图1－297（b）所示；如果单击“排序”命令按钮，则对这100个整数按从大到小的顺序进行排序，并把排序后大于500 的数在文本框中显示出来；如果单击“存盘”命令按钮，则把文本框中所有 的数（即排序后大于500的数）保存到考生文件夹下的文件out5.txt 中。
【操作步骤】
步骤1：新建一个“标准EXE”工程。
步骤2：在窗体Form1中加入一个文本框和三个命令按钮，并分别设置它们的相关属性，属性及值如表2－159所示。
[*]
步骤3：打开代码编辑窗口，编写三个命令按钮的单击事件代码。
参考代码：
Private N(100) As Integer
Private Sub Command1_Click()
Open \\
解析：
本文档预览：3600字符，共3074字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
