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

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

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

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

基本操作题

1.(1)在标题为“列表框”、名称为Form1的窗体上添加一个名称为List1的列表框,通过属性窗口输入4个列表项:“数学”、“语文”、“历史”、“地理”,列表项形式采用复选框形式,如图所示。列表框的宽为1100,高不限。

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

(2)在名称为Form1的窗体上建立一个名称为“menul”、标题为“文件”的弹出式菜单,其含有三个菜单项,它们的标题分别为:“打开”、“关闭”、“保存”,名称分别为“m1”、“m2”、“m3”。再添加一个命令按钮,名称为“Command1”、标题为“弹出菜单”。要求:编写命令按钮的Click事件过程,使程序运行时,单击“弹出菜单”按钮可弹出“文件”菜单(如图所示)。

注意:程序中不得使用变量,事件过程中只能写一条语句。

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

(1)【操作步骤】

步骤1:新建一个窗体,按照题目要求建立列表框控件并设置窗体及列表框属性,如图3.29所示。

[*]

程序中用到的控件及属性见表3.41。

[*]

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

(2)【操作步骤】

步骤1:建立界面,添加一个命令按钮,设置其Name属性为Command1,Caption属性为“弹出菜单”。然后建立一个菜单,菜单的属性见表3.42。

[*]

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

参考答案

Private Sub Command1_Click()

PopupMenu menu1 ’显示菜单menu1

End Sub

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

解析:

简单应用题

2.(1)在考生文件夹下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Label1中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该字符直接显示在Label1中。输入的字母总数则显示在标签Lbel2中,如图所示。

要求:去掉程序中的注释符,把程序中的?改为正确的内容。

注意:不得修改已经存在的程序,最后将修改后的文件按原文件名存盘。

(2)在考生文件夹下有—个工程文件sjt4.vbp。窗体中有一个图片框,图片框中有一个蓝色圆,名称为Shape1,如图所示。

当程序运行时,单击“开始”按钮,圆半径逐渐变大(圆心位置不变),当圆充满图片框时则变为红色,并开始逐渐缩小,当缩小到初始大小时又变为蓝色,并再次逐渐变大,如此往复。单击“停止”按钮,则停止变化。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。

(1)【操作步骤】

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

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

参考答案

Dim n As Integer

Private Sub Text1_Change()

Dim ch AS StrinQ

ch=Right $ (Text1,1) ’通过Right函数从Text1中取1位

If ch>=\\

解析:

综合应用题

3.在考生文件夹下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮,则把文件中的内容读入并显示在文本框(Text1)中;单击“修改内容”按钮,则将Text1中的大写字母“E”、“N”、“T”改为小写,把小写字母“e”、“n”、“t”改为大写;单击“保存文件”按钮,则弹出“另存为”对话框,默认文件类型为“文本文件”,默认文件夹为考生文件夹,默认文件为“out5.txt”(如图2所示),单击“保存”按钮,则将Text1中修改后的内容存到out5.txt文件中。

【操作步骤】

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

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

参考答案

Private Sub Command1_Click()

Dim s As String

CommonDialog1.Filter=\\

解析:

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

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号