Private Sub Command1_Click() Dim n As String, h As String, i As Integer, c As String n = Trim(Text1.Text) If Not (IsNumeric(n) And Val(n) > 0 And Int(n) = Val(n)) Then '判断n非数字、非正数、非整数情况 MsgBox "输入数字符n非正整数,请确认退出!",
← 上一条:C语言求解:1.输入一个正整数,将其转换为二 下一条:c#7.编一个程序,输入一个正整数n,把它转 →