烤烟农民 发表于 2006-5-31 15:35:00

菜鸟求救

<P>偶是一个刚接触VB的小菜鸟<BR>编了一个很简单的程序,如下:<BR>Private Sub Form_Click()<BR>Dim number As Integer<BR>Dim score As Integer<BR>Dim py As String<BR>number = InputBox("请输入学生的学号")<BR>score = InputBox("请输入学生的分数")<BR>Print "学号："; number<BR>Print "分数："; score<BR>Select Case score<BR>Case score &lt;= 39<BR>py = "Fail"<BR>Case score &lt;= 49<BR>py = "Poor"<BR>Case score &lt;= 59<BR>py = "Fair"<BR>Case score &lt;= 79<BR>py = "Good"<BR>Case score &lt;= 100<BR>py = "Verry good"<BR>End Select<BR>Print "评语："; py<BR>End Sub</P>
<P>问题是:关于学生分数评语(py)不显示出来<BR>如下所示<BR>学号:2<BR>分数:86<BR>评语:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>请问高手错在什么地方,怎么修改?万分感谢.</P>

tcsl9621 发表于 2006-5-31 19:01:00

<P>老大PRINT能显示出不才怪。这又是C。也不是VL。应当是MSGBOX（"评语："+py<BR>）</P>
<P>试试。</P>
页: [1]
查看完整版本: 菜鸟求救