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

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

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

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

基本操作题

1.(1)在名称为Form1的窗体上添加一个名称为Command1的命令按钮(如图1所示),然后通过属性窗口设置窗体和命令按钮的属性,实现如下功能:

①窗体标题为“设置按钮属性”;

②命令按钮的标题为“等级考试”;

③程序运行后,命令按钮不可见;

④命令按钮的标题字号、字体用三号常规黑体显示。

程序的运行情况如图2所示。

要求:不编写任何代码。

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

(2)在名称为Form1的窗体上添加一个名称为Label1的标签,在属性窗口中把。BorderStyle属性设置为1(如图1所示),编写适当的事件过程。使得程序在运行后,如果单击窗体,则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。

要求:不得使用任何变量。

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

(1)【操作步骤】

步骤1:新建一个窗体,按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性,如图3.23所示。

[*]

程序中用到的属性见表3.21。

[*]

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

(2)【操作步骤】

步骤1:新建一个窗体,按照题目要求建立标签控件并设置标签的相应属性,见表3.22。

[*]

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

参考答案

Private Sub Form_Click()

Labe11.Top=0’设置Label1的初始位置

Labe11.Left=Form1.Width-Labe11.Width

End Sub

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

解析:

简单应用题

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

(1)【操作步骤】

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

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

参考答案

Option Base 1

Private Sub Command1_Click()

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:调试并运行程序,关闭程序后按题目要求存盘。

解析:

综合应用题

3.在考生文件夹下有一个工程文件sjt5.vbp,按照要求完成以下操作:

在考生文件夹下有一个工程文件sjt5.vbp,按照要求完成以下操作:

在名称为Form1的窗体上添加两个命令按钮,其名称分别为C1和C2,标题分别为“读入数据”和“计算”(如图所示)。程序运行后,如果单击“读入数据”按钮,则调用题目所提供的ReadData1和ReadData2过程读入datain1.txt和datain2.txt文件中的各20个整数,分别放入Art1和Arr2两个数组中;如果单击“计算”按钮,则把两个数组中对应下标的元素相减,其结果放入第三个数组中(第1个数组的第n个元素减去第2个数组的第n个元素,其结果作为第3个数组的第n个元素。这里的n为1、2…20),最后计算第3个数组各元素之和,把所求得的和在窗体上显示出来;并调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的dataout.txt文件中。

注意:考生不得修改窗体文件中已经存在的程序,且必须执行一次,最后将修改后的文件以原来的文件名存盘。

【操作步骤】

步骤1:打开本题工程文件,按照题目要求建立命令按钮控件并设置命令按钮的相应属性,程序中用到的控件及属性见表3.23。

[*]

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

参考答案

Private Sub C1_Click()

Cal1 ReadData1 ’调用过程ReadDatal

Cal1 ReadData2 ’调用过程ReadData2

End Sub

Private Sub C2 CliCk()

Dim Arr3(1 To 20)As Integer

Dim sum As Integer

Sum=0

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

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号