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

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

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

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

基本操作题

1.(1)在名称为Form1的窗体上添加一个名称为Frame1、标题为“框架”的框架,在框架内添加两个名称分别为Option1、Option2的单选按钮,其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设置为被选中,框架为不可用。运行程序后的窗体如图所示。

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

(2)在名称为Form1的窗体上添加一个名称为Drivel的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,名称为Label1、标题为“文件名”的标签和名称为Labe12、BorderStyle为1的标签。将窗体的标题设置为“文件系统控件”,如图所示。请编写适当的程序,使得这三个文件系统控件可以同步变化,即当驱动器列表框中显示的内容发生变化时,目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时,将在Labe12中显示选中的文件名。

注意:要求程序中不得使用变量,事件过程中只能写一条语句。

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

(1)【操作步骤】

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

[*]

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

(2)【操作步骤】

步骤1:新建一个窗体,按照题目要求建立驱动器列表框、目录列表框和文件列表框控件并设置其属性,如图3.28所示。

[*]

程序中用到的控件及属性见表3.39和表3.40。

[*]

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

参考答案

Private Sub Dir1_Change()

File1.Path=Dir1.Path ’使目录列表框Dir1与文件列表框File1同步

End Sub

Private Sub Drive1_Change()

Dir1.Path=Drive1.Drive ’使驱动列表框Drive 1与目录列表框Dir1同步

End Sub

Private Sub File1_Click()

Labe12=File1.FileName ’显示File1中的文件名

End Sub

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

解析:

简单应用题

2.(1)考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:通过键盘向文本框中输入数字,如果输入的是非数字字符,则提示输入错误,且文本框中不显示输入的字符。单击名称为Command1、标题为“添加”的命令按钮,则将文本框中的数字添加到名称为Combo1的组合框中。在给出的窗体文件中已经添加了全部控件,但程序不完整。要求去掉程序中的注释符,把程序中的?改为正确的内容。

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

(2)在考生文件夹下有一个工程文件sjt4.vbp。该程序的功能是计算M!+(M+1)!+(M+2)!+…+N之和。窗体上有名称分别为Text1、Text2的两个文本框,用于接收输入的M和N(要求M<N)。单击名称为Command1、标题为“计算”的命令按钮,计算M!+(M+1)!+(M+2)!+…+N!的值,并将计算结果显示在标签lblResult中。

在给出的窗体文件中已经有了全部控件,但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。

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

(1)【操作步骤】

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

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

参考答案

Private Sub Command1_C1ick()

Combo1.AddItem Text1.Text ’将Text1中的内容加入Combo1中

Text1.Text=\\

解析:

综合应用题

3.在考生文件夹下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)。编写程序,统计均在60以内的三个数满足上述关系的整数组合的个数,并显示在标签Label1中。

注意:不得修改原有程序的控件属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。

【操作步骤】

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

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

参考答案

Dim i As Integer

Dim j As Integer

Dim k As Integer

For i=1 To 60

For j=1 To 60

For k=1 To 60

’判断三个数是否满足勾股定律

If i^2=j^2+k^2 Then

m=m+1 h m为记录满足条件的个数

End If

Next k

Next j

Next i

Labe11=m/2 ’去掉相同的项

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

解析:

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

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

推荐资源

客服

扫码添加客服微信

热线

官方客服

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

电话客服:

客服微信:pujinet

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

公众号

扫码关注微信公众号