Question

VB下标越界问题

我要做个小学生四则运算，设定题目总数时想要在inputbox里设定默认为10（Private Sub redo_Click()
s = InputBox("设置出题数量", "请输入出题总数", "10")
amountofproblem = Val(s)）但在form_load里amountofproblem = 10
ReDim a(1 To amountofproblem, 1 To 3) As String, b(1 To 4) As String
For i = 1 To amountofproblem。在command1_click里If i > amountofproblem Then
ans = MsgBox("您已经答完题目，请查看错误报告！", vbOKOnly + vbInformation, "提示！")
Form2.Show。其中command1.Click中的a(i,1)下标越界了。我知道什么原因。但是想重新设定一个出题总数，不设定出题总数就是10，我该怎么办？重金悬赏高手。
我定义amountofproblem和s了

Answer 1

amountofproblem和Dim a() As String, b() As String 是模块级变量
Private Sub redo_Click()
s = InputBox("设置出题数量", "请输入出题总数", "10")
amountofproblem = Val(s)）
ReDim a(1 To amountofproblem, 1 To 3), b(1 To 4)不能有 as……之类的关键字。
这样就能重新设定出题总数

command1.Click中的a(i,1)下标越界了，你可以在引用a(i,1)前debug.print i看一下i的值

Answer 2

没有完整的程序不好说

你这样改一下也许就好了：
把s = InputBox("设置出题数量", "请输入出题总数", "10")
改为s = Val(InputBox("设置出题数量", "请输入出题总数", "10") )

如果还不行，只有把全部程序发过来给你看看了。

Answer 3

Dim s As Integer
Private Sub redo_Click()
s = InputBox("设置出题数量", "请输入出题总数", "10")
ReDim a(1 To s, 1 To 3) As String, b(1 To 4) As String
End Sub
'改题数
Sub change()
s = InputBox("设置出题数量", "请输入出题总数", "10")
ReDim a(1 To s, 1 To 3) As String, b(1 To 4) As String
End Sub

Answer 4

你没有定义amountofproblem为Integer
数组里必需是Integer才行！
你定义后试试看！
加上这两句：
DIM amountofproblem AS Integer
DIM S AS Integer

Answer 5

你在这里找下答案把·我懒得去找
呵呵
http://www.08o8.com/Class.asp?ID=125