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

展开全部
收起
4回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 马克Mak

    17人对此回答表示赞同

    干啤24
    纯生24
    展开
    17
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Nevaeh

    14人对此回答表示赞同

    建议买一本书<VB串口编程>
    展开
    14
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 周欣

    11人对此回答表示赞同

    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 "及格&qu
    展开
    11
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 萌猫君

    6人对此回答表示赞同

    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
    展开
    6
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部