国家二级VB机试(简单应用题)模拟试卷9附答案解析

国家二级VB机试(简单应用题)模拟试卷9

简单应用题

1.在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程FindMin求数组的最小值。程序运行后,在4个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的最小值,并在窗体上显示出来(如图所示)。

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

[操作步骤]

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

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

参考代码(画下划线部分是需填入的内容)

Option Base 1

Private Function FindMin(a()As Integer)

Dim Start As Integer

Dim Finish As Integer,i As Integer

Start=LBound(a)’求数组下界值

Finish=UBound(a)’求数组上界值

Min=a(Start)’将第一个数赋给最小值进行比较

For i=Start To Finish’循环判断找最小值

If a(i)Min Then Min=a(i)

Next i

FindMin=Min

End Function

Private Sub Command1_Click()

Dim arr1

Dim arr2(4)As Integer

arr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))’申请arrl数组并初始化

For i=1 To 4

arr2(i)=CInt(arr1(i))’CInt函数将

arr1中的数值转换为整型

Next i

M=FindMin(arr2)

Print\

解析:

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

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

[操作步骤]

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

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

参考代码(画下划线部分是需填入的内容)

Private Sub Command1_Click()

Dim k%

For k=List1.ListCount_1 To 0Step-1

’k从最大到0,则步长应为-1

If List1.Selected(k)=True Then

List2.AddItemList1.List(k)’添加项到LiSt2中

List1.RemoveItemk

通过下标删除List1中的项目

End It

Next k

End Sub

Private Sub Command2 Click()

Dim k%

Text1=\

解析:

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

计算方法:

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

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

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

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

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

(1)【操作步骤】

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

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

参考答案

Private Sub Command1_Click()

Dim k As Integer,s As Single,a As Single,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)

End If

Next k

s=(s-a-b)/4

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

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=2000 Or n=1000 Then

For j=1 To n

sum=sum+j

Next j ’求1到n的和

Text1.Text=sum

End If

End Sub

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

解析:

4.在考生文件夹下,存在一个数据库文件“samp2.accdb”,里而已经设计好表对象“tDoctor”、“tOffice”、“tPatient”和“tSubscribe”,同时还设计出窗体对象“fQuery”。试按以下要求完成设计。

(1)创建一个查询,查找姓名为两个字的姓“王”病人的预约信息,并显示病人的“姓名”、“年龄”、“性别”、“预约日期”、“科室名称”和“医生姓名”,所建查询命名为“qT1”。

(2)创建一个查询,统计星期一预约病人的平均年龄,要求输出一列内容,显示标题为“平均年龄”,所建查询命名为“qT2”。

(3)创建一个查询,查找预约了但没有留下电话的病人,并显示“姓名”,所建查询命名为“qT3”。

注意:病人的姓名不允许重复显示。

(4)现有一个已经建好的“fQuery”窗体,运行该窗体后,在文本框(文本框名称为tName)中输入要查询的医生姓名,然后按下“查询”按钮,即运行一个名为“qT4”的查询。“qT4”杳询的功能是显爪所查医生的“医生姓名”和“预约人数”两列信息,其中“预约人数”值由“病人ID”字段统计得到,请设计“qT4”查询。

(1)【操作步骤】

步骤1:单击“创建”选项卡下“查询”组中的“查询设计”按钮,在弹出的“显示表”对话框中双击添加表“tDoctor”、“tOffice”、“tPatient”和“tSubscl4be”,然后单击“关闭”按钮,关闭“显示表”对话框。

步骤2:双击tPatient表的“姓名”、“年龄”、“性别”字段,双击tSubscribe表的“预约日期”字段,双击tOffice表的“科室名称”和tDoctor表的“医生姓名”字段;在“姓名”字段的“条件”行中输入“Like\

解析:

5.考生文件夹下的工程文件sjt4.vbp中有两个名称分别为List1、Lst2的列表框控件,两个名称分别为Command1、Command2,标题分别为“>>”、“<<”的命令按钮。请在List1中添加“文本框”、“标签”、“列表框”、“单选钮”等选项,如图所示。程序的功能是:单击“>>”,将List1中的表项添加到List2中,同时将List1中选中的表项清空;单击“<<”,将List2中的表项添加到List1处中,同时将List2中选中的表项清空。程序已给出,但是不完整。请将程序中的注释符去掉,把?改为正确的内容,实现上述的功能。

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

