May 10, 2011

城市_亂數

  Randomize()
        Dim random As Integer = CInt(Int((6 * Rnd()) + 1))
        TextBox1.Text = Str(random)







        Dim guess As Integer = Val(TextBox2.Text)
        If (guess = target) Then
            TextBox3.Text = "猜中了"
        ElseIf (guess > target) Then
            TextBox3.Text = "小點好嗎"
        ElseIf (guess < target) Then
            TextBox3.Text = "大點別那麼小氣嘛"

Today's Visitors: 0 Total Visitors: 7
Personal Category: Topic: feeling / personal / murmur
[Trackback URL]

Post A Comment









Yes No



Please input the magic number:

( Prevent the annoy garbage messages )
( What if you cannot see the numbers? )
Please input the magic number

誰來收藏
Loading ...
unlog_NVPO 0