更多"在窗体上绘制一个名称为Command1的命令按钮,然后编写如下程序: "的相关试题:
[单项选择]在窗体上画一个名为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click( ) Dim Arr Arr=Array(1,2,3,4,5) j = 1 For i=5 To 1 Step-1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后,单击命令按钮,输出结果为( )。
A. 54321
B. 123
C. 12345
D. 345
[单项选择]在窗体上画一个名为Command1的命令按钮,然后编写下列程序:
Option Base 1
Private Sub Command1_Click( )
Dim Arr
Arr=Array(1,2,3,4,5)
j=1
For i=5 To 1 Step-1
S=S+Arr(i)*j
j=j*10
Next
Print S
End Sub
程序运行后,单击命令按钮,输出结果是( )。
A. 54321
B. 123
C. 12345
D. 345
[单项选择]在窗体上画一个名为Command1的命令按钮,然后编写如下代码:
Option Base 1
Private Sub Command1_Click( )
Dim a
a=Array(1,2,3,4)
j=1
For j=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序,其输出结果是
A. 1234
B. 12
C. 34
D. 4321
[单项选择]在窗体上画一个名为Command1的命令按钮,然后编写如下代码:
Option Base 1
Private Sub Command1_Click( )
Dim a
a=Array(1,2,3,4)
j=1
For i=3 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序,其输出结果是
A. 1234
B. 12
C. 34
D. 4321
[单项选择]窗体上命令按钮Command1的事件过程如下:
Option Base 1
Private Sub Command1_Click( )
Dim a(4,4)As Variant
For i=1 To 4
For j=1 To 4
a(i,j)=(i-1)*3+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print a(i,j)
Next j
Next i
End Sub
该程序执行后,输出结果是( )。
A. 9
B. 7
C. 9
D. 8
[单项选择]窗体上有Command1、Command2两个命令按钮。现编写以下程序:
Option Base 0
Dim a( ) As Integer, in As Integer
Private Sub Command1_Click( )
m=InputBox("请输入一个正整数")
ReDim a(m)
End Sub
Private Sub Command2_Click( )
In=InputBox("请输入一个正整数")
ReDim a(m)
End Sub
运行程序,单击Command1后输入整数10,再单击Command2后输入整数5,则数组a中元素的个数是
A. 5
B. 6
C. 10
D. 11
[单项选择]在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:
Option Base 1
Dim e As Integer,d As Integer
d=0
c=6
X=Array(2,4,6,8,10,12)
For i=1 To 6
If X(i)>c Then
d=d+X(i)
c=X(i)
Else
d=d-c
Eles If
Next i
Print d
End Sub
程序运行后,单击命令按钮,则在窗体上输出的内容为( )。
A. 10
B. 12
C. 16
D. 20
[单项选择]在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:
Option Base 1
Private Sub Commandl_Click0
Dim C As Integer, d As Integer
d=0
c=6
X = Array(2, 4, 6, 8, 10, 12)
For i= 1 To 6
If X(i) > c Then
d = d + X(i)
c = X(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后,单击命令按钮,则在窗体上输出的内容为( )。
A. 10
B. 12
C. 16
D. 20
[填空题]在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:
Option Base 1
Private Sub Command1_Click( )
Dim Arr
Arr=Array(43,68,-25,65,-78,12,-79,43,-94,72)
pos=0
neg=0
For k=1 To 10
If Arr(k)>0 Then
______
Else
______ End If
Next k
Print pos,neg
End Sub
以上程序的功能是计算并输出数组Arr中10个数的正数之和pos与负数之和neg,请填空。