Imports System

Public Module Module1

    Public Sub Main()

        Dim W As Integer =0

Dim M As Integer =0

console.writeline("遊戲開始")

        dim num(1) , t as integer

         microsoft.visualbasic.Randomize()

        for i = 0 to 0

         num(i) = CInt(microsoft.visualbasic.Int(microsoft.visualbasic.Rnd() * 3) + 1)

    next

​

Do

If M=2 Then

console.writeline(" 再來")

exit do

elseIf W=2 Then

                console.writeline("game over")

exit do

                                end if                            

     console.writeline("您猜?")

    t = console.ReadLine()

    if t = num(0) then

        console.writeline("獲勝")

                    W = W+1

        else 

        console.writeline("輸了")

                    M = M+1

        console.writeline(num(0))

    end if 

    console.writeline("再一次")

    console.WriteLine("你和電腦:" & w & "比" & M)

            loop

    End Sub

End Module