INPUT"请输入一个数"to score DO CASE CASE score>=400 ?S1=(X-400)*0.1+67 CASE score>=300 ?S2=(X-300)*
问题描述:
INPUT"请输入一个数"to score DO CASE CASE score>=400 ?S1=(X-400)*0.1+67 CASE score>=300 ?S2=(X-300)*
错在哪?
答
Private Sub Command1_Click()Dim str1 As String,str2 As String,scorestr1 = "成绩输入":str2 = "请输入一个百分制的成绩"Form1.Clslab1:score = InputBox(str2,str1)If IsNumeric(score) Thenscore = Val(score)I...