【C14】______
A.forget
B.admit
C.suppose
D.fear
AI搜題
NEW
搜題
第1題
有如下的程序。 Private Sub Commandl_Click() Dim k As Integer, m As Integer Dim P As Integer k=4: m=1 P=Fun(k, m) : Print P; P = Fun (k, m) : Print P End Sub Private Function Fun(a As Integer, b As Integer) Static m As Integer, i As Integer m=5:i=2 i=i+m+1 m=i + a + b Fun=m\2 End Function 單擊命令按鈕后，輸出結(jié)果為
A．2 2
B．4 4
C．5 5
D．6
第2題
下面程序的輸出結(jié)果是【 】。
Private Sub Commandl_Click()
Dim a(1 To 20)
Dim i
Fori = 1 To 20
a(i) = i
Next i
For Each i In a()
a(i) = 20
Next i
Print a(2)
End Sub
第3題
有如下程序。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1 (a,B)End Sub Sub Subl(x As Single, y As Single) t=x x=t\y y = t Mod y End Sub 在調(diào)用運(yùn)行上述程序后，a和b的值分別為
A．0 0
B．1 1
C．2
D．1 2
第4題
有如下程序： Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b)End Sub Sub CS(x As Single，y As Single) t=X x=t\y y=t Mod y End Sub 程序運(yùn)行后，單擊命令按鈕，a和b的值分別為
A．0 0
B．1 1
C．0 2
D．1 2
第5題
有如下程序： Private Sub Commandl_Click() Dim a As Integer a=2 For i=1 To 3 Print Gad (A)Next i End Sub Function Gad (a As Integer) b=0 Static c b=b + 1 c= c + 1 Gad= a + b + C End Function 運(yùn)行上面的程序后，單擊命令按鈕，輸出結(jié)果為
A．1 2 3
B．2 3 4
C．4 5 6
D．1 4 6
第6題
下列程序的輸出結(jié)果是______。
Private Sub Commandl_Click()
Dim alt(1 To 10)
Fori＝1 To 10
arr(i) ＝I
Next i
For Each i In arr()
arr(i) ＝arr(i) *2+1
Next i
MsgBox arr(7)
End Sub
第7題
在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程： Private Sub Commandl_Click() Dim a() a=Array(1，3，5，7) s=0 For i=1 To 3 S=S*10+a(i) Next i Print s End Sub 程序運(yùn)行后，輸出結(jié)果為()。
A．135
B．357
C．531
D．753
第8題
在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Commandl_Click()
Dim a (1 To 10)
Dim p(1 To 3)
k=5
For i=1 To 10
a(i)=i
Nexti
Fori=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是【 】。
第9題
有如下程序： Private Sub Commandl_Click() a$="A WORKER IS HERE" x=Len(a$) For i=1，To x-1 b$=Mid$(a$，i，3) If b$="WOR" Then S=S+1 Next Print S End Sub 單擊命令按鈕，程序運(yùn)行結(jié)果為
A．1
B．2
C．3
D．5
第10題
有如下程序：
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum=0
For i=1 To 10
If arr(i)/3=arr(i)\3 Then
End If
Next i
End Sub
程序運(yùn)行后，單擊窗體，消息框的輸出結(jié)果為()。
