[单项选择]在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
OPtion Base l
Private Sub Commandl_Click( )
d=0
c=10
x=Array(10，12，21，32，24)
For i=1 To 5
If x(i)＞c Then
d=d+x(i)
C=x(i)
Else
d=d-c
End lf
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为
A. 89
B. 99
C. 23
D. 77

更多"在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： "的相关试题:

[单项选择]在窗体上画一个名为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 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 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

查看答案

[单项选择]在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click（　）
Dim a
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. 1234
C. 34
D. 12

查看答案

[单项选择]在窗体上画一个命令按钮,名称为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 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 l 　　Private Sub Command1 Click（　）　　Dim a 　　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. 1234
C. 34
D. 12

查看答案

[单项选择]在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程；
Option Base 0
Private Sub Command1_Click（　）
Dim city As Variant
city=Array("北京", "上海", "天津", "重庆")
Print city(1)
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是______。
A. 空白
B. 错误提示
C. 北京
D. 上海

查看答案

[填空题]在窗体上画一个名称为Command1的命令按钮。编写如下程序：
Option Base1
Private Sub Command1_Click（　）
Dim a(10) As Integer
For i=1 To 10
a(i)=i
Next
Call swap( (11) )
For i=1 To 10
Print a(i)；
Next
End Sub
Sub swap(b（　）As Integer)
n= (12)
Fori=1 To n/2
t=b(i)
b(i)=b(n)
b(n)=t
(13)
Next
End Sub
上述程序的功能是：通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换……请填空。

查看答案

我来回答:

提交