全国计算机等级考试二级VB真题（2005-2012完整版） - 图文(8)

2008年4月全国计算机等级考试二级——VB笔试真题

A）先画一个框架，再在框架中画两个单选按钮

B）先画一个框架，再在框架外画两个单选按钮，然后把单远按钮拖到框架中 C）先画两个单选按钮，再画框架将单选按钮框起来 D）以上三种方法都正确

21、能够存放组合框的所有项目内容的属性是

A）Caption B）Text C）List D）Selected

22、 设窗体上有一个标签Labell和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是

A）Private Sub Timer1_Timer(） B） Private Sub Timer1_Timer(） Label1.Caption=True Label1.Caption=Time$

End Sub End Sub

C） Private Sub Timer1_Timer(） D） Private Sub Timer1_Timer(） Label1.Interval=1 For k = l To Timer1.Interval

End Sub Label1.Caption=Timer

Next k End Sub 23、 设有如图所示窗体和以下程序：

Private Sub Command1_Click(） Textl.Text=“Visual Basic” End Sub

Private Sub Text1_LostFocus(） If Text1.Text <>“BASIC”Then Text1.Text=”” Text1.SetFocus End If End Sub

程序运行时，在Text1文件框中输入“Basic”(如图所示），然后单击Command1按钮，则产生的结果是

A）文本框中无内容，焦点在文本框中 B）文本框中为“Basic”,焦点在文本框中 C）文本框中为“Basic”,焦点的按钮上 D）文本框中为“Visual Basic”,焦点的按钮上 24、窗体上有一个名称为Command1的命令按钮，其事件过程如下： Private Sub Command1_Click(） x=“VisualBasicProgramming” a=Right(x,11） b=Mid(x,7,5） C=Msgbox(a, , b） End Sub

运行程序后单击命令按钮，以下叙述中错误的是

A）信息框的标题是Basic B）信息框中的提示信息是Programming C） C的值是函数的返回值

D）MsgBox的使用格式有错

25、设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas，两个窗体上分别只有一个名称Command1的命令按钮。 Form1的代码如下：

Public X As Integer

2008年4月全国计算机等级考试二级——VB笔试真题

Private Sub Form_load(） x=1 y=5 End Sub

Private Sub Command1_Click(） Form2.Show End Sub

Form2的代码如下：

Private Sub Command1_Ciick(） Print Form1.x,y End Sub

Module1的代码如下： Public y As Integer

运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是

A）1 5 B）0 5 C）0 0 D）程序有错

26、窗体上有一个名称Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下： Private Type x a As Integer b AS Integer End Type

Private Sub Command1_Click(） Dim y As x

y.a = InputBox(“”） If y.a\\2=y.a/2 Then

y.b=y.a*y.a Else

y.b = Fix(y.a/2） End If Text1.Text=y.b End Sub

对以上程序，下列叙述中错误的是

A）x是用户定义的类型 B）InputBox函数弹出的对话框中没有提示信息 C）若输入的是偶数，y.b的值为该偶数的平方

D）Fix(y.a/2）把y.a/2的小数部分四舍五入，转换为整数返回

27、窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数Command1,其下标从左到右分别为0、1、2、3,窗体外观如图所示。 命令按钮的事件过程如下：

Private Sub Command1_Click(Index As Integer） Select Case Index Case 0

CD1.Action=1 Case 1

CD1.ShowSave

2008年4月全国计算机等级考试二级——VB笔试真题

Case 2

CD1.Action=5 Case 3

End End Select End Sub

对上述程序，下列叙述中错误的是

A）单击“打开”按钮，显示打开文件的对话框 B）单击“保存”按钮，显示保存文件的对话框

C）单击“打印”按钮，能够设置打印选项，并执行打印操作 D）单击“退出”按钮，结束程序的运行

28、窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为“计算”的命令按钮Command1，并编写了以下程序： Private Sub Command1_ClickO Call Cale (HV.Value, HT.Value） End Sub

Public Sub Cale(x AS Integer , y AS Integer） Text1.Text = x* y End Sub

运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是

A）过程调用语句不对，应为Cale (HV,HT）

B） 过程定义语句的形式参数不对，应为Sub Cale(x As Control , y As Control） C） 计算结果在文本框中显示出来 D）程序不能正确运行 29、现有如下程序：

Private Sub Command1_ Click(）

S=0

For i=1 to 5 S=S+f(5+i） Next Print S End Sub

Public Function f(x As Integer） If x>=10 Then

t=x+1 Else

t=x+2 End If f=t End Function

运行程序，则窗体上显示的是

A）38 B）49 C）61 D）70

30、窗体上有一个用菜单编辑器设计的菜单（见上图）。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。以下叙述中错误

2008年4月全国计算机等级考试二级——VB笔试真题

的

A）在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性（有“√”） B）菜单中的横线是在该菜单项的标题输入框中输入了一个“－”（减号）字符 C）在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性（有“√”） D）在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√” 31、窗体上有一个名称为Picture1图片框控件，一个名称Label1的标签控件。如图所示。 现有如下程序：

Public Sub display (x As Control） If TypeOf x is Label Then x.Caption=“计算机等级考试”

Else

x.Picture = Loadpicture(“pic.jpg”）

EndIf End Sub

Private Sub Label1_Click(） Call display(Label1） End Sub

Private Sub Picture1_Click(）

Call display(Picture1） End Sub

对以上程序，下列叙述中错误的是

A）程序运行时会出错 B）单击图片框，在图片框中显示一幅图片 C）过程中的X是控件变量 D）单击标签，在标签中显示一串文字

32、窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp的事件过程如下：

Private Sub Text1_KeyUp(KeyCode As Integer , shift AS Integer）

Dim C AS string c=Text1.Text

Tcxt2.Text=Chr(Asc(c）+2） End Sub

当向文本框Text1中输入小写字母a时，文本框Text2中显示的是

A）A B）a C）C D）c 33、设窗体上有一个文体框Text1和一个命令按钮Command1,并有以下事件过程：

Private Sub Command1_Click(） Dim S As String , ch As String S=“”

For k=1 TO Len(Text1） ch = Mid(Text1,k,l）

S=ch+S Next k Text1.Text=S End Sub

程序执行时，在文本框中输入“Basic”,然后单击命令按钮，则Text1中显示的是

2008年4月全国计算机等级考试二级——VB笔试真题

A）Basic B）cisaB C）BASIC D）CISAB

34、某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：

Private Sub Command1_Click(）

Dim a(10） As Integer, max As Integer For k=1 TO 10

a(K）=InputBox(“输入一个整数”） Next k Max=0 For k=1 To 10 If a(k）＞max Then Max = a(k） End If Next k Print max End Sub

运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是

A） 把If a(k）>max Then改为If a(k）

35、已知在4行3列的全局数组score(4,3）中存放了4个学生3门课程的考试成绩（均为整数）。现需要计算每个学生的总分，某人编写程序如下： Option Base 1

Private Sub Command1_Click(） Dim sum As Integer

Sum=0 For i=1 To 4 For j=1 To 3

Sum = sum + score(i,j）

Next j

Print“第”&i&”个学生的总分是:”;sum Next i End Sub

运行此程序时发现，除第1个人的总分计算正确外，其他人的总分是错误的。程序需要修改。以下修改方案中正确的是

A） 把外层循环语句For i=1 TO 4改为For i=1 To 3 内层循环语句For j=1 TO 3 改为For j=1 TO 4 B） 把sum=0移到For i=1 TO 4 和For j=1 TO 3之间 C） 把sum = sum+score(i,j）改为sum=sum+score(j,i） D） 把sum=sum+score(i,j）改为sum=score(i,j） 二、填空题

（1）测试用例包括输入值集和[1] 值集。 （2）深度为5的满二叉树有[2] 个叶子结点。

（3）设某循环队列的容量为50，头指针Front=5 (指向队头元素的前一位置），尾指针rear=29（指向队尾元素），则该循环队列中共有[3] 个元素。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库全国计算机等级考试二级VB真题（2005-2012完整版） - 图文(8)在线全文阅读。