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

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

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

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

基本操作题

1.(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后,在两个文本框中分别输入姓名和年龄,然后单击“显示”按钮,则在窗体上显示两个文本框中的内容,如图所示。要求程序中不得使用任何变量。

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

(2)在名称为Form1的窗体上画一个图片框,其名称为Picture1,一个水平滚动条,名称为HScroll1,一个命令按钮,名称为Command1,标题为“设置属性”,通过属性窗口在图片框中装入一个图形(文件名为picl.jpg,位于考生目录下),图片框的高度与图形的高度相同,图片框的宽度任意(如图1所示)。编写适当的事件过程,程序运行后,如果单击命令按钮,则设置水平滚动条的属性如下:

Min 100

Max 1500

LargeChange 100

SmallChange 10

之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。

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

(1) 【操作步骤】

步骤1:新建一个窗体,按照题目要求建立控件并设置相应属性,程序中用到的控件及属性如表3.16所示。

[*]

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

Private Sub Command1_Click()

Forml.Print Text1.Text&”,现年”&

Text2.Text&”岁”

End Sub

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

(2)

【操作步骤】

步骤1:新建一个窗体,添加控件并设置相应的属性。程序中用到的控件及其属性见表3.17。

[*]

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

Private Sub Command1_Click()

HScrol11.Max=1500’设置滚动条的最大值、最小值、最大改变值、最小改变值

HScroll1.Min=100

HScroll1.LargeChanqe=100

HScroll1.SmallChange=10

End Sub

Private Sub HScroll1_Change()

Picture1.Width=HSCroll1.Value

’将图片的width与滚动条的Value保持一致

End Sub

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

解析:

简单应用题

2.(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的列表框,且已有若干个项目,如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时,单击“部分反序”按钮,列表框中除最前面的一个项目不动外,其他项目的顺序反向显示,如图(b)所示。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。

注意:不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4.vbp。其功能是:

1)单击“产生数据”按钮,产生10个随机整数,并显示在Picture1图片框的第1行;

2)在Text1文本框中输入要清0的第1个数的位置,在Text2文本框中输入要清0的个数,然后单击“清0”按钮,则把清0后的数据显示在图片框的下一行。如图所示。

其他约束:

a)若输入的第1个数位置大于10,则认为从第10个数开始;

b)若不输入第1个数位置,则认为从第1个数开始;

c)若不输入清0个数,则认为一直清0到最后一个数;

d)若输入的清0个数超出了最后1个数,则清0到最后一个数为止。

在窗体文件中已经给出了全部控件,但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。

注意:不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。

(1)

【操作步骤】

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

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

Private Sub Command1_Click()

Dim k%.s$

For k=1 To(Listl.ListCount一1) 2

s$=List1.List(k)

List1.List(k)=List1.List(List1.ListCount-k)

List1.List(List1.ListCount—k)=s

Next

End Sub

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

(2)

【操作步骤】

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

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

Option Base 1

Dim a(10)As Integer

Private Sub Commandl_Click()

Randomize

For k=1 To 10

a(k)=Int(Rnd*99)+1

Picture1.Print a(k);

Next k

Picture1.Print

End Sub

Private Sub Command2_Click()

Dim start As Integer,n As Integer

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

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号