求大家帮忙写下VB代码

来源：百度知道 编辑：UC知道 时间：2024/05/26 01:49:40
由于本人是VB初学者，学起VB遇到些小难题，不知道如何去写代码，希望精通这方面的人帮一下我，实在感激不尽，题目如下：

设计一个程序，用户和计算机各出一个数。若相等，用户获胜，加十分，共猜10次，游戏结束。

--------------------------------------
就这道题，希望大家帮忙，谢谢。

Private Sub Command1_Click()
Dim iUser As Integer, sUser As String
Dim iCom As Integer
Dim iScore As Integer
Dim i As Integer
Randomize Timer
iScore = 0
Cls
For i = 1 To 10
Print "您的得分:" & CStr(iScore)
Print "第" & CStr(i) & "轮"
Do
sUser = InputBox("请输入一个1-3的数字" & vbCrLf & "输入0则结束游戏")
Loop While Not IsNumeric(sUser) Or (Val(sUser) < 0 Or Val(sUser) > 3) '限定输入必须为数字,且范围为0,1,2,3
iUser = Val(sUser)
If iUser = 0 Then Print "已中止游戏!": Exit Sub
iCom = Int(Rnd * 3) + 1
Cls
Print "您猜:" & sUser & vbCrLf & "电脑猜:" & CStr(iCom)
If iUser = iCom Then
iScore = iScore + 10
Print "您猜对了!获得10分!"
Else
Print "很可惜,您没猜对!"
End If
Next
Print vbCrLf & "您的最后得分:" & CStr(iScore) & vbCrLf & "游戏结束!"
End Sub

一楼的