VB编程:求一个自然数所有约数的因子和

楼上怎么用C和VB混合捏...?

建立一个窗体,上面建立一个命令按钮 名称为cmd1,两个文本框控件分别命名为text1和text2.

代码如下:

Private Sub cmd1_Click()
Dim a As Integer, i As Integer, s As Integer
a = Val(Text1.Text)
For i = 1 To a/2
If a Mod i = 0 Then s = s + i
Next
Text2.Text = s
End Sub

i=textbox1.text
x=1
sum=0
do while(x<i)
if i%x=0 then
sum=sum+x
x=x+1
end if
loop
textbox2.text=sum

Function k(a As TextBox)
Dim i
If IsNumeric(a.Text) = False Then MsgBox "请输入数_字", 48, "Notitle": Text1.SetFocus: Exit Function

For i = 1 To Val(a.Text / 2)
If Val(a.Text) Mod i = 0 Then
k = k + i
End If
Next

End Function

Private Sub Command1_Click()
Text2.Text = k(Text1)
End Sub
这样也可以吧？