已经改好了,也运行过了。控件不变,还是那三个,程序如下:Const A = "谭立江"Dim F As BooleanPrivate Sub Command1_Click() If F Then End Else If Text1.Text = A Then MsgBox "你太棒了!这么快就猜对了" Command1.Caption = "退出" F = True Else MsgBox "错了,请继续猜吧。" Text1.Text = "" End If End IfEnd SubPrivate Sub Form_Load() Form1.Caption = "游戏——猜名字" Text1.Text = "" Label1.Caption = "请猜一猜我的名字是什么?" Command1.Caption = "确定" F = FalseEnd Sub如果还有什么疑问,请留言。希望对你有帮助!