2006-10-24 15:00:25綺▪▫
鳥程式〔！〕
為了造福我們班上的同學，
所以我把程式語言的那個要寄的東西 copy!!! 下來
請竟量複製 呵呵!!!
下課了 掰!
n = Text1.Text
i = 2
s = "" & n
star = "="
While i <= n
If n Mod i = 0 Then
s = s & star & i
n = n / i
star = "*"
Else
i = i + 1
End If
Wend
Label1.Caption = s
所以我把程式語言的那個要寄的東西 copy!!! 下來
請竟量複製 呵呵!!!
下課了 掰!
n = Text1.Text
i = 2
s = "" & n
star = "="
While i <= n
If n Mod i = 0 Then
s = s & star & i
n = n / i
star = "*"
Else
i = i + 1
End If
Wend
Label1.Caption = s
上一篇：*new__ F . I . R-----天天夜夜[！]
下一篇：傻蛋的１７年
謝謝胡大姐ˇˇ