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

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

简单应用题

1.(1)在考生目录下有一个工程文件sjt3.vbp,有两个名称分别为Form1和Form2的窗体,Form1为启动窗体,程序执行时Form2不显示。Form1中有菜单(如图3—48(a)所示),程序运行时,若单击“格式”菜单项,则显示Form2窗体(如图3—48(b)所示),选中一种字号和字体后单击“确定”按钮,则可改变Form1上文本框的字号和字体,并使Form2窗体消失。若单击“退出”菜单项,则结束程序的运行。

文件中已经给出了所有控件和程序,但程序不完整,要求:

1)利用属性窗口设置适当的属性,使Form1窗体标题栏右上角的最大化按钮、最小化按钮消失(如图3—48(a)所示)。

2)利用属性窗口把Form2窗体的标题设置为“格式”(如图3—48(b)所示)。

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

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

(2)在考生目录下有一个工程文件sjt4.vbp,包含了所有控件和部分程序。程序运行时,请按以下顺序操作:

1)单击“读入数据”按钮,可把考生目录下的文件in4.dat中的100个整数读到数组a中。

2)从名称为Comb01的组合框中选中一项(如图3—49所示)。

(1)【操作步骤】

步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,按表4—31在窗体中画出控件并设置其相关属性。

[*]

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

Form2.Show

Form1.Text1.FontSize=List1.Text

Form1.Text1.FontName”

List2.List(List2.ListIndex)

Form2.ViSible=False

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

(2)【操作步骤】

步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,双击“计算”按钮,打开代码编辑窗口编辑计算按钮的单击事件。参考代码:

Private Sub Command2_Click()

Dim i,j As Long

If Combol.Text=\

解析:

2.在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~1000范围内不能被7整除的整数的个数,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现,请编写该过程的代码。

要求:请勿改动程序中的任何内容,只在FunctionFun()和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。

[操作步骤]

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

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

参考代码

Function Fun()

Dim s As Integer,i As Integer

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

If i Nod7<>0Then

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

End If

Next i

Fun=s’返回结果

End Function

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

解析:

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

解析:

4.(1)在考生目录下有一个工程文件sjt3.vbp,窗体上有一个单选按钮数组,含三个单选按钮,均没有标题,请利用属性窗口,为单选按钮依次添加标题为“北京”、“上海”、“广州”;再添加一个标题为“显示”的命令按钮,如图3-75所示。程序的功能是在运行时,如果选中一个单选按钮后,单击“显示”按钮,则根据单选按钮的选中情况,在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。

要求:①依次添加单选按钮标题为“北京”、“上海”、“广州”;设初始选中的是“上海”,添加命令按钮标题为“显示”。②去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。

(2)在考生目录下有一个工程文件sjt4.vbp,请在Form1窗体中画三个标签,名称分别为B1、B2、L1,标题分别为“字号”、“字体”、“计算机等级考试”,其中L1的高为500,宽为3000;再在B1、B2标签的下面画两个组合框,名称分别为Cb1、Cb2,并为Cb1添加项目:“10”、“15”、“20”,为Cb2添加项目:“黑体”、“隶书”、“宋体”。请编写适当的事件过程,使得在运行时,当在Cb1中选一种字号、Cb2中选一种字体时,标签L1中的文字立即变为选定的字号和字体。如图3-76所示。

第1小题

【操作步骤】

步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,依次选中窗体中的各单选按钮和命令按钮,设置它们的相关属性,其属性及值如表4-47所示。

[*]

步骤2:双击“显示”命令按钮,打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码:

Private Sub C1_Click( )

For i=0 To 2

If Op1(i).Value=True Then

Print\

解析:

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

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

(2)在考生目录下有一个工程文件sjt4.vbp,窗体如图3—173所示。其功能是单击“输入数据”按钮,则可输入一个整数,n(要求:8≤n≤12);单击“计算”按钮,则计算1!+2!+3!+…+n!,并将计算结果显示在文本框中;单击“存盘”按钮,则把文本框中的结果保存到考生目录下的out4.dat文件中。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的“?”改为正确的内容,并编写“计算”按钮的Click事件过程。

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

第1小题

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

参考代码:

Line1.Y2=Y

Line1.X2=Line1.X1

Line1.Y2=y0-750

Label1.Caption=\

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

第2小题:本题源程序中,自定义函数f的功能是进行n!阶乘运算,它通过For循环连续n次将循环变量k的值乘以累积变量s(第一个?处s初值应为1)来实现,作为函数返同值第二个?处应改为:s。

在“计算”按钮的单击事件过程中,根据程序所要计算表达式的特点,源程序利用一个For循环依次计算表达式中各项的值并将其累加入变量s,计算表达式中各项的值通过调用白定义函数f(k)来实现的,最终计算结果显示在文本框中。

6.(1)在考生文件夹下有一个工程文件vbsj3.vbp,相应的窗体文件为vbsj3.filaa,在窗体上有一个标题为“计算”的命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出数组arr中每个元素与其下标相除所得的和,并在文本框中显示出来,程序的运行情况如图3-144所示。在窗体的代码窗口中,已给出了部分程序,其中计算数组arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现,请编写该过程的代码。

第1小题

【操作步骤】

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

步骤2:进入代码编辑窗口,在Function Fun( )和End Function之间输入以下代码。参考代码:

Function Fun(a( ) As Single) As Single

Dim sum As Single

