更多"假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换"的相关试题:
[填空题]假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的15个属性。请在划线处将程序补充完整。
Private Sub Form_Click（ ）
Static x As Integer
Cls
Print "Mousepointer Property is now"; x
Form1. 【12】 =x
x=x+1
If x=15 Then x=0
End Sub
[填空题]假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种
鼠标光标的形状，依次显示鼠标光标的15个属性。请在划线处将程序补充完整。
Private Sub Form_Click（ ）
Static x As Integer
Cls
Print "Mousepointer Property is now"; x
Form1. 【12】 =x
x=x+1
If x=15 Then x=0
End Sub
[填空题]以下程序的功能是在程序运行后，单击命令按钮，输出如下结果：
1 4 7
2 5 8
3 6 9
请完善以下程序。
Private Sub Command1_Click（ ）
Dim Arr(3，3)As Integer
For i=1 To 3
For j=1 To 3
Arr(i，j)= 【15】
Print Arr(i，j)；
Next j
Print
NeXt i
End Sub
[单项选择]若有以下程序，当程序运行后，单击命令按钮，则输出的结果为( )。
Private Sub Command1_Click（ ）
Dim a%(1 To 4), b%(3 To 6), i%, s1#, s2#
For i= 1 To 4
a(i) = i
Next i
For i=3 To 6
b(i) = i
Next i
s1 = Factorial (
A. s1=24 s2=24
B. s1=360 s2=360
[单项选择]有如下程序，运行后的输出结果是 ______。 a = 5 If a ＜= 3 Then Print 3; End If If a ＜= 4 Then Print 4; End If If a ＜= 5 Then Print 5; End If If a ＜= 6; Print 6; End If
A. 3456
B. 456
C. 56
D. 6
[单项选择]有下列程序，程序运行后单击命令按钮，则输出的结果为( )。
Private Sub Command1_Click（ ）
Dim a%(1 To 4), b%(3 To 6), i%, s1#, s2#
For i= 1 To 4
a(i) = i
Next i
For i=3 To 6
b(i)=i
Next i
s1=Factorial (
[单项选择]有下列程序，程序运行后单击命令按钮，则输出的结果是( )。
Private Sub Command1_Click（ ）
Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2#
For i=1 To 4
a(i)=i
Next i
For i=3 To 6
b(i)=i
Next i
s1=Factorial(
A.
B.
[单项选择]在窗体上画一个命令按钮，然后编写如下程序。运行后，单击命令按钮，输出结果为 ( )。
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
[单项选择]对窗体编写如下代码，当程序运行后，按回车键，输出结果为 ______。 Option Base 1 Private Sub Form KeyPress(KeyAscii As Integer) a = Array(237,126,87,48,498) m1 = all) m2= 1 If KeyAscii = 13 Then For i = 2 To 5 If a(i)＞m1 Then m1 = a(j) m2= i End If Next i End If Print m1 Print m2 End Sub
A. 48 4
B. 237 1
C. 498 5
D. 498 4
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，输出结果是 【15】
Private Sub Command1_Click（ ）
Dim a(1 To 10)
Dim p(1 To 3)
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
