国家二级VB机试（上机操作）模拟试卷434
基本操作题
1.(1)在名称为Form1，标题为“练习”的窗体上添加一个名称为Famel、标题为“效果”的框架。框架内含有三个复选框，其名称分别为Chk1、Chk2和Chk3，标题分别为“倾斜”、“加粗”和“下划线”。
程序运行后的窗体如图所示。
要求：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗休文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Label1的标签，使其初始内容为空，且能根据其标题内容自动调整标签的大小；再添加两个命令按钮，标题分别为“日期”和“时间”，名称分别为Command1、Command2。请编写两个命令按钮的Click事件过程，使得单击“日期”按钮时，标签内显示系统当前日期；单击“时间”按钮时，标签内显示系统当前时间。如图所示。
(1)步骤l：新建一个窗体，按照题目要求建立控件，程序中用到的控件及属性见表3．52。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤l：建立界面，添加相应控件并设置控件的属性。程序中用到的控件及属性见表3．53。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private sub commandl_Slick()
Label1=Date’用于返回系统当前日期
End Sub
Private sub Command2_Click()
Label1=Time’用于返回系统当前时间
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：(1)窗体的Caption属性用来设置窗体的标题，框架的Name和Caption属性用来设置框架的名称和标题，复选框的Name和Caption属性用来设置复选框的名称和标题。
(2)通过标签的Name和Caption属性设置标签的名称和标题，AutoSiz属性实现标题内容的自动调整，通过命令按钮的Name和Caption属性设置命令按钮名称和标题，Date()函数用于返回系统日期，Time()函数用于返回系统时间。
简单应用题
2.(1)考生文件夹下有一个工程文件sjt3．vbp。程序的功能是：通过键盘向文本框中输入数字。如果输入的是非数字字符，则提示输入错误，且文木框中不显示输入的字符。单击名称为Command1、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为Combol的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个丁程文件sjt4．vbp。该程序的功能是计算M!+(M+1)!+(M+2)!+…+N!之和。窗体上有名称分别为Text1、Text2的两个文本框，用于接收输入的M和N(要求M＜N)。单击名称为Command1、标题为“计算”的命令按钮，计算M!+(M+1)!+(M+2)!+…+N!的值，并将计算结果显示在标签lblResult中。
在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
(1)步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private Sub Command1—Click()
Combol．AddItem Text1．Text ’将Text1中的内容加入Combol中
Text1．Text=\\
解析：(1)单击命令按钮，运用组合框的List属性将文本框中的数字添加到组合框中，通过ASCII码来判断输入的是否为数字字符。
(2)Function f()过程函数用于实现对数值阶乘的运算，Val()函数实现将文本框中的字符转换成数值型，通过循环调用过程函数实现对表达式结果的累加。
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp，考生文件夹下in5．dat文件中保存有一篇英文短文。程序运行时，单击“读取并统计”按钮，则按行读取in5．dat文件的内容，并显示到文本框Text1中，同时调用Calculate过程统计每个英文字母(不区分大小写)及其出现的次数，并按字母顺序保存到二维数组data中，统计结束后，按字母顺序将统计结果显示到列表框List1中(字母用小写表示，且不含文中未出现的字母)；单击“保存”按钮，则保存结果。“读取并统计”和“保存”按钮的Click事件过程已经给出，请编写Calculate过程中的代码以实现上述功能。程序运行界面示意图如图所示。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“读取并统计”，且必须单击“保存”按钮保存结果，否则无成绩。最后，程序按原文件名存盘。
步骤1：打开本题项目工程。
步骤2：打开代码编辑窗口，填入相应的代码以实现题目的功能。
参考答案
Private Sub Calculate(s As String，d()As Vari
ant)
Dim eh As String
Dim i As Integer
For i=l To Len(s)
ch=Asc(LCase(Mid(s，i，1)))
lf ch>=97 And ch<=122 Then
d(ch-96，1)=Chr(ch)
d(ch-96，2)=d(ch一96，2)+1
End If
Next i
End Sub
步骤3：调试并运行程序，结果如图4．10所示，关闭程序后按题目要求存盘。
[*]
解析：Calculate过程中利用For循环逐个取出文本字符串s中的字符，然后将所有字符使用LCase函数转换为小写，小写字母的ASCII码取值范围为65到90之间，再将每个字母及其出现的次数存储到二维数组d中。
本文档预览：3600字符，共3339字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
