更多"运行下面程序,如果连续三次单击命令按钮之后,A数组共有() 个元素;数"的相关试题:
[填空题]以下程序运行时连续单击4次窗体,则第4次单击窗体后消息框中的输出结果为 【12】 。
PRIVATE FORM_CLICK( )
STATIC A AS INTEGER
DIM B AS INTEGER
B=A+B+1
A=A+B
MSGBOX A&"," &B
END SUB
[单项选择]下面程序运行后,单击命令按钮,输出的结果是
Private Sub Command1_Click( )
Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2#
For i = 1 To 4
a(i) =i
Next
For i = 2 To 6
b(i) =i
Next
str 1 = YAG (
[填空题]下面程序运行后,单击命令按钮,输出的结果是 【12】
Private Sub Command1_Click( )
Dim a%(1 To 4),b%(2 To 6),i%,str1#,str2#
For i=1 To 4
a(i)=i
Next
For i=2 To 6
b(i) =i
Next
str1 = YAG(a)
str2 = YAG(b)
Print "str1 ="; str1; "str2 ="; str2
End Sub
Function YAG (a ( ) As Integer)
Dim t#, i%
t=1
For i = LBound(a) To UBound(a)
t=t * a(i)
Next
YAG = t
End Function
[填空题]下面程序运行后,单击命令按钮,输出的结果是【 】。
Private Sub Commandl_Click( )
Dim a%(1 To 4) ,b%(2 To 6) ,i%,strl#,str2#
For i=1 To 4
a(i) =i
Next i
For i=2 To 6
b(i) =i
Next i
str1 =YAG(a)
str2 =YAG(b)
Print"strl";str1;"str2=";str2
End Sub
Function YAG (a( )As Integer)
Dim T#,i%
t=1
For i=LBound(a) To UBound(a)
t=t * a(i)
Next i
YAG =t
End Function
[填空题]下面程序运行后,单击命令按钮,输出的结果是 【8】
Private Sub Commandl_Click( )
Dim a%(1 To 4) ,b%(2 To 6) ,i%,strl#,str2#
For i=1 To 4
a(i) =i
Next i
For i=2 To 6
b(i) =i
Next i
str1 =YAG(a)
str2 =YAG(b)
Print"strl";str1;"str2=";str2
End Sub
Function YAG (a( )As Integer)
Dim T#,i%
t=1
For i=LBound(a) To UBound(a)
t=t * a(i)
Next i
YAG =t
End Function
[单项选择]下面的程序运行时,单击窗体后,窗体上显示的结果是( )。
Private Sub Form_Click( )
Dim a(1 To 6)As Integer
Dim min1%,i%,j%,n%,t%,k%
a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7
n=6
For i=1 To n-1
min 1=i
For j=i+1 To n
If a(j)<a(min1)Then min1=j
Next j
t=a(i):a(i)=a(min1):a(min1)=t
Next i
For i=1 To n
Print a(i)
Next i
End Sub
A. 9 8 7 6 3 2
B. 2 3 6 7 8 9
C. 9 8 7 6 3
D. 2 3 6 7 8
[单项选择]下面程序运行后,单击命令按钮,输出的结果是( )。
Private Sub Command1_Click( )
Dim a%(1 To 4),b%(2 To 6),i%,str1#, str2#
For i=1 To 4
a(i)=1
Next
For i=2 To 6
b(i)=i
Next
str1=YAG(A)
str2=YAG(B)
Print "str1="; str1; "str2=": str2
End Sub
Function YAG(a( ) As Integer)
Dim t#,i%
t=1
For i=LBound(A) To UBound(A)
t=t*a(i)
Next
YAG=t
End Function
A. str1=24 str2=720
B. str1=12 str2=360
C. str1=24
D. str1=36 str2=720
[单项选择]下面程序运行时,单击窗体后,窗体上显示的结果是( )。
Private Sub Form_Click( )
Dim I As Integer
Dim sum As Long
sum=0
For I=10 To 16
If I Mod 3=0 OrI Mod 5=0 Then
sum=sum+I
End If
Next I
Print sum
End Sub
A. 10
B. 12
C. 37
D. 22
[填空题]下面程序运行后,单击命令按钮,输出的结果是______。
Private Sub Command1_Click( )
Dim a%(1 To 5),i%,s#
For i=1 To 5
a(i)=i
Next
s=Fun(A)
Print "s=";s;
End Sub
Function Fun(a( )As Integer)
Dim t#.i%
t=1
For i=LBound(A) To UBound(A)
t=t*a(i)
Next
Fun=t
End Function
[单项选择]凡小产连续发生三次或三次以上者
A. 妊娠腹痛
B. 异位妊娠
C. 胎动不安
D. 胎漏
E. 小产
[填空题]下面程序代码实现单击命令按钮Command1时输出如下结果:
1 -1 -1
1 1 -1
1 1 1
该程序不完整,请填空。
Private Sub Command1_Click( )
DimX(3,3)
For I=1 To 3
ForJ=1 To 3
If______Then
X(I,J)=1
End If
If I<J Then
X(I,J)=-1
End If
Next J
NextI
ForI=1 To 3
ForJ=1 To 3
PrintX(I.J);
NextJ
Print
NeXtI
End SUb