单项选择题

在窗体上画—今名称为Cmmand1的命令按钮，然后编写如下事件过程
Option Base 1
Private Sub Command1_Click()
Dim a(5,5)As Integer
For i=1 To 5
For j=1 To 5
a(i,j)=(i+j)*5\10
Next j
Next i
s=0
For i=1 To 5
s=s+a(i,i)
Next i
Print s
End Sub
输出的结果是（）

A．15
B．13
C．11
D．9

<上一题目录下一题>

热门试题

单项选择题

窗体上有一个名为List1的列表框，其中已经输入了若干个项目(如图所示)；还有两个文本框，名称分别为Text1、Text2，一个名称为Command1的命令按钮，并有以下程序： Private Sub Command1_Click() Dim str As String,s As String,k As Integer s=Text1 str= For k=List1.ListCount-1 To 0 Step-1 IfInStr(List1.List(k),s)＞0 Then str=str&List1.List(k)& End If Next k If str= Then Text2= 没有匹配项目 Else Text2=str End If End Sub 程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（）。

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行和最后—行元素的累加和

相关试题