Question

用vb编一个很简单的小程序

一个很简单的小程序
串口输入一个数据X（0<X<100%）
如果X>10%为不及格
否则及格
那位高手帮帮忙啊....
感激不尽

Answer 1

Private Sub Command1_Click()
Dim x, k
x = InputBox("请输入一个数据<0~~100%>:")
If x < 0 Or x > 1 Then
k = MsgBox("请输入有效数据！", vbExclamation)
ElseIf x >= 0.1 Then
Print "及格！"
Else
Print "不及格！"
End If
End Sub

Answer 2

干啤24
纯生24

Answer 3

建议买一本书<VB串口编程>

Answer 4

private function strResult(ByVal X as string) as string
dim intX as integer
intX = X.substring(0,X.length - 1)
if intX>0 and intX<100 then
if intX < 10 then
return "不及格"
else
return "及格"
end if
end if
end function