[VBS ] 同時印出兩種不同答案
新手問題啦 = =
問題是 找出從 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
→
03/24 00:08, , 1F
03/24 00:08, 1F
推
03/24 00:49, , 2F
03/24 00:49, 2F