在窗体上画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

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 中存放1个 m行n列的矩阵；过程Command2_Click（）的作用是（ ）。

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

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

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

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

（ 35 ）在窗体上画 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=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 中存放 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=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，并编写如下程序 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行和最后—行元素的累加和

下列语句段中不是死循环的是()。

A、intI=100;while(1){I=I0+1;if(I=20)break;}

B、intI;sum=0;for(I=1;;I++)sum=sum+1;

C、intk=0;do{++k;}while(k>=0);

D、ints=3379;while(s++%2+3%2)s++;

设有如下程序： Private Sub Command1_Click() Dim sum As Double, k As Double sum=0 n=0 For i=1 To 5 k=n/i n=n+1 sum=sum+k Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是______。

A．1+1/2+2/3+3/4+4/5

B．1+1/2+2/3+3/4

C．1/2+2/3+3/4+4/5

D．1+1/2+1/3+1/4+1/5