Question

这道VB程序设计题该怎么做？

设置窗体的标题为“等级判断”，设计苹果梨等级判断程序，判断标准分为三个等级，直径大于15cm 为特等品；12cm-15cm 为优等品；12cm以下为一等品。用户在Text1 文本框中输入苹果梨的直径，单击“等级判断”按钮，将所属级分别显示在 Text2 中，用 If 嵌套语句实现

Answer 1

Private Sub Command1_Click()
Dim d As Single
d = Val(Text1.Text)
If d > 15 Then
Text2.Text = "特等品"
Else
If d >= 12 And d <= 15 Then
Text2.Text = "优等品"
Else
Text2.Text = "一等品"
End If
End If
End Sub
Private Sub Form_Load()
Me.Caption = "等级判断"
Command1.Caption = "等级判断"
Text1.Text = ""
Text2.Text = ""
End Sub