试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省诸暨市牌头中学2017-2018学年高二下学期信息技术第一次月考试题
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next i
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是（ ）
程序运行界面如下图所示。
Dim a(0 To 5) As Integer
Dim i As Integer '①
a(0) = 1 '②
a(i) = 2 * a(i - 1) + 1 '③
Text1.Text = Str(a(6)) '④
Dim a As Integer, b As Integer
a = 10 '①
b = 20 '②
Text1.Text = "a+b=" + Val(a + b) '③
End Sub '④
引起该错误的原因是（ ）
试题篮
