none
請問如何用Visual Studio 2005,Randomize()撒種子取亂數,來做猜拳遊戲 RRS feed

  • 一般討論

  • Public Class Form1
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim tmp
            Randomize()
            tmp = Rnd() * 100 '1~100 之間
            If Val(TextBox1.Text) > tmp Then '比較數字,是否大於
                MsgBox("Rnd" & tmp & vbCrLf & "you win!") '換行
            Else
                MsgBox("Rnd" & tmp & vbCrLf & "you lose!") '換行
            End If
        End Sub
    End Class

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

    使用以上定理,是否可做出猜拳遊戲
    麻請請你們示範,並把程式碼貼出
    謝謝你們
    2009年6月14日 上午 07:28

所有回覆

  • elaine:
        這看起來你已經寫出來了啊. 只是把 tmp = Rnd() * 100 變成兩個
        tmp1 = Rnd() * 100
        tmp2 = Rnd() * 100
       然後去比較tmp1和tnp2誰大.
       還有,你是第一次來吧.請先參閱[張貼文章應注意事項及應提供資訊]
    我會寫一點程式,但是不會通靈
    2009年6月14日 上午 07:46
    版主
  • 建議您修改您的發問內容. 先鎖文, 等您修改後再解鎖.
    LOLOTA - 微軟技術支援中心(CSS) - http://blog.lolota.net
    2009年6月14日 上午 08:19
    版主