作者wangpohsiang (翔翔v(￣︶￣)y)
看板Visual_Basic
标题[VB6 ] 如何将结果秀在TEXTBOX上
时间Thu Aug 13 11:47:58 2009
目前小弟程式如下
Private Sub Command1_Click()
A = InputBox("请输入学生姓名")
B = Val(InputBox("请输入学号"))
C = Val(InputBox("请输入平时成绩"))
D = Val(InputBox("请输入期中成绩"))
e = Val(InputBox("请输入期末成绩"))
score = (C * 0.3) + (D * 0.3) + (e * 0.4)
Select Case score
Case Is <= 59
L = "F"
Case 60 To 69
L = "E"
Case 70 To 79
L = "D"
Case 80 To 89
L = "C"
Case 90 To 99
L = "B"
Case Is = 100
L = "A"
Case Else
L = "输入错误，请重新输入"
End Select
Print "学生姓名：";
A, "学号："; B, "学期成绩："; score, "等第为："; L
End Sub
Private Sub Command2_Click()
Cls
End Sub
Private Sub Text1_Change()
TextBox1.Text = A
End Sub
我想将
A 的结果改秀在TEXTBOX上
可是如果照黄色部分打
TextBox1无法显示我想要的结果
请问该如何修改呢?
新手试玩
请各位高手给予建议与指教!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.164.56.71
1F：→ MOONRAKER:阿何必写在「文字变动」事件里面 多此一举 08/13 14:28
2F：→ MOONRAKER:写在主要程式里不就好了 08/13 14:28
3F：→ wangpohsiang:我一开始搞错方向了，後来就改用LABEL写在主程式 08/13 23:49
4F：→ wangpohsiang:问题已解，感谢回覆^^ 08/13 23:49