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

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

简单应用题

1.(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:

1)程序运行时,文件列表框显示当前文件夹中的所有扩展名为jpg的文件。

2)双击文件列表框中某个图片文件名时,能在图像框中显示出该张图片,并将该图片文件的信息(包括路径及文件名)显示到标签中,如图3—42所示。

3)“下一张”命令按钮的功能:选中并显示上次选中文件的下一个图片文件(如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名,则从第1个图片文件始)。

在当前程序所在文件夹中,已经提供了所需要的图片文件,运行时窗体如图所示。

在给出的窗体文件中已经有了全部控件,但程序不完整。请将事件过程中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。

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

(2)在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:程序运行时,文本框中显示一篇英文短文,单击“查找”按钮时可输入查找内容,如图3—43所示。

若未找到查找内容,查找结束;若找到查找内容,被找到的内容在文本框中以反相显示(即呈选中状态),每找到一次都给出提示,并在左下角文本框中显示累计的次数,如图3—44所示。

(1)【操作步骤】

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

If Filel.ListIndex = -1 Or

File1.ListIndex=File1.ListCount-1 Then

File1.ListIndex=File1.ListIndex+1

Labe11.Caption=App.Path+\

解析:

2.(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值,并在窗体上显示出来(如图所示)。这个程序不完整,请把它补充完整,并使其能正确运行。

(1)【操作步骤】

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

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

参考答案

Option Base 1

Private Sub Command1_Click()

Dim arrN (30) As Integer

Dim Min As Integer

Randomize

For i=1 To 30

arrN(i)=Int(Rnd * 1000)

Next i

Min=arrN(1)’将第一个数赋给Min,以提供判断

For i=2 To 30

If arrN(i)<Min

Then’比较最小值与其他数值,找出最小值

Min=arrN(i)

End If

Next i

Print Min

End Sub

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

(2)【操作步骤】

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

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

参考答案

Function Fun()

Dim S As Integer,i As Integer

For i=0 To 1000 ’求0~1000中满足条件的数

If i Mod 7<>0 Then

s=s+1将满足条件的数的个数累加

End If

Next i

Fun=s ’返回结果

End Function

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

解析:

3.(1)考生文件夹下有一个工程文件sjt3.vbp,其窗体上有1个名称为Text1的控件数组;一个标题为”排序”的命令按钮。程序运行时,在文本框数组中输入8个整数,如图3-29(a)所示;然后单击“排序”按钮,则8个整数按降序排序,如图3-29(b)所示。

在给出的窗体文件中已经有了全部控件,但程序不完整。请将事件过程中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。

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

(2)在考生文件夹下有工程文件sjt4.vbp。其窗体界面如图3-30所示,可以实现以下功能:“添加项目”按钮可以把在组合框编辑区中输入的新项目添加到组合框列表中,但不能添加重复项目;“删除项目”按钮从列表中删除选中的项目;“添加爱好”按钮把组合框编辑区中的内容追加到下面的文本框原有内容之后;“清除爱好”按钮清除该文本框内容。

第1小题

【操作步骤】

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

k=i

For j=i+1 To 7

If Val(Text1(j).Text) >

Val(Text1(k).Text) Then

Text1(k).Text=j

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

第2小题

【操作步骤】

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

If Combo1.Text=Combol.List(k) Then

Combo1.AddItem Combol.Text

Combol.Remove Item Combol.ListIndex

Text1.Text = Text1.Text & \

解析:

4.在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值,并在窗体上显示出来(如图所示)。这个程序不完整,请把它补充完整,并使其能正确运行。

[操作步骤]

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

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

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

Option Base 1

Private subCommand1_Click()

Dim arrN(30)As Integer

Dim Min As Integer

Randomize

For i=1 To 30

arrN(i)=Int(Rnd*1000)

Next i

Miin=arrN(1)’将第一个数赋给Min,以提供判断

For i=2 To 30

IfarrN(i)<Min

Then’比较最小值与其他数值,找出最小值

Min=arrN(i)

End If

Next j

PrInt Min

End Sub

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

解析:

5.(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。

在名称为Form1的窗体上有一个名称为Text1的文本框和名称为Command1、标题为“确定”的命令按钮,一个名称为List1的列表框和两个名称分别为Option1和Option2、标题分别为“添加”和“删除”的单选按钮,如图3—95(a)所示。

程序运行后,如果选择单选按钮Option1并在文本框中输入一个字符串,然后单击“确定”命令按钮,则把文本框中的字符串添加到列表框中,并清除文本框,如图3—95(b)所示;如果选择列表框中的一项和单选按钮Option2,并单击“确定”命令按钮,则删除列表框中所选择的项目,如图3—95(c)所示;如果不选择列表框中的项目,或者没有在文本框中输入字符串,则单击“确定”命令按钮后,将显示一个信息框“未输入或未选择项目”,如图3—95(d)所示。该程序不完整,请把它补充完整。

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

(2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。

在窗体上有一个命令按钮,其名称为Command1,标题为“计算”。程序运行后,如果单击命令按钮,程序将根据下面的公式计算π的值:π/4=1-1/3+1/5-1/7+……,所提供的窗体文件已给出了命令按钮的事件过程,程序运行结果如图3—96所示。

(1)【操作步骤】

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

List1.AddItem Text1.Text

If Form1.Option2.Value = True And

List1.ListIndex>=0 Then

List1.RemoveItem List1.ListIndex

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

(2)【操作步骤】

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

Result = Result+Sign*1/i

Sign = -Sign

Text1.Text=Result*4

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

解析:

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

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

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

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

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

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

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

第1小题

【操作步骤】

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

If num/ 2 <>Fix(num/2) Then

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

If a(n)=num Then

If n>30 Then

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

第2小题

【操作步骤】

步骤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:按要求将文件保存至考生文件夹中。

解析:

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

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

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

要求:程序调试通过后,必须按照如图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(\

解析:第1小题:本题源程序中,自定义函数xn的功能是进行m!阶乘运算,它通过For循环连续m次将循环变量i的值乘以累积变量tmp(第一个?处tmp初值应为1)来实现。故白定义函数xn中第二个?处应改为:tmp*i,作为函数返回值第三个?处应改为:xn。

在“计算”按钮的单击事件过程中,根据程序所要计算表达式的特点,源程序利用一个For。循环依次计算表达式中各项的值((x-i)!),并将其累加入变量z。计算表达式中各项的值通过调用自定义函数xn(t)来实现的,其中t=x-i。故Command1_Click事件过程中第一个?处应改为:xn(t)。计算结果显示在标签中。

第2小题:要实现本题中的功能,在窗体的Load事件过程中,首先使用Array函数建立一个新数组,然后设置计时器的相关属性并启用计时器;在计时器的Timer事件中,由于需要计算Timer事件的执行次数才能判断出应该显示何种文宁,因此计数变量i应该声明为Static类型的变量,然后把数组的第i项显示在标签中,接下来令i+1,一旦i超过了3就将其重新置0以便实现循环显示。

8.考生文件夹中有工程文件sjt3.vbp。程序运行时,单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件,但程序不完整。

要求:去掉程序中的注释符,把程序中的?改为正确的内容。

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

[操作步骤]

步骤1:打开本题项目工程

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

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

Dim n As Integer

Private Sub Form_Click()

Timer1.Enabled=True

End Sub

Private Sub Form_Load()

Timer1.Interval=10000

Timer1.Enabled=FalSe

Text1.ForeColor=0

n=0

End Sub

Private Sub Timer1_Timet()

n=n+1

If n Mod 5=0 Then

Text1.Text=Time()

End If

If n Nod 8=0Then

If Text1.ForeColoE=0 Then

Text1.ForeColor=&HFF

Else

Text1.ForeColor=0

End If

End If

End Sub

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

解析:

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

第1小题

【操作步骤】

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

参考代码:

Line1.Y2 = Y

Line1.X2 = Line1.X1

Line1.Y2 = y0 – radius

Label1.Caption = \

解析:

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

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

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

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

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

参考代码:

If num/ 2 <>Fix(num/ 2) Then

If num<a(1) Or num>a(3 0) Then

If a(n) =num Then

I f n>3 0 Then

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

解析:

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

评论0

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