呃... 作業還是自己寫比較好吧... :jolin: 這樣才會進步啊...

現在新的VB.NET也是...
學過java的一定覺得很眼熟..

P.S 灌完Visual.Net 2G的硬碟空間就沒了...
而且run的速度比Visual 6.0系列慢

我也是自己嘗試過不行，才來問的，不會就要問，不是嗎??
您交我怎麼作，我不是也學到東西了嗎???這樣也是進步。
但您一定會問為何不去問老師呢???因為...他「殺氣」太重了。:jolin:

Private Sub Command1_Click()
number = InputBox("請入一個數", "檢查質數")
number = Val(number)
check_num = check(number)
Select Case check_num
Case 1
MsgBox "是質數"
Case 2
MsgBox "不是質數"
num (number)
Case 3
MsgBox "無意義"
End Select
Exit Sub
End Sub


Public Function check(ByVal Number As Integer)
If Number <= 1 Then
check_num = 3
Else
If Number = 2 Then
check_num = 1
Else
check_num = 1
For i = 2 To Number / 2
If Number Mod i = 0 Then
check_num = 2
End If
Next i
End If
End If
check = check_num
End Function

Public Function num(ByVal number As Integer)
For i = 2 To number
If number Mod i = 0 Then
MsgBox i
End If
Next i
End Function

稍微修改了一下你的程式..
希望這對你有用:)
PS.剛剛已經貼在七嘴八舌版了-_-||

非常感謝你的指教，因為來這裡的人比較少，所以我才會兩邊貼...真是抱歉 :p
我們這組VB作業都是我在作的...:nonono:

:cry: 網路資源真是太豐富了…
我的VB學的哩哩臘臘，
別人寫的看的懂；自己要寫出來，或是題目稍微改一下…
頭就要爆了:D

可不可以請問涉寒兄是什麼科系的:)

不是。因為自已看書比較「快」。
問人或問老師的目的是確認自已看的書和學習方向有沒有問題。

我認為你的老師教VB6的方向不太好，現在我認為推JAVA或C#比較好。