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

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

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

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

基本操作题

1.在名称为Forml的窗体上添加一个名称为Cl、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图所示。

要求:程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。

【操作步骤】

步骤l:建立界面,添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表4.59。

[*]

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

参考答案

Private Sub Cl_Click()

Forml.BackColor=&HFF&

End Sub

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

解析:通过命令按钮的Name和Caption属性设置命令按钮的名称和标题,通过窗体的Cap-tion属性设置窗体的标题,在Cl_Click事件过程中,通过设置窗体的BackColor属性实现单击命令按钮时将窗体的背景颜色改为红色。

2. 在名称为Forml的窗体上添加一个名称为Shapel的形状控件,在属性窗口中将其形状设置为圆形。添加一个名称为Listl的列表框,并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项,则将其值作为形状控件的填充参数。例如,选择3,则形状控件中被竖线填充,如图所示。

要求:程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。

【操作步骤】

步骤1:建立界面,将窗体FonM的Caption属性设置为“图形控制”,然后添加相应的控件并设置控件的属性。程序中用到的控件及属性见表4.60。

[*]

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

参考答案

Private Sub Listl_Click()

Shapel.FillStyle=Listl.Text

End Sub

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

解析:通过形状控件的Name和Shape属性设置形状控件的名称和形状,通过列表框的Name和List属性设置列表框的名称和列表项,单击列表框中的某一项,通过List]的Text属性确定选中的值,并将其值作为形状控件的填充参数,FilIStvIe属性用于返回/设置一个形状控件的填充样式。

简单应用题

3.在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框Listl中,如图所示。在窗体文件中已经给出了全部控件,但程序不完整。

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

【操作步骤】

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

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

参考答案(阴影部分是需考生填入的内容)

Private Sub Commandl_Click()

Dim Y As Integer

For i=0 To 2′循环三个单选按钮

IfOptionl(i).Value=True

Then′当某个按粗被选

y=Val(Optionl(i).

Cation)′提取按钮名并转换为数值

End If

Next

Call calc(y)′调用子函数

End Sub

Private Sub calc(Y As Integer)

ClearList ′执行子函数

i=1

x=Val(Textl.Text)+1

Do While i<=5′只需要显示5个数

If X Mod Y=0 Then′判断x是否能被y整除

Listl.AddItem x′添加满足条件的数至表

i=i+1′统计

End If

x=x+1′自加,判断下次循环

Loop

End Sub

Private Sub ClearList()′清空列表框的项目

For k=Listl.ListCount-1 To 0

Step-1

Listl.RemoveItem k

Next k

End Sub

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

解析:calc()函数实现将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框Listl中,首先调用ClearList()函数清空列表框,运用Val()函数使Textl的值由字符转化为数值,Do While语句控制产生整数的个数为5个,通过Mod()函数和If语句判断是否能被所选数整除。并用列表框的Addhem方法,把能被整除的数添入列表框中。在Commandl_Click事件过程中,向文本框中输入正整数,并运用Val(Optionl(i).Caption)语句提取单选按钮数组中所选的数值,再通过调用talc()函数实现数据的处理过程。

4.在考生文件夹下有一个工程文件sjt4.vbp。程序运行后,单击“开始”按钮,图片自上而下移动,同时滚动条的滑块随之移动。每隔0.5秒移动一次,当图片顶端移动到距窗体下边界的距离少于200时,则再回到窗体的顶部,重新向下移动,如图所示。在窗体文件中已经给出了全部控件,但程序不完整。

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

【操作步骤】

步骤l:打开本题工

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

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号