更多"在窗体上画两个命令按钮，名称分别为Command1、Command2，"的相关试题:
[单项选择]
在窗体上画两个命令按钮，名称分别为Command1、Command2，并编写如下程序
Const n=5,m=4
Dim a(m,n)
Private Sub Command1_Click（ ）
k=1
For i=1 To m
Forj=1 To n
a(i,j)=k
k=k+1
Next j
Next i
End Sub
Private Sub Command2_Click（ ）
summ=0
For i=1 Tom
For j=1 To n
If i=1 Or i=m Then
summ=summ+a(i,j)
Else
If j=1 Or j=n Then
summ=summ+a(i,j)
End If
End If
Next j
Next i
Print summ
End Sub
过程Command1 Click（ ）的作用是在二锥数组a中存放—个m行n列的矩阵；过程Command2 Click（ ）的作用是（）。
A. 计算矩阵外围一圈元素的累加和
B. 计算矩外围一圈以外的所有元素的累加和
C. 计算矩阵第1列和最后—列元素的累加和
D. 计算矩阵第1行和最后—行元素的累加和
[填空题]在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并对文本框中显示出来，如图所示。请填空。[*] Option Base 1
Dim a(3，2)As Integer
Private Sub Command1_Click( )
For i=1 To 3
For i=1 To 2
【13】 =i+j
Next j
Next i
End Sub
Private Sub Command2_Click( )
Forj=1 To 3
For i=1 To 2
s=s+ 【14】
Next i
Next j
Text1．Text= 【15】
End Sub
[单项选择]在窗体上画了两个按钮控件Command1和Command2，有如下程序：
Private Sub Command1_Click（ ）
Print "Visual"；
End Sub
Private Sub Command2_Click（ ）
Print "Basic"；
End Sub
Private Sub Form_Load（ ）
Command2.Cancel=True
Command1.Cancel=True
End Sub
执行程序后，按键盘Cancel键，在窗体上输出的结果是
A. Basic
B. Visual
C. Cancel
D. True
[单项选择]在窗体上画两个名称分别为Text1，Text2的文本框和一个名称为Command1命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim x As Integer,n As Integer
x=1
n=0
Do While x＜20
x=x*3
n=n+1
Loop
Text1.Text=str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。
A. 15和1
B. 27和3
C. 195和3
D. 600和4
[单项选择]在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1 Click（ ）
Dim x As Integer，n As Integer
x = 1
n = 0
Do While x＜20
x = x * 3
n = n + 1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A. 15和1
B. 27和3
C. 195和3
D. 600和4
[单项选择]在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：
Private Sub func(L As Label)
L.Caption="1234"
End Sub
Private Sub Form_Load（ ）
Label1.Caption="ABCDE"
Label2.Caption=10
End Sub
Private Sub Command1 Click（ ）
a=Val(Label2.Caption)
Call func(Label1)
Label2.Caption=a
End Sub
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为______。
A. ABCD和10
B. 1234和100
C. ABCD和100
D. 1234和10
[单项选择]
在窗体上画两个标签和—个命令按钮，其名称分别为Label1、Labd2和Command1，然后编写如下程序：Private Sub func (L As Label) L.Caption="1234"End SubPrivate Sub Form_ Load（ ） Label1. Caption="ABCDE" Label2．Caplion=10End SubPrivate Sub Command1_ Click（ ） a=Val(Label2. Caption) call func(Label1) Label2.Caption=aEnd Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（）。
A. ABCD和10
B. 1234和100
C. ABCD和100
D. 1234和10
[单项选择]在窗体上画—个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click（ ） X=5:Y=3 Call proc(X,Y) Label1.Caption=X Label2.Caption=Y End Sub Private Sub proc(a As Integer,ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是______。
A. 25和3
B. 5和3
C. 25和6
D. 5和6
[单项选择]在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写下列事件过程：
Private Sub Command1_Click（ ）
x=0
DO While x＜50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为( )
A. 1和0
B. 2和72
C. 3和50
D. 4和168
[单项选择]在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：
Private Sub Command1_Click( )
x = 0: n = 0
Do Until x >= 30
x = (n + 2)* (n + 3)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为________。
(A) 2 和 30
(B) 2 和240
(C) 3 和 50
(D) 4 和30
[单项选择]在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：
Private X As Integer
Private Sub Command1_Click（ ）
X=5:Y=3
Call proc(x,y)
Label1.Caption=x
Labet2.Caption=y
End Sub Private Sub proc(a As Integer，ByVal b As Integer)
X=a*a
Y=b+b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是( )
A. 25和3
B. 5和3
C. 25和6
D. 5和6
