【問題】有關VB的問題

[燕歸來 10]

Private Sub Command1_Click()

x = Val(InputBox("請輸入一個數字"))

If x Mod 3 Then

MsgBox "你輸入的數字不是3的倍數 ", vbInformation

Else

MsgBox "你輸入的數字是3的倍數", vbInformation

End If

End Sub

-----------------------------------------------------------------------------------------------------

我想要讓它可以跳出一個視窗，讓別人輸入任意數x後，出現另一個視窗，內容是

"你輸入的數字x是3的倍數"

那我的程式碼裡面還需要加什麼東西???

[憨死 10]

Private Sub Command1_Click()

x = Val(InputBox("請輸入一個數字"))

If x Mod 3 Then

MsgBox "你輸入的數字" & x & "不是3的倍數 ", vbInformation

Else

MsgBox "你輸入的數字" & x & "是3的倍數", vbInformation

End If

End Sub

大概是這樣吧(?)

不曉得樓主用的是不是VBE 2008:p

是的話還可以把 & 用 + 號代替(不過我們學校老師不認同)

另外數字與字串過近可在字串雙引號內加空格

[燕歸來 10]

我用的是VB6.0

謝謝你的回覆