更多"窗体中有3个按钮Command1、Command2和Command3，"的相关试题:
[单项选择]窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序是
Private Sub Command1_Click（ ）
Command2. Visible=False
Command3. Enabled=True
End Sub
Private Sub Commnd1_Click（ ）
Command2. Visible=False
Command3. Enabled=False
End Sub
Private Sub Command1_Click（ ）
Command2. Enabled=True
Command3. Visible=False
End Sub
Private Sub Command1_Click（ ）
Command2. Visible=True
Command3. Enabled=True
End Sub
[单项选择]窗体中有3个命令按钮，分别命名为Command1、Command2和Command3。当单击Command1按钮时，Command2按钮变为可用，Command3按钮变为不可见。下列Command1的单击事件过程中，正确的是______。
A. Private Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()
[填空题]创建一个窗体，在该窗体中建立两个按钮，分别命名为Command1和Command2。下列程序代码用于实现以下功能：单击命令按钮Command1后，按钮Command1变为不可用，而Cmmnand2设置为可用。请填空。
Private Sub Command1_ Click（ ）
Command1.______ = False
Command1.______ = True
End Sub
[单项选择]窗体上有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和Command2，有如下程序：
Private Sub Conunand1_Click( )
Print "Visual"；
End Sub
Private Sub Command2_Click( )
Print "Basic";
End Sub
Private Sub Form_Load( )
Comraand2. Cancel=True
Coramand1. Cancel=True
End Sub
执行程序后，按键盘Cancel键，在窗体上输出结果是______。
A. Basic
B. Visual
C. Cancel
D. True
[单项选择]在窗体上画2个命令按钮，名称分别为Command1、Command2，然后编写下列事件过程。
Const n=5．m=4
Dim a(m，n)
Private Sub+Command1 Click（ ）
k=1
For i=1 To m
For j=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 To m
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中存放1个m行n列的矩阵；过程Command2 Click（ ）的作用是( )。
A. 计算矩阵外围一圈元素的累加和
B. 计算矩阵除外围一圈以外的所有元素的累加和
C. 计算矩阵第1列和最后一列元素的累加和
D. 计算矩阵第1行和最后一行元素的累加和
[单项选择]窗体上画了两个按钮按钮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
[单项选择]在窗体上画2个命令按钮,名称分别为Command1、Command2,并编写如下程序:
Const n=5,m=4
Dim a(m,n)
Private Sub Command1-Click（ ）
k=1
For i=1 To m
For i=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 To m
For i=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中存放1个m行n列的矩阵；过程Command2-Click（ ）的作用是【 】
A. 计算矩阵外围一圈元素的累加和
B. 计算矩阵除外围一圈以外的所有元素的累加和
C. 计算矩阵第1列和最后一列元素的累加和
D. 计算矩阵第1行和最后一行元素的累加和
[单项选择]在窗体上画了两个按钮控件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
[单项选择]在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码：
Private Sub Command1_Click( )
Text1.Text="AB"
End Sub
Private Sub Command2_Cliek( )
Text1.Text="CD"
End Sub
首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示
A. AB
B. CD
C. ABED
D. CDAB
[单项选择]在窗体上画两个命令按钮，名称分别为Command1、Command2，并编写如下程序：
Const n=5, m=4
Dim a(m,n)
Private Sub Command1_Click（ ）
K=1
For i=1 To m
For j=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 To m
For j=1 To n
If i=1 Or i=m Then
Summ=summ+a(i,j)
Else
If j=i 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. 计算矩阵第一列和最后一列元素的累加和
D. 计算矩阵第一行和最后一行元素的累加和
[填空题]设有代码如下，当双击窗体内的某个位置时，命令按钮Command1和命令按钮Command2的标题分别为11、 【9】 。
Private SubForm_Load（ ）
Command1. Caption = "1"
Command2. Caption = "2"
End Sub
Private Sub Form_Click（ ）
Command1. Caption = "11"
End Sub
Private Sub Form_DblC1ick( )
Command2. caption = 22
End Sub
