[单项选择]在窗体上画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行和最后一行元素的累加和

更多"在窗体上画2个命令按钮,名称分别为Command1、Command2,"的相关试题:

查看答案

[填空题]在窗体上画两个名称分别为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行和最后—行元素的累加和

查看答案

[填空题]

在窗体上面两个名称分别为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

查看答案

[填空题]

在窗体上画1个名称为Commandl的命令按钮和2个名称分别为Text1、Text2的文本框，如下图所示，然后编写如下程序；

Function Fun(x As Integer,ByVhly As Inmgcr)As Integer
X=K+y
If x＜0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Cornmandl_Click（　）
Dima As Integer,b As Integer
a=-10:b=5
Tcxt1,Text=Fun(a,b)
Text2,Text=Fun(a,b)
End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是上 [14] 和 [15] 。

查看答案

[填空题]设有代码如下，当双击窗体内的某个位置时，命令按钮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

查看答案

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

查看答案

[单项选择]窗体中有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两个命令按钮。现编写以下程序： 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。要求：(1)若单击Command1命令按钮，程序将当前表的记录指针上移一位，并刷新表单中所有的值；其中，若指针已处于文件的首记录，则将其自身(Command1命令按钮)设置为不能被激活状态。(2)若单击Command2命令按钮，程序将当前表的记录指针下移一位，并刷新表单中所有的值；其中，若指针已处于文件的末记录，则将其自身(Command2命令按钮)设置为不能被激活状态。

查看答案

[单项选择]在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labe11、Labe12的标签，然后编写如下程序代码： Private X As Integer Private Sub Commandl_Click（　） X=5:Y=3 Callproc(X,Y) Labe11.Caption=X Label2.Caption=Y End Sub Private Sub proc(ByVala As Integer,ByValb As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是( )。
A. 5和3
B. 25和3
C. 25和6
D. 5和6

查看答案

[单项选择]在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码：
Dim SaveAll As String
Private Sub Form_Load（　）
Show
Text1. Text = " "
Text1. SetFocus
End Sub
Private Sub Command1_Click（　）
Text1. Text = LCase(SaveAll) + SaveAll
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll = SaveAll + Chr(KeyAscii)
End Sub
程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为( )。
A. vbVB
B. 不显示任何信息
C. VB
D. 出错

查看答案

我来回答:

提交