[操作步骤]

步骤1:打开本题工程文件,在List1中添加“文本框”、“标签”、“列表框”和“单选钮”等选项。

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

参考代码(画下划线部分是需填入的内容)

Private Sub remove(La As ListBox,Lb As ListBox)

For i=0 ToLa.ListCount-1

Lb.AddItemLa.List(i)

Next

La.clear

End Sub

Private Sub Command1 Click()

Call remove(List1,List2)

End Sub

Private Sub Command2 Click()

Call remove(List2,List1)

End Sub

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

解析:

6.(1)在考生目录下有一个工程文件vbsj3.vbp,窗体上有一个圆和一条直线(直线的名称为linClock)构成一个钟表的图案;有两个命令按钮,名称分别为cmdStart、cmdStop,标题分别为“开始”、“停止”;还有一个名为tmrClock 的计时器。程序运行时,钟表指针不动,单击“开始”按钮,则钟表上的指针(即linClock)开始顺时针旋转(每秒转6°,一分钟转一圈);单击“停止”按钮,则指针停止旋转。运行时的窗体如图1-244所示。请设置计时器的适当属性,使得每秒激活计时器的Timer 事件一次;并编写两个按钮的Click事件过程。文件中已经给出了所有控件和部分程序,不得修改已有程序和其它控件的属性;编写的事件过程中不得使用变量,且只能写一条语句。最后把修改后的文件按原文件名存盘。

程序源码:

Dim lenth As Integer, q As Integer

Const PI = 3.14159

Private Sub Form_Load()

lenth = linClock.Y2_

linClock.Y1

q = 90

End Sub

Private Sub tmrClock_Timer()

q = q- 6

linClock.Y1 = linClock.Y2 _

lenth * _

Sin(q * PI / 180)

linClock.X1 = linClock.X2+

lenth * _

Cos(q * PI / 180)

End Sub

(2)在考生文件夹下有一个工程文件vbsj4.vbp,窗体上已经给出所有控件。程序运行时,单击“开始”按钮,则汽车图标向右运动;单击“停止”按钮则汽 车停止运动;移动滚动条上的滚动框,可以改变汽车的运动速度(滚动框向右移动,速度减慢)。如图1-245所示。

第1小题

【操作步骤】

步骤1:打开考生文件中的本题工程文件vbsj3.vbp,在属性设置窗口,设置计时器的性值为1000,Enabled 属性值为False。

步骤2:在代码编辑窗口,编写“开始”和“停止”按钮的单击事件过程。

参考代码:

Private Sub cmdStart_Click()

tmrClock.Enabled = True

End Sub

Private Sub cmdStop_Click()。

tmrClock.Enabled = False

End Sub

步骤3:按要求将文件保存至考生文件夹中。

第2小题

【操作步骤】

步骤1:打开考生文件中的本题工程文件vbsj5.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。

参考代码:

Timer1.Enabled = True

Timer1.Interval = HScroll1.Value

Picture1.Left = Picture1.Left + 10

步骤2:按要求将文件保存至考生文件夹中。

解析:

7.考生文件夹中有工程文件sjt3.vbp。在窗体上有名称为Combol的组合框,请设置该组合框的属性,使该组合框只能用于选择操作,不能输入文本。窗体上还有两个标题分别为”输入正整数”、”判断”的命令按钮。程序运行时在组合框中选中一项,如图2-32(a)所示,单击”输入正整数”按钮,通过输入对话框输入一个正整数,再单击”判断”按钮,则按照选定的选项内容,将判断结果显示在信息框中。如图2-32(b)所示的是输入56且选中的组合框选项为”判奇偶数”时显示的信息框。

在给出的窗体文件中已经有了全部控件,但程序不完整,要求:按照题目要求设置组合框的有关属性,去掉程序中的注释符,把程序中的?改为正确的内容。

注意:考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。

步骤1:打开考生文件中的本题工程文件sjt3.vbp,将组合框的Style属性设置为2。

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

参考代码:

Select Case Combol.ListIndex

MsgBox Str(x)&f1(x)

MsgBox Str(x)&f2(x)

PriVate Function f2(ByVal x As Integer)As

String

If x Mod 7=0 Then

步骤3:按要求将文件保存至考生文件夹中。

解析:

