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

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

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

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

基本操作题

1.(1)在名称为Form1、标题为“输入”、最大化按钮失效的窗体上画一个名称为Labe11的标签控件,其标题为“输人密码”;再向窗体内画一个名称为Text1的文本框控件,并清空其中的文本。程序执行时,用户在文本框中最多可输入由6个字符组成的密码,密码字符在文本框中显示为“*”,其画面如图所示,请设置相应属性。

注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。

(2)在名称为Form1的窗体上,画一个名称为Shapel的形状控件,将其形状设置为圆、背景样式设置为不透明;再向窗体上画一个名称为HScrol11的水平滚动条控件,并将滚动条所能表示的最小值设置为0、所能表示的最大值设置为255。

要求:编写适当的事件过程,使得程序运行时,当单击水平滚动条HScroll1两端的箭头时,能将Shape1中的背景颜色设置为由红、绿、蓝三原色组合形成的一种颜色,其中,红色的分量值为滚动条中滚动框当前位置所表示的值,绿色、蓝色的分量值都为0。程序运行示意图如图所示。

提示:系统库函数RGB可将红、绿、蓝三原色组合,并返回组合后的颜色值。

注意:要求程序中不能使用变量,每个事件过程中只能写一条语句(不得使用选择语句或循环语句)。保存时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

(1)【操作步骤】

步骤1:新建一个窗体,根据表4.8设置窗体的相关属性

[*]

步骤2:向窗体中添加一个标签控件,根据表4.9设置控件的相关属性

[*]

步骤3:向窗体中添加一个文本框控件,根据表4.10设置控件的相关属性,设置后窗体的效果如图4.8所示

[*]

步骤4:调试并运行程序,关闭程序后按题目要求存盘。

(2)【操作步骤】

步骤1:新建一个窗体,在窗体上添加一个Shape控件,并按照表4.11设置控件的相关属性。

[*]

步骤2:向窗体中添加一个HSero11控件,按照表4.12设置控件的相关属性,设置后窗体的效果如图4.9所示

[*]

步骤3:双击HScroll1控件,打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。

编写程序代码。

参考答案

Private Sub HScroll1_Change()

Shape1.BackColor=RGB(HScroll1.Value,0,0)

End Sub

步骤4:调试并运行程序,关闭程序后按题目要求存盘。

解析:

简单应用题

2.(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个列表框和一个标题为“选择”的命令按钮,且列表框中已有若干列表项。程序的功能是:当单击”选择”按钮时,如果列表框中没有列表项,则程序不做任何操作。否则,判断列表框中是否有列表项被选中,如果没有,则自动选中首个列表项(呈蓝色光条显示);如果有,且不是最后一个列表项,则自动选中后一个列表项,如果选中的是最末一项,则自动选中首个列表项。运行时窗体界面如图所示。程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。

注意:考生不得修改窗体文件中已经存在的控件和程序代码,最后程序按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有4个标签、1个文本框、1个计时器和1个标题为“开始”的命令按钮。程序的功能是:用户在文本框中输入一个计时时间(单位:分),并单击“开始”按钮后,系统将开始倒计时,每隔1秒显示1次剩余时间,当到达计时长度时,系统倒计时结束,并弹出信息框显示“时间到!”,程序运行界面如图所示。程序已经给出,但不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。

注意:考生不得修改窗体文件中已经存在的控件和程序代码,最后程序按原文件名存盘。

(1)【操作步骤】

步骤1:打开本题项目工程。

步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。

参考答案

Private Sub Command1_Click()

If List1.ListCOLunt=0 Then

Exit Sub

End If

If List1.ListIndex=-1 Then

List1.ListIndex=0

Else

If List1.List1 ndex<List1.ListCount-Then

List1.ListIndex=List1.ListIndex+1

Else

List1.ListIndex=0

End If

End If

End Sub

步骤3:调试并运行程序,关闭程序后按题目要求存盘。

(2)【操作步骤】

步骤1:打开本题项目工程。

步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。

参考答案

Dim t As Integer

Private Sub Command1_Click()

t=60 * Val(Text1.Text)

Timer1.Enabled=True

End Sub

Private Sub Timer1_Timer()

Dim m,s As Integer

If t<=0 Then

Timer1.Enabled=False

MsgBox\\

解析:

综合应用题

3.在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小写)及其出现的次数,并按字母顺序保存到二维数组data中,统计结束后,按字母顺序将统计结果显示到列表框List1中(字母用小写表示,且不含文中未出现的字母);单击“保存”按钮,则保存结果。“读取并统计”和“保存”按钮的(Click事件过程已经给出,请编写Calculate过程中的代码以实现上述功

本文档预览:3600字符,共4308字符,源文件无水印,下载后包含无答案版和有答案版,查看完整word版点下载

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号