程序设计实验指导答案代码

《程序设计实验指导答案代码》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、实验一dima20asintergers10asintergerprivatesubbutton1_click.....handlesbutton1.clickdimijtextbox1.textquotquotfori1to20aiintrnd101textbox1.textampaiampspace6-lenaijai10selectcasejcase0to5s5s51case9to10s9s91case6to8sjsj1endselectnextiendsubprivatesubbutton2_click...han

2、dlesbutton2.clicktextbox2.textquot0-59:quotamps5ampvbcrlftextbox2.textquot60-69:quotamps6ampvbcrlftextbox2.textquot70-79:quotamps7ampvbcrlftextbox2.textquot80-89:quotamps8ampvbcrlftextbox2.textquot90-100:quotamps9ampvbcrlfbuton1dimlamp100dimijnnvaltextbox1.textfor

3、i1tonlampi0nextfori2tonforjitonifjmodi0theniflampj1thenlampj0elselampj1endifendifnextnext输出forj1toniflampj1thenlabel1.textquot第quotampsrjampquot盏灯亮quotampvbnewlineendifnextendsubtextbox1.ifnotisnumerictextbox1.textorvaltextbox1.textlt0thenmsgboxquot请输入正整数quottextb

4、ox1.textquotquottextbox1.text.focusendifendsub实验二SY2.1PrivateSubButton2_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton2.ClickDimfccValTextBox2.Textf9/5c32TextBox1.TextFormatfquot.quotEndSubSy2.2PublicClassForm1DimRMBAsIntegerDimChangeDolAsDou

5、blePrivateSubButton1_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton1.ClickTextBox1.TextquotquotTextBox2.TextquotquotTextBox3.TextquotquotEndSubPrivateSubButton4_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton4.ClickEndEnd

6、SubPrivateSubButton2_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesButton2.ClickRMBValTextBox1.TextChangeValTextBox2.TextDolRMB/ChangeTextBox3.TextFormatDolquot.quotEndSubPrivateSubButton3_ClickByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHand

7、lesButton3.ClickDolValTextBox3.TextChangeValTextBox2.TextRMBDolChangeTextBox1.TextFormatRMBquotquotEndSubEndClassSy2.3PublicClassForm1DimPI3.DimSquareCircleRPrivateSubTextBox1_TextChangedByValsenderAsSystem.ObjectByValeAsSystem.EventArgsHandlesTextBox1.TextChanged

8、IfIsNumericTextBox1.TextFalseOrTextBox1.TextquotquotThenMsgBoxquot请输入数字quotElseIfTextBox1.Textlt0ThenMsgBoxquot请输入正数quotEndIfEndSubPrivateSubButton1_Cli