[填空题]
在窗体上面两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如下图所示。请填空。

Option Base 1
Dima(3，2)As Integer
Private Sub Commandl_Click（　）
Fori=1 To 3
Forj=1 To 2
[9] =i+j
Nextj
Nexti
End Sub
Private Sub Command2_Click（　）
Forj=1 To 3
Fori=1 To 2
s=s+a(j，i)
Nexti
Nextj
Text1.Text= [10]
End Sub

更多"在窗体上面两个名称分别为Command1和Command2、标题分别为"的相关试题:

[填空题]

在窗体上面两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如下图所示。请填空。

Option Base 1
Dima(3，2)As Integer
Private Sub Commandl_Click（　）
Fori=1 To 3
Forj=1 To 2
[9] =i+j
Nextj
Nexti
End Sub
Private Sub Command2_Click（　）
Forj=1 To 3
Fori=1 To 2
s=s+a(j，i)
Nexti
Nextj
Text1.Text= [10]
End Sub

查看答案

[填空题]在窗体上画两个名称分别为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，并编写如下程序：
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，并编写如下程序
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行和最后—行元素的累加和

查看答案

[单项选择]在窗体上画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两个命令按钮。现编写以下程序： Option Base 0 Dim a（　）As Integer,m As Integer Private Sub Command1_Click（　） m=InputBox("请输入—个正整数") ReDim a(m) End Sub Private Sub Command2_Click（　） m=InputBox("请输入—个正整数") ReDim a(m) End Sub 运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是______。
A. 5
B. 6
C. 10
D. 11

查看答案

[单项选择]在窗体上画了两个按钮控件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

查看答案

[单项选择]在窗体上画两个滚动条，名称分别为Hscrolll、Hscroll2;六个标签，名称分别为Label1、Label2、 Label3、Label4、Label5、Label6，其中标签Label4-Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是 ______。
A. Private Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Commandl_click()
D. Private Sub Command1_Click()

查看答案

[单项选择]在窗体上画两个滚动条，名称分别为Hscro111、Hscro112；六个标签，名称分别为Labell、 Labe12、Labe13、Labe14、Labe15、Labe16，其中标签Labe14～Labe16分别显示“A”、“B”、 “A*B”等文字信息，标签Labe11、Labe12分别显示其右侧的滚动条的数值， Labe13．显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Labe11、Labe12中显示的两个值求积，并将结果显示在Labe13中。以下不能实现上述功能的事件过程是______。
A. Private Sub Commandl_Click() Labe13.Caption=Str(Val(LabelCaptio*Val(Labe12.Capfio) End Sub
B. Private Sub Commandl_Click() Labe13.Caption=HScro111.Value*HScro112.Value End Sub
C. Private Sub Commandl_Cliek() Labe13.Caption=HScrolll*HScro112 End Sub
D. Private Sub Commandl_Click() Labe13.Caption=HScro111.Text*HScro112.Text End Sub

查看答案

[填空题]在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、 Label2。要求程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空使程序完整。 Private Sub Combo1_Click（　） Call ShowItem(Combo1,Label1) End Sub Private Sub Combo2_Click（　） Call ShowItem(Combo2,Label2) End Sub Public Sub ShowItem(tmpCombo As ComboBox,tmpLabel As Label) ______.Caption=______.Text End Sub

查看答案

我来回答:

提交