题目内容
（请给出正确答案）
写出程序的输出结果：
Private Sub Form_Click
Print Tab(10); -100;Tab(20); 200;Tab(30); -300
Print Spc(5); -100;Spc(5); 200;Spc(5); -300
End Sub
如果结果不匹配，请 联系老师 获取答案
更多“写出程序的输出结果：Private Sub Form_Cli…”相关的问题
在窗体上画一个命令按钮，然后写出如下事件过程： Private Sub Command1 _ Click() S=1 Do S=(S + 1) ^(S + 2) Number=Number+1 Loop Until S＞=6 Print Number，S End Sub 程序运行后，输出的结果是
A．2 3
B．3 18
C．1 8
D．10 20
在窗体上画一个命令按钮，然后写出如下事件过程：
Private Sub Command1_Click（）
s=1
Do
s=（s + 1） ^ （s + 2）
Number=Number + 1
Loop Until s ＞=6
Print Number, s
End Sub
程序运行后，输出的结果是（）。
A．23
B．318
C．18
D．1020
单击命令按钮，下列程序段的输出结果为______。 Private Sub Command1_Click() Dim n As Integer n = 5 While n ＜= 10 n = n + 2 Print n; Wend End Sub
A．5 7 9 11
B．6 8 10
C．7 9 11
D．6 8 10 12
下列程序段运行后窗体上输出结果为()。 Private Sub Command1 Click() a=5：b=4：c=3：d=2 X=3＞2*b Or a=c And b＜＞C Or c＞d Print X End Sub
A．1
B．True
C．False
D．2
执行下列程序后，鼠标单击窗体，输出结果为 Private Sub Form_Click() Print "Click"； End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Print "Donw" End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As single) Print "Up" End Sub
A．DownUpClick
B．ClickDownUp
C．DownClickUp
D．UpDownclick
有下列程序段，单击命令按钮执行程序后，输出结果为()。 Option Base 1 Private Sub Command1_Cliek() Dim x x=Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1=0 s2=0 Fork=1 To 10 If (x(k)＞0) Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End Sub
A．148
B．40
C．-40
D．3.7
在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果为()。 Private Sub p1(n As Integer) For i=n To 1 Step-1 x=String(i，"*") Print x Next i End Sub Private Sub Command1_Click() p1(3) End Sub
A．*** ** *
B．* ** ***
C．* * *
D．******
有如下程序： Private Sub Form_CHck() Dim i As Integer，sum As Integer sum=0 For i=2 TO 10 If Mod 2 ＜＞And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。
A．12
B．30
C．24
D．18
在窗体上画一个命令按钮，然后编写如下程序。运行后，单击命令按钮，输出结果为 ()。
Private Sub Command4_Click()
Dima As Integer,bASInteger
a=1
b=2
PrintN(a,b)
End Sub
Function N(X As Integer,yAsInteger)AsInteger
N=IIf(x＞y，x，y)
End Funcfion
编写如下程序： Private Sub Form. Click() a$=: "4321": b$="abcd" For 3=1 To 4 Print Mid$(a$，5-j，1)+Nid$(b$, j, 1)； Next j Print End Sub 程序运行后，单击窗体，其输出结果为 ______。
A．alb2c3d4
B．b4c3d2el
C．eld2c3b4
D．la2b3c4d
有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。
A．12
B．30
C．24
D．18
