更多"假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换"的相关试题:
[填空题]假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的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 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