Question

我试了一个用VB编写的程序，但是运行不出来 但还是就找不出错来，请哪位高手帮一下忙啊

Private Sub commmand_click(index As Integer)
Dim stdu(1 To 10) As stdutype, n%, i%, max!, maxi%

Select Case index
Case 0
If n < 100 Then
n = n + 1
i = n
With stdu(n)
.name = Text1.Text: .special = Text2.Text: .total = Val(Text3.Text)
End With
Text1 = "": Text2 = "": Text3 = ""

Else
MsgBox "输入人数超过声明的个数"
End
End If
Case 1
if i >1Then i = i - 1
With stdu(i)
Text1 = .name: Text2 = .special: Text3 = .total
End With
Case 2
if i < n Then i = i + 1
With stdu(i)
Text1 = .name: Text2 = .special: Text3 = .total
End With
Case 3
max = stdu(1).total
maxi = 1
For j = 2 To n
If stdu(j).total > max Then
max = stdu(j).total
maxii = j
End If
Next j
With stdu(maxi)
Text1 = .name: Text2 = .special: Text3 = .total
End With
i = maxi
End Select
label5 = i & "/" & n
End Sub

Answer 1

可能存在以下几个问题：

1、commmand_click(index As Integer) 有可能打错了，应该是command1_click(index As Integer)

2、程序中用到n,i等变量，都是局部变量，每次都会初始化为0，所以程序执行有问题。可以把Dim stdu(1 To 10) As stdutype, n%, i%, max!, maxi%
放到窗体变量区

3、Dim stdu(1 To 10) As stdutype只定义了10个元素，但程序里判断了100，应该有错。

Answer 2

你的代码错的离谱,看不下去了....
你就说要实现什么功能吧,帮你重新写代码