国家二级VB机试（上机操作）模拟试卷459
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画1个名称为Label1的标签数组，含3个标签控件，下标从0开始，标签上的内容(按下标顺序)分别是：“等级考试”，“程序设计”，“VB程序”。运行后的窗体如图3－1所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，工程文件名为sjt1．vbp。
(2)在名称为Form1，标题为“显示鼠标的横坐标”窗体上，画1个名称为Label1的标签。请编写适当事件过程，使得在运行程序时，不按下任何鼠标键，只在窗体上移动鼠标，就可在标签上显示鼠标光标位置的横坐标。如图3－2所示。要求程序中不得使用变量，事件过程中只能写一条语句。
第1小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个标签控件；
步骤2：然后选中该标签，点击右键选择“复制”或者直接按ctrl键和c键，然后在窗体空白处点右键选择“粘贴”或者直接按ctrl和v键粘贴，这个时候会提示“已经有一个控件为Label1。创建一个控件数组吗”，选择按钮“是”完成控件数组的创建。
步骤3：重复步骤2，得到第三个标签。
步骤4：分别设置3个标签的Caption属性。三个标签的相关属性设置如表4－1所示。
[*]
步骤5：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体上画一个标签，按
表4－2设置其相关属性。
[*]
步骤2：在打开的代码编辑窗口中，编写窗体的MouseMove事件代码。参考代码：
Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)
Label1．Caption＝X
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：
简单应用题
2.(1)在考生文件夹中有工程文件sjt3．vbp，程序界面如图3－3所示。当在文本框中输入正整数N，单击“计算”命令按钮，进行计算。若N是奇数，计算1＋3!＋5!＋……＋N!，若N是偶数，计算1＋3!＋!＋……＋N!)!。在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。
注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp，该程序的功能是显示月历。运行程序后，在Text1、Text2中分别输入年份和月份，并在左．边的框架中选择该年的1月1日是星期几，然后单击“显示月历”按钮，即可在下面的图片框内显示该年该月的月历。如图3－4所示的是2008年2月份的月历。请将事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
第1小题
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
m＝n＋1
m＝n
For i＝1 To m Step 2
sum＝sum＋f(i)
For i＝1 To x
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
month_days(2)＝IIf(leap_year(year)，29，28)
For k＝1 To month－1
n＝0
Priva Function leap_year(year As Integer) As Boolean
步骤2：按要求将文件保存至考生文件夹中。
解析：
综合应用题
3.考生文件夹下有工程文件sjt5．vbp和数据文件in5．txt。in5．txt中有多条记录，每条记录占一行，含4个数据项，数据项的含义依次是：姓名、数学成绩、语文成绩、英语成绩。程序运行时，会把in5．txt中的所有记录读入数组a中(每个数组元素是一条记录)，并在窗体上显示第1条记录(如图所示)。单击“首记录”“下一记录”“上一记录”“尾记录”等按钮，可显示相应记录，并且当显示第1条记录时，“首记录”“上一记录”按钮不可用，如图3－5所示；当显示最后1条记录时，“尾记录”“下一记录”按钮不可用；其他情况，所有按钮均可用。请将事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
【操作步骤】
步骤1：打开考生文件夹中的工程文件sjt5．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
num＝k－1
n＝n－1
Private Sub putdata(k As Integer)
SetEnabled k
Command4．Enabled＝IIf(m＝num，False，True)
步骤2：按＜F5＞键运行程序，单击各个按钮测试验证。
步骤3：按要求将文件保存至考生文件夹中。
解析：
本文档预览：3600字符，共3257字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
