[VB6 ] 如何將結果秀在TEXTBOX上
目前小弟程式如下
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
→
08/13 14:28, , 1F
08/13 14:28, 1F
→
08/13 14:28, , 2F
08/13 14:28, 2F
→
08/13 23:49, , 3F
08/13 23:49, 3F
→
08/13 23:49, , 4F
08/13 23:49, 4F