程序设计实验指导答案代码Word文档格式.docx
- 文档编号:22701019
- 上传时间:2023-02-05
- 格式:DOCX
- 页数:5
- 大小:16.57KB
程序设计实验指导答案代码Word文档格式.docx
《程序设计实验指导答案代码Word文档格式.docx》由会员分享,可在线阅读,更多相关《程序设计实验指导答案代码Word文档格式.docx(5页珍藏版)》请在冰豆网上搜索。
程序设计实验指导答案代码@#@实验一dima20asintergers10asintergerprivatesubbutton1_click.....handlesbutton1.clickdimijtextbox1.textquotquotfori1to20aiintrnd101textbox1.textampaiampspace6-lenaijai10selectcasejcase0to5s5s51case9to10s9s91case6to8sjsj1endselectnextiendsubprivatesubbutton2_click...handlesbutton2.clicktextbox2.textquot0-59:
@#@quotamps5ampvbcrlftextbox2.textquot60-69:
@#@quotamps6ampvbcrlftextbox2.textquot70-79:
@#@quotamps7ampvbcrlftextbox2.textquot80-89:
@#@quotamps8ampvbcrlftextbox2.textquot90-100:
@#@quotamps9ampvbcrlfbuton1dimlamp100dimijnnvaltextbox1.textfori1tonlampi0nextfori2tonforjitonifjmodi0theniflampj1thenlampj0elselampj1endifendifnextnext输出forj1toniflampj1thenlabel1.textquot第quotampsrjampquot盏灯亮quotampvbnewlineendifnextendsubtextbox1.ifnotisnumerictextbox1.textorvaltextbox1.textlt0thenmsgboxquot请输入正整数quottextbox1.textquotquottextbox1.text.focusendifendsub实验二SY2.1PrivateSubButton2_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton2.ClickDimfccValTextBox2.Textf9/5c32TextBox1.TextFormatfquot.quotEndSubSy2.2PublicClassForm1DimRMBAsIntegerDimChangeDolAsDoublePrivateSubButton1_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton1.ClickTextBox1.TextquotquotTextBox2.TextquotquotTextBox3.TextquotquotEndSubPrivateSubButton4_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton4.ClickEndEndSubPrivateSubButton2_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton2.ClickRMBValTextBox1.TextChangeValTextBox2.TextDolRMB/ChangeTextBox3.TextFormatDolquot.quotEndSubPrivateSubButton3_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton3.ClickDolValTextBox3.TextChangeValTextBox2.TextRMBDolChangeTextBox1.TextFormatRMBquotquotEndSubEndClassSy2.3PublicClassForm1DimPI3.1415926DimSquareCircleRPrivateSubTextBox1_TextChangedByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesTextBox1.TextChangedIfIsNumericTextBox1.TextFalseOrTextBox1.TextquotquotThenMsgBoxquot请输入数字quotElseIfTextBox1.Textlt0ThenMsgBoxquot请输入正数quotEndIfEndSubPrivateSubButton1_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton1.ClickRValTextBox1.TextSquarePIRRTextBox2.TextFormatSquarequot.quotEndSubPrivateSubButton2_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton2.ClickRValTextBox1.TextCircle2PIRTextBox3.TextFormatCirclequot.quotEndSubEndClassSy2.4PrivateSubForm1_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesMyBase.ClickIfTextBox1.TextltgtquothelloquotThenMsgBoxquot用户名不对quotElseIfIsNumericTextBox2.TextFalseThenTextBox2.TextquotquotTextBox2.FocusElseIfValTextBox2.Textlt0ThenMsgBoxquot请输入正数quotElseIfTextBox2.Textltgtquot123456quotThenMsgBoxquot密码错误quotElseMsgBoxquot登录成功quotEndIfEndSub实验三Sy3.2PublicClassForm1PrivateSubButton2_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton2.ClickTextBox1.TextquotquotTextBox2.TextquotquotTextBox3.TextquotquotTextBox4.TextquotquotTextBox1.FocusEndSubPrivateSubButton3_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton3.ClickEndEndSubPrivateSubButton1_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton1.ClickDimxyzmxValTextBox1.TextyValTextBox2.TextzValTextBox3.TextIfxgtyAndygtzThenmxxzzmElseIfxgtyAndyltzAndxltzThenmxxyymElseIfxgtyAndyltzAndxgtzThenmxxzzmmxxyymElseIfxltyAndygtzAndxgtzThenmxxzzmmzzyymElseIfxltyAndygtzAndxltzThenmyyzzmElseIfxltyAndyltzThenEndIfTextBox4.TextxampquotltquotampyampquotltquotampzEndSubEndClassSy3.3PrivateSubButton2_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton2.ClickTextBox1.TextquotquotTextBox2.TextquotquotTextBox3.TextquotquotTextBox4.TextquotquotEndSubPrivateSubButton3_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton3.ClickEndEndSubPrivateSubButton1_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton1.ClickDimm1m2m3avgDimrankAsStringm1ValTextBox1.Textm2ValTextBox2.Textm3ValTextBox3.Textavgm1m2m3/3Ifavglt80ThenTextBox4.Textquot无奖quotElseIfavggt80Andavglt85ThenTextBox4.Textquot三等奖quotElseIfavggt85Andavglt90Andm1gt80Andm2gt80Andm3gt80ThenTextBox4.Textquot二等奖quotElseIfavggt90ThenTextBox4.Textquot一等奖quotElseIfm1100Andm2100Andm3gt85ThenTextBox4.Textquot一等奖quotElseIfm1100Andm2gt85Andm3100ThenTextBox4.Textquot一等奖quotElseIfm1gt85Andm2100Andm3100ThenTextBox4.Textquot一等奖quotEndIfEndSubSy3.4PrivateSubButton1_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton1.ClickDimDFNXDYDTSUMPSUMValTextBox1.TextIfCheckBox1.CheckedThenDF0.95ElseDF1EndIfIfRadioButton4.CheckedTrueThenDT1ElseIfRadioButton5.CheckedTrueThenDT0.9EndIfIfRadioButton1.CheckedTrueThenNX10DY0.05ElseIfRadioButton2.CheckedTrueThenNX20DY0.08ElseIfRadioButton3.CheckedTrueThenNX30DY0.1EndIfPSUM1DYDTDF/NX12TextBox2.TextFormatPquot.quotEndSubSy3.5PrivateSubButton1_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton1.ClickDimabcx1x2p1p2aValTextBox1.TextbValTextBox2.TextcValTextBox3.Textp1bb-4acp2Math.Sqrtbb-4acIfa0Thenx1-b/cx2x2.ToStringquotquotTextBox4.TextFormatx1quot.quotx2.ToStringFormatx2quot.quotElseIfp1gt0Thenx1-bp2/2ax2-b-p2/2aTextBox4.TextFormatx1quot.quottextbox5.TextFormatx2quot.quotElseIfp1lt0Thenx1x1.ToStringquotquotx2x2.ToStringquotquotElsep10x1-b/2ax2-b/2aTextBox4.TextFormatx1quot.quottextbox5.TextFormatx2quot.quotEndIfEndIfEndSubPrivateSubButton2_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton2.ClickEndEndSub实验四Sy4.1PrivateSubForm1_LoadByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesMyBase.LoadDimijLabel1.TextAlignContentAlignment.TopCenterFori1To5Label1.Textampquot★quotForj1To14-3i-1Label1.Textampquot☆quotNextLabel1.Textampquot★quotampvbNewLineNextLabel1.Textampquot☆quotampvbNewLine第六行Fori1To5Label1.Textampquot☆quotForj1To23i-1Label1.Textampquot★quotNextLabel1.Textampquot☆quotampvbNewLineNextEndSubSy4.2PrivateSubButton1_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton1.ClickDimdisAsDoubleiAsIntegerFori1To3600dis1/iNextTextBox1.FocusTextBox1.TextFormatdisquot.米quotEndSubPrivateSubButton2_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton2.ClickDimdisAsDouble0iAsDouble1tDoWhiledislt20dis1/ii1Loopti/360024TextBox2.FocusTextBox2.TextFormattquot.天quotTextBox2.TextStriampquot秒quotEndSubSy4.3PrivateSubButton1_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton1.ClickDimlvfbjDimqxAsIntegeriAsIntegerjeAsSinglebjValTextBox1.TextlvValTextBox2.Text/100qxNumericUpDown1.ValueLabel4.Textquot年quotampSpace10ampquot账户金额quotampvbNewLineFori1ToqxfMath.Pow1lvijebjfLabel4.TextampStriampSpace10ampStrjeampvbNewLineNextEndSubSy4.4PrivateSubButton1_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton1.ClickDimx1x2xiAsIntegerx11:
@#@x21tx1x2Fori3To12xx1x2x1x2x2xtxLabel1.TextFormatxquot对兔子quotNextEndSubSy4思考PrivateSubButton1_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton1.ClickDimdkqxAsIntegerdklAsIntegeriAsIntegermyyhAsSingleDimylvqcjgdjnlvqcjgValTextBox1.TextdjValTextBox2.TextnlvValTextBox3.Textylvnlv/12100Label4.TextquotMonthsquotampSpace10ampquotMonthlyquotampSpace1ampquotPaymentsquotampvbNewLineFori2To5dkqxi12dklqcjg-djmyyhPmtylvdkqx-dklLabel4.TextampStrdkqxampSpace13ampquotquotampSpace1ampStrmyyhampvbNewLineNextEndSub实验五5.2输入整数n显示出具有n行的杨辉三角形。
@#@一个具有8行的杨辉三角形运行结果如图所示。
@#@图中两种输出效果在程序中有什么微笑的效果PublicClassForm1PrivateSubButton1_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton1.ClickDimA100100AsIntegerDimiAsIntegerjAsIntegerkAsIntegernAsIntegernValTextBox1.TextLabel1.Textquotquot计算Fori0Ton-1Ai01Aii1NextForj2Ton-1Fork1Toj-1Ajj-kAj-1j-k-1Aj-1j-kNextNext输出Fori0Ton-1Label1.TextampSpace30-3iForj0ToiLabel1.TextampAijampSpace5NextLabel1.TextampvbNewLineNextEndSub加个限定条件PrivateSubTextBox1_LostFocusByValsenderAsObjectByValeAsSystem.EventArgsHandlesTextBox1.LostFocusIfNotIsNumericTextBox1.TextOrValTextBox1.Textgt10OrValTextBox1.Textlt0ThenMsgBoxquot请输入小于10的正整数quotTextBox1.TextquotquotTextBox1.FocusEndIfEndSubEndClass5.3PublicClassForm1Dimword10Dimi0jkPrivateSubButton1_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton1.ClickIfTextBox1.TextltgtquotquotThenLabel3.TextTextBox1.TextampvbNewLinewordiTextBox1.TextTextBox1.TextquotquotTextBox1.Focusi1Array.SortwordArray.ReversewordEndIfEndSubPrivateSubButton2_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton2.ClickFori0Toword.Length-1Label4.TextwordiampvbNewLineNextEndSubEndClass5.4PrivateSubButton1_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton1.ClickDimlamp100Dimi
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序设计 实验 指导 答案 代码