Visual Basic 6 (VB 6) 例題:求因數

1.因數的定義？

2.電腦如何找因數

3.找出某數的所有因數

4.程式偵錯

樣板:

Private Sub Form_Activate()

Caption = "求因數與所有因數之和"

N = Val(InputBox("請輸入一個正整數："))

End sub

問題一:

判斷某數是不是五的倍數？

概念: 運用if條件判斷

solution:

Private Sub Form_Activate()

Caption = "求某數是否為5的因數"

N = Val(InputBox("請輸入一個正整數："))

If N Mod 5 = 0 Then

Print "Yes"

Else

Print "NO"

End If

End Sub

問題二:

列出任意數所有的因數

概念: 加入For 迴圈

簡單的For迴圈例子如下:

Private Sub Form_Activate()

Caption = "以for迴圈印出1~n"

n = Val(InputBox("請輸入一個正整數："))

For i = 1 To n

Print i

Next

End Sub

問題三:

列出任意輸入數的所有因數 並顯示因數總合(加上除錯機制)

Private Sub Form_Activate()

Caption = "求因數與所有因數之和"

Do

N = Val(InputBox("請輸入一個正整數："))

If N <= 0 Or N <> Int(N) Then MsgBox "你輸入的不是正整數，請重新輸入！"

Loop Until N > 0 And N = Int(N)

Print "正整數 "; N; " 的因數有："

For i = 1 To N

If N Mod i = 0 Then

Print i; '顯示因數

S = S + i '加總因數

End If

Next

Print '換行用

Print "所有因數之和為 "; S

End Sub

運用概念: 迴圈，條件判斷