✔ 最佳答案
啲程式碼冇錯~~(不過係有很多不完善的地方)
而單憑佢將label用caption的方法~肯定佢係用vb6~
你如果係用vb2008~
就唔會咁寫~~
我會咁寫~~
會有一個button1,一個textBox1,一個label1
啲程式式是~
Public Class Form1
Dim rndnum As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
rndnum = Int(Rnd() * 100) + 1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Mid(Str(Val(TextBox1.Text)), 2) <> TextBox1.Text Then
MsgBox("不可以輸入字串!")
ElseIf Mid(Str(Int(Val(TextBox1.Text))), 2) <> TextBox1.Text Then
MsgBox("不可以輸入小數!")
Else
If Val(TextBox1.Text) >= 1 And Val(TextBox1.Text) <= 100 Then
If rndnum > Val(TextBox1.Text) Then
Label1.Text = "X >" & Val(TextBox1.Text)
ElseIf rndnum < Val(TextBox1.Text) Then
Label1.Text = "X <" & Val(TextBox1.Text)
ElseIf rndnum = Val(TextBox1.Text) Then
Label1.Text = "you win! "
rndnum = Int(Rnd() * 100) + 1
End If
Else
MsgBox("要輸入1-100的整數!")
End If
End If
End Sub
End Class
這已做了跟你放上來的差不多的了~~而且在textBox中不可以打1-100以外的東西~如果打了~在按button時會有massage box彈出來鬧你~~
2010-04-22 00:00:29 補充:
我這些程式碼~已是form1.vb內的所有code~~如果你一開個form~~內裡已有一些程式碼~~你如果唔delete佢~~再貼我俾你的code~~咁一定會有問題啦~~重有我想問下~~你其實睇唔睇得明你找的那些程式碼~~和我給你的那些程式碼~~如果咁都睇唔明~~我諗你真係初學很好初學~~如果你係諗住學寫program~~你點都要睇明佢~~~~
2010-04-22 00:00:50 補充:
而你講"have 3 textbox, one is minimum one is maxium and one for enter the number!! "~~其實唔須要~~用返嗰個label1就可以~~
先dim兩個數~~
dim maxnum as integer
dim minnum as integer
2010-04-22 00:02:09 補充:
然後~~
將
If rndnum > Val(TextBox1.Text) Then
...
...
End If
改成~~