收起
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
报告相同问题?