Question

VB控件数组做多窗体

想用VB做一个输入成绩计算成绩的多窗体界面

像这样的
在点开输入成绩窗体时，返回按钮要怎么做？
界面是

编码是
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 6
cj(i) = Val(Text(i).Text)
Next
Form2.Hide
Form1.Show
End Sub

为什么运行之后显示子程序或函数未定义？





Answer 1

'Form1窗体代码：
Private WithEvents frm2 As Form2
Private cj_value() As Single
Private Sub Command1_Click()
If frm2 Is Nothing Then
Set frm2 = New Form2
End If
frm2.Show
End Sub

Private Sub Form_Load()
Command1.Caption = "输入成绩"
Command2.Caption = "计算成绩"
Command3.Caption = "结束"
End Sub

Private Sub frm2_ReturnValue(cj() As Single)
cj_value = cj
End Sub

'Form2窗体代码
Public Event ReturnValue(cj() As Single)

Private Sub Command1_Click()
Dim i As Integer
Dim cj(5) As Single
For i = 0 To 5
cj(i) = Val(Text1(i).Text)
Next
RaiseEvent ReturnValue(cj) '返回输入值
Unload Me
End Sub

Private Sub Form_Load()
Dim i As Integer, j As Integer
Text1(0).Text = ""
Command1.Caption = "返回"
For i = 1 To 5
Load Text1(i)
Text1(i).Visible = True
If i Mod 2 = 1 Then
Text1(i).Left = Text1(0).Left + 3500
Text1(i).Top = Text1(i - 1).Top
Else
Text1(i).Left = Text1(i).Left
Text1(i).Top = Text1(i - 1).Top + 500
End If
Next
End Sub

追问

你说的太难了我看不太懂……
WithEvents frm2 这句就不明白啦 我学的是最基础的VB……

追答

cj(i)=val(Text1(i).text),这句Text后是不是少个1

追问

这个我按您说得改了，还是不行 显示【错误的参数号或无效的属性赋值】

追答

你应该将text1的index属性设置为0，才可以使用控件数组

Answer 2

cj数组变量没定义
dim cj(1 to 6)

追问

听你的改了一下，
Private Sub Command1_Click()
Dim i As Integer
Dim cj(1 to 6) As Long
For i = 1 To 6
cj(i) = Val(Text(i).Text)
Next
Form2.Hide
Form1.Show
End Sub

可是怎么还是那个错误？

追答

错误在哪一行？

追问

在cj（i）=Val（Text（i）.Text）

追答

那错误的可能 就是 你textbox控件数组 的名称是否正确

仔细检查吧
6个textbox控件 是否统一名称为 text 并且 index是1-6