国家二级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版点下载