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

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

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

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

基本操作题

1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1、标题为“控件数组”的窗体上,画一个名称为Cmd1的控件数组,该控件数组由三个命令按钮组成,其标题分别是“插入”、“删除”、“更新”,索引号分别为0、1、2。运行后的窗体如图1-202所示。

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

(2)在名称为Form1的窗体上画一个名称为Text1、内容为“计算机”的文本框,且显示为小四号字;再画三个命令按钮,名称分别为“Command1”“Command2”“Command3”,标题分别是“居左”“居中”“居右”。如图1-203所示。

第1小题

【操作步骤】

步骤1:新建一个“标准EXE”工程,如表2-97在窗体中用“复制”和“粘贴”画出控件数组并设置属性。

[*]

步骤2:按要求将文件保存至考生文件夹中。

第2小题

【操作步骤】

步骤1:新建一个“标准EXE”工程,如表2-98在窗体中画出控件并设置其相关属性。

[*]

步骤2:在代码编辑窗口,分别编写三个按钮的单击事件过程。

参考代码:

Private Sub cmdLeft_Click()

txtComputer.Alignment = 0

End Sub

Private Sub CmdCenter_Click()

txtComputer.Alignment = 2

End Sub

Private Sub CmdRight_Click()

txtComputer.Alignment = 1

End Sub

步骤3:按要求将文件保存至考生文件夹中。

解析:

简单应用题

2.(1)在考生文件夹下有一个工程文件sjt3.vbp,包含两个名称分别为Form1、Form2的窗体。窗体上已有部分控件,请在Form1窗体上再画一个名称为Text1的文本框,初始内容为空,初始状态为不可用(如图1-204所示),输入字符时文本框内将显示字符“*”。

程序功能如下:

①单击Form1窗体的“输入密码”按钮,则Text1变为可用,且获得焦点。

②输入密码后单击Form1窗体的“密码校验”按钮,则判断Text1中输入内容是否为小写字符“abc”,若是,则隐去Form1窗体,显示Form2窗体;若密码输入错误,则提示重新输入,三次密码输入错误,则退出系统。

③单击Form2窗体的“返回”按钮,则隐藏Form2窗体,显示Form1窗体。Form2窗体的控件和程序已给出。但Form1窗体的程序不完整,请将程序中的注释符去掉,把?改为正确的内容,以实现上述程序功能。

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

(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体如图1-205所示。程序功能如下:

①单击“读数据”按钮,则将考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中;

②在Text1中选中一部分文本,并单击“统计”按钮,则以不区分大小写字母的方式,自动统计选中文本中单词“the”出现的次数,并将统计结果显示在Text2文本框内。

第1小题

【操作步骤】

步骤1:打开考生文件中的本题工程文件sjt3.vbp,如表2-99在窗体中画出控件并设置属性。

[*]

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

参考代码:

Text1.Enabled = True

If Text1 <> \\

解析:

综合应用题

3.在考生文件夹下有一个工程文件sjt5.vbp,其功能是:

①单击“读数据”按钮,则把考生文件夹下in5.dat文件中的100个正整数读入数组a中,同时显示在Text1,文本框中;

②单击“分组”按钮,则将数组a中所有3的倍数的元素存入数组b中,并对数组b中的元素从小到大排序后显示在文本框Text2中。在给出的窗体文件中已经有了全部控件(如图1-206所示),但程序不完整。

【操作步骤】

步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口指定位置编写以下代码:

参考代码:

For i = 1 To 100

If a(i) / 3 = Fix(a(i) / 3) Then

num = num + 1

b(num) = a(i)

End If

Next

For i = 1 To num – 1

For j = i + 1 To num

If b(i) > b(j) Then

tem = b(i)

b(i) = b(j)

b(j) = tem

End If

Next

Next

步骤2:按<F5>键运行程序,先单击“读数据”

按钮,再单击“分组”按钮,最后单击窗体右上角的关闭按钮结束程序。

步骤3:按要求将文件保存至考生文件夹中。

解析:

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

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号