vb语言——用IIF函数进行判断这个问题

来源：百度知道 编辑：UC知道 时间：2024/05/12 23:12:28
通过文本框输入一个成绩，如果该成绩大于或等于60，显示“及格”；如果小于60，显示“不及格”。要求在程序中使用IIF函数进行判断。

自己编了一下，主要在显示“及格”那一个地方出问题，希望vb强人给予解决

窗体上放一个文本框特text1,一个命令按纽command1，结果用穆msgbox函数显示，哦阔ok?
Private Sub Command1_Click()
Dim a As Double
a = Val(Text1.Text)
If Text1.Text <> "" Then
MsgBox IIf(a >= 60, "及格", "不及格")
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "判断"
Text1.Text = ""
End Sub

Private Sub Command1_Click()
if isnumeric(text1.text) then
text2.text=IIF（clng(text1.text)>=60,"及格","不及格")
else
msgbox "成绩必须是数据！"
end if
End Sub