更多"当Form_Click事件发生时，程序输出的结果是 ______。 "的相关试题:
[单项选择]当Form1_Click事件发生时，程序的输出结果是( )。
Private Sub Form_Click（ ）
Dim M As Integer，k As Integer，t As Integer
M=5：k=7
Select Case M
Case Is＜0
M=M+5
Case 1 To 10
t=M：M=k：k=t
Case Else
M=k Mod 3
End Select
Print M，k，t
End Sub
A. 5 5 7
B. 5 7 5
C. 7 5 5
D. 7 5 7
[单项选择]有如下事件程序，运行该程序后输出结果是______。
Private Sub Command33_Click（ ）
Dim x As Integer，y As Integer
x=1:y=0
Do Until y＜=25
y=y+x*x
x=x+1
Loop
MsgBox"x="&x&", y="&y
End Sub
A. x=1，y=0
B. x=4，y=25
C. x=5，y=30
D. 输出其他结果
[单项选择]当发生Command1_C1ick事件后，以下程序的输出结果是
Private Sub Command1_Click（ ）
Dim i As Integer
Dim a(10) As Integer
For i＝9 To 0 Step -1
a(i)=10-i
Next i
Print a(2);a(5);a(8)
End Sub
A. 2 5 8
B. 7 4 1
C. 8 5 2
D. 3 6 9
[单项选择]以下程序的输出结果是( )。 Option Base 1 Private Sub Command1_Click（ ） Dim a(10),p(3) as Integer k=5 For I-1 to 10 a(i)=I Next I For j=1 to3 p(i)=a(I*j) Next j For I=l to 3 k=k+ p (I)*2 Next I Print k End Sub
A. 33
B. 28
C. 35
D. 37
[填空题]下列程序的输出结果是 【16】
Private Sub Command1_Click（ ）
Dim a(1 To 20)
Dim i
For i=l To 20
a(i)=i
Next i
For Each i In a（ ）
a (i) =20
Next i
[填空题]下列程序的输出结果是 【15】 。
Private Sub Commandl Click（ ）
Dim a(1 To 20)
Dim i
For i=1 To 20
a(i)=i
Next i
For Each i ln a（ ）
a(i)=20
Next i
Print a(2)
End Sub
[单项选择]以下程序运行后，单击按钮输出结果是 Private Sub Commandl_Click( ) Dim x As Integer，y As Integer，z As Integer X=4：y=2： Z=3 Call Gopd(x，x，z) Print x；X；Z Call Gopd(x，y，y) Print x；y；y End Sub Private Sub Gopd(x As Integer，y As Integer，z As Integer) X=3 * Z + 1 y=2 * z z=x + y End Sub
A. 6 6 12 7 11 11
B. 8 5 10 5 11 11
C. 9 6 12 9 10 15
D. 8 10 10 5 9 10
[单项选择]以下程序的输出结果是D) 9 12 Option Base 1 Private Sub Command1_Click（ ） Dim s(10)，p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=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
A. 33
B. 28
C. 35
D. 37
[单项选择]下列程序输出的结果是( )。
#include＜stdio.h＞
sub1(char a，char b) char c：c=a：a=b：b=c;
sub2(char*a,char b) char c：c=*a；”a=b；b=c；
sub3(char*a，char*b) char c；c=*a；”a=*b；*b=c；
void main（ ）
char a,b;
a=’A’；b=’B’:sub1(a，b)；putchar(a)：putchar(b)：
a=’A’；b=’B’; sub2(&a，b)；putchar(a)；putchar(b)；
a=’A’；b=’B’; sub3(&a，&b)；putchar(a)；putchar(b)；
putchar(’/n’)；
A. ABABAB
B. ABBBBA
C. ABBABA
D. ABABBA
[单项选择]以下程序的输出结果是
Private Sub Command1_Click（ ）
ch$="ABCDEF"
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
s=""
For k=Len(ch)To 1 Step-1
s=s & Mid(ch,k,1)
Next k
ch=s
End Sub
A. ABCDEF
B. FEDCBA
C. A
D. F
[单项选择]有如下事件过程，单击命令按钮扣，输出结果是 Private Sub Command1 Click( ) Dim b% (1 To4) ,j%, t# For j=1 To 4 b(j) =j Next j t=Tax(b( ) ) Print "t="; t, End Sub Function Tax (a( ) As Integer) Dim t#, i% t=1 For i=2 To UBound (a) t=t * a(i) Next i Tax=t End Function
A. t=18
B. t=24
C. t=30
D. t=32
[单项选择]下列程序运行时输出的结果是
Option Base 1
Private Sub Form_Click（ ）
Dim x(10) As Integer，y(5) As Integer
For i=1 to 10
x(i) =10-i+1
Next
For i=1 to 5
y(i)=x(2*i-1)+x(2*i)
Next
For i=1 to 5
Print y(i)
Next
End Sub
A. 3 7 11 45 19
B. 19 15 11 7 3
C. 1 3 5 7 9
D. 不确定的值
