VB基本控制結(jié)構(gòu)試驗報告

本文格式為Word版，下載可任意編輯——VB基本控制結(jié)構(gòu)試驗報告試驗題目姓名基本控制結(jié)構(gòu)班級小組合作否學號一、試驗目的1、把握表達式、賦值語句的正確書寫規(guī)則。2、把握InputBox與MsgBox的使用。3、把握規(guī)律表達式的正確書寫形式。4、把握For語句的各種形式的使用。5、把握Do語句各種形式的使用。二．試驗環(huán)境VB.NET和相關硬件三、試驗內(nèi)容與步驟1、分別隨機生成3個正整數(shù)，其中1個1位數(shù)、1個2位數(shù)、1個3位數(shù)，計算它們的平均值，保存2位小數(shù)。2、窗體上2個命令按鈕，第一個按鈕顯示“VB.NET〞和圖標、其次個按鈕顯示“畫圖〞。3、利用計算機解決古代數(shù)學問題“雞兔同籠問題〞。4、編寫一個“個人簡歷表〞程序。5、用單循環(huán)顯示有規(guī)律圖形。利用TextBox、ProgressBar、Timer控件設計一個帶有進度條的倒計時程序。四、試驗過程與分析一、PublicClass二-1DimaAsDoublePrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickMe.Close()EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickRandomize()TextBox1.Text=Int(Rnd()*9+1)TextBox2.Text=Int(Rnd()*90+10)TextBox3.Text=Int(Rnd()*900+100)EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Clicka=(Val(TextBox1.Text)+Val(TextBox2.Text)+Val(TextBox3.Text))/3TextBox4.Text=Format(a,\)EndSubEndClass二、PublicClass二_7PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickShell(\)EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickShell(\)EndSubEndClass三、PublicClass試驗3_5PrivateSubTextBox1_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox1.TextChangedEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIf(Val(TextBox1.Text)0)ThenMsgBox(\請輸入偶數(shù)\)TextBox2.Text=\TextBox2.Focus()EndIfDimxAsIntegerDimyAsIntegerx=Val(TextBox1.Text)-yy=Val(TextBox2.Text)/2-Val(TextBox1.Text)Ifx0)Or(y-Fix(y)0)ThenMsgBox(\荒唐解，請重新輸入\)EndIfLabel2.Text=Str(x)&Str(y)EndSubEndClass四、PublicClass試驗3_11DimxbAsStringDimxlAsStringDimzyAsStringDimah1,ah2,ah3,ah4AsStringPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfRadioButton1.CheckedThenxb=RadioButton1.TextElsexb=RadioButton2.TextEndIfIfRadioButton3.CheckedThenxl=RadioButton3.TextElseIfRadioButton4.CheckedThenxl=RadioButton4.TextElse:xl=RadioButton5.TextEndIfIfRadioButton6.CheckedThenzy=RadioButton6.TextElseIfRadioButton7.CheckedThenzy=RadioButton7.TextElse:zy=RadioButton8.TextEndIfIfCheckBox1.CheckedThenah1=CheckBox1.TextEndIfIfCheckBox2.CheckedThenah2=CheckBox2.TextEndIfIfCheckBox3.CheckedThenah3=CheckBox3.TextEndIfIfCheckBox4.CheckedThenah4=CheckBox4.TextEndIfLabel3.Text=\簡歷\&vbCrLf&\姓名：\+TextBox1.Text&vbCrLf+\年齡：\+TextBox2.Text&vbCrLf+\性別：\+xb&vbCrLf+\學歷：\+xl&vbCrLf+\職業(yè)：\+zy&vbCrLf+\愛好：\+ah1+\+ah2+\+ah3+\+ah4EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickLabel3.Text=\TextBox1.Text=\TextBox2.Text=\IfCheckBox1.CheckState=CheckState.CheckedThenCheckBox1.CheckState=CheckState.UncheckedEndIfIfCheckBox2.CheckState=CheckState.CheckedThenCheckBox2.CheckState=CheckState.UncheckedEndIfIfCheckBox3.CheckState=CheckState.CheckedThenCheckBox3.CheckState=CheckState.UncheckedEndIfIfCheckBox4.CheckState=CheckState.CheckedThenCheckBox4.CheckState=CheckState.UncheckedEndIfEndSubEndClass

五、PublicClass試驗4_1PrivateSubLabel1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLabel1.ClickEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimnAsIntegerForn=1To25Step2Label1.Text+=vbCrLf+Space(26-n)+StrDup(n,\★\)NextEndSubEndClass六、PublicClass試驗4_10PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickMe.Close()EndSubPrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickDimn,n1,n2AsIntegerIfProgressBar1.Value=0ThenTimer1.Enabled=FalseMsgBox(\計時終止\,16,\提醒\)ElseDimsAsStrings=TextBox1.Textn=InStr(s,\)n1=Val(Mid(s,1,n-1))n2=Val(Mid(s,n+1))Ifn2=0ThenIfn1>0Thenn1=n1-1n2=60EndIfElsen2=n2-1EndIfTextBox1.Text=Str(n1)+\+Str(n2)