設(shè)計思路首先設(shè)計一個計時器登錄系統(tǒng)窗體界面并編輯相關(guān)代碼以完成登錄；然后設(shè)計辯論賽計時器主菜單,辯論隊名稱立場及設(shè)置窗體界面并編輯相關(guān)代碼，其次是設(shè)計辯論隊比賽規(guī)則，隊員介紹，各個環(huán)節(jié)的時間設(shè)置以及計時器的窗體界面并編輯相關(guān)代碼以完成分隊計時限時的要求；最后設(shè)計一個評委打分和一個頒獎儀式窗體界面并編輯相關(guān)代碼。設(shè)計目標要求辯論賽計時評分系統(tǒng)具有分隊計時限時，統(tǒng)計裁判打分并計算最后得分的功能總體設(shè)計結(jié)構(gòu)和功能（1）.結(jié)構(gòu)流程圖辯論賽計時評分系統(tǒng)辯論賽計時評分系統(tǒng)程序使用方法頒獎儀式計時器評委打分各個環(huán)節(jié)時間設(shè)置隊員介紹辯論賽比賽規(guī)則辯論隊立場及設(shè)置辯論賽名稱程序使用方法頒獎儀式計時器評委打分各個環(huán)節(jié)時間設(shè)置隊員介紹辯論賽比賽規(guī)則辯論隊立場及設(shè)置辯論賽名稱計時器主菜單計時器登錄系統(tǒng)（2）程序模塊和程序代碼PrivateSubCommand1_Click()IfText1.Text=""OrText2.Text=""ThenMsgBox"對不起，用戶名與密碼不能為空！",vbInformation,"輸入錯誤"ExitSubEndIfIfText1="tuqianbiao"AndText2="123456"ThenMsgBox"恭喜你，登錄成功!"Form1.HideForm2.ShowElseMsgBox"密碼或用戶名錯誤！請您重新輸入!"Text2=""EndIfEndSubPrivateSubCommand2_Click()Text1=""Text2=""EndSubPrivateSubPicture1_Click()EndSubPrivateSubLabel2_Click()EndSubPrivateSubCommand1_Click()EndEndSubPrivateSubCommand2_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideForm14.ShowEndSubPrivateSubCommand3_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.ShowEndSubPrivateSubCommand4_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideForm14.HideForm15.ShowEndSubPrivateSubCommand6_Click()Form3.Text1=Form4.Text1Form1.HideForm2.HideForm3.ShowForm4.HideEndSubPrivateSubCommand7_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.ShowForm8.Label5.Caption=Form7.Text1.TextForm8.Label6.Caption=Form7.Text2.TextForm8.Label7.Caption=Form7.Text3.TextEndSubPrivateSubCommand8_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.ShowEndSubPrivateSubCommand9_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.ShowForm10.Label4=Form9.Text1.TextForm10.Label6=Form9.Text2.TextForm10.Label10=Form9.Text3.TextForm10.Label11=Form9.Text4.TextEndSubPrivateSubLabel10_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.ShowEndSubPrivateSubLabel3_Click()Form1.HideForm2.HideForm3.HideForm4.ShowEndSubPrivateSubLabel5_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.ShowEndSubPrivateSubLabel7_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.ShowEndSubPrivateSubLabel9_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.ShowEndSubPrivateSubCommand1_Click()Form1.HideForm2.ShowForm3.HideForm4.HideEndSubPrivateSubText1_Change()Text1.Text=Form4.Text1.TextEndSubPrivateSubCommand1_Click()Text1=""EndSubPrivateSubCommand2_Click()Form1.HideForm2.ShowForm3.HideForm4.HideEndSubPrivateSubPicture1_Click()EndSubPrivateSubCommand1_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideEndSubPrivateSubForm_Load()Label3.Caption=Form6.Text2.TextLabel5.Caption=Form6.Text4.TextEndSubPrivateSubCommand1_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand2_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideEndSubPrivateSubCommand1_Click()Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand2_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideEndSubPrivateSubCommand1_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideEndSubPrivateSubCommand1_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand2_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideEndSubPrivateSubCommand1_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideEndSubPrivateSubCommand1_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.ShowEndSubPrivateSubCommand2_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideEndSubPrivateSubCommand1_Click()t=Form11.Text1.Textm=tForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand10_Click()t=Form11.Text5.Textm=tForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand11_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand12_Click()Timer1.Enabled=FalseEndSubPrivateSubCommand13_Click()Timer2.Enabled=TrueEndSubPrivateSubCommand14_Click()Timer2.Enabled=FalseEndSubPrivateSubCommand15_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideEndSubPrivateSubCommand16_Click()If(Timer1.Enabled=True)ThenTimer1.Enabled=FalseTimer2.Enabled=TrueElseTimer1.Enabled=TrueTimer2.Enabled=flseEndIfEndSubPrivateSubCommand17_Click()Timer1.Enabled=FalseTimer2.Enabled=FalseEndSubPrivateSubCommand2_Click()t=Form11.Text2.TextForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand3_Click()t=Form11.Text3.Textm=tForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand4_Click()t=Form11.Text4.TextForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand5_Click()t=Form11.Text5.Textm=tForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand7_Click()t=Form11.Text2.TextForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand8_Click()t=Form11.Text3.TextForm12.Label3.Caption=t&"秒"EndSubPrivateSubCommand9_Click()t=Form11.Text4.TextForm12.Label3.Caption=t&"秒"EndSubPrivateSubForm_Load()Label2.Caption="請注意時間限制哦！"EndSubPrivateSubTimer1_Timer()If(t>0)Thent=t-1Form12.Label3.Caption=t&"秒"If(t<0Ort=0)ThenTimer1.Enabled=FalseMsgBox("時間到!")EndIfIf(t<10)ThenTimer3.Enabled=TrueEndIfEndIfEndSubPrivateSubTimer2_Timer()If(m<10Ort<10)ThenTimer3.Enabled=TrueEndIfEndSubPrivateSubTimer3_Timer()If(t<10AndTimer1.Enabled=True)ThenIfpickbmp=0ThenForm12.Image1.Picture=Image2.PictureForm12.Image2.Picture=Image3.PictureForm12.Image3.Picture=Image1.Picturepickbmp=1Elsepickbmp=0EndIfEndIfEndSubPrivateSubCommand1_Click()Text11.Text=Val(Text1)+Val(Text2)+Val(Text3)+Val(Text4)+Val(Text5)EndSubPrivateSubCommand2_Click()Text12.Text=Val(Text6)+Val(Text7)+Val(Text8)+Val(Text9)+Val(Text10)EndSubPrivateSubCommand3_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideEndSubPrivateSubCommand4_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideForm14.ShowEndSubPrivateSubCommand1_Click()IfVal(Form13.Text11)>Val(Form13.Text12)ThenForm14.Label3=Form10.Label4Form14.Label4=F