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

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

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

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

基本操作题

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

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

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

Mjn 100

Max 1500

LargeChange 100

SmallChange 10

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

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

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

[*]

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

参考答案

Private Sub Command1_Click()

Form1.Print Text1.Text &\\

解析:(1)通过标签的Name和Caption属性设置标签的名称和标题,通过文本框Name和Text属性设置文本框的名称和文本,通过命令按钮的Name和Caption属性设置命令按钮的名称和标题,“&”和“+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用Pnnt方法。

(2)在设计阶段通过Picture属性为图片框指定显示的图片,通过Width属性来设定或修改图片框的宽度。通过调整滚动条滑块的位置即可改变其Value属性的值,滚动条的Max和Min属性限定了滚动条所能表示的最大值和最小值,LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量,SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。当改变滚动条滑块位置后将触发其Change事件。

简单应用题

2.(1)考生文件夹下有一个工程文件sjt3.vbp,其功能是:

①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的100个0~999的整数读入剑数组a中;

②单击“计算”按钮,则找出这100个整数中的所有水仙花数,并将它们的最大值与最小值分别显示在文本框Texll、Text2中(注:当一个数的值等于该数中的各位数字的立方和时,此数被称为水仙花数。如:153=13+53+33,所以153就是一个水仙花数),

在窗体文件中已经给出了全部控件(如图所示)和“读数据”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写“计算”命令按钮的事件过程。

注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行前,必须进行“计算”,并且必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,程序按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上添加一个组合框,名称为ch1,并输入二个列表项:“3”、“7”、“11”(列表项的顺序不限,但必须是这三个数字);添加一个名为Text1的文本框;再添加一个标题为“计算”、名称为C1的命令按钮,如图所示。请编写适当的事件过程,使得住程序运行时,在组合框中选定一个数字后,单击“计算”按钮,则计算5000以内能够被该数整除的所有数之和,并放入Text1中。最后,按原文件名存盘。

提示:由于计算结果较大,应使用长整型变量。

注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序,否则无成绩。

(1)步骤1:按照题目要求打开工程文件。

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

参考答案

Dim i As Integer

Dim max As Integer,min As Integer

max=一1

min=1 00 0

For i=1 To 100

If isnarc(a(i))Then’调用isnarc判断是否为水仙花数

If max<=a(i)Then max=a(i)

If min>=a(i)Then min=a(i)’

求水仙花数中的最大值与最小值

End If

Next i

Text1=max

Text2=min

步骤3:按照题目要求调试并运行程序,如图3.18所示。

[*]

步骤4:关闭程序后,按题目要求存盘。

(2)步骤1:打开本题工程文件,按照题目要求建立控件并设置组合框控件属性,如图3.19所示。程序中用到的控件及属性见表3.11。

[*]

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

参考答案

PriVate sub C1_Click()

Dim sum As Long

Dim n As Integer

Dim i As Integer

n=Val(cb1.Text)’读取选中的数字并通过函数Val转换为数值

For i=n To 5000’从本身开始循环查找

If i Hod n=0 Then

sum=sum+i判断是否能被该数整除并求和

End If

Next i

Text1.Text=sum’在Text1中显示

End Sub

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

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号