vb 编程问题!急

来源：百度知道 编辑：UC知道 时间：2024/05/15 05:30:28
1 在文本框1中输入正整数N,单击计算,在文本框2中得出N的阶乘.
2 在文本框1和文本框2中分别输入两个数,单击输出按钮,计算这两个数所有因子之和,并在文本框3中显示其结果

数学概念忘了，不知道是不是这个

Private Sub Command1_Click()

Dim i, r
r = 1

For i = 1 To Val(Text1.Text)

r = r * i
Next

Text2.Text = r

End Sub

Private Sub Command2_Click()
Dim i, t, r
t = Val(Text1.Text)

For i = 1 To t - 1
If (t \ i) = (t / i) Then r = r + i
Next

Debug.Print r

t = Val(Text2.Text)

For i = 1 To t - 1
If (t \ i) = (t / i) Then r = r + i
Next

Text3.Text = r

End Sub