8.在考生文件夹下有一个工程文件sjt4.vbp,含有Forml和Form2两个窗体,Forml为启动窗体,窗体上的控件如图2-89(a)所示。程序运行后,在Forml窗体的文本框中输入有关信息(“密码”框中显示”*”字符),然后单击”提交”按钮则弹出”确认”对话框(即Form2窗体),并在Form2中显示输入的信息,如图2-89(b)所示。单击”确认”按钮则程序结束,单击”重输”按钮,则Form2消失,回到Forml窗体。在给出的窗体文件中已经给出了程序,但不完整。

要求:

①把Forml的标题改为”注册”,把Form2的标题改为”确认”;

②设置适当的属性,使Form2标题栏上的所有按钮消失(如图2-89(b)所示);

③去掉程序中的注释符,把程序中的?改为正确的内容。注意:不能修改程序中的其他部分,标题等属性的修改只能在属性窗口中进行。最后把修改后的文件按原文件名存盘。

步骤1:打开考生文件夹下的本题工程文件sjt4.vbp。

步骤2:设置两个窗体的相关属性,其属性及值如表3.47所示。

[*]

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

参考代码:

Form2.Show

Form2.Print Forml.Framel.Caption; “: “;

If Forml.Opl(k).Value ThenText2.PasswordChar= “*”

步骤4:按要求将文件保存至考生文件夹中。

解析:

9.在考生目录下有一个工程文件sjt3.vbp,窗体上有一个命令按钮Commandl(标题为”下一个”)。

要求:在窗体上建立一个单选按钮数组Optionl,含4个单选按钮,标题分别为”选项1”、”选项2”、”选项3”、”选项4”,初始状态下,”选择1”为选中状态。如图2-97所示。窗体文件中已经给出了命令按钮的Click。事件过程,但不完整,请去掉程序中的注释符,把程序中的?改为正确的内容,使得每单击命令按钮一次,就选中下一个单选按钮,如果已经选中最后一个单选按钮,再单击命令按钮,则选中第一个单选按钮。

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

步骤1:打开考生文件中的本题工程文件sjt3.vbp,如表3-55在窗体中用”复制”和”粘贴”命令画出包含4个元素的单选数组并设置属性。

[*]

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

参考代码:

Private Sub Commandl_Click( )

For k=0 To 3

If Optionl(k).Value Then

n = k

End If

Next k

Optionl(n).Value=False

n=n+ 1

If n=4 Then

n=0

End If

Optionl(n).Value=True

End Sub

步骤3:按要求将文件保存至考生文件夹中。

解析:

10.在名称为Forml的窗体上画一个名称为Labell、标题为”添加项目:”的标签;画一个名称为Textl的文本框,没有初始内容;画一个名称为Combol的下拉式组合框,并通过属性窗口输入若干项目(不少于三个,内容任意);再画两个命令按钮,名称分别为Commandl、Command2,标题分别为”添加”、”统计”。在运行时,向Textl中输入字符,单击”添加”按钮后,则Textl中的内容作为一个列表项被添加到组合框的列表中:单击”统计”按钮,则在窗体上显示组合框中列表项的个数,如图2-144所示。请编写两个命令按钮的Click事件过程。

注意:程序中不得使用变量,也不能使用循环。存盘时必须存放在考生文件夹下,工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。

步骤1:新建一个”标准EXE”工程,如表3-8l在窗体中画出控件并设置其相关属性。

[*]

步骤2:打开代码编辑窗口,编写两个命令按钮的Click事件过程。

参考代码:

Private Sub Commandl_Click( )

Combol.AddItem Textl.Text

End Sub

Private Sub Command2_Click( )

Print Combol.ListCount

End Sub

步骤3:按要求将文件保存至考生文件夹中。

解析:

资源下载《国家二级VB机试(简单应用题)模拟试卷9附答案解析.doc》 文档下载价格为20下载币,请先
将本套试题Word文档或文章下载到电脑,方便收藏和打印
资源下载
《国家二级VB机试(简单应用题)模拟试卷9附答案解析.doc》
试题含答案和解析word文档下载价格:20 下载币
《国家二级VB机试(简单应用题)模拟试卷9附答案解析.doc》
试题含答案和解析word文档VIP优惠:免费
将本套试题Word文档或文章下载到电脑,方便收藏和打印
0

评论0

没有账号? 注册  忘记密码?