作业帮谁能教教我做这一道题目用vb去编程“输入一个正整数,利用“当型”循环判断是否素数.
来源：学生作业帮助网 编辑：作业帮 时间：2024/07/12 15:40:36
xRnA}IvZI_BD⭁ma*H-R[~
ʏ ilbfv+_owXlfgssη; wc\M?5&ʾX ]UX{oa^iP1M<4ʃy;&t\߀^wXOs-5}
]wy=w71
/U~O2*. Zw yry >Th8H3DF:Swh-#;9t0gZfgui6C{ ћ8
t fk-xf=UBkI
Fdb+),~ %cofIQ"R m+rjW֔8T EW re0z,z $VwdAMy*Hvؖ,;
dë84 z#d-+h /#+A [9}X6%nMO{ZEǝO v h4Ud6m ۘm!Ǖ)F
谁能教教我做这一道题目用vb去编程“输入一个正整数,利用“当型”循环判断是否素数.
谁能教教我做这一道题目用vb去编程“输入一个正整数,利用“当型”循环判断是否素数.
谁能教教我做这一道题目用vb去编程“输入一个正整数,利用“当型”循环判断是否素数.
素数(质数)：就是一个大于等于2的整数,并且只能被1和本身整除,而不能被其他整数整除的数.
在窗体上画一个命令按钮和一个文本框~清空文本框中内容
在代码窗口编写如下代码
Private Function sushu(ByVal n As Long) As Boolean
Dim i As Long
For i = 2 To n - 1
If (n Mod i) = 0 Then Exit For
Next i
If i = n Then sushu = True
End Function
Private Sub Command1_Click()
Dim j As Integer
j = Val(Text1.Text)
If sushu(j) = True Then
Print "输入的是素数"
Else:Print "输入的不是素数"
End If
End Sub