題目內容
（請給出正確答案）
窗體上命令按鈕Commandl的事件過程如下：
Private Sub Command1_Click()
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer)As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
s=x
End Function
運行程序，第3次單擊命令按鈕Command1時，輸出結果為【 】。
答案
更多“窗體上命令按鈕Commandl的事件過程如下：Private Sub Command1_Click（)Dim total As Integertotal”相關的問題
第1題
在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下事件過程： 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 程序運行后，如果單擊命令按鈕，則窗體上顯示的內容是______。
A．15
B．18
C．21
D．24
第2題
窗體中有命令按鈕Commandl，事件過程如下：
PublicFunction f(x As Integer)As Integer
Dim Y AsInteger
X=20
y=2
f= X *Y
End Function
PrivateSub Commandl_Click（）
Dim y As Integer
static x As Integer
x=10
y=5
y=f(x)
Debug.Print x;y
End Sub
運行程序，單擊命令按鈕，則立即窗口中顯示的內容是（）
A.10；5
B.10；40
C.20；5
D.20；40
第3題
A.1
B.7
C.17
D.400
第4題
A.private sub Command1 Click（） Command2．Visible—trueCommand3．Visible—false End Sub
B.private sub Commandl Click（） Command2．Enable—trueCommand3．Enable=falseEnd Sub
C.private sub Command1 Click（） Command2．Enable—trueCommand3．Visible—falseEnd Sub
D.private sub Command1 Click（） Command2．Visible=trueCommand3．Enable—falseEnd Sub
第5題
設在名稱為Myform的窗體上只有1個名稱為C1的命令按鈕,下面敘述中正確的是（）。
A．窗體的Click事件過程的過程名是Myform_Click
B．命令按鈕的Click事件過程名是C1_Click
C．命令按鈕的Click事件過程的過程名是Command1_Click
D．以上三種過程名稱都是錯誤的
第6題
在窗體上面有一個命令按鈕，名稱為Command1，單擊該命令按鈕時，執行如下事件過程：
在彈出信息框的標題欄中顯示的信息是（）。
A．softwareand hardware
B．software
C．hardware
D．1
第7題
在窗體上添加一個命令按鈕(名為Command1)，然后編寫如下事件過程： Private Sub Command1_Click() For i=l To 4 x=4 For j=1 To 3 x=3 Fork=1 To 2 x=x+6 Next k Next j Next i MsgBox x End Sub 打開窗體后，單擊命令按鈕，消息框的輸出結果是()。
A．7
B．15
C．157
D．528
第8題
在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim num As Integer num=1 Do Until num＞6 Print num; num=num+2.4 Loop End Sub 程序運行后，單擊命令按鈕，則窗體上顯示的內容是______。
A．13.45.8
B．135
C．1 4 7
D．無數據輸出
第9題
在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序運行后，單擊命令按鈕，則在窗體上顯示的內容是()。
A．4
B．5
C．6
D．7
第10題
Private Sub Commandl Click（）
Dim i As Integer, j As Integer
Dim a （10,10）As Integer
For i=1 To 3
For j= i To 3
a（i,j）=（i-1）*3+j
Print a （i,j）;
Next j
Next i
End Sub
程序運行后，單擊命令按鈕，窗體上顯示的是（）。
第11題
.jpg)
注意：
文件必須存放在考生文件夾中，工程文件名為execise83.vbp，窗體文件名為 execlse83.frm。
