若一个n阶矩阵A中的元素满足：A_ij=A<

有以下程序：int sub(int n) { return(n/10+n%10); }void main(){ int x,y; scanf("%d",&x); y=sub(sub(sub(x))); printf("%d\n",y);}若运行时输入：4321<回车>，程序的输出结果是。

在窗体上画两个命令按钮，名称分别为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 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行和最后一行元素的累加和

有如下一个Sub过程： Sub mlt(ParamArray numbers()) n=1 For Each x In numbers n=n*x Next x Print n End Sub 在一个事件过程中如下调用该Sub过程： Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为( )。

A．12

B．24

C．36

D．48

有以下程序：

int sub(int n) { return(n/10+n%10); }

main()

{ int x, y;

scanf("% d", &x);

y=sub(sub(sub(x)));

printf("% d\n", y);

}

若运行时输入：1234＜回车＞，程序的输出结果是【 】。

请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。

Private Sub Command1_Click（）

Dim s（6, 6）

For i=1 To 6

For j=1 To 6

If i=j Then

【7】

Else

【8】

End If

Print 【9】

Next j

Print

Next i

End Sub

以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。

该程序运行结果见下图。

Private Sub Form_ click()

Dim s(10, 10) As Integer

For n = 1 To 10

For m = 1 To 10

If【 】Or【 】Then

s (n, m) = 1

Else

s (n, m) = 0

End If

Next m

Next n

For n = 1 To 10

For【 】。

Picturel. Print Tab(m * 3); s(n, m)

Next m

Print

Next n

End Sub

1+ + + +…….n 最大的n。请填空

Private Sub Command1__Click（）

Dim s ,m,n AS Integer

m=Val（InputBox（“请输入一个大于100的整数”））

n=_______

s=0

Do While s N=n+1

S=s+n*n

Loop

Print “满足不等式的最大n是_______

End Sub

在窗体中添加一个命令按钮，编写如下程序： Private Sub Subl(p,m,n) p=p+1:m=m+1:n=n+1 Print"subl:";p;m;n End Sub Private Sub Command1_Click() al=1:b=2:c1=3 Call Subl(a,b1+3,c1) Print"Main:";a1;b1;c1 End Sub 程序运行后，输出结果为

A．Sub：2 6 4 Main：2 6 4

B．Sub：2 6 4 Main：2 6 4

C．Sub：2 6 4 Main：1 2 3

D．Sub：2 6 4 Main：2 2 3

有以下程序int sub(int n){ return(n%10+n/10); }main(){ int x,y; scanf("%d",&x); y=sub(sub(x)); printf("%d\n",y);}若运行时输入：248<回车>，程序的输出结果是