单项选择题

下面程序执行时，在窗体上显示的是
Private Sub Command1_Click()
Dim a(10)
For k=1 To 10
a(k)=11-k
Next k
Print a(a(3)\a(7) Mod a(5))
End Sub

A) 3 B) 5 C) 7 D) 9

<上一题目录下一题>

热门试题

单项选择题

有人编写了如下程序： Private Sub Form_Click() Dim s As Integer, x As Integer s=0 x=0 Do While s=10000 x=x+1 s=s+x^2 Loop Print s End Sub 上述程序的功能是：计算s=1+22+32+…+n2+…，直到s＞10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是( )。

A) 把x=0改为x=1
B) 把Do While s=10000改为Do While s＜=10000
C) 把Do While s=10000改为Do while s＞10000
D) 交换x=x+1和s=s+x^2的位置

单项选择题

某人编写了一个能够返回数组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)

相关试题