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

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

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

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

基本操作题

1.(1)在名称为Form1,标题为“图片”的窗体上添加1个名称为Image1的图像框,其高为2500,宽为2000。请通过属性窗口设置适当属性,将考生文件夹下的图片文件pic1.jpg插入图像框,并使图片自动适应图像框的大小(如图所示)。

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

(2)在名称为Form1的窗体上添加一个名称为Label1,标题为“口令”的标签;添加一个名称为Text1的文本框;再添加三个命令按钮,名称分别为Command1、Command2、Command3,标题分别为“显示口令”、“隐藏口令”、“重新输入”。

程序运行时,在Text1中输入若干字符,单击“隐藏口令”按钮,则只显示与字符同样数量的“*”(如图2所示);单击“显示口令”按钮,则正常显示输入的字符(如图1所示),单击“重新输入”按钮,则清除Text1中的内容,并把光标定位到Text1中。

要求:请按要求添加所有控件,编写命令按钮的Click事件过程,程序中不得使用变量,在“显示口令”、“隐藏口令”按钮的事件过程中只能写1条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为st2.frm。

(1)【操作步骤】

步骤1:新建一个窗体,按照题目要求建立控件并设詈其属性.如表3.33所示。

[*]

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

(2)【操作步骤】

步骤1:新建一个窗体,按照题目要求建立标控件,程序中用到的控件及属性见表3.34和表3.35。

[*]

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

参考答案

Private Sub Command1_C1ick()

Text1.PasswordChar=\\

解析:

简单应用题

2.(1)在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部控件和程序,但程序不完整。

要求:请去掉程序中的注释符,把程序中的?改为正确的内容。不能修改程序中的其他部分,也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。

(2)在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时,选中List1中若干个列表项(如图1所示),单击“选中”按钮则把选中的项目移到List2中,单击“显示”,则在Text1文本框中显示这些选中的城市(如图2所示)。已经给出了所有控件和程序,但程序不完整。

要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。

(1)【操作步骤】

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

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

参考答案

Private Sub Command1_Click()

Dim n As Integer

Cls ’清空窗体

n=InputBox(\\

解析:

综合应用题

3.在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。

要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。

【操作步骤】

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

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

参考答案

Dim stepy As Integer ’纵向移动增量

Dim stepx As Integer ’横向移动增量

Const LEFT BUTTON=1

Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single t Y As Single)

Dim x0 As Integer,y0 As Integer,a As Single,radius As Integer

radius=Shape1.Width/2 ’圆的半径

If Button=LEFT_BUTTON Then

’单击鼠标左键移动

x0=Shape1.Left+radius’圆心的x坐标

y0=Shape1.Top+radius ’圆心的y坐标

If x=x0 Then ’垂直移动

stepy=Sgn(y-y0) * 50

stepx=0

Else ’倾斜移动

a=(y-y0)/(x-x0) ’斜率

stepx=Sgn(x-x0) * 50 stepy=a * stepx

’通过stepx确定stepy的值

If Abs(stepy)>Abs (stepx)Then

stepy=Sgn(y-y0) * 50

Stepx=Stepv/a

End If

End If

Timer1.ENabled=True’单击鼠标左键则触发Timer事件

Else

Timer1.Enabled=False ’单击鼠标右键则停止Timer事件

End If

End Sub

Private Sub Timer1_Timer()

Shape1.Move Shape1.Left+stepx,Shape1.Top+stepy’移动shape1

End Sub

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

解析:

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

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号