程序代码：

'Visual Basic
Rem 原文空格去了，我自己加了，并且把一处全角右括号的改成了半角的。
' 原文https://baike.baidu.com/item/%E5%88%86%E8%A7%A3%E8%B4%A8%E5%9B%A0%E6%95%B0/2253749，在“编程分解”的“Visual Basic”
Dim x,a,b,k As String
　
Private Sub Command1_Click()
a = Val(Text1.Text)
x = 2
If a <= 1 Or a > Int(a) Then
If a = 1 Then
Text2.Text = "它既不是质数，也不是合数"
Else
MsgBox "请您先输入数据",vbOKOnly+vbInformation,"友情提示"
End If
Else
Do While a/2 = Int(a/2) And a >= 4
If b=0 Then
Text2.Text=Text2.Text&"2"
b=1
Else
Text2.Text=Text2.Text&"*2"
End If
a=a/2
k=a
Loop
Do While a>1
For x=3 To Sqr(a) Step 2
Do While a/x=Int(a/x) And a>=x*x
If b=0 Then
Text2.Text=Text2.Text&x
b=1
Else
Text2.Text=Text2.Text&"*"&x
End If
a=a/x
Loop
Next
k=a
a=1
Loop
If b=1 Then
Text2.Text=Text2.Text&"*"&kv
Else
Text2.Text="这是一个质数"
End If
End If
End Sub
Private Sub Command2_Click()
Text1.Text=""
Text2.Text=""
End Sub

[此贴子已经被作者于2022-7-2 23:50编辑过]