作業五:巢狀For練習範例程式

1.蘭陽女中協助大考中心做測驗,學校將抽高一1~11班,每班10號、20號與30號同學進行測驗,請使用巢狀For,把所有要進行測驗的同學列出來。

2.使用者將輸入N,請顯示一排有N個圈圈

3.使用者將輸入N,請顯示N*N的正方形(N排,每排N個圈圈)

4.使用者將輸入N,請顯示三角形的圖形。

5.使用者將輸入N,請顯示三角形的圖形,並且改用數字取代圈圈。

假設輸入3,則顯示

1   (第一排,所以顯示一個數字)
12   (第二排,所以顯示1,2)
123   (第三排,所以顯示1,2,3)

6.使用者將輸入N,求1!~N!

'輸入N求N!

'宣告
Dim i As Integer
Dim N As Integer
Dim ans As Single

'輸入
N = InputBox("請輸入N")

'計算
ans = 1

For i = 1 To N
 ans = ans * i
Next i

'輸出
Print N & "!=" & ans

 

7.使用者將輸入N,判斷1~N是不是質數

輸入N,問N是不是質數的演算法:

宣告的變數有:計數器i,輸入的數字N
還有統計有幾個因數的count三個。

'輸入

'計算想法
'第一步驟:一開始假設這個數字沒有因數

'第二步驟:使用For來檢驗1~N有幾個因數,

'如果可以整除,就代表i是因數

'所以統計因數的count多一筆

 

'輸出想法:如果因數的個數剛好是2,就是質數,
否則就不是

'輸入N,問N是不是質數

'宣告
Dim i As Integer
Dim N As Integer
Dim count As Integer '統計這個數字有幾個因數

'輸入
N = InputBox("請輸入N")

'計算過程
count = 0 '一開始假設這個數字沒有因數
For i = 1 To N '使用For來檢驗1~N有幾個因數
 If N Mod i = 0 Then '如果可以整除,就代表i是因數
  count = count + 1 '統計因數的count多一筆
 End If
Next i

'輸出
If count = 2 Then '如果因數的個數剛好是2,就是因數
 Print N & "是質數"
Else
 Print N & "不是質數"
End If

8.若-5<=X<=5,-5<=Y<=5,請找x^2+2xy+y^2=16的整數解。

使用者介面與相關程式




挑戰題五:執行檔

第一題:將1,2,3三個數字所有的排列組合顯示出來,使用三層For迴圈敘述,當三個計數器都不相同(If a<>b and b<>c and a<>c then ),才顯示。

第二題:請依照題目要求顯示該圖形