Sub swap(b( ) As Integer) n =【ubound(b)】 For I = 1 To n / 2 t = b(I) b(I) = b(n) b(n) = t n=n-1 Next I End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。
52110.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1
Private Sub Command1_Click( ) Dim a(10) As Integer For I = 1 To 10 a(I) = I Next I
Call swap（a( )） For I = 1 To 10 Print a(I); Next I End Sub
Sub swap(b( ) As Integer) n = ubound(b)
For I = 1 To n / 2 t = b(I) b(I) = b(n) b(n) = t n=【n-1】 Next I End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。
52111.以下程序段运行的结果为(B)(单) Private Sub Form_Click( ) MyDate = #7/21/1997#
Print Format(MyDate, \
Print Format(MyDate,\年m月dd日\End Sub
A.7/21/97 1997年7月21日 B.7-21-97 1997年7月21日 C.97/7/21 1997年7月21日 D.7/21/97 97年7月21日
52112.以下程序段运行的结果为(B)(单) Private Sub Form_Click( ) MyTime = #9:21:30 PM# MyDate = #7/21/1997#
Print Tab(2); Format(MyDate, \
Print Tab(2); Format(MyTime, \End Sub
36
A.July-97 9:21:30 P B.July-97 09:21:30 P C.07-97 9:21:30 P D.July-97 9:21:30
52113.以下程序段运行的结果为(C)(单) Private Sub Form_Click( ) MyDate = #7/21/1997#
Print Format(MyDate, \End Sub
A.21,07,1997 B.21,07,21,1997 C.Monday,July,21,1997 D.Monday,07,21,1997
52114.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序： Private Sub Text1_LostFocus( ) If Not IsNumeric(Text1) Then MsgBox \帐号有非数字字符错误\Text1.Text = \Text1.SetFocus else
MsgBox \帐号正确\End If End Sub
当在text1文本框中输入字符\之后，单击命令按钮，结果为(B)(单) A.显示对话框，提示信息为\帐号正确\
B.显示对话框，提示信息为\帐号有非数字字符错误\C.程序出错 D.没有任何提示
52115.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序： Private Sub Text1_LostFocus( ) If Not IsNumeric(Text1) Then MsgBox \帐号有非数字字符错误\Text1.Text = \Text1.SetFocus else
MsgBox \帐号正确\End If End Sub
当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单) A.显示对话框，提示信息为\帐号正确\
B.显示对话框，提示信息为\帐号有非数字字符错误\C.程序出错 D.没有任何提示
52116.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序： Private Sub Command1_Click( ) Dim I As Integer
If Text1.Text ＜＞ \
I = MsgBox(\密码错误\输入密码\If I ＜＞ 4 Then End Else
Text1.Text = \Text1.SetFocus End If Else
36
MsgBox \密码帐号正确！\End If End Sub
若在text1中输入字符串\，则程序运行结果为(A)(单) A.显示对话框，提示\密码帐号正确！\B.显示对话框，提示\密码错误\C.程序出错 D.没有任何提示
52117.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序： Private Sub Command1_Click( ) Dim I As Integer
If Text1.Text ＜＞ \
I = MsgBox(\密码错误\输入密码\If I ＜＞4 Then End Else
Text1.Text = \Text1.SetFocus End If Else
MsgBox \密码帐号正确！\End If End Sub
若在text1中输入字符串\，则程序运行结果为(B)(单) A.显示对话框，提示\密码帐号正确！\B.显示对话框，提示\密码错误\C.程序出错 D.没有任何提示
52118.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序： Private Sub Command1_Click( ) Dim I As Integer
If Text1.Text ＜＞ \
I = MsgBox(\密码错误\输入密码\If I ＜＞ 4 Then End Else
Text1.Text = \Text1.SetFocus End If Else
MsgBox \密码帐号正确！\End If End Sub
若在text1中输入字符串\，显示\密码错误\对话框，关于此对话框描述正确的是(A)(单) A.显示对话框中有“重试”按钮 B.显示对话框中有“确定”按钮
C.显示对话框中有“是”按钮 D.以上说法都不正确
52119.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码： Private Sub Command1_Click( ) Dim x!, y!, z!, t! x = Text1
36
y = Text2 z = Text3
If x ＜ y Then t = x x = y y = t End If
If y ＜ z Then t = y y = z z = t
If x＜ y Then t = x x = y y = t End If End If
Label1.Caption = x & \End Sub
当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为(C)(单) A.3,5,8 B.5,3,8 C.8,5,3 D.3.8.5
52120.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1 Num1 = 3 Num2 = 2
Nop = val(Inputbox(\请输入1-4之间的整数\Select Case Nop Case 1 Op = \＋\
Result = Num1 + Num2 Case 2 Op = \－\
Result = Num1 - Num2 Case 3 Op = \×\
Result = Num1 * Num2 Case 4 Op = \÷\
Result = Num1 / Num2 End Select
Label1= Num1 & Op & Num2 & \End Sub
窗体运行后，输入1，则label1的标题显示结果为(A)(单) A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5
52121.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1 Num1 = 3 Num2 = 2
Nop = val(Inputbox(\请输入1-4之间的整数\
36
Select Case Nop Case 1 Op = \＋\
Result = Num1 + Num2 Case 2 Op = \－\
Result = Num1 - Num2 Case 3 Op = \×\
Result = Num1 * Num2 Case 4 Op = \÷\
Result = Num1 / Num2 End Select
Label1= Num1 & Op & Num2 & \End Sub
窗体运行后，输入2，则label1的标题显示结果为(B)(单) A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5
52122.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1 Num1 = 3 Num2 = 2
Nop = val(Inputbox(\请输入1-4之间的整数\Select Case Nop Case 1 Op = \＋\
Result = Num1 + Num2 Case 2 Op = \－\
Result = Num1 - Num2 Case 3 Op = \×\
Result = Num1 * Num2 Case 4 Op = \÷\
Result = Num1 / Num2 End Select
Label1= Num1 & Op & Num2 & \End Sub
窗体运行后，输入3，则label1的标题显示结果为(C)(单) A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5
52123.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1 Num1 = 3 Num2 = 2
Nop = val(Inputbox(\请输入1-4之间的整数\Select Case Nop Case 1 Op = \＋\
36
2020年全国计算机等级考试二级vb题库
