|
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 |