更多"在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： "的相关试题:
[单项选择]在窗体上画一个命令按钮,名称为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 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，请填空。
[单项选择]在窗体上画一个命令按钮，其名称为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 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 city As Variant
city=Array("北京", "上海", "天津", "重庆")
Print city(1)
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是______。
A. 空白
B. 错误提示
C. 北京
D. 上海
[填空题]在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click（ ）
Dim Art
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，请填空。
[单项选择]在窗体上画一个命令按钮(其Nmne属性为Command1)，然后编写如下代码：
Option Base l
Private Sub Command1_Click( )
Dim a
s=0
a=Array(1，2，2，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
[单项选择]在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click（ ） Dim a(4，4) For i=1 To 4 For i=1 To 4 a(i，j)=(i-1)*3 + i Next j Next i For i=3 To 4 For j=3 To 4 Print a(j，i)； Next j Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容为
A. 6 9 7 10
B. 7 10 8 11
C. 8 11 9 12
D. 9 12 10 13
[填空题]在窗体上画一个名称为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)的值互换……请填空。
[单项选择]在窗体上画一个名称为Command1的命令按钮。有下列程序：
Option Base 1
Private Sub Command1_Click( )
Dim a
a=Array(45，27，34，24，91，37，11，67，82，63)
For i=1 To 9
For j=i+1 To 10
If a(i)＞a(j)Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
程序运行后，单击命令按钮，则窗体上第二行和第三行显示的内容是______。
A. 27和34
B. 34和24
C. 45和63
D. 24和27
