菜鸟求助！设计两个窗体~
设计两个窗体，第一个窗体用于输入学生的“姓名”，“身高”和“体重”每次输入一名学生的信息，当输入的姓名为空串时停止输入，弹出第二个窗体，在第二个窗体学生“身高”的平均值和“体重”的合计值。谢谢各位帮忙！ --------------------编程问答-------------------- 用2维数组来存数据，每人输入后确认，存入数组。判断空串后计算数组的相应值 --------------------编程问答-------------------- 再定义2个全局变量,每次保存一个学生信息时,一个变量+这个学生的身高;另一个变量+这个学生的体重--------------------编程问答--------------------
Dim a(), b()--------------------编程问答-------------------- 太佩服你了！你真有心。
Dim i As Long
Private Sub Form_Load()
Label1.Caption = "姓名"
Label2.Caption = "身高"
Label3.Caption = "体重"
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
Dim T1, T2, T3
If KeyCode = vbKeyReturn Then
If Trim(Text1) <> "" And Trim(Text2) <> "" And Trim(Text3) <> "" Then
ReDim Preserve a(i)
a(i) = Val(Text2)
ReDim Preserve b(i)
b(i) = Val(Text3)
Else
MsgBox "数据不全！"
Exit Sub
End If
For j = 0 To UBound(a)
Debug.Print a(j)
T1 = T1 + a(j)
Next
T3 = T1 / (UBound(a) + 1)
For j = 0 To UBound(b)
Debug.Print b(j)
T2 = T2 + b(j)
Next
i = i + 1
Text1 = ""
Text2 = ""
Text3 = ""
Form2.Show
Form2.Print "学生身高的平均值:" & T3
Form2.Print "学生体重”的合计值" & T2
End If
End Sub
--------------------编程问答-------------------- 还可以以下的方法：
使用对话框1.tag保存输入的信息
在弹出第二个对话框时，保存上面的信息，如Info=form1.tag
然后再分别解析出这三个值
补充：VB , VBA
