Question

VB程序无法输出是为什么，按输出listbox不显示

Private Sub Command1_Click()
Dim n%
n = UBound(stud)
ReDim Preserve stud(n + 1)
stud(n + 1).sign = Text1.Text
stud(n + 1).moisture = Text2.Text
stud(n + 1).money = Val(Text3.Text)
stud(n + 1).color = Combo1.Text
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
End Sub

Private Sub Command2_Click()
Dim i%
n = UBound(stud)
Picture1.Cls
Picture1.Print "品牌 滋润 价格 色号"
Picture1.Print "___________________________________________"
For i = 0 To n
With stud(i)
picturel.Print Trim(.sign); Tab(10); (moisture); Tab(18); (.money); Tab(33); (.color)
End With
Next i
End Sub

Private Sub Command3_Click()
Form3.Show
Form2.Hide
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
ReDim stud(0)
With stud(0)
.sign = "呦呦"
.money = "201720040419"
.moisture = "女"
.color = "河南大学"
End With
End Sub

Private Sub Text2_Change()

End Sub

Answer 1

picturel.Print Trim(.sign); Tab(10); (moisture); Tab(18); (.money); Tab(33); (.color)
改为
Picture1.Print Trim(.sign); Tab(10); .moisture; Tab(18); .money; Tab(33); .color