作者swabasic (Hi,久利生公平)
看板Visual_Basic
标题[VBS ] 同时印出两种不同答案
时间Sun Mar 23 18:51:33 2008
新手问题啦 = =
问题是 找出从 2 开始的质数
然後再同一个输出中印出 每列三个及每列四个
目前只搞出每列三个呀....
我想过先把每列三个的质用在字串
或者用阵列搞出来，
可是都失败!!!
贴上程式码希望替我解答 !
Module Module1
Const linelone As Integer = 3
Sub Main()
Dim count As Integer = 0
Dim i, j As Integer
Dim str(13, 3) As String
For i = 2 To 500 Step 1
For j = 2 To i Step 1
If i Mod j = 0 And i <> 2 Then Exit For
If i Mod j <> 0 And j + 1 = i Or i = 2 Then
Static Line As Integer = 0
Line += 1
If Line Mod linelone <> 0 Then
Console.Write(i & vbTab)
Else
Console.WriteLine(i)
Line = 0
End If
count += 1
End If
If count > 48 Then
Exit For
End If
Next j
Next i
Console.ReadKey()
End Sub
End Module
--
正妹徵友，条件如下：┌─────┐ 干你妈！你这是在上网卖淫还是在找马夫？
ˋ◢██◣ │1.要有钱。│ ◢███◣ˊ
●●◥◥● │2.要有车。│ ≡ ◥█
◤●★★ │3.长的帅。│ ⊙-⊙－ ≡
●◥ ▇◤ │4.屌要大。│ 皿
◢▏▉◣◢ └─────┘ ◥︶ █◤
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.169.86.234
1F：→ MOONRAKER:你的中文…比你的程式难懂！我败了！ 03/24 00:08
2F：推 albb0920:楼上中肯 03/24 00:49