全國計算機等級考試二級vb題庫（下）
52115.在窗體中建立一個文本框text1和一個命令按鈕command1，編寫下面程序：
Private Sub Text1_LostFocus( )
If Not IsNumeric(Text1) Then
MsgBox "帳號有非數(shù)字字符錯誤"
Text1.Text = ""
Text1.SetFocus
else
MsgBox "帳號正確"
End If
End Sub
當(dāng)在text1文本框中輸入數(shù)字123456之后，單擊命令按鈕，結(jié)果為(A)(單)
A.顯示對話框，提示信息為"帳號正確"
B.顯示對話框，提示信息為"帳號有非數(shù)字字符錯誤"
C.程序出錯 ? D.沒有任何提示
52116.在窗體中建立一個文本框text1和一個命令按鈕command1，編寫下面程序：
Private Sub Command1_Click( )
Dim I As Integer
If Text1.Text ＜＞ "Gong" Then
I = MsgBox("密碼錯誤", 5 + vbExclamation, "輸入密碼")
If I ＜＞ 4 Then
End
Else
Text1.Text = ""
Text1.SetFocus
End If
Else
MsgBox "密碼帳號正確！"
End If
End Sub
若在text1中輸入字符串"Gong"，則程序運行結(jié)果為(A)(單)
A.顯示對話框，提示"密碼帳號正確！"
B.顯示對話框，提示"密碼錯誤"
C.程序出錯 ??????D.沒有任何提示
52117.在窗體中建立一個文本框text1和一個命令按鈕command1，編寫下面程序：
Private Sub Command1_Click( )
Dim I As Integer
If Text1.Text ＜＞ "Gong" Then
I = MsgBox("密碼錯誤", 5 + vbExclamation, "輸入密碼")
If I ＜＞4 Then
End
Else
Text1.Text = ""
Text1.SetFocus
End If
Else
MsgBox "密碼帳號正確！"
End If
End Sub
若在text1中輸入字符串"gong"，則程序運行結(jié)果為(B)(單)
A.顯示對話框，提示"密碼帳號正確！"
B.顯示對話框，提示"密碼錯誤"
C.程序出錯 ??????D.沒有任何提示
52118.在窗體中建立一個文本框text1和一個命令按鈕command1，編寫下面程序：
Private Sub Command1_Click( )
Dim I As Integer
If Text1.Text ＜＞ "Gong" Then
I = MsgBox("密碼錯誤", VbRetryCancle + vbExclamation, "輸入密碼")
If I ＜＞ 4 Then
End
Else
Text1.Text = ""
Text1.SetFocus
End If
Else
MsgBox "密碼帳號正確！"
End If
End Sub
若在text1中輸入字符串"123"，顯示"密碼錯誤"對話框，關(guān)于此對話框描述正確的是(A)(單)
A.顯示對話框中有“重試”按鈕
B.顯示對話框中有“確定”按鈕
C.顯示對話框中有“是”按鈕 ????D.以上說法都不正確
52119.在窗體中建立三個文本框，名稱分別為text1、text2和text3，還有一個名稱為label1的標(biāo)簽，一個名稱為command1的命令按鈕，編寫如下代碼：
Private Sub Command1_Click( )
Dim x!, y!, z!, t!
x = Text1
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 & "," & y & "," & z
End Sub
當(dāng)在文本框text1、text2 和 text3 中分別輸入5、3和8，則標(biāo)簽顯示的結(jié)果為(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之間的整數(shù)"))
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 & "=" & Result
End Sub
窗體運行后，輸入1，則label1的標(biāo)題顯示結(jié)果為(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之間的整數(shù)"))
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 & "=" & Result
End Sub
窗體運行后，輸入2，則label1的標(biāo)題顯示結(jié)果為(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之間的整數(shù)"))
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 & "=" & Result
End Sub
窗體運行后，輸入3，則label1的標(biāo)題顯示結(jié)果為(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之間的整數(shù)"))
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 & "=" & Result
End Sub
窗體運行后，輸入4，則label1的標(biāo)題顯示結(jié)果為(D)(單)
A.3+2=5 ?????B.3-2=1 C.3×2=6 ????D.3÷2=1.5
52124.以下程序段的作用是(A)(單)
Private Sub Picture1_Click( )
Dim asci As Integer, i As Integer
i = 0
For asci = 32 To 126
Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;
i = i + 1
If i = 7 Then i = 0: Picture1.Print
Next asci
A.打印ASCII碼表，一行7個表達式
B.打印九九乘法表，一行7個表達式
C.打印ASCII碼表，一行8個表達式
D.以上說法都不正確
52125.我國現(xiàn)在人口有13億，按人口增長0.8%計算，多少年后我國人口將超過26億。
Private Sub Command1_Click( )
Dim x, n
x = Val(Text1)
n = 0
Do While 【x】＜26
x = x * (1 + 0.008)
n = n + 1
Loop
Text2 = Str(n)
End Sub
52126.以下程序的作用是(B)(單)
For i = 1 To 9
For j = 1 To 9
se = i & "×" & j & "=" & i * j
Picture1.Print Tab((j - 1) * 9 + 1); se;
Next j
Picture1.Print
Next i
A.打印ASCII碼表 ?B.打印九九乘法表
C.打印加法表 ? D.以上說法都不正確
52127.求自然數(shù)e的近似值，誤差小于0.00001，近似公式為：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用來求自然數(shù)e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和結(jié)果
I = 0 ' 計數(shù)器
n = 1 ' 存放階乘的值
t = 1 ' 級數(shù)第I項值
Do While 【t>】 0.00001
e = e + t
I = I + 1
n = n * I
t = 1 / n
Loop
Print "計算了?"; I; " 項的和是?"; e
End Sub
52128.求自然數(shù)e的近似值，誤差小于0.00001，近似公式為：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用來求自然數(shù)e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和結(jié)果
I = 0 ' 計數(shù)器
n = 1 ' 存放階乘的值
t = 1 ' 級數(shù)第I項值
Do While t＞0.00001
e = e + 【t】
I = I + 1
n = n * I
t = 1 / n
Loop
Print "計算了?"; I; " 項的和是?"; e
End Sub
52129.求自然數(shù)e的近似值，誤差小于0.00001，近似公式為：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用來求自然數(shù)e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和結(jié)果
I = 0 ' 計數(shù)器
n = 1 ' 存放階乘的值
t = 1 ' 級數(shù)第I項值
Do While t＞0.00001
e = e + t
I = I + 1
n = n * 【I】
t = 1 / n
Loop
Print "計算了?"; I; "項的和是"; e
End Sub
52130.以下程序是求最大公約數(shù)和最小公倍數(shù)的程序。
Private Sub Form_Click( )
Dim m1, n1, m, n, r As Integer
n1 = InputBox("輸入自然數(shù)n", "輸入數(shù)")
m1 = InputBox("輸入自然數(shù)m", "輸入數(shù)")
n = n1
m = m1
If m ＜ n Then
t = m: m = n: n = t
End If
r = m Mod 【n】
Do While (r＜＞0)
m = n
n = r
r = m Mod n
Loop
Print "最大公約數(shù)=", n
Print "最小公倍數(shù)= ", m1 * n1 / n
End Sub
52131.以下程序是求最大公約數(shù)和最小公倍數(shù)的程序，在【】處填寫合適的關(guān)系運算符。
Private Sub Form_Click( )
Dim m1, n1, m, n, r As Integer
n1 = InputBox("輸入自然數(shù)n", "輸入數(shù)")
m1 = InputBox("輸入自然數(shù)m", "輸入數(shù)")
n = n1
m = m1
If m ＜n Then
t = m: m = n: n = t
End If
r = m Mod n
Do While r 【<>】 0
m = n
n = r
r = m Mod n
Loop
Print "最大公約數(shù)=", n
Print "最小公倍數(shù)= ", m1 * n1 / n
End Sub
52132.下面是求100以內(nèi)素數(shù)的程序。
Private Sub Command1_Click( )
Dim i As Integer, m As Integer, tag As Boolean
For m = 2 To 100
tag = True
For i = 2 To m - 1
If m Mod 【i】 = 0 Then tag = False
Next i
If tag Then Print m
Next m
End Sub
52133.下面是求100以內(nèi)素數(shù)的程序，下面說法正確的是(A)(單)
Private Sub Command1_Click( )
Dim i As Integer, m As Integer, tag As Boolean
For m = 2 To 100
tag = True
For i = 2 To m - 1
If m Mod i = 0 Then tag = False
Next i
If tag=true Then Print m
Next m
End Sub
A.tag為true時，表示m是素數(shù)
B.tag為false時，表示m是素數(shù)
C.語句m Mod i = 0，說明m是素數(shù) ?D.以上說法都不正確
52134.百元買百雞問題： 假定小雞每只5角,公雞每只2元，母雞每只3元。現(xiàn)在有100元錢要求買100只雞，以下程序列出了所有可能的購雞方案。
Private Sub Command2_Click( )
Dim x%, y%, z%
For x = 0 To 33
For y = 0 To 50
If 3 * x + 2 * y + 0.5 * (100 - x - y) = 100 Then
Picture2.Print x, y, 【100-x-y,10-y-x】
End If
Next y
Next x
End Sub
52135.百元買百雞問題： 假定小雞每只5角,公雞每只2元，母雞每只3元?，F(xiàn)在有100元錢要求買100只雞，以下程序列出了所有可能的購雞方案。
Private Sub Command1_Click( )
Dim x%, y%, z%
For x = 0 To 33
For y = 0 To 50
For z = 0 To 100
If 3 * x + 2 * y + 0.5 * z = 100 And 【x+y+z=100】 Then
Picture1.Print x, y, z
End If
Next z
Next y
Next x
End Sub
52136.隨機產(chǎn)生10個100～200之間的數(shù)，求它們的最大值程序如下：
Private Sub Command1_Click( )
Max = 100
For i = 1 To 10
x = Int(Rnd * 101 + 100)
Print x;
If x ＞ Max Then 【】
Next i
Print "最大值="; Max
End Sub
在此程序中，其中【】處應(yīng)該填寫的是(C)(單)
A.Max = 100 ???B.Max =200 C.Max = x ?????D.Max = 0
52137.隨機產(chǎn)生10個100～200之間的數(shù)，求它們的最大值程序如下：
Private Sub Command1_Click( )
Max = 100
For i = 1 To 10
x = int【RND*101+100或100+RND*101或RND()*101+100或100+RND()*101】
Print x;
If x ＞ Max Then Max=x
Next i
Print "最大值="; Max
End Sub
52138.隨機產(chǎn)生10個100～200之間的數(shù)，求它們的最大值程序如下：
Private Sub Command1_Click( )
Max = 100
For I = 1 To 10
x =Int(Rnd * 101 + 100)
Print x;
If 【】 Then Max=x
Next I
Print "最大值="; Max
End Sub
在【】處應(yīng)該填寫的是：（A）(單)
A.x ＞ Max ??B.x ＜Max ?C.x = Max ??D.以上都不正確
52139.以下是求1～100之間5或7的倍數(shù)的和，如下程序段：
Sum = 0
For i = 1 To 100
If i Mod 5 = 0 Or i Mod 7 = 0 Then
【】
End If
Next i
Print Sum
其中【】處書寫正確的是（B）(單)
A.Sum = i ????????????B.Sum = Sum + i
C.Sum = Sum + 5+7 ????D.以上都不正確
52140.以下是求1～100的5或7的倍數(shù)的和程序段：
Sum = 0
For i = 1 To 100
If i Mod 5 = 0 Or i 【mod】 7=0 Then
Sum = Sum + i
End If
Next i
Print Sum
52141.以下敘述中錯誤的是(B)(單)
A.Visual Basic 是事件驅(qū)動型可視化編程工具
B.Visual Basic應(yīng)用程序不具有明顯的開始和結(jié)束語句
C.Visual Basic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性
D.Visual Basic中控件的某些屬性只能在運行時設(shè)置
52142.以下敘述中錯誤的是(A)(單)
A.在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件
B.以.BAS為擴展名的文件是標(biāo)準(zhǔn)模塊文件
C.窗體文件包含該窗體及其控件的屬性
D.一個工程中可以含有多個標(biāo)準(zhǔn)模塊文件
52143.以下敘述中錯誤的是(B)(單)
A.雙擊鼠標(biāo)可以觸發(fā)DblClick事件
B.在編程過程中，窗體或控件的事件的名稱可以由編程人員自由確定
C.移動鼠標(biāo)時，會觸發(fā)MouseMove事件
D.控件的名稱可以由編程人員設(shè)定
52144.以下不屬于Visual Basic系統(tǒng)的文件類型是(B)(單)
A..frm ??????B..bat ?C..vbg ??????D..vbp
52145.以下敘述中錯誤的是(C)(單)
A.打開一個工程文件時，系統(tǒng)自動裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件
B.保存Visual Basic程序時，應(yīng)分別保存窗體文件及工程文件
C.Visual Basic應(yīng)用程序只能以解釋方式執(zhí)行
D.事件可以由用戶引發(fā)
52146.以下聲明語句中錯誤的是(B)(單)
A.Const var1=123 ??????????B.Dim var2 = 'ABC'
C.Public a,b as integer ???D.Static a as single
52147.設(shè)窗體上有一個列表框控件List1，且其中含有若干列表項。則以下能表示當(dāng)前被選中的列表項內(nèi)容的是(D)(單)
A.List1.List ??????B.List1.ListIndex
C.List1.Index ?????D.List1.Text
52148.程序運行后，在窗體上單擊鼠標(biāo)，此時窗體不會接收到的事件是(C)(單)
A.MouseDown ??B.MouseUp ?C.Load ??????D.Click
52149.設(shè)a=10，b=5，c=1，執(zhí)行語句Print a ＞b ＞ c后，窗體上顯示的是(B)(單)
A.True ???B.False ?C.1 ??????D.出錯信息
52150.如果要改變窗體的標(biāo)題，則需要設(shè)置窗體的(A)屬性(單)
A.Caption ??B.Name ??C.BackColor ??D.BorderStyle
52151.以下能判斷指針是否指向文件尾的函數(shù)是(D)(單)
A.BOF ??????B.LOC ?C.LOF ??????D.EOF
52152.如果一個工程含有多個窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯誤的是(B)(單)
A.如果工程中含有Sub Main過程，則程序一定首先執(zhí)行該過程
B.不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動模塊
C.用Hide方法只是隱藏一個窗體,不能從內(nèi)存中清除該窗體
D.任何時刻最多只有一個窗體是活動窗體
52153.窗體的過程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, YAs Single) ，有4個參數(shù)，關(guān)于這些參數(shù)，正確的描述是(D)(單)
A.通過Button參數(shù)判定當(dāng)前按下的是鍵盤上哪一個鍵
B.Shift參數(shù)只能用來確定是否按下Shift鍵
C.Shift參數(shù)只能用來確定是否按下Alt和Ctrl鍵
D.參數(shù)x,y用來設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)
52154.設(shè)組合框Combo1中有3個項目，則以下能刪除最后一項的語句是(B)(單)
A.Combo1.RemoveItem Text ????B.Combo1.RemoveItem 2
C.Combo1.RemoveItem 3
D.Combo1.RemoveItem Combo1.Listcount
52155.以下關(guān)于焦點的敘述中，錯誤的是(A)(單)
A.如果文本框的Enabled屬性為False，能接收從鍵盤上輸入的數(shù)據(jù)
B.當(dāng)文本框失去焦點時，觸發(fā)LostFocus事件
C.當(dāng)文本框的Enabled屬性為False時，其Tab順序不起作用
D.可以用TabIndex屬性改變Tab順序
52156.如果要在菜單中添加一個分隔線，則應(yīng)將其Caption屬性設(shè)置為(D)(單)
A.= ??????B.* ?C.& ??????D.-
52157.在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1、Text2的文本框，然后編寫如下事件過程：
Private Sub Command1_Click( )
n = val(Text1.Text )
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case Is ＜ 10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub
程序運行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的內(nèi)容是(A)(單)
A.10 ??????B.20 ?C.30 ??????D.40
52158.設(shè)有以下循環(huán)結(jié)構(gòu)
Do
循環(huán)體
Loop While ＜條件＞
則以下敘述中錯誤的是(A)(單)
A.若"條件"是一個為0的常數(shù)，則一次也不執(zhí)行循環(huán)體
B."條件"可以是關(guān)系表達式、邏輯表達式或常數(shù)
C.循環(huán)體中可以使用Exit Do語句
D.如果"條件"總是為True，則不停地執(zhí)行循環(huán)體
52159.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click( )
Dim num As Integer
num = 1
Do Until num ＞ 6
Print num;
num = num + 2.4
Loop
End Sub
程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是(B)(單)
A.1 3.4 5.8 ??B.1 3 5 C.1 4 7 ???D.無數(shù)據(jù)輸出
52160.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click( )
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
a = a－1
Loop While a ＜＝ 0
Print s; a
End Sub
程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是(C)(單)
A.7 9 ???B.34 0 ?C.9 7 ???D.死循環(huán)
52161.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
有如下通用過程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
Private Sub Command1_Click( )
Static x As Integer
x = 10
y=5
y = f(x)
Print x; y
End Sub
程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是(C)(單)
A.10 5 ??????B.20 5 ?C.20 40 ?????D.10 40
52162.設(shè)有如下通用過程：
Public Sub Fun(a( ), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next I
End Sub
在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下的事件過程：
Private Sub Command1_Click( )
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next I
n = 10
Call Fun(arr( ), n)
Text1.Text = n
End Sub
程序運行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是(A)(單)
A.10 ??????B.15 ?C.25 ??????D.24
52163.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下代碼：
Option Base 1
Private Sub Command1_Click( )
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i) ＞ c Then
d = d + x(i)
c = x(i)
Else
d = d－c
End If
Next i
Print d
End Sub
程序運行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容為(C)(單)
A.89 ??????B.99 ? C.23 ??????D.77
52164.在窗體上畫兩個滾動條，名稱分別為Hscroll1、Hscroll2；六個標(biāo)簽，名稱分別為Label1、Label2、Label3、Label4、Label5、Label6，其中標(biāo)簽Label 4、Label6分別顯示"A"、"B"、"A*B"等文字信息，標(biāo)簽Label1、Label2分別顯示Hscroll1、Hscroll2滾動條的數(shù)值，Label3顯示A*B的計算結(jié)果。當(dāng)移動滾動條時，在相應(yīng)的標(biāo)簽中顯示滾動條的值。當(dāng)單擊命令按鈕"計算"時，對標(biāo)簽Label1、Label2中顯示的兩個值求積，并將結(jié)果顯示在Label3中。以下不能實現(xiàn)上述功能的事件過程是(C)(單)
A.Private Sub Command1_Click( )
Label3.Caption = =Str(Val(Label1.Caption)*Val( Label2.Caption))
End Sub
B.Private Sub Command1_Click( )
Label3.Caption = HScroll1.Value *HScroll2.Value
End Sub
C.Private Sub Command1_Click( )
Label3.Caption = HScroll1 * HScroll2
End Sub
D.Private Sub Command1_Click( )
Label3.Caption = HScroll1. Text *HScroll2.Text
End Sub
52165.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click( )
For n = 1 To 20
If n Mod 3 ＜＞ 0 Then m = m + n \ 3
Next n
Print n
End Sub
程序運行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是(C)(單)
A.15 ??????B.18 ?C.21 ??????D.24
52166.在窗體上畫一個名稱為Text1的文本框，并編寫如下程序：
Private Sub Form_Load( )
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X AsSingle, Y As Single)
Print "程序設(shè)計"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程序運行后，如果按"A"鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是(A)(單)
A.Visual Basic ???B.程序設(shè)計
C.A程序設(shè)計 ???????D.Visual Basic程序設(shè)計
52167.設(shè)有如下程序：
Private Sub Command1_Click( )
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub
該程序通過For循環(huán)計算一個表達式的值，這個表達式是(C)(單)
A.1+1/2+ 2/3+3/4+4/5 ???B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5 ?D.1+1/2+1/3+1/4+1/5
52168.以下有關(guān)數(shù)組定義的語句序列中，錯誤的是(D)(單)
A.Static arr1(3) ：arr1(1) = "100" ：
arr1(2) = "Hello" ：arr1(3) = "123.45"
B.Dim arr2( ),size As Integer
Private Sub Command2_Click( )
size =InputBox("輸入：") ReDim arr2(size) ......
End Sub
C.Option Base 1 Private Sub Command3_Click( )
Dim arr3(3) As Integer ......
End Sub
D.Dim n As Integer Private Sub Command4_Click( )
Dim arr4(n) As Integer......
End Sub
52169.執(zhí)行下面的程序段后，I的值為【5.6】
s = 2
For I = 3.2 To 4.9 Step 0.8
s = s + 1
Next I
Print i
52170.執(zhí)行下面的程序段后，S的值為【5】
Private Sub Command1_Click( )
s = 2
For c = 3.2 To 4.9 Step 0.8
s = s + 1
Next c
Print s
End Sub
52171.把窗體的KeyPreview屬性設(shè)置為True，然后編寫如下兩個事件過程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
程序運行后，如果直接按鍵盤上的"A"鍵（即不按住Shift鍵），則在窗體上輸出的字符分別是A和【a】
52172.把窗體的KeyPreview屬性設(shè)置為True，然后編寫如下兩個事件過程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
程序運行后，如果直接按鍵盤上的"A"鍵（即不按住Shift鍵），則在窗體上輸出的字符分別是【A】和a。
52173.在窗體上畫一個標(biāo)簽（名稱為Label1）和一個計時器（名稱為Timer1），然后編寫如下幾個事件過程：
Private Sub Form_Load( )
Timer1.Enabled = False
Timer1.Interval = 【1000】
End Sub
Private Sub Form_Click( )
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer( )
Label1.Caption = time
End Sub
程序運行后，單擊窗體，將在標(biāo)簽中顯示當(dāng)前時間，每隔1秒鐘變換一次（見圖）。
———————
14：54：41
———————
52174.在窗體上畫一個標(biāo)簽（名稱為Label1）和一個計時器（名稱為Timer1），然后編寫如下幾個事件過程：
Private Sub Form_Load( )
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Form_Click( )
Timer1.Enabled = 【true】
End Sub
Private Sub Timer1_Timer( )
Label1.Caption = time
End Sub
程序運行后，單擊窗體，將在標(biāo)簽中顯示當(dāng)前時間，每隔1秒鐘變換一次（見圖）。
———————
14：54：41
———————
52175.在窗體上畫一個標(biāo)簽（名稱為Label1）和一個計時器（名稱為Timer1），然后編寫如下幾個事件過程：
Private Sub Form_Load( )
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Form_Click( )
Timer1.Enabled = true
End Sub
Private Sub Timer1_Timer( )
Label1.Caption = 【time】
End Sub
程序運行后，單擊窗體，將在標(biāo)簽中顯示當(dāng)前時間，每隔1秒鐘變換一次（見圖）。
———————
14：54：41
———————
52176.ASIC在窗體上畫一個文本框、一個標(biāo)簽和一個命令按鈕，其名稱分別為Text1、Label1和Command1，然后編寫如下兩個事件過程：
Private Sub Command1_Click( )
S$ = InputBox("請輸入一個字符串")
Text1.Text = S$
End Sub
Private Sub Text1_Change( )
Label1.Caption = Ucase(Mid(Text1.Text, 7))
End Sub
程序運行后，單擊命令按鈕，將顯示一個輸入對話框，如果在該對話框中輸入字符串"VisualBasic"，則在標(biāo)簽中顯示的內(nèi)容是【basic】
52177.在窗體上畫一個列表框、一個命令按鈕和一個標(biāo)簽，其名稱分別為List1、Command1和Label1，通過屬性窗口把列表框中的項目設(shè)置為："第一個項目"、"第二個項目"、"第三個項目"、"第四個項目"。程序運行后，在列表框中選擇一個項目，然后單擊命令按鈕，即可將所選擇的項目刪除，并在標(biāo)簽中顯示列表框當(dāng)前的項目數(shù)，運行情況如圖所示(選擇"第四個項目"的情況)。
Private Sub Command1_Click( )
If List1.ListIndex ＞＝ 【0】 Then
List1.RemoveItem List1.ListIndex
Label1.Caption = List1.ListCount
Else
MsgBox "請選擇要刪除的項目"
End If
End Sub
運行情況(選擇"第四個項目"的情況)：
label1標(biāo)簽顯示: 3
list1列表框顯示:
————————
第一個項目
第二個項目
第三個項目
————————
52178.在窗體上畫一個列表框、一個命令按鈕和一個標(biāo)簽，其名稱分別為List1、Command1和Label1，通過屬性窗口把列表框中的項目設(shè)置為："第一個項目"、"第二個項目"、"第三個項目"、"第四個項目"。程序運行后，在列表框中選擇一個項目，然后單擊命令按鈕，即可將所選擇的項目刪除，并在標(biāo)簽中顯示列表框當(dāng)前的項目數(shù)，運行情況如圖所示(選擇"第三個項目"的情況)。
Private Sub Command1_Click( )
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.【listindex】
Label1.Caption = List1.ListCount
Else
MsgBox "請選擇要刪除的項目"
End If
End Sub
運行情況(選擇"第三個項目"的情況)：
—————————————————————
第一個項目
第二個項目 COMMAND1
第三個項目 3
—————————————————————
52179.在窗體上畫一個列表框、一個命令按鈕和一個標(biāo)簽，其名稱分別為List1、Command1和Label1，通過屬性窗口把列表框中的項目設(shè)置為："第一個項目"、"第二個項目"、"第三個項目"、"第四個項目"。程序運行后，在列表框中選擇一個項目，然后單擊命令按鈕，即可將所選擇的項目刪除，并在標(biāo)簽中顯示列表框當(dāng)前的項目數(shù)，運行情況如圖所示(選擇"第三個項目"的情況)。
Private Sub Command1_Click( )
If List1.ListIndex ＞＝ 0 Then
List1.RemoveItem List1.Listindex
Label1.Caption = List1.【listcount】
Else
MsgBox "請選擇要刪除的項目"
End If
End Sub
運行情況(選擇"第三個項目"的情況)：
—————————————————————
第一個項目
第二個項目 COMMAND1
第三個項目 3
—————————————————————
52180.設(shè)有程序：
Option Base 1
Private Sub Command1_Click( )
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
【max】= arr1(1)
For I = 1 To 8
If arr1(I) ＞Max Then Max=arr1(I)
Next I
Print "最大值是: "; Max
End Sub
以上程序的功能是：用Array函數(shù)建立一個含有8個元素的數(shù)組，然后查找并輸出該數(shù)組中元素的最大值。
52181.VB預(yù)先設(shè)置好的，能夠被對象識別并且能夠響應(yīng)的動作是(B)(單)
A.動作 ??????B.事件 ? C.對象 ??????D.屬性
52182.下面是窗體的四個屬性，在界面設(shè)計時，改變(D)屬性值看不到窗體變化(單)
A.Top ??????B.Width ? C.Left ??????D.Enabled
52183.下面四個選項，不是窗體屬性的是(D)(單)
A.MinButton ??B.MaxButton C.Caption ???D.Load
52184.下面四個選項，不是事件或語句的是(B)(單)
A.Load ??????B.Enabled ??C.Unload ????D.DblClick
52185.用來設(shè)置窗體背景圖片的屬性是(B)(單)
A.Moveable ??B.Picture ?C.ForeColor ?D.WindowState
52186.Load事件是在窗體被裝入工作區(qū)時(D)觸發(fā)的事件(單)
A.用戶 ?? B.程序員 ?C.手工 ??????D.自動
52187.修改控件屬性，一般可以使用屬性窗口，也可以通過(D)為屬性賦值(單)
A.命令 ??????B.對象 ? C.方法 ??????D.代碼
52188.在VB6中的每一個對象都具有自己的屬性、(C)和方法(單)
A.控件 ??????B.函數(shù) ?C.事件 ??????D.公用過程
52189.在設(shè)計VB6應(yīng)用程序界面時，改變窗體下面的(C)屬性看不到效果.(單)
A.Left ??????B.Top ?C.Visible ???D.BackColor
52190.下列可作為Visual Basic的變量名的是(A)(單)
A.Delta ??????B.Print ?C.Abs ????????D.LN
52191.下列可作為Visual Basic的變量名的是(B)(單)
A.Filename ?????B.ABC ?C.A％D ??????D.Print
52192.Visual Basic中，在文本框中所允許輸入的形式數(shù)是(C)(單)
A.±25.74 ?????B.3.457E ?C.368 ??????D.1.87E+50
52193.在Visual Basic中的文本框中所允許輸入形式的數(shù)是(D)(單)
A.10^(1.256) ?????B.D32 ?C.2.5E ???????????D.12
52194.下面(B)數(shù)寫成普通的十進制數(shù)是8.6787E+8(單)
A.86787000 ?B.867870000 ??C.8678700 ??D.8678700000
52195.下面（B）數(shù)寫成普通的十進制數(shù)是2.567E-2.(單)
A.0.0002567 ?B.0.02567 ??C.0.002567 ??D.0.00002567
52196.設(shè)a=2，b=3，c=4，d=5，下列表達式的值是(B)(單)
a ＞b And c＜＝d Or 2 * a＞c
A.True ????B.False ?C.-1 ??????D.1
#52197.設(shè)a=2，b=3，c=4，d=5，下列表達式的值是(B)(單)
3 ＞2*b Or a=c And b＜＞c Or c＞d
A.-1 ?????B.TRUE ??????C.FALSE ???D.1
52198.設(shè)a=2，b=3，c=4，d=5，下列表達式的值是(D)(單)
NOT a＜＝c OR 4*c=b＾2 AND b＜＞a+c
A.-1 ????????B.1 ?????C.TRUE ??????D.FALSE
52199.實現(xiàn)字符轉(zhuǎn)換為數(shù)值的函數(shù)是(B)(單)
A.Str ??????B.Val ?C.Trim ?????D.Mid
52200.假設(shè)X=3，Y=6，Z=5，則表達式：(X^2+Y)\Z的值是(C)(單)
A.1 ??????B.5 ?C.3 ??????D.2.4
52201.假設(shè)A=3，B=7，C=2，則表達式：(A＞B) OR (B＞C)的值是(A)(單)
A.TRUE ???????B.FALSE ????C.表達式錯誤 ???D.不確定
52202.在表達式y(tǒng)=InputBox("a","b","c")中，b為輸入函數(shù)對話框的(A)(單)
A.標(biāo)題 ??????B.提示 ????C.默認值 ????D.幫助文件名
52203.假設(shè)A=3，B=7，C=2，則表達式： NOT(BA) 的值是(B)(單)
A.TRUE ????????B.FALSE ??C.表達式錯誤 ??D.不確定
52204.在表達式y(tǒng)=InputBox("a","b","c")中，c為輸入函數(shù)對話框的(C)(單)
A.標(biāo)題 ??????B.提示 ????C.默認值 ????D.幫助文件名
52205.假定Picture1和Text1分別為圖片框和文本框的名稱，下列不正確的語句是(C)(單)
A.Print 25 ??? ? ?B.Picture1.Print 25
C.Text1.Print 25 ? D.Text1.text= 25
52206.以下語句的輸出結(jié)果是(在立即窗口中)(B)(單)
(＜CR＞為回車，Δ表示空格)
a=27＜CR＞ (＜CR＞為回車，下同)
b=65＜CR＞
Print a;b ＜CR＞
A.＜CR＞27＜CR＞65 ??????B.27 65＜CR＞
C.Δ27＜CR＞65＜CR＞ ????D.以上都不對
52207.以下語句的輸出結(jié)果是(C)(單)
(＜CR＞為回車，Δ表示空格)
a="Beijing" ＜CR＞
b="ShangHai" ＜CR＞
Print a;b ＜CR＞
A.Beijing＜CR＞ShangHai
B.＜CR＞beijing＜CR＞ShangHai
C.BeijingShangHai＜CR＞
D.ΔBeijingΔ
52208.語句Print 5*5＼5／5的輸出結(jié)果是(B)(單)
A.5 ??????B.25 ? C.0 ??????D.1
52209.設(shè)a、b、c為整型變量，其值分別為1、2、3，以下程序段的輸出結(jié)果是(D)(單)
A=b:b=c:c=a
Print a;b;c
A.1 2 3 ??????B.2 3 1 ?C.3 2 1 ??????D.2 3 2
52210.語句Print Abs(6 ^ 2) + Int(-3.6 ^ 2) 的輸出結(jié)果是(D)(單)
A.-36 ??????B.1 ? C.-1 ??????D.23
52211.以下語句的輸出結(jié)果是(B)(單)
A=Sqr(3)
Print Format(a,"$$####.###")
A.$1.732 ????B.$$1.732 ???C.$1732 ???D.$$0001.732
52212.以下程序段的輸出結(jié)果是(D)(單)
A=Sqr(3)
b=Sqr(2)
c=a＞b
Print c
A.-1 ??????B.0 ?C.FALSE ???D.TRUE
52213.以下語句的輸出結(jié)果是(C)(單)
Print Format$(32548.5,"000,000.00")
A.32548.5 ???????B.32,548.5
C.032,548.50 ????D.32,548.50
52214.執(zhí)行以下程序段后，變量c$的值為(D)(單)
a$="Visual Basic Programing"
b$="Quick"
c$=b$ & Ucase(Mid$(a$,7,6)) & Right$(a$,11)
A.Visual BASIC Programing
B.Quick Basic Programing
C.QUICK Basic Programing
D.Quick BASIC Programing
52215.表達式 4 + 5 \ 6 * 7 / 8 Mod 9 的值是(B)(單)
A.4 ??????B.5 ?C.6 ??????D.7
52216.InputBox函數(shù)返回值的類型為(B)(單)
A.數(shù)值 ???? B.字符串 ?C.變體
D.數(shù)值或字符串(視輸入的數(shù)據(jù)而定)
52217.在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click( )
a=InputBox$("Enter the First integer")
b=InputBox$("Enter the Second integer")
Print a+b
End Sub
程序運行后，單擊命令按鈕，先后在兩個輸入對話框中分別輸入123和456，則輸出結(jié)果是(D)(單)
A.579 ??????B.123 ??????C.456 ??????D.123456
