VB:输入一个正整数N,把它分解成质因子相乘的形式

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/05/15 13:47:21

需要2个文本框text 和 2个按钮command （一个计算一个清除）
Dim x,a,b,k As String
Private Sub Command1_Click()
a = Val(Text1.Text)
x = 2
If 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 & a & "=" & "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 & "*" & k
Else
Text2.Text = "这是一个质数"
End If
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Su

VB:输入一个正整数N,把它分解成质因子相乘的形式用VB编写输入一个正整数N,把它分解成质因子相乘的形式.如输入36,输出36=1×2×2×3×3 输入一个正整数N,把它分解成质因子相乘的形式,有错误,请指出? 输入一个正整数N,把它分解成质因子相乘的形式.如：36=1×2×2×3×3；用 FREE pascal. 用VB语言设计程序,把一个正整数写成若干个素数相乘的形式. 在 TURBO PASCAL 中编一程序输入一个正整数N 将N分解成质因数幂的乘积形式请知道的一定告诉下额用Pascal编写一程序,输入一个正整数N,将N分解成质因数幂的乘积形式（帮忙看一下我哪里错了）设计一个窗体,要求输入一个正整数N,计算并输出N的阶乘.VB的关于VB的题输入一个正整数N,计算出N!并输出. Pascal 语言输入一个正整数,求出它的所有素因子,每两个数之间用一个空格隔开 VB编程题：一个正整数分解成质因数天的剩积,如输入：90打印90＝2*3*3*5 VB上机题：输入一个正整数n,再定义一个有n个元素的一维数组