2006年4月全国计算机等级考试二级VB语言笔试试题及答案

发布时间:2010-01-13 共12页

(22)设有命令按钮Command1的单击事件过程,代码如下:
  Private Sub Command1_Click()
  Dim a(3,3)As Integer
  For i=1 To 3
  For j=1 To 3
  a(i,j)=i*j+i
  Next j
  Next i
  Sum=0
  For i=1 To 3
  Sum=Sum+a(i,4-i)
  Next i
  Print Sum
  End Sub
  运行程序,单击命令按钮,输出结果是。
  A.20
  B.7
  C.16
  D.17
(23)在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程:
  Private Sub Command1_Click()
  a=0
  For i=1 To 2
  For j=1 To 4
  If j Mod 2<>0 Then
  a=a-1
  End If
  a=a+1
  Next j
  Next i
  Print a
  End Sub
  程序运行后,单击命令按钮,输出结果是。
  A.0
  b.2
  C.3
  D.4
(24)窗体上有名称分别为Text1、Text2的2个文本框,有一个由3个单选按钮构成的控件数组Option1,如图1所示。程序运行后,如果单击某个单选按钮,则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100),并将结果显示在Text2中,如图2所示。为了实现上述功能,在程序中的问号(?)处应填入的内容是。
  图1图2 Private Sub Option1_Click(Index As Integer)
  If Text1.Text<>""Then
  Select Case ?
  Case 0
  Text2.Text=Val(Text1.Text)
  Case 1
  Text2.Text=Val(Text1.Text)*10
  Case 2
  Text2.Text=Val(Text1.Text)*100
  End Select
  End If
  End Sub
  A.Index
  b.Option1.Index
  C.Option1(Index)
  D.Option1(Index).Value
(25)在窗体上画1个命令按钮,其名称为Command1,然后编写如下程序:
  Private Sub Command1_Click()
  Dim a(10)As Integer
  Dim x As Integer
  For i=1 To 10
  a(i)=8+i
  Next
  x=2
  Print a(f(x)+x)
  End Sub
  Function f(x As Integer)
  x=x+3
  f=x
  End Function
  程序运行后,单击命令按钮,输出结果为。
  A.12
  b.15
  C.17
  D.18
  2006年4月笔试试卷第5页(共12页)2006年4月笔试试卷第6页(共12页)(26)以下关于过程的叙述中,错误的是。
  A.事件过程是由某个事件触发而执行的过程
  B.函数过程的返回值可以有多个
  C.可以在事件过程中调用通用过程
  D.不能在事件过程中定义函数过程
(27)在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1),外观如图所示。
  编写如下程序:
  Private Sub Form_Load()
  Text1.Text=""
  Text2.Text=""
  Text3.Text=""
  End Sub
  Private Sub Command1_Click()
  x=Val(Text1.Text)
  y=Val(Text2.Text)
  Text3.Text=f(x,y)
  End Sub
  Function f(ByVal x As Integer,ByVal y As Integer)
  Do While y<>0
  tmp=x Mod y
  x=y
  y=tmp
  Loop
  f=x
  End Function
  运行程序,在Text1文本框中输入36,在Text2文本框中输入24,然后单击命令按钮,则在Text3文本框中显示的内容是。
  A.4
  b.6
  C.8
  D.12
(28)窗体上有名称分别为Text1、Text2的2个文本框,要求文本框Text1中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以下程序中问号(?)处应填入的内容是。
  Private Sub Text1_LostFocus()
  Call CheckInput(Text1,500)
  End Sub
  Private Sub Text2_LostFocus()
  Call CheckInput(Text2,1000)
  End Sub
  Sub CheckInput(t As ?,x As Integer)
  If Val(t.Text)>x Then
  MsgBox"请重新输入!"
  End If
  End Sub
  A.Text
  b.SelText
  C.Control
  D.Form

百分百考试网 考试宝典

立即免费试用