查人人中国名人网百部游戏cg混剪:vb6.0的一个基础问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 04:19:59
Private Sub Command1_Click()
Randomize Timer
Dim Bytcom As Byte
Bytcom = Int(Rnd * 2)
Select Case Bytcom
Case 0
MsgBox "你出布，计算机出剪刀，你输!", , "太可惜了!"
Text1.Text = a1
Case 1
MsgBox "你出布，计算机出石头，你赢!", , "耶!"
Text1.Text = a1
Case 2
MsgBox "你出布，计算机出布，平手!", , "平手!"
Text1.Text = a2
End Sub
我在执行这段命令时Text1.Text=a2、Text1.Text = a1、Text1.Text = a3没有用。在执行时并没有提示错误，但Text1原封不动，由于我的教程里没有Text1.Text=a2、Text1.Text = a1、Text1.Text = a1这三条语句，这是我自己添加进去的，而我的教程对这没有对这详细的阐述，是不是我这个我的语句错了
Randomize Timer
Dim Bytcom As Byte
Bytcom = Int(Rnd * 2)
Select Case Bytcom
Case 0
MsgBox "你出布，计算机出剪刀，你输!", , "太可惜了!"
Text1.Text = a1
Case 1
MsgBox "你出布，计算机出石头，你赢!", , "耶!"
Text1.Text = a1
Case 2
MsgBox "你出布，计算机出布，平手!", , "平手!"
Text1.Text = a2
End Sub
我在执行这段命令时Text1.Text=a2、Text1.Text = a1、Text1.Text = a3没有用。在执行时并没有提示错误，但Text1原封不动，由于我的教程里没有Text1.Text=a2、Text1.Text = a1、Text1.Text = a1这三条语句，这是我自己添加进去的，而我的教程对这没有对这详细的阐述，是不是我这个我的语句错了
你的a1,a2是什么？我没看见你在程序里面定义和赋值啊。
如果你是想输出 a1,a2这几个字符那应该在两端加上引号。