在窗体上画2个命令按钮，名称分别为Command1、command2，并编写如下程序

C．onst n=5,m=4

D．im a（m,n）

Private Sub Command1_Click（）

K=1

F．or i=1 To m

F．or j=1 To n

a（i,j）=k

k=k+1

Next j

Next i

Private Sub Command2_Click（）

Summ=0

F．or i=1 To m

F．or j=1 To n

If i=1 Or i=m Then

Summ=summ+a（i,j）

E．lse

If j=I Or j=n Then

Summ=summ+a（i,j）

E．nd If

E．nd If

Next j

Next i

Print summ

E．nd Sub

过程Command1_Click（）的作用是二维数组a 中存放1个 m行n列的矩阵；过程Command2_Click（）的作用是（ ）。

A．计算矩阵外围一圈元素的累加和

B．计算矩阵除外一圈以外的所有元素的累加和

C．计算矩阵第1列和最后一列元素的累加和

D．计算矩阵第1行和最后一行元素的累加和

[单选题]在窗体上画两个命令按钮，名称分别为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=su

[单选题]（ 35 ）在窗体上画 2 个命令按钮，名称分别为 Command1 、 command2 ，并编写如下程序C．onst n=5,m=4D．im a （ m,n ）Private Sub Command1_Click （）K=1F．or i=1 To mF．or j=1 To na （ i,j ） =kk=k+1Next jNext iE．nd SubPrivate Sub Command2_Click （）Summ=0F．or i=1 To mF．or j=1 To nIf i=1 Or i=

[主观题]在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如图所示。请填空。Option Base 1D．im a（3,2）As IntegerPrivate Sub Command1_Click（）F．or i = 1 To 3F．or j = 1 To 2________ = i + jNext jNext iE

[单选题]在窗体上画—个命令按钮(名称为Command1)，并编写如下代码：Function Fun1 (ByVala As Integer, b As Integer)As Integer Dim t As Integer t=a-b b=t+ a Fun 1=t+ bEnd FunctionPrivate Sub Command1_ Click() Dim x As Integer x=10 Print Fun1(Fun1 (x,(Fun1(x，x-1))),x-1)End Sub程序运行后，单击命令

[试题]在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：F．unction Fun（x As Integer,ByVal y As Integer）As Integerx=x+yIf x<0 ThenF．un=xE．lseF．un=yE．nd IfE．nd FunctionPrivate Sub Command1_Click（）D．im a As Integer,b As Integera=-10：b=5Text1.Text=

[单选题]在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：D．im Flag As BooleanPrivate Sub Command1_Click（）D．im intNum As IntegerintNum=InputBox（"请输入："）If Flag ThenPrint f（intNum）E．nd IfE．nd SubF．unction f（X As Integer）As IntegerIf X<10 ThenY=XE．lseY=X+10E．nd Iff=YE．nd F

[单选题]（ 33 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写如下事件过程Option Base 1Pribate Sub Command1_Click （）D．im a （ 5.5 ） As IntegerF．or i=1 To 5F．or j=1to5a （ i+j ） *5/10Next jNext is=0F．or i=1 To 5s=s+a （ i,i ）Next iPrint sE．nd Sub程序运行后，单击命令按钮，输出结果是（ ）A． ） 15B． ） 13C．

[单选题]（ 28 ）在窗体上画一个命令按钮（名称为 Command1 ） ，并编写如下代码：F．unctin Fun1(Byval a As Integer ,b As Integer) As IntegerD．im t As Integert=a-bb=t+aF．un1=t+bE．nd FunctionPrivate Sub Command1_Click()D．im x As IntegerX=10Print Fun1(Fun1(x,(Fun1(x,x-1))),x-1)E．nd Sub程序运行后，单

[单选题]在窗体上画了两个按钮控件Command1和Command2，有如下程序： Private Sub Command1_Click() Print "Visual"； End Sub Private Sub Command2_Click() Print "Basic"； End Sub Private Sub Form_Load() CommandCancel=True Command1.Cancel=True End Sub 执行程序后，按键盘Cancel键，在窗体上输出的结果是A．Bas

[单选题]在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click（）D．im a（10）As IntegerD．im x As IntegerF．or i=1 To 10a（i）=8+iNextx=2Print a（f（x）+x）E．nd SubF．unction f（x As Integer）x=x+3f=xE．nd Function程序运行后，单击命令按钮，输出结果为（ ）。A．12B．15C．17D．18