论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP Java Web .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > VB6.0 >

A4002105简单小游戏设计

       Text1.SetFocus 

copyright paper51.com

'将焦点定位在文本框上的错误位置上,使用户能够方便地修改输入上的错误 内容来自论文无忧网 www.paper51.com

        ExitSub 内容来自www.paper51.com

'此时可以直接退出这个事件按钮 等用户重新输入表达式 内容来自论文无忧网 www.paper51.com

      End If 内容来自论文无忧网 www.paper51.com

   Else

paper51.com

    Timer1.Enabled = True      '由于是用户输入出错所以进程续继走动

内容来自www.paper51.com

        IfInputOperator(Text1.Text) = True Then copyright paper51.com

 '先判断表达式有没有错,后判断数字有没有错

copyright paper51.com

        a = MsgBox("对不起!你输入的数据有误 请检查后重试" + Chr$(13) +Chr$(10) + ReturnErrorString, 0 + 48, "数据有错")

内容来自论文无忧网 www.paper51.com

        Else

http://www.paper51.com

        a = MsgBox("对不起!你输入的表达式有误 请检查后重试" + Chr$(13) +Chr$(10) + ReturnErrorString, 0 + 48, "表达式有错") paper51.com

        EndIf

内容来自论文无忧网 www.paper51.com

       Text1.SelStart = iFindError

内容来自论文无忧网 www.paper51.com

       Text1.SelLength = iErrorLong

内容来自www.paper51.com

       Text1.SetFocus

copyright paper51.com

 '将焦点定位在文本框上的错误位置上,使用户能够方便地修改输入上的错误

http://www.paper51.com

    Exit Sub paper51.com

   End If

paper51.com

Else                                                              '用户选择本无题状态  Else....End If 为无解状态所要做的动作

内容来自论文无忧网 www.paper51.com

   iAnswer = OperatorModule.Operator()   '调用24点表达式计算函数

http://www.paper51.com

     If iAnswer = 24

内容来自论文无忧网 www.paper51.com

Then     'operater函数能返回24的值说有解,所用户选择状态是错误的

内容来自www.paper51.com

      a =MsgBox("对不起!你答错了 本题有解", 0 + 16 + 0, "错误") 内容来自论文无忧网 www.paper51.com

     AnswerButton.Enabled = True 内容来自www.paper51.com

     AnswerButton.ForeColor = &HFF&              '使字体变成红色 paper51.com

     AnswerButton.SetFocus 内容来自www.paper51.com

    Else                                                          '答题错误所要做的动作

内容来自www.paper51.com

    a = MsgBox("恭喜!你答对了 本题无解 ^_^", 0 + 64 + 0, "正确") copyright paper51.com

      Text1.Text ="本题无解"

内容来自www.paper51.com

     TestButton.Enabled = True 内容来自论文无忧网 www.paper51.com

     StartButton.Enabled = True 内容来自论文无忧网 www.paper51.com

     TimeButton.Enabled = True http://www.paper51.com

     StartButton.SetFocus paper51.com

    End If copyright paper51.com

End If

http://www.paper51.com

End Sub

内容来自www.paper51.com

(2)   Test界面设计 paper51.com

copyright paper51.com

           图3-5  24点纸牌测试界面

paper51.com

在主界面中,按[Test]键就会出现该界面。在该界面中,可以自己任意给出四个(1-13)的整数,按[OK]键后由程序自动算出答案。按[Clear]键可以重新再测试,按[Return]可以回到主界面。该界面中程序自动给出答案的主要代码如下: paper51.com

Private SubTestCards(Num As Integer) paper51.com

'参数num是用户选择的数值 内容来自www.paper51.com

Dim iCountAs Integer

http://www.paper51.com

IfiCardsNumber = 4 Then iCardsNumber = 0

paper51.com

IfiCardsNumber = 3 Then TestNumberFour = True 

copyright paper51.com

'用户已经选够了牌数 内容来自www.paper51.com

IfTestNumberFour Then

内容来自论文无忧网 www.paper51.com

   TestOKButton.Enabled = True 内容来自论文无忧网 www.paper51.com

   TestOKButton.SetFocus

http://www.paper51.com

Else 内容来自论文无忧网 www.paper51.com

  TestOKButton.Enabled = False 内容来自论文无忧网 www.paper51.com

End If http://www.paper51.com

  Randomize  '初始化随机

内容来自论文无忧网 www.paper51.com

 tt = Int(Rnd() * 4 + 1) '产生一个随机数 paper51.com

 Select Case tt   '用于显示四种不同种类的牌

copyright paper51.com

       Case 1

copyright paper51.com

       iCount = 0+ Num

内容来自论文无忧网 www.paper51.com

       Case 2 内容来自www.paper51.com

       iCount =13 + Num

copyright paper51.com

       paper51.com

------分隔线----------------------------
联系方式