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

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

简单应用题

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

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

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

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

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

(1)【操作步骤】

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

[*]

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

Private Sub CmdNext_Click()

For k=0 To 3

If OptItem(k).Value Then

n=k

End If

Next k

OptItem(n).Value=False

n=n+1

If n=4 Then

n=0

End If

OptItem(n).Value=True

End Sub

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

(2)【操作步骤】

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

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

ch=ch+LCase(a)

txtResult=ch

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

解析:

2.(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm,在窗体上有一个命令按钮(名称为Command1,标题为“计算并输出”)和两个文本框(名称分别为Text1和Text2),如图3—90所示。程序运行后,单击命令按钮,即可计算出数组Arr中10个数的正数之和pos与负数之和neg,并分别在两个文本框中显示出来。

该程序不完整,请把它补充完整。

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

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

在窗体上有两个命令按钮,其名称分别为Command1、Command2;一个标签,其名称为Labe11;一个计时器,其名称为Timer1,如图3—91(a)所示。程序运行后,如果单击“开始”命令按钮,则该按钮变为禁用,而标题变为“继续”,同时标签中的字体每隔100毫秒增大0.1倍(即变为原来的1.1倍),如图3—91(b)所示,字体大小超过100后,自动缩小为8:如果单击“停止”命令按钮,则该按钮变为禁用,“继续”命令按钮变为有效,同时标签中的字体停止变化;再次单击“继续”命令按钮后,标签中的字体继续变化。

(1)【操作步骤】

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

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

If Arr(k)>0 Then

pos=pos+Arr(k)

neg=neg+Arr(k)

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

(2)【操作步骤】

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

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

Command1单击事件中改错

Timer1.Enabled=True

Command2单击事件中改错

Timer1.Enabled=False

Timer1单击事件中改错

If Labe11.FontSize<100 Then

Labe11.FontSize=Labe11.FontSize*1.1

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

解析:

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

解析:

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

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

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

(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上已经画出所有控件,如图3—191所示。在Text1文本框中输入一个任意的字符串(要求串的长度≥10),然后选择组合框中的三个截取运算选项之一。单击“计算”按钮,将截取运算后的结果显示在Text2中。窗体文件中已经给出了程序,但不完整,请去掉程序中的注释符,把程序中的“?”改为正确的内容。

(1)【操作步骤】

步骤1:打开考生文件夹中的本题工程文件sjs.vbp,按要求画出控件数组并设置属性。

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

Private Sub Command1_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

Option1(n).Value=True

End Sub

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

(2)【操作步骤】

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

Select Case Combo1.ListIndex

tmpStr=Mid(Trim(Text1.Text),3,4)

Text2.Text=tmpStr

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

解析:

5.考生文件夹中有工程文件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:调试并运行程序,关闭程序后按题目要求存盘

解析:

6.在考生目录下有一个工程文件sjt4.vbp。程序的功能是,单击“产生随机数”按钮可以产生10个随机数放到数组中并显示在图片框中,在文本框中输入一个小于10的正整数m,单击“移动数据”按钮,可以把数组中的前m个数据移动到后面去,并显示在图片框中。如图所示。

在给出的窗体文件中已经有了全部控件,但程序不完整。

要求:去掉程序中的注释符,把程序中的?改为正确的内容。最后把修改后的文件按原文件名存盘。

[操作步骤]

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

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

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

Dim a%(1 To 10)

Private Sub Command1 C1ick()

Randomize

For k=1 To 10

a(k)=Int(Rnd*90+10)

Picture1.Print a(k);

Next k

picture1.Print

picture1.Print\

解析:

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

若未找到查找内容,查找结束;若找到查找内容,被找到的内容在文本框中以反相显示(即呈选中状态),每找到一次都给出提示,并在左下角文本框中显示累计的次数,如图2所示,若单击提示对话框的“是”按钮,则继续向后查找;若单击“否”按钮,则终止查找。

[操作步骤]

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

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

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

Private Sub Command1_Click()

Dim fstr As String,ostr As String

Dim times As Integer,pos As Integer

Dim ans As Integer

fstr=InputBox(\

解析:

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

在窗体上有两个命令按钮,其名称分别为Command1、Command2;一个标签,其名称为Label1;一个计时器,其名称为Timer1,如图3-9(a)所示。程序运行后,如果单击“开始”命令按钮,则该按钮变为禁用,而标题变为“继续”,同时标签中的字体每隔100毫秒增大0.1倍(即变为原来的1.1倍),如图3-9(b)所示,字体大小超过100后,自动缩小为8;如果单击“停止”命令按钮,则该按钮变为禁用,“继续”命令按钮变为有效,同时标签中的字体停止变化;再次单击“继续”命令按钮后,标签中的字体继续变化。

这个程序不完整,请仔细阅读已有内容,并把它补充完整,使之能正确运行。

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

审题分析

可借助计时器来完成有规律性时间间隔执行的任务。在本题中两个命令按钮分别用于启动和停止计时器,实际上就是令计时器的Enabled属性为True或False。当单击“开始”或者“继续”按钮的时候,令计时器启动;当单击“停止”按钮的时候,计时器不可用。

在计时器的Timer事件中,要依次增大Label1的FontSize属性,同时还要加以判断是否超过了100,若其超过100,则将该属性设置为8。

操作步骤

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

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

参考代码:

Command1单击事件中改错

Timer1.Enabled=True

Command2单击事件中改错

Timer1.Enabled=False

Timer1单击事件中改错

If Label1.ForltSize<100 Then

Label1.FolltSize=Label1.FontSize*1.1

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

考点链接

计时器、字体与字形。

解析:

9.在考生文件夹下有一个工程文件sjt4.vbp。其窗体上已有部分控件,请按照如图2-164所示添加框架和单选按钮。要求:画两个框架,名称分别为Framel、Frame2,在Framel中添加一个名为Optionl的单选按钮数组,含两个单选钮,标题分别为”古典音乐”、”流行音乐”,在名称为Frame2中添加两个单选按钮,名称分别为Option2、Option3,标题分别为”篮球”、”羽毛球”。刚运行程序时,”古典音乐”和”篮球”单选按钮为选中状态。单击”选择”按钮,将把选中的单选按钮的标题显示在标签Label2中,如图2-164所示。如果”音乐”或”体育”未被选中,相应的单选按钮不可选。

要求:按照题目要求添加控件,去掉程序中的注释符,把程序中的?改为正确的内容。

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

步骤1:打开考生文件夹下的本题工程文件sjt4.vbp,在窗体上画两个框架、一个含两个元素的单选按钮数组,两个单选按钮,如表3-93设置它们的属性。

[*]

步骤2:打开代码编辑窗口,修改”选择”按钮的Click事件过程,代码如下。

参考代码:

If Optiorll(0).Value=True Then

If Option2=True Then

Label2.Caption=s

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

解析:

10.在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm,包含了所有控件和部分程序,如图2-183所示。要求如下:

①利用属性窗口向列表框添加四个项目:Visual Basic、Turbo C、C++、Java。

②请编写适当的程序完成以下功能:当选择列表框中的一项和单选按钮Optionl,然后单击”确定”按钮,则文本框中显示”×××笔试”;当选择列表框中的一项和单选按钮Option2,然后单击”确定”按钮,则文本框中显示”×××上机”。其中”×××”是在列表框中所选择的项目。

注意:考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前,必须至少要进行一次选择操作(包括列表框和单选按钮),否则不得分。最后把修改后的文件按原文件名存盘。

步骤1:打开考生文件夹下的本题工程文件sjt3.vbp,在窗体上选中列表框,为其List属性输入四个项目:VisualBasic、Turbo C、C++、Java,注意每输入一项后用<Ctrl>+<Enter>键换到下一项输入。

步骤2:打开代码编辑窗口,编写”确定”按钮的单击事件过程。

参考代码:

If Optionl.Value And Listl.Text<>““Then

Textl.Text=Listl.Text&Optionl.Caption

E1se

If Option2.Value And Listl.Text<>““Then

Textl.Text=Listl.Text&Option2.Caption

End If

EndIf

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

步骤4:按<F5>键键运行程序,在列表框中选择一项,并选中一个单选按钮,单击”确定”按钮,单击窗体右上角的关闭按钮结束程序。

解析:

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

评论0

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