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

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

简单应用题

1.(1)在名称为Form1的窗体上画一个名称为lblPwd的标签,标题为“密令”;画两个文本框,名称分别为txtPwd、txtObj,都没有初始内容;再画三个命令按钮,名称分别为cmdShow、cmdHide、cmdCopy,标题分别为“显示”、“隐藏”、“复制”,在开始运行时,向txtPwd中输入的所有字符都显示“*”,单击“显示”按钮后,在txtPwd中显示所有字符,再单击“隐藏”后,txtPwd中的字符不变,但显示的都是“?”,单击“复制”后,把txtPwd中的实际内容复制到txtObi中,如图3-59所示。

要求:①在属性窗口中,把窗体的标题改为“密令窗口”。②建立适当的事件过程,完成上述功能。每个过程中只允许写一条语句,且不能使用变量。存盘时,工程文件名为vbsj.vbp,窗体文件名为vbsi3.frm。

(2)在考生文件夹下有一个工程文件vbsi4.vbp,运行情况如图3-60所示。程序的功能是计算如下表达式的值:

Z=(X+2)^2+(X+3)^3+(x+4)^4+…+(X+N)^N。

其中,N和X值通过键盘分别输入到文本框txtN、txtX中。之后如果单击名称为cmdCal、标题为“计算”的命令按钮,则计算表达式的值Z,并将计算结果显示在名称为lblResult的标签中。在给出的窗体文件中已经添加了全部控件和程序,但程序不完整。要求去掉程序中的注释符,把程序中的“?”改为正确的内容。

第1小题

【操作步骤】

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

[*]

步骤2:在代码编辑窗口,分别编写3个按钮的单击事件过程。参考代码:

Private Sub cmdShow_Click( )

txtPwd.Pas swordChar=\

解析:

2.在考生文件夹下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Label1中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该字符直接显示在Label1中。输入的字母总数则显示在标签Label2中,如图所示。

[操作步骤]

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

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

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

Dim n As Integer

Private Sub Text1 Change()

Dim ch As String

ch=Right$(Text1.1)’通过Right函数从Text1中取1位

If ch>=\

解析:

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

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

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

[操作步骤]

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

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

参考代码

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim m As Long

Dim sum As Long

m=1

Tf n=10 or n=12Then’通过判断n的值,可确定使用什么操作

For i=2 To n

m=im

Next i’求n的阶乘

Text1.Text=m

End If

sum=0

If n=2000or n=1000Then

For j=1 To n

sum=sum+j

Next;j’求1到n的和

Text1.Text=sum

End If

End Sub

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

解析:

4.(1)在考生文件夹中有工程文件sjt3.vbp,其中的窗体如图3—162所示。程序刚运行时,会生成一个有10个元素的整型数组。若选中“查找最大值”(或“查找最小值”)单选按钮,再单击“查找”按钮,则找出数组中的最大值(或最小值),并显示在标签Labe12中。

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

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

(2)在考生文件夹中有一个工程文件sjt4.vbp。窗体上已有控件,如图3—163所示。请在属性窗口中将List1设置为可以多项选择(允许使用Shift键或Ctrl键进行选择)列表项。要求:双击List1中的某一项时,该项目被添加到List2中,同时在List1中清除该项目。若单击“>>”按钮,List1中所有的项目显示在List2中(List2中已有项目不变),List1中的内容不变。

(1)【操作步骤】

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

If Option1.Value=True Then

If a(i) >=x Then

x=a(i)

End If

Else If a(i)<y Then

y=a(i)

End If

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

(2)【操作步骤】

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

L2.AddItem L1.List(L1.ListIndex)

L1.RemoveItem L1.ListIndex

For i=0 To List1.ListCount-1

Call MoveItem(List1,List2)

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

解析:

5.(1)在考生文件夹下有一个工程文件sjt3.vbp,运行情况如图3-181所示。程序的功能是计算表达式的值:z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)!

其中的N和x值通过键盘分别输入到两个文本框Text1、Text2中。单击名称为Command1、标题为“计算”的命令按钮,则计算表达式的值,并将计算结果显示在名称为Lbel1的标签中。

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

要求:程序调试通过后,必须按照如图3-181所示输入N=5,x=12,然后计算z的值,并将计算结果显示在标签Label1中,否则没有成绩。

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

