更多"在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: "的相关试题:
[单项选择]在窗体上放置一个命令按钮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 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 0
Private Sub Commandl_Click( )
Dim A(4)As integer,B(4)As Integer
For k=0 To 2
A(k+1)=InputBox("请输入一个整数")
B(3-k)=A(k+1)
Next k
Print B(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为【 】
A. 0
B. 2
C. 3
D. 4
[单项选择]在窗体上画一个命令按钮,名称为Command1,然后编写下列代码:
Option Base 0
Private Sub Command1 Click( )
Dim A1(4)As Integer,A2(4)As Integer
For k=0 To 2
A1(k+1)=InputBox(”请输入一个整数”)
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为( )。
A. 0
B. 1
C. 2
D. 3
[填空题]在窗体上画一个命令按钮,其名称为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
(8)
Else
(9)
End If
Next k
Print pos, neg
End Sub
以上程序的功能是,计算并输出数组Arr中10个数的正数之和pos与负数之和neg,请填空。
[单项选择]在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:
Option Base 1
Private Sub Command1_Click( )
Dim a As Variant
a = Array(1, 2, 3, 4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i)* j
j = j * 10
Next i
Print s
End Sub
运行上面的程序,单击命令按钮,其输出结果是________。
A. 4321
B. 12
C. 34
D. 1234