试题 试卷
题型：单选题 题类：常考题 难易度：困难
浙江省金华市东阳中学2016-2017学年高一6月月考信息技术试卷
Private sub Command1_Click()
Dim a As Single
Dim py As String
a= Val (Text1) （1）
If a>0 Then py =”正数”
If a=0 Then py=”零”
If a<0 Then py=”负数”
Label3.Caption=a（2）
End Sub
试题篮
