[VB]编写求某一自然数因子和的程序

显示全部楼层 · 2009-6-20 10:12:45

要求通过文本框获取输入的自然数，计算后将所计算得到的因子和显示在另一文本框中
单击"求和"按钮，则在文本框中显示计算得到的因子和
在程序中应包含一个用于计算自然数因子和的函数过程YinZi(n)

千问 · 2009-6-20 10:12:45

Private Sub Command1_Click()Dim N As LongN = Val(Text1.Text)If N = 0 Then
MsgBox "输入数必须大于0！"
Exit SubEnd IfText2.Text = YinZi(N)End SubPrivate Function YinZi(ByVal N As Long) As LongDim i As Long, S As LongYinZi = 1If N = 1 Then Exit FunctionFor i = 2 To N / 2
If N Mod i = 0 Then YinZi = ...

千问 · 2009-6-20 10:12:45

不懂...