Question

编写一个程序判断某正整数是否为2的方幂 vb

编写一个程序判断某正整数是否为2的方幂 vb

Answer 1

Dim x As Integer, i As Integer x = InputBox("请输入你要判断的数字") If x <= 0 Then MsgBox "你输入的不是正整数" Exit Sub End If For i = 2 To x - 1 If x Mod i = 0 Then MsgBox x & "不是素数" Exit Sub End If Next MsgBox x & "是素数"