Private Sub Command1_Click()
Dim b As Single
Dim c As String
b = CSng(Text1.Text)
c = arr(b)
MsgBox c

End Sub
Public Function arr(a As Single)
If a >= 60 Then
arr = "合格"
Else
arr = "不合格"
End If


End Function





就象这段简单的代码...   csng是用来干什么的???怎么样调用到下面的代码的...
希望大家指点一下..

single 是什么类型吖?

以后查了资料不会再上来问!!

   伱猜中了....我的英语上了高中重来没有合格过!!                不过我对电脑比较感兴趣..所以来学的!