潇沉-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日