首页 > 全部 > 二级VB > 国家二级VB机试(上机操作)模拟试卷434

国家二级VB机试(上机操作)模拟试卷434

本单篇文档共3339字,内容预览3600字,预览为有答案版,源文件无水印,下载后包含无答案空白卷版和有答案版,同时也有计算机类NCRE全国计算机二级整科真题模拟题,讲义课件,思维导图,易错高频题等下载。
二级VB 章节练习 1432人下载
价格: 0.60 原价:¥8.00
收藏

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

剩余未完,查看全文
收藏
国家二级VB机试(上机操作)模拟试卷434

推荐资源

客服

扫码添加客服微信

热线

官方客服

如遇问题,请联系客服为您解决

电话客服:

客服微信:pujinet

工作时间:9:00-18:00,节假日休息

公众号

扫码关注微信公众号