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

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

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

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

基本操作题

1.(1)在名称为Form1的窗体上添加一个名称为Shapel的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性以满足下列要求:

①圆角矩形中填满绿色(颜色值为&H0000FF00&或&HFF00&)。

②窗体的标题为“圆角矩形”,字体为“仿宋_GB2312”。

程序运行后的窗体如图所示。

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

(2)考生文件夹下有一个工程文件sjt2.vbp。窗体中含有除计时器外的其他控件,还有一个过程sub1,其功能是按照Text1中的通话时间计算通话费,并将其显示在Text2中。

程序运行时,单击“通话开始”按钮,则在Text1中累加通话时间(每隔1秒,文本框中的数加1),单击“通话结束”按钮,则停止通话时间的累加;单击“计算通话费”按钮,则调用过程sub1。

要求:

①在窗体上画一个计时器,如图所示,并通过属性窗口设置适当属性。

②编写三个按钮的Click事件过程。

③编写计时器的事件过程。

注意:要求程序中不得使用变量,每个事件过程中只能写一条语句,“计算通话费”按钮的事件过程中只允许调用过程sub1。不得修改已经存在的程序和控件属性,最后把文件按原文件名存盘。

(1)【操作步骤】

步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表3.58。

[*]

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

(2)【操作步骤】

步骤1:建立界面,设置计时器的Interval属性为1000,Enabled属性设置为False。

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

参考答案

Private Sub Command1_Click()

Timer1.Enabled=True ’通话开始,Timer生效

End Sub

Private Sub Command2_Click()

Timer1.Enabled=False ’通话结束,Timer失效

End Sub

Private Sub Command3_Click()

Call subl ’单击\\

解析:

简单应用题

2.(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。

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

(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体中有一个矩形和一个圆,程序运行时,单击“开始”按钮,圆可以横向或纵向运行(通过选择单选按钮来决定),碰到矩形的边时,则向其相反方向运动,单击“停止”按钮,则停止运动,如图所示。可以通过选择单选按钮随时改变运动方向。

已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。

注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。

(1)【操作步骤】

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

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

参考答案

Private Sub Form Click()For i=1 To 5 ’输入5行

For j=1 To 6-i’循环实现输入空格,每行依次减少一个空格

Print\\

解析:

综合应用题

3.在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装人数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示,如图所示;此时,单击“计算运费”按钮,则计算到该城市的每吨运费(结果取整,不四舍五入),并在Text2中显示。

每吨运费的计算方法是:距离×折扣×单价。

其中,单价为0.3。

折扣为距离<500 折扣为1

500≤距离<1000 折扣为0.98

1000≤距离<1500 折扣为0.95

1500≤距离<2000 折扣为0.92

2000≤距离 折扣为0.9

单击“保存”按钮,则把距离和每吨运费存到文件out5.txt中。

已经给出了所有控件和部分程序,要求:

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

②编写“计算运费”按钮的Click事件过程。

③编写列表框的Click事件过程。

注意:不得修改已经存在的程序;在退出程序之前,必须至少计算一次运费,且必须使用“保存”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。

【操作步骤】

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

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

参考答案

Dim a(10) As Integer,n As Integer

Private Sub Command1_Click()

Open App.Path& \\

解析:

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

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号