Question

VB代码哪里有错？？一个控件数组Index为0，1，2 按计算按钮，text中就显示结果...

Dim i As Double
Dim j As Double
Private Sub Command1_Click()
i = 1
j = 1
Select Case Index
Case o
Do While (i < 11)
j = j * i
i = i + 1
Loop
Text1.Text = Val(j)
Case 1
Do While (i < 12)
j = i * j
i = i + 1
Loop
Text1.Text = Val(j)
Case 2
Do While (i < 13)
j = i * j
i = i + 1
Loop
Text1.Text = Val(j)
End Select
End Sub

Answer 1

Dim i As Double
Dim j As Double

Private Sub Command1_Click()
i = 1
j = 1
If Option1(0).Value Then
Do While (i < 11)
j = j * i
i = i + 1
Loop
ElseIf Option1(1).Value Then
Do While (i < 12)
j = i * j
i = i + 1
Loop
ElseIf Option1(2).Value Then
Do While (i < 13)
j = i * j
i = i + 1
Loop
End If
Text1.Text = j
End Sub

Answer 2

"Case o"这一句有问题，你把数字“0”打成字母“o”了！