(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体上有名称为Label1的标签和名称为Timer1的计时器控件。该程序的功能是在名称为Label1的标签中循环显示不同的字符串。程序开始运行,在标签中显示“第一项”(如图3-182所示),且每隔1秒钟依次显示“第二项”、“第三项”、“第四项”,如此循环。在给出的窗体文件中已经有了全部控件和程序,但程序不完整,要求去掉程序中的注释符,把程序中的“?”改为正确的内容。

第1小题

【操作步骤】

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

tmp=1

tmp=temp * i

xn=tmp

z=z+xn(t)

步骤2:按<F5>键运行程序,在第一个文本框中输入5,第二个文本框中输入12,然后单击“计算”按钮。

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

第2小题

【操作步骤】

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

arr=Array(\

解析:

6.(1)在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),请装入该文件,在窗体上画一个列表框(名称为List1)和一个文本框(名称为Text1),如图1-265(a)所示。编写窗体的MouseDown事件过程。程序运行后,如果用鼠标左键单击窗体,则从键盘上输入要添加到列表框中的项目(内容任意,不少于三个);如果用鼠标右键单击窗体,则从键盘上输入要删除的项目,将其从列表框中删除。程序的运行情况如图1-265(b)所示。提供的窗体文件可以实现上述功能。但这个程序不完整,请把它补充完整。

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

(2)在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程FindMin 求数组的最小值,请装入该文件。程序运行后,在四个文本框中各输入一个整数,然后单击“求最小值”按钮,即可求出数组的最小值,并在窗体上显示出来(如图1-266所示)。这个程序不完整,请把它补充完整,并能正确运行。

第1小题

【操作步骤】

步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,如表2-136所列在窗体Form1中画出控件并设置它们的属性。

[*]

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

参考代码:

List1.AddItem Text1.Text

For i = 0 To List1.ListCount – 1

If List1.List(i) = Text1.Text Then

List1.RemoveItem i

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

第2小题

【操作步骤】

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

参考代码:

Start = LBound(a)

Finish = UBound(a)

Min = a(Start)

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

M = FindMin(arr2)

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

解析:

7.(1)在考生目录下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),请装入该文件,在窗体上画两个命令按钮(其名称分别为Command1和Command2,标题分别为“添加项目”和“删除项目”),再画一个列表框(名称为List1)和一个文本框(名称为Text1),如图1-275(a)所示。编写适当的事件过程。程序运行后,如果单击“添加项目”命令按钮,则从键盘上输入要添加到列表框中的项目(内容任意,不少于三个);如果单击“删除项目”命令按钮,则从键盘上输入要删除的项目,将其从列表框中删除。

程序的运行情况如图1-275(b)所示。提供的窗体文件可以实现上述功能。但这个程序不完整,请把它补充完整。

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

(2)在考生文件夹下有一个工程文件sjt4.vbp(相 应的窗体文件名为sjt4.frm),其功能是通过调用过程FindMax求数组的最大值,请装入该文件。程序运行后,在四个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的最大值,并在窗体上显示出来(如图1-276所示)。这个程序不完整,请把它补充完整,并能正确运行。

第1小题

【操作步骤】

步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,如表2-146所列在窗体Form1中画出控件并设置它们的属性。

[*]

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

参考代码:

List1.AddItem Text1.Text

For i = 0 To List1.ListCount – 1

If List1.List(i) = Text1.Text Then

List1.RemoveItem i

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

第2小题

【操作步骤】

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

参考代码:

Start = LBound(a)

Finish = UBound(a)

Max = a(Start)

If a(i)> Max Then Max = a(i)

arr1=Array(Val(Text1.Text),Val(Text 2.Text), Val(Text3.Text),

Val(Text4.Text))

arr2(i) = CInt(arr1(i))

M = FindMax(arr2)

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

解析:

8.考生文件夹下的工程文件sjt3.vbp中有一个初始内容为空、且带有垂直滚动条的文本框,其名称为Text1;两个标题分别为“读数据”和“查找”的命令按钮,其名称分别为Cmd1、Cmd2。请画一个标题为“查找结果”的标签Label1,再画一个名称为Text2,其初始内容为空的文本框,如图3-95所示。程序功能如下:

