潇沉-0 2021-06-28 14:47 采纳率: 72.7%
浏览 20
已结题

求vb代码!!!!!!!

 

  • 写回答

1条回答 默认 最新

  • qq_34736490 2021-06-28 15:27
    关注

    Dim i As Integer
    Private Sub Command1_Click()
    i = Val(Label2)
    i = InputBox("请输入一个整数:", "VB")
    If i Mod 10 = 7 Then
    MsgBox ("是")
    Else
    MsgBox ("否")
    End If

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 已结题 (查看结题原因) 10月6日

悬赏问题

  • ¥15 PADS Logic 原理图
  • ¥15 PADS Logic 图标
  • ¥15 电脑和power bi环境都是英文如何将日期层次结构转换成英文
  • ¥20 气象站点数据求取中~
  • ¥15 如何获取APP内弹出的网址链接
  • ¥15 wifi 图标不见了 不知道怎么办 上不了网 变成小地球了
  • ¥50 STM32单片机传感器读取错误
  • ¥15 (关键词-阻抗匹配,HFSS,RFID标签天线)
  • ¥15 机器人轨迹规划相关问题
  • ¥15 word样式右侧翻页键消失