Question

VB6: 判断是否优等生。 设计程序界面和代码。

判断是否优等生：某中学选拔优等生的条件是：年龄小于 20 岁，三门课总分高于 285，
其中必须有一门为 100 分。
输入：年龄，分数 1，分数 2，分数 3，
判断该学生是否优等生，是则显示“是”，否则显示“否”。

Answer 1

窗体中放入如下控件：

Text1用来输入年龄；

Text2用来输入分数1；

Text3用来输入分数2；

Text4用来输入分数3；

Command1用来判断是否优等生并输出。

代码如下：

Private Sub Command1_Click()
Dim nl As Integer, fs1 As Single, fs2 As Single, fs3 As Single
nl = Text1.Text
fs1 = Text2.Text
fs2 = Text3.Text
fs3 = Text4.Text
If nl < 20 And fs1 + fs2 + fs3 > 285 And (fs1 = 100 or fs2 = 100 or fs3 = 100) Then
   MsgBox "是优等生"
Else
   MsgBox "不是优等生"
End If
End Sub