①单击“读数据”按钮,则将考生文件夹下in3.dat文件中已按升序排列的30个整数读入一维数组a中,并同时显示在Text1文本框内;

②单击“查找”按钮,将弹出输入框接收用户输入的任意一个偶数,若接收的数为奇数,则提示重新输入。如果接收的偶数超出一维数组a的数值范围,则无须进行相应查找工作,直接在Text2内给出结果;否则,在一维数组a中查找该数,并根据查找结果在Text2文本框内显示相应信息。命令按钮的Click事件过程已给出,但“查找”按钮的Click事件过程不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。

审题分析

在“查找”按钮的单击事件中,首先使用变量num接收输入框的值,然后判断num是否为偶数,如果为奇数(num/2◇Fix(num/2))则提示错误信息;由于数组a是升序排列的,因此如果num的值小于a(1)或者大于a(30)则意味着超出范围;接下来使用For循环遍历整个数组,如果某次循环中数组元素等于num的值则意味着找到,可以退出循环;当循环结束后如果n的值大于30则表明循环是正常结束的,没有找到这个元素。

操作步骤

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

参考代码:

If num/2Fix(num/2)Then

If num<a(1) Or num>a(30) Then

If a(n)=num Then

If n>30 Then

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

考点链接

If选择结构、数组定义与操作。

解析:

9.考生文件夹下的工程文件sjt4.vbp中有一个初始内容为空的文本框Text1,一个包含三个元素的文本框控件数组Text2,两个标题分别足“读数据”和“统计”的命令按钮,两个分别含有三个元素的标签控件数组Label1和Label2,如图3-96所示。程序功能如下:

①考生文件夹下in4.dat文件中存有20个考生的考号及数学和语文单科考试成绩。单击“读数据”按钮,可以将in4.dat文件内容读入到20行3列的二维数组a中,并同时显示在Text1文本框内;

②单击“统计”按钮,则对考生数学和语文的平均分在“优秀”、“通过”和“不通过”三个分数段的人数进行统计,并将人数统计结果显示在控件数组Text2中相应位置。其中,平均分在85分以上(含85分)为“优秀”,平均分在60~85分之间(含60分)为“通过”,平均分在60分以下为“不通过”。

命令按钮的Click事件过程已经给出,但“统计”按钮的Click事件过程不完整,请将其中的注释符去掉,把?改为正确的内容,以实现上述程序功能。

审题分析

本题要求编写“统计”按钮的单击事件过程。程序设计思路:在一个For循环中逐一取出存于数组a中的各学生成绩,将同一行的两个成绩取平均值后用SelectCase语句对平均值进行判断,根据成绩所属情况,使对应的x数组元素中的数增1,最后显示在文本框数组中。

操作步骤

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

参考代码:

AVg=(a(i,2)+a(i,3))/2

Case Is>=85

Case 60 To 84

End Select

Text2(n一1)=x(n)

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

考点链接

控件数组、多分支结构。

解析:

10.在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Labell的标签,和其他一些控件,如图3-118(a)所示。在运行时,若用鼠标左键单击圆的边线,则指针指向鼠标单击的位置,如图3-118(b)所示;若用鼠标右键单击圆的边线,则指针恢复到起始位置,如图3-118(a)所示;若鼠标左键或右键单击其他位置,则在标签上显示“鼠标位置不对”。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。程序中的oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上(判断结果略有误差),是则返回True,否则返回False。符号常量x0、y0是圆心距窗体左上角的距离;符号常量radius是圆的半径。

审题分析

本题源程序在Form MouseDown事件过程中,先通过调用函数oncircle(X,Y)以判断鼠标单击的位置是否在圆的边线上,若在边线上,则接着判断当前按下的是否为鼠标左键,若为左键,则将直线Line1的终点位置设置为当前鼠标单击的位置,故第一个?处应改为:Y;若当前按下的不是左键,则直线Line1的终点位置设置为其原始位置,即Line1.X2=Line1.X1、Line1.Y2=y0-750。若鼠标单击的位置不在圆的边线上,则在标签上显示相关信息,故第4个?处应改为:Label1.Caption。

操作步骤

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

参考代码:

Line1.Y2=Y

Line1.x2=Line1.X1

Line1.Y2=y0—750

Label1.Caption=\

解析:

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

评论0

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