单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
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
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private Sub Command1_Click() Dim X As Integer, Y As Integer X=5 Y=3 Call proc(X,Y) Label1.Caption=X Label2.Caption=Y End Sub Private Sub proc(a As Integer, ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是
A．25和3
B．5和3
C．25和6
D．5和6
单项选择题
某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下： Function MaxValue(a() As Integer) As Integer Dim max% max=1 For k=2 To 10 If a(k)＞a(max) Then max=k End If Next k MaxValue=max End Function 程序运行时，发现函数过程的返回值是错的，需要修改。下面的修改方案中正确的是
A．语句max=1应改为max=a(1)
B．语句For k=2 To 10应改为For k=1 To 10
C．If语句中的条件a(k)＞a(max)应改为a(k)＞max
D．语句MaxValue=max应改为MaxValue=a(max)
相关试题