更多"下面程序段实现单击命令按钮Command1时输出如下结果: 1 -"的相关试题:
[填空题]下面程序代码实现单击命令按钮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
[单项选择]单击命令按钮时,下列程序段的执行结果为( )。
Private Sub Command1_Crick( )
Print Myfunc(24,18)
End Sub
Public Function MyFunc(m As Integer,n As Integer)As Integer
Do Whilem<>n
Do While m>n:m=m-n:Loop
Do While m<n:n=n-m:Loop
Loop
MyFunc=m
End Function
A. 2
B. 4
C. 6
D. 8
[单项选择]单击命令按钮时,下列程序段的执行结果为( )。
Private Sub Command1_Click( )
Dim a As Integer, b As Integer, c As Integer
a-2:b=4:c=6
Call S1(a, b)
Print "a="; a; "b="; b; "c="; c
Call S2(a, b)
Print "a ="; a; "b="; b; "c="; c;
End Sub
Private Sub S1(x As Integer, y As Integer)
Dim c As Integer
x=2*x:y=y+2:c=x+y
End Sub
Sub S2(x As Integer, ByVal y As Integer)
Dim e As Integer
x=2*x:y=y+2:e=x+y
End Sub
A. a=4 b=6 c=6
B. a=8 b=6 c=6
C. a=4 b=6 c=6
D. a=8 b=6 c=6
[单项选择]在窗体上添加一个命令按钮,名为Command1,其单击事件中有下列程序段,则事件过程执行后,文本框中输出( )。
For i=1 To 4
For j=1 To 3
x=3
For k=1 To 2
K=x+3
Next k
Next j
Next i
Text1.Text=Str(x)
A. 3
B. 6
C. 9
D. 12
[单项选择]在窗体上添加一个命令按钮,名为Command1,其单击事件中有如下程序段,则事件过程执行后,文本框中输出( )。
For i= 1 To 4
For j = 1 To 3
x=3
For k =1 To 2
x=x+3
Next k
Next j
Next i
Text1.Text = Str(x)
A. 3
B. 6
C. 9
D. 12
[单项选择]窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是
Private Sub Command1_Click( )
Dim a
a = Array(1,2,3,4,5)
For k = 1 To4
s=s+a(k)
Next
Print S
End Sub
A. 10
B. 14
C. 15
D. 120
[单项选择]窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是( )。
Private Sub Command1_Click( )
Dim a
a=Array(1,2,3,4,5)
For k=1 To 4
S=s+a(k)
Next k
Print s
End Sub
A. 10
B. 14
C. 15
D. 120
[填空题]以下程序代码实现单击命令按钮Commandl时生成20个(0,100)之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。
Dimalt(1 To 20)
Fori=1 To 20
arr(i)=
Nexti
Sub=0
For Each X In arr
If X>50 Then
Print Tab(20);X
Sum=Sum+X
End If
Next X
Print Tab(20);"Sub=";Sub