请问以下代码的怎么改？错误点在select case a(i)

代码如下：
Dim a(1 To 50) As Double
Dim i, j As Integer
Dim max, min, d, b, cdow, c(1 To 11) As Double
Dim h As Double
Dim q1, q2, q3, q4, q5, q6, q7, q8, q9, q10 As Integer
Dim cnn As Connection
Set cnn = New Connection
Dim rst As Recordset
cnn.CursorLocation = adUseClient
cnn.Open "PROVIDER=MSDASQL;dsn=myspc;uid=saa;pwd=123;"

Set rst = New Recordset
rst.Open "select 样本1 from " & Combo1.Text, cnn, adOpenStatic, adLockOptimistic
i = 1
While Not rst.EOF
a(i) = rst.Fields(0)
rst.MoveNext
i = i + 1
Wend

min = a(1): max = a(1)

For i = 2 To 50
If a(i) > max Then max = a(i) '计算最大值与最小值
If a(i) < min Then min = a(i)
Next i

Label1.Caption = "MAX=" & max
Label2.Caption = "MIN=" & min
Label5.Caption = "N=50"
d = max
b = min
h = (d - b) / 10 &

我在做博客,请问改代码该怎么改???? 代码错误 不知道怎么改 qq空间,的代码在哪改?怎么改? 怎么改网页的代码 使网页看起来大一点 请问以下程序用vb的next for怎么写？我的错误在哪？ 请问这个ASP分页的错误在哪里？怎么改？谢谢！ 谁能告诉我以下代码的意思 如果我要换一个FLASH改怎么修改 大家看看下面的JS代码有什么错误, 该怎么改？？？？ 代码在运行登陆时出现以下错误： 请问电脑上的时间显示错误怎么改啊？