Dim i As Integer

For i=LBound(a) To UBound(a)

sum=sum+a(i)/i

Next

Fun=sum

End Function

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

第2小题

【操作步骤】

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

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

Tmr1.Enabled=False

Tmr1.Interval=500

If Picl.Left>Me.Width Then

Picl.Left=0

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

解析:

7.(1)在名称为Form1的窗体上画两个图片框,名称分别为P1、P2,高度均为1900,宽度均为1700,通过属性窗口把图片文件pic1.bmp 放入P1中,把图片文件pic2.jpg 放入P2 中;再画一个命令按钮,名称为C1,标题为“交换图片”(如图1-156所示)。编写适当的事件过程,使得在运行时,如果单击“交换图片”按钮,则在P1中显示pic2.jpg,在P2中显示pic1.bmp。程序中不得使用任何变量,也不能使用第三个图片框。

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

(2)在考生文件夹下有一个工程文件sjt4.vbp,请在窗体上画两个复选框,名称分别为Ch1、Ch2,标题分别为“程序设计”、“数据库原理”;然后画一个文本框,名称为Text1;再画一个命令按钮,名称为C1,标题为“确定”(如图1-157所示)。请编写适当的事件过程,使得在运行时,选中复选框并单击“确定”按钮,就可以按照下表的要求把结果显示在文本框中。存盘时,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。

注意:考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前,必须进行产生表1-5一个结的操作。

第1小题

【操作步骤】

步骤1:新建一个“标准EXE”工程,在窗体Form1中如表2-65画出所列控件并设置其相关属性。

[*]

步骤2:打开代码编辑窗口,编写命令按钮的Click

事件过程:

参考代码:

Private Sub C1_Click()

P1.Picture = LoadPicture(App.Path + _

\

解析:

8.在考生文件夹下有一个工程文件vbsj4.vbp,窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时,在txtlnput中输入若干个大写和小写字母,并选中一个单选按钮,再单击“转换”按钮,则按选中的单选按钮的标题进行转换,结果放入txtResult(如图3-35所示)。在给出的窗体文件中已经给出了全部控件,但程序不完整,要求:去掉程序中的注释符,把程序中的“?”改为正确的内容。

审题分析

本题源程序功能是在命令按钮的单击事件过程中,用For循环语句和Mid函数逐一取出文本框txtInput中的字符后,根据单选按钮的选择进行相应转换:当选择“大小写互换”时,如果是小写字母就用UCase函数转换为大写,如果是大写字母就用LCase函数转换为小写,如果不是字母就不用转换;当选择“全部大写”时,就用UCase函数将文本框中所有字母转换为大写;当选择“全部小写”时,就用LCase函数将文本框中所有字母转换为小写。将转换结果显示在文本框txtResult中。

操作步骤

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

参考代码:

a=Mid$(txtInput.Text,k,1)

ch=ch+LCase(a)

txtResult=ch

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

考点链接

常用内部函数。

解析:

9.在考生文件夹下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图3-71所示。程序功能如下:

①单击“读数据”按钮,可将考生文件夹下in4.dat文件中的100个整数读到数组a中;

②单击“计算”按钮,则根据从名称为Combo1的组合框中选中的项目,对数组a中的数据计算平均值,并将计算结果四舍五入取整后显示在文本框Text1中。“读数据”按钮的Click事件过程已经给出,请为“计算”按钮编写适当的事件过程实现上述功能。

审题分析

本题源程序在“计算”按钮的单击事件过程中,逐一检查组合框中的列表项是否选中,将选中列表项的索引号作为判断依据,根据选中不同的项来调用不同的过程。过程even用来求得数组中的偶数平均值,首先预设累加和变量s=0以及计数器n=0,然后通过一个执行100次的For循环来遍历整个数组,依次判断数组元素是否为偶数,若是偶数则将其加入累加变量S中以及令计数器加1,循环结束后用累加和除以计数器即得到平均值。同理编写odd过程用来求得数组中奇数的平均值,all过程用来求得数组中所有数的平均值。

操作步骤

步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,编写“计算”按钮的单击事件过程以及三个自定义过程。

参考代码:

Private Sub Command2_Click()

Select Case Combo1.ListIndex

Case 0

Text1=even()

Case 1

Text1=odd()

Case 2

Text1=all()

End Select

End Sub

Function even()

Dim s As Single,n As Integer

s=0

For k=1 To 100

If a(k)/2=Fix(a(k)/2) Then

s=s+a(k)

n=n+1

End If

Next

s=s/n

even=CTnt(s)

End Function

Function odd()

Dim s As Single,n As Integer

s=0

For k=1 To 100

If a(k)/2Fix(a(k)/2)Then

s=s+a(k)

n=n+1

End If

Next

s=s/n

odd=CInt(s)

End FunctiOFt

Function all()

Dim s As Single,n As Integer

s=0

For k=1 To 100

s=s+a(k)

Next

s=s/100

all=Ctnt(S)

End Eunction

步骤2:按键运行程序,先单击“读数据”按钮,然后选择组合框中的一项再单击“计算”按钮,最后单击窗体右上角的关闭按钮结束程序。

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

考点链接

数组定义与操作、多分支结构、Sub过程和函数过程。

解析:

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

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

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

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

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

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

参考代码:

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

CaseIs>=85

Case 60 To 8 4

End Select

Text2(n-1)=x(n)

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

解析:

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

评论0

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