vb編程，求大神，急！！！

Private Sub Command1_Click()

Dim a(1 To 14, 1 To 14) As Long, i, j, s As Long

For i = 1 To 14

For j = 1 To 14

a(i, j) = i * i * i + j * j * j

s = s + a(i, j)

Print Tab(j * 6 - 5); a(i, j);

Next j

Print

Next i

Print "Sum="; s

End Sub

Private Sub Command2_Click()

x = 2310

Print: Print

y = yinzihe((x))

Print x; "的因子和＝"; y

End Sub

Function yinzihe(x)

Print x; "=";

i = 2

While x Mod i > 0

i = i + 1

Wend

Print i;

s = i

x = x \ i

While x > 1

While x Mod i = 0

? Print "*"; i;

? s = s + i

? x = x \ i

Wend

i = i + 1

Wend

Print

yinzihe = s

End Function

上一篇:社恐適合的行業？

下一篇:Autolisp編程中，如果主函數裏面要調用自己編寫的指令，格式是什麽樣的？對於defun c:name(),這裏面的參數