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
沒有留言:
張貼留言