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

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

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

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

基本操作题

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

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

(2)在名称为Form1的窗体上建立一个名称为“menu1”、标题为“文件”的弹出式菜单,其含有三个菜单项,它们的标题分别为:“打开”、“关闭”、“保存”,名称分圳为“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()

PopupMerlu menul’显示菜单menul

End Sub

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

解析:(1)列表框的Style属性只能在设计时确定。用于控制控件的外观,其数值可以设置为0(标准样式)和1(复选框样式)。通过列表框的Name和width属性来设置列表框的名称和宽,通过其List属性设置列表项。

(2)要创建弹出式菜单需要先用菜单编辑器来建立菜单,并将其主菜单项的可见(Visible)属性值设置为不可见,然后通过对象的Command1_Click事件,执行对象的PopupMenu方法来显示菜单。

简单应用题

2.(1)在考生文件夹下有一个工程文件sjl3.vbp。其窗体文件上有一个标题为“得分”的框架,在框架中有一个名称为Text1的文本框数组,含6个文本框控件;文本框Text2用来输入难度系数。程序运行时,在左边的6个文本框中输入6个得分,输入难度系数后,单击“计算分数”按钮,则可计算出最后得分并显示在文本框Text3中(如图所示)。

计算方法:

去掉1个最高得分和1个最低得分,求利下得分的半均分,再乘以3,再乘以难度系数。最后结果保留到第2位小数,不四舍五入。

注意:文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容,考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjl4.vbp。窗体上的控件如图所示。程序运行时,若选中“累加”单选按钮,则“10”、“12”菜单项不可用,若选中“阶乘”单选按钮,则“1000”、“2000”菜单项不可用(如图所示),选中菜单中的一个菜单项后,单击“计算”按钮,则相应的计算结果在文木框显示(例如,选中“累加”和“2000”,则计算1+2+3+…+2000,选中“阶乘”和“10”,则计算10 !)。单击“存盘”按钮则把文木框中的结果保俘到考生文件夹下的out4.dat文件中。

要求:编写“计算”按钮的Click事件过程。

注意:不得修改已经存在的程序,在结束程序运行之前,必须用“存盘”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。

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

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

参考答案

Private Sub Command1_Click()

Dim k As Integer,s As Single,a AsSingle,b As Single

a=Val(Text1(0).Text)’将第一个文本框的值作为最大值赋予a

s =a

b=a’将第一个数作为最小值赋予b

For k=1 To 5’剩余文本框作为循环次数的条件

s=s+Val(Text1(k).Text)

If a<Val(Text1(k).Text)Then

’取出每个文本框的值与最大值比较,求最大值

a=Val(Text1(k).Text)

End If

If b > Val(Text1(k).Text)Then

b=Val(Text1(k).Text)

EndIf

Next k

s=(s—a—b)/溪

根据要求去掉一个最高分和一个最低分后求四科的平均分

s=s*3*Val(Text2.Text)

’根据题意此处应填平均分

Text3=Int(s*100)/100

’Int(N)是求小于或等于N的最大整数,同时将最后结果显示在Text3上

End Sub

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

(2)步骤1:打开本题工程文件;

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

参考答案

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim m As Long

Dim sum As Long

m=1

If n=10 Or n=12 Then’通过判断n的值,可确定使用什么操作

For i=2 To n

m=i * m

Next i’求n的阶乘

Text1.Text=m

End If

Sum=0

If n=2 0 0

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

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号