24h購物| | PChome| 登入
2005-06-09 09:26:41| 人氣850| 回應0 | 上一篇 | 下一篇

程設解答

推薦 0 收藏 0 轉貼0 訂閱站台

在考竹北高中筆試時...出現這一題...

For x = 2 To 30
For y = 2 To x / 2
flag = 0
If x / y = Int(x / y) Then
flag = 1
End If
Next y
If flag = 0 Then
Print x;
End If
Next x

應該沒有寫錯吧...

回家後一時興起...丟到VB中去跑跑看...

結果是: 2,3,5,7,9,11,13,15,17,19,21,23,25,27,29

本來是想說求奇數的...想不到2也出來亂...

果然是差一題...呵呵~~

我要檢舉
台長： 小海鷗

您可能對以下文章有興趣

人氣(850) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 藝文活動(書評、展覽、舞蹈、表演) | 個人分類: 決戰千里 |
此分類下一篇:GRE
此分類上一篇:成績

我要回應
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文