UC知道求高手解释分解自然数中的一段代码的意思
来源：百度知道 编辑：UC知道 时间：2024/05/27 07:26:33
代码 Private Sub Command1_Click()
Command1.Caption = "Recalculate"
p = Val(Text1.Text)
z = p + 1
f = 0
s$ = Str$(p) + " = "
' 分解自然数
For l = 2 To p
Do
If p / l = p \ l Then
p = p / l
If l < z Then
If f = 0 Then
s$ = s$ + Str$(l)
Else
s$ = s$ + " * " + Str$(l)
End If
End If
f = f + 1
Else
Exit Do
End If
Loop
每行代码的意思 还有 f l z具体是什么意思啊
Command1.Caption = "Recalculate"
p = Val(Text1.Text)
z = p + 1
f = 0
s$ = Str$(p) + " = "
' 分解自然数
For l = 2 To p
Do
If p / l = p \ l Then
p = p / l
If l < z Then
If f = 0 Then
s$ = s$ + Str$(l)
Else
s$ = s$ + " * " + Str$(l)
End If
End If
f = f + 1
Else
Exit Do
End If
Loop
每行代码的意思 还有 f l z具体是什么意思啊
Private Sub Command1_Click()
Command1.Caption = "Recalculate"
p = Val(Text1.Text)
z= p+1
f = 0
s$ = Str$(p) + " = " '假如输入9则打印 "9 ="
' 分解自然数
For l = 2 To p '从2..9循环
Do
If p / l = p \ l Then '如果p/l一般除法等于整除p\l,说明能被l整除，没有余数
p = p / l '则把p重新赋值
If l < z Then '如果没有超过p+1
If f = 0 Then
s$ = s$ + Str$(l) '链接起来
Else
s$ = s$ + " * " + Str$(l) //否则就按照*来连接，则有9= 3*3
End If
End If
f = f + 1
Else
Exit Do
End If
Loop
next
唉 f l z代码中 没定义 那就是默认值 用户定义数据类型Variant 只是一些数值
f l z代码中 没定义 那就是默认值