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

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

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

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

基本操作题

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

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

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

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

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

[*]

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

[*]

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

[*]

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

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

[*]

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

[*]

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

编写程序代码。

参考答案

Private Sub HScrolll_Change()

End Sub

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

解析:(1)新建一个窗体,设置窗体的Caption属性和MaxButton属性值;在窗体上添加一个标签控件,设置标签控件的Caption属性,再添加一个文本框控件,设置文本框的Text属性、MaxLength属性和passwordChar属性。

(2)新建一个Form1窗体,在窗体上添加一个Shape控件,并设置控件的Shape属性为3一Circle,BackStyle属性为1一Opaque;再添加一个HScroll控件,设置控件的Min属性为0,Max属性为255,并为HScroll控件的Change事件添加代码。

简单应用题

2.(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值,并在窗体上显示出来(如图所示)。这个程序不完整,请把它补充完整,并使其能正确运行。

(1)步骤1:打开本题工程文件。

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

参考答案

Option Base 1

PriVate sub Command1_Slick()

Dim arrN(30)As Integer

Dim Min As Integer

Randomize

For i=1 To 30

arrN(i) = Int(Rnd * 1000)

Next i

Min=arrN(1)’将第一个数赋给Min,以提供判断

For i=2 To 30

If arrN(i)<Min

Then’比较最小值与其他数值,找出最小值

Min=arrN(i)

End If

Next i

Print Min

End Sub

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

(2)步骤1:打开本题工程文件。

步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。

参考答案

Function Fun()

Dim s As Integer,i As Integer

For i=0 To 1000’求0~1000中满足条件的数

If i Mod 7 0 Then

s=s+1将满足条件的数的个数累加

End If

Next i

Fun=s’返回结果

End Function

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

解析:(1)本题程序用变量Min记录最小数,最初把数组的第一个元素的值赋给Min,然后通过For循环语句将其后的元素依次与之比较,如果其值小于Min,则将其赋值给Min,依次类推,最终Min的值就是数组各元素中的最小值。

(2)可通过求余运算符Mod来计算某数M能否被7整除,如果M,Mod 7=0,那么M能被7整除;如果M Mod 70,那么M不能被7整除。可利用For循环语句来逐个判断0~1000范围内的整数能否被7整除,然后用一个变量来统计不能被7整除的整数个数。

综合应用题

3.在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加两个标签,名称分别为Label1和Label2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再添加两个名称分别为Text1和Text2,初始内容为空的文本框,如图所示。

程序功能如下:

①单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读到变量s中(此过程已给出)。

②单击“统计”按钮,自动统计in5.dat文件中所含各字母(不区分大小写)出现的次数,并统计次数最多的字母显示在Text1文本框内,它所出现的次数显示在Text2文本框内。

“读数据”按钮的Click事件过程已经给出,请为“统计”按钮编写适当的事件过程实现上述功能。

步骤1:打开本题工程文件,添加两个标签控件,名称分别为La

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

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号