今天看啥
热点:


先在窗体中添加一个按钮。
再在旁边添加一个文本框,将属性中的 text 改为空白,tooltiptext 改为 请输入分数。
最后双击刚才添加的按钮,把你的代码修改为以下就Www.BKJIA.com可以了
private Sub Command1_Click()
 Dim score as integer
 score = Val(Text1.Text)
 Select Case score
 Case 90 to 100 : ? "十分优秀"
 Case 80 to 89 : ? "优秀"
 Case 70 to 79 : ? "中"
 Case 60 to 69 : ? "及格"
 Case 0 to 59 : ? "不及格"
 Case else : ? "不存在该分数,请核对"
End Select
End Sub 
望采纳 Www.BKJIA.com+1
可以正常运行的哦
+www.Bkjia.Com1

相关推荐

www.bkjia.comtruehttp://www.bkjia.com/doc/428132204.htmlTechArticle先在窗体中添加一个按钮。 再在旁边添加一个文本框,将属性中的 text 改为空白,tooltiptext 改为 请输入分数。 最后双击刚才添加的按钮,...

相关文章

相关频道:

帮客评论

视觉看点