又遇VB难题，请各路再帮忙解决一下，要考试了，呜呜

来源：百度知道 编辑：UC知道 时间：2024/06/17 02:48:30
习题：判断质数
要求：编写一个程序，由用户输入一个整数，计算机判断该整数是否为质数（质数的定义是，除了1和本身，再没有其他因子的整数）。
例如：用户在文本框1内输入一个整数13，单击“判断质数”按扭后，结果显示在文本框2内“13是质数”，用户在文本框1内输入一个整数1113，单击“判断质数”按扭后，结果在显示在文本框2内“1113不是质数，它的因子有：3 371 7 159”，即要求在判断出非质数后断续显示该整数的因子。要求显示判断结果的文本框2的内容不能由用户填写或修改。单击“重新输入“按扭可将两个文本框清空。

在窗体上放2个命令按纽，一个标签，2个文本框，如下图所示。代码如下（直接拷贝） 

Private Sub Command1_Click() 

Dim i As Long, k As Integer, n As Long, str As String 

k = 0 

n = Int(Text1.Text) 

For i = 2 To n - 1 

If n Mod i = 0 Then k = 1: str = str & i & " " 

Next i 

If k = 1 Then Text2.Text = n & "不是质数" & "它的因子有：" & str Else Text2.Text = n & "是质数" 

End Sub 

Private Sub Command2_Click() 

Text1.Text = "" 

Text2.Text = "" 

End Sub 

Private&nb