2020年全国计算机等级考试二级vb题库

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