大學計算機VB程序設計考試題目

實驗三第1題四那么運算題設計如下窗體，為五個命令按鈕編寫5段代碼完成四那么運算及退出程序，其中在計算除法時，如果第二個數(shù)是零，在消息框中顯示信息“除數(shù)為零〞。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,bAsSinglea=TextBox1.Textb=TextBox2.TextTextBox3.Text=a+bEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDima,bAsSinglea=TextBox1.Textb=TextBox2.TextTextBox3.Text=a-bEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDima,bAsSinglea=TextBox1.Textb=TextBox2.TextTextBox3.Text=a*bEndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDima,bAsSinglea=TextBox1.Textb=TextBox2.TextIfb=0ThenMessageBox.Show("除數(shù)為零")ElseTextBox3.Text=a/bEndIfEndSubPrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickEndEndSubEndClass第2題一元二次方程求解輸入系數(shù)后，單擊“求解〞按鈕后，根據(jù)判別式的3種不同情況，分別顯示如下的不同結(jié)果。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,b,c,deltaAsDoublea=TextBox1.Textb=TextBox2.Textc=TextBox3.Textdelta=b*b-4*a*cIfdelta>0ThenLabel5.Visible=TrueLabel6.Visible=TrueLabel4.Text="方程有兩個不相等實根"Label5.Text="X1="&((-b+Math.Sqrt(delta))/2/a)Label6.Text="X2="&((-b-Math.Sqrt(delta))/2/a)ElseIfdelta=0ThenLabel4.Text="方程有兩個相等實根"Label5.Visible=TrueLabel5.Text="X1=X2="&(-b/2/a)Label6.Visible=FalseElseLabel4.Text="方程沒有實根"Label5.Visible=FalseLabel6.Visible=FalseEndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSubEndClass第3題文本框中前景色和背景色的不同組合目的：單項選擇按鈕的使用〔1〕設計窗體如下所示窗體中包含兩組單項選擇按鈕、兩個框架和一個命令按鈕?！?〕程序功能：分別單擊不同的前景色和背景色按鈕，在文本框中顯示顏色的改變?！?〕設置控件的主要屬性1〕窗體的文本屬性為“不同前景色背景色的組合〞2〕初始前景色為紅色、背景色為黃色3〕其它屬性根據(jù)圖中顯示來設置〔4〕事件代碼PublicClassForm1PrivateSubRadioButton1_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton1.CheckedChangedTextBox1.ForeColor=Color.RedEndSubPrivateSubRadioButton2_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton2.CheckedChangedTextBox1.ForeColor=Color.GreenEndSubPrivateSubRadioButton3_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton3.CheckedChangedTextBox1.ForeColor=Color.BlackEndSubPrivateSubRadioButton4_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton4.CheckedChangedTextBox1.BackColor=Color.WhiteEndSubPrivateSubRadioButton5_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton5.CheckedChangedTextBox1.BackColor=Color.YellowEndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubEndClass第4題三位整數(shù)的反序顯示在窗體中添加二個文本框、二個標簽和一個命令按鈕，在一個文本框中輸入一個三位的整數(shù)，單擊命令按鈕后，在另一個框中按相反順序顯示該數(shù)，例如，輸入123，那么在另一個文本框中顯示321。提示：此題先將每位上的數(shù)字分解出來，這要用到整除和計算余數(shù)的運算符，例如123整除100后的結(jié)果1就是百位，而123除以10的余數(shù)就是個位，至于十位，大家可以自己確定。分解后的三位數(shù)再倒序組合成新的三位整數(shù)。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,b,c,d,yAsSinglea=TextBox1.Textb=a\100c=(a-100*b)\10d=a-100*b-10*cTextBox2.Text=d&c&bEndSubEndClass試驗五第1題累加編寫程序，計算1~100之間的所有偶數(shù)之和，程序窗口界面及控件自行設計。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi,sumAsLongFori=2To100Step2sum+=iNextTextBox1.Text=sumEndSubEndClass第2題使用循環(huán)求解水仙花數(shù)的問題要求：〔1〕參考教材上例4-3關(guān)于水仙花數(shù)的定義?！?〕程序窗口界面及控件與例4-3的結(jié)果即圖4-3一樣。〔3〕單擊“開始〞按鈕后，在文本框中顯示求出的結(jié)果。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimM,k1,k2,k3AsIntegerTextBox1.Clear()ForM=100To999k1=M\100k2=(M\10)Mod10k3=MMod10IfM=k1^3+k2^3+k3^3ThenTextBox1.Text+=M.ToString()+"="+k1.ToString()+"^3+"+k2.ToString()+"^3+"+k3.ToString()+"^3"+vbCrLfEndIfNextEndSubEndClass第3題統(tǒng)計整數(shù)的因子編寫程序，向一個文本框輸入一個整數(shù)，單擊“開始〞按鈕后，找出該數(shù)的所有因子，并統(tǒng)計因子的個數(shù)和總和，結(jié)果在另一個文本框中顯示，共有三行，其中第一行該數(shù)的所有因子，第二行顯示該數(shù)的因子個數(shù)，最后一行顯示該數(shù)所有因子之和，窗體界面如下：PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,b,c,dAsLongc=0a=TextBox1.Textb=1Whileb<=aIfaModb=0Thenc+=1d+=bTextBox2.Text="該整數(shù)的因子是："&+=CStr(b)+","+vbCrLf+"因子個數(shù)為："+c.ToString()+vbCrLf+"因子之和為："+d.ToString()EndIfb=b+1EndWhileEndSubEndClass第4題判斷素數(shù)編寫程序，判斷某個整數(shù)是否是素數(shù)，在一個文本框中輸入一個整數(shù)，單擊命令按鈕后，在另一個文本框中顯示該數(shù)是否是素數(shù)，程序代碼可以參考例4-10的代碼，在此根底上改寫。以下是輸入不同整數(shù)后的兩種不同的結(jié)果，窗體結(jié)構(gòu)也參照以下圖。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi,jAsIntegerDimflagAsBoolean=Truei=TextBox1.Textj=2Whilej<=i-1IfiModj=0Thenflag=FalseExitWhileEndIfj=j+1EndWhileIfflagThenTextBox2.Text="是素數(shù)"ElseTextBox2.Text="不是素數(shù)"EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSubEndClass試驗六第1題元素交換編寫程序，通過使用inputbox將10個整數(shù)放入一個一維數(shù)組中，然后將前5個元素和5個元素交換，方法是將第一個元素與第10個元素，第2個元素與第9個互換，依次類推，要求在文本框中顯示交換以前和交換以后的結(jié)果。提示:使用inputbox將10個整數(shù)放入一個一維數(shù)組中Fori=1To10a(i)=InputBox("請輸入整數(shù)")TextBox1.Text+=a(i).ToString+""Nextk=0TextBox1.Text+=vbCrLf+"交換后："Fori=1To10Ifi>5Thenk=a(i)a(i)=a(11-i)a(11-i)=kTextBox1.Text+=a(11-i).ToString+""Elsek=a(11-i)a(11-i)=a(i)a(i)=kTextBox1.Text+=a(i).ToString+""EndIfNext完整程序;PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima(10),kAsIntegerFori=1To10a(i)=InputBox("請輸入整數(shù)")TextBox1.Text+=a(i).ToString+""Nextk=0TextBox1.Text+=vbCrLf+"交換后："Fori=1To10Ifi>5Thenk=a(i)a(i)=a(11-i)a(11-i)=kTextBox1.Text+=a(11-i).ToString+""Elsek=a(11-i)a(11-i)=a(i)a(i)=kTextBox1.Text+=a(i).ToString+""EndIfNextTextBox1.Text="交換前："+TextBox1.TextEndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubEndClass第2題元素平均編寫程序，通過使用inputbox將10個整數(shù)放入一個一維數(shù)組中，然后計算這10個整數(shù)的平均值，在文本框中顯示平均值和這10個數(shù)中低于平均值的數(shù)PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima(10),sum,iAsIntegerDimavAsSingleFori=1To10a(i)=InputBox("請輸入整數(shù)")sum+=a(i)Nextav=sum/10Fori=1To10Ifa(i)<avThenTextBox1.Text+=a(i).ToString+""EndIfNextTextBox1.Text="該組數(shù)的平均值為："+av.ToString+vbCrLf+"小于平均值的數(shù)有："+TextBox1.TextEndSubEndClass第3題矩陣轉(zhuǎn)置編寫程序，實現(xiàn)矩陣轉(zhuǎn)置，即矩陣的行、列互換，將一個3行4列的矩陣轉(zhuǎn)換為4行3列，要示在文本框中分別顯示轉(zhuǎn)換前后的兩個矩陣。提示:str="交換前："+vbCrLfFori=0To3Forj=0To2str+=a(i,j).ToString()+""b(j,i)=a(i,j)Nextstr+=vbCrLfNextstr+="交換后:"+vbCrLfFori=0To2Forj=0To3str+=b(i,j).ToString+""Nextstr+=vbCrLfNext完整程序:PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima(,)AsInteger={{1,2,3,4},{4,5,6,7},{6,7,8,9}}Dimi,j,b(3,2)AsInteger,strAsStringstr="交換前："+vbCrLfFori=0To2Forj=0To3str+=a(i,j).ToString()+""b(j,i)=a(i,j)Nextstr+=vbCrLfNextstr+="交換后："+vbCrLfFori=0To3Forj=0To2str+=b(i,j).ToString()+""Nextstr+=vbCrLfNextTextBox1.Text=strEndSubEndClass試驗七:第1題完全數(shù)編寫程序，找出2~2000之間的所有完全數(shù)。完全數(shù)是指某個整數(shù)的每個因子之和正好等于該數(shù)本身，例如：因為6=1+2+3，28=1+2+4+7+14，所以這兩個數(shù)都是完全數(shù)。要求：〔1〕程序窗口界面及控件自行設計?！?〕單擊“開始〞按鈕后，在文本框中顯示求出的結(jié)果?！?〕請用進度條提示.PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,b,c,d,iAsIntegerFora=2To2000c=0Forb=1Toa-1d=aModbIfd=0Thenc+=bEndIfNextIfa=cThenTextBox1.Text+=a.ToString+""EndIfProgressBar1.Value=aNextEndSubEndClass第2題楊輝三角形打印以下的楊輝三角形〔打印10行〕。11112113311464115101051┋提示：〔1〕使用一個二維數(shù)組a保存這些數(shù)據(jù)〔2〕第0列、主對角線上元素都為1〔3〕其它元素為其上一行元素與上一行左側(cè)元素之和,即:a(I,j)=a(i-1,j)+a(i-1,j-1)PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima(10,10)AsIntegerDimi,jAsIntegera(1,1)=1Fori=2To10a(i,1)=1Forj=2Toia(i,j)=a(i-1,j-1)+a(i-1,j)NextNextFori=1To10Forj=1ToiTextBox1.Text+=a(i,j).ToString+""NextTextBox1.Text+=vbCrLfNextEndSubEndClass第3題求最小值建立一個4行3列的二維數(shù)組，找出其中最小的元素所在的行和列，并在文本框中輸出該值及其行、列位置。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima(,)AsInteger={{45,21,13},{42,15,16},{37,18,29},{39,51,62}}Dimi,j,m,bAsIntegerDimminAsInteger=100Fori=0To3Forj=0To2Ifa(i,j)<minThenmin=a(i,j)m=i+1:b=j+1EndIfNextNextTextBox1.Text+=min.ToString+""+m.ToString+"行"+b.ToString+"列"EndSubEndClass試驗八:第1題計算階乘設計如下的窗體，向第一個文本框中輸入一個整數(shù)，單擊“計算〞按鈕，在另外一個文本框中顯示該整數(shù)的階乘，要求，階乘的計算在按鈕的單擊事件中完成。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,b,cAsIntegera=TextBox1.Textb=1Forc=1ToaStep1b=b*cNextTextBox2.Text=bEndSubEndClass第2題計算階乘設計窗體與第1題相同，向第一個文本框中輸入一個整數(shù)，單擊“計算〞按鈕，在另外一個文本框中顯示該整數(shù)的階乘，要求采用SUB子過程計算階乘，整數(shù)通過參數(shù)傳遞，階乘在子過程中顯示。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimaAsIntegera=TextBox1.Textjch(a)EndSubSubjch(ByValnAsInteger)Dimi,sAsIntegers=1Fori=1Tons=s*iNextTextBox2.Text=sEndSubEndClass第3題計算階乘設計窗體與第1題相同，向第一個文本框中輸入一個整數(shù)，單擊“計算〞按鈕，在另外一個文本框中顯示該整數(shù)的階乘，要求采用FUCTION函數(shù)過程，整數(shù)通過參數(shù)傳遞，階乘由該過程返回。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimaAsIntegera=TextBox1.TextTextBox2.Text=jch(a)EndSubFunctionjch(ByValnAsInteger)Dimi,sAsIntegers=1Fori=1Tons=s*iNextReturnsEndFunctionEndClass第4題找出一維數(shù)組元素中的最大值和最小值設計窗體如以下圖，單擊“開始〞按鈕后，從鍵盤輸入10個整數(shù)，輸入到一維數(shù)組中，輸入時采用inputbox函數(shù)，見圖〔2〕，然后找出這10個數(shù)中的最大值和最小值，并在文本框中輸出，見圖，PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima(9),b,c,iAsIntegera(0)=InputBox("輸入第一個數(shù)")a(1)=InputBox("輸入第二個數(shù)")a(2)=InputBox("輸入第三個數(shù)")a(3)=InputBox("輸入第四個數(shù)")a(4)=InputBox("輸入第五個數(shù)")a(5)=InputBox("輸入第六個數(shù)")a(6)=InputBox("輸入第七個數(shù)")a(7)=InputBox("輸入第八個數(shù)")a(8)=InputBox("輸入第九個數(shù)")a(9)=InputBox("輸入第十個數(shù)")b=a(0):c=a(0)Fori=0To9Ifa(i)<bThenb=a(i)EndIfIfa(i)>cThenc=a(i)EndIfTextBox1.Text+=a(i).ToString+""NextTextBox1.Text=TextBox1.Text+vbCrLf+"最大數(shù)為："+c.ToString+vbCrLf+"最小數(shù)為："+b.ToStringEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSubEndClass試驗九:第1題計算數(shù)列之和求a+aa+aaa+aaaa+......+aa...a〔n個〕，其中a為1～9之間的整數(shù)。例如：當a=1,n=3時，求1+11+111之和；當a=5,n=7時，求5＋55＋555＋5555＋55555＋5555555之和。PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,n,s,i,m,bAsIntegera=TextBox1.Textn=TextBox2.Textb=nFori=1Tonm=a*(10^(i-1))*bb=b-1s=s+mNextTextBox3.Text=sEndSubEndClass第2題計算長方形的面積和周長設計如下的窗體，向前兩個文本框中分別輸入長和寬，單擊“計算〞，在另外一個文本框中顯示長方形的面積，要求采用FUNCTION函數(shù)過程計算面積，長和寬通過參數(shù)傳遞。Functionarea(ByRefaAsInteger,ByRefbAsInteger)AsLongDimmAsLongm=a*bReturnmEndFunctionFunctionccc(ByRefaAsInteger,ByRefbAsInteger)AsIntegerDimnAsIntegern=2*(a+b)ReturnnEndFunctionPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,b,cAsIntegerDimsAsLonga=TextBox1.Textb=TextBox2.Texts=area(a,b)c=ccc(a,b)TextBox3.Text=sTextBox4.Text=cEndSubEndClass第3題綜合題，統(tǒng)計各個分數(shù)段的人數(shù)設計窗體如下：編程要求：〔1〕單擊“開始〞按鈕后，顯示如下的消息框，向框中輸入總的人數(shù)：如果輸入的人數(shù)小于1，那么顯示以下的消息框，然后重新輸入人數(shù)〔2〕輸入人數(shù)后，接下來分別輸入這些學生的分數(shù)，如果輸入的分數(shù)不在0~100之間，那么顯示下面的消息框，然后重新輸入〔3〕輸入分數(shù)時同時統(tǒng)計每個分數(shù)段的人數(shù)，每個分數(shù)段按以下的規(guī)定：90~100：優(yōu)80~89：良70~79：中60~69：及格60分以下：不及格〔4〕最后按以下圖顯示統(tǒng)計后的結(jié)果：〔圖中是輸入10個分數(shù)后的結(jié)果〕PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimstrAsStringDimaAsIntegerstr="請輸入學生人數(shù)"a=InputBox(str)Ifa<1ThenMessageBox.Show("請重新輸入")EndIfDims(a),iAsIntegerFori=1Toastr="請輸入分數(shù)"s(i)=InputBox(str)Ifs(i)<0Ors(i)>100ThenMessageBox.Show("分數(shù)不對，請重新輸入")EndIfNextDimyou,liang,zhong,ji,buAsIntegerFori=1ToaIfs(i)>=90Thenyou+=1ElseIfs(i)>=80Thenliang+=1ElseIfs(i)>=70Thenzhong+=1ElseIfs(i)>=60Thenji+=1Else:bu+=1EndIfNextstr=""Fori=1Toastr+=s(i).ToString+""NextTextBox1.Text="分數(shù)："+vbCrLf+str+vbCrLf+"總?cè)藬?shù)"+"="+a.ToString+vbCrLf+"各等級分數(shù)的人數(shù)："+vbCrLf+"優(yōu)秀"+"="+you.ToString+vbCrLf+"良"+"="+liang.ToString+vbCrLf+"中"+"="+zhong.ToString+vbCrLf+"及格"+"="+ji.ToString+vbCrLf+"不及格"+"="+bu.ToStringEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTextBox1.Clear()EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSubEndClass試驗十:第1題計算二維數(shù)組每行的最大元素要求如下：〔1〕程序運行時，顯示如下的窗體，窗體中有兩個標簽、兩個文本框和四個命令按鈕：〔2〕單擊“顯示二維數(shù)組〞的按鈕時，在第一個文本框中顯示3行4列的二維數(shù)組，其中數(shù)組元素要求使用隨機函數(shù)產(chǎn)生，范圍在0~100之間，也就是每次單擊都產(chǎn)生不同的數(shù)據(jù)，如下所示：〔3〕單擊“計算各行最大值〞按鈕時，計算二維數(shù)組各行的最大值，并在第二個文本框中顯示，如下所示：〔4〕單擊“去除〞按鈕時，去除兩個文本框中的內(nèi)容?！?〕單擊“退出〞按鈕，結(jié)束程序的執(zhí)行。編程提示〔1〕由于兩段事件代碼都要用到同一個二維數(shù)組，因此，可以在過程之外定義如下的數(shù)組：Publica(2,3)AsInteger〔2〕“顯示二維數(shù)組〞的按鈕參考代碼如下：〔3〕“計算各行最大值〞按鈕參考代碼如下：PublicClassForm1Publica(2,3)AsIntegerPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi,jAsIntegerDimstrAsStringstr=""Randomize()Fori=0To2Forj=0To3a(i,j)=Int(Rnd()*100)str+=a(i,j).ToString+""Nextstr+=vbCrLfNextTextBox1.Text=strEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimi,j,maxAsIntegerDimstrAsStringstr=""Fori=0To2max=a(i,0)Forj=0To3Ifa(i,j)>maxThenmax=a(i,j)Nextstr+=max.ToString+vbCrLfNextTextBox2.Text=strEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickTextBox1.Clear()TextBox2.Clear()EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickEndEndSubEndClass第2題兩個一維數(shù)組對應元素相加此題的有些方法可參考上一題，要求如下：〔1〕程序運行時，顯示如下的窗體，窗體中有三個標簽、三個文本框和四個命令按鈕〔2〕單擊“產(chǎn)生兩個一維數(shù)組元素〞的按鈕時，在前兩個文本框中分別顯示含有10個元素的一維數(shù)組，其中數(shù)組元素要求使用隨機函數(shù)產(chǎn)生，范圍在0~100之間，〔3〕單擊“數(shù)組相加〞按鈕時，計算這兩個一維數(shù)組對應元素的和，即第0個元素和第0個相加，相加結(jié)果保存在第3個數(shù)組的第0個元素中，第1個和第1個相加，結(jié)果保存在第1個元素中，計算后在第三個文本框中顯示第三個一維數(shù)組，〔4〕單擊“去除〞按鈕時，去除三個文本框中的內(nèi)容?！?〕單擊“退出〞按鈕，結(jié)束程序的執(zhí)行。PublicClassForm1Publicc(10)AsIntegerPublica(10)AsIntegerPublicb(10)AsIntegerPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimiAsIntegerDimstr1,str2AsStringstr1=""str2=""Randomize()Fori=1To10a(i)=Int(Rnd()*100)str1+=a(i).ToString+""b(i)=Int(Rnd()*100)str2+=b(i).ToString+""NextTextBox1.Text=str1TextBox2.Text=str2EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimi,nAsIntegerDimstrAsStringstr=""Fori=1To10n=a(i)+b(i)str+=n.ToString+""TextBox3.Text=strNextEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickTextBox1.Clear()TextBox2.Clear()TextBox3.Clear()EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickEndEndSubEndClass第3題計算二維數(shù)組中的最大值及出現(xiàn)的次數(shù)〔1〕程序運行時，顯示如下的窗體，窗體中有二個文本框和四個命令按鈕〔2〕單擊“顯示二維數(shù)組〞的按鈕時，在第一個文本框中顯示3行4列的二維數(shù)組，其中數(shù)組元素要求使用隨機函數(shù)產(chǎn)生，范圍在0~100之間，也就是每次單擊都產(chǎn)生不同的數(shù)據(jù)〔3〕單擊“計算最大值〞按鈕時，計算二維數(shù)組中的最大值，并統(tǒng)計最大值出現(xiàn)的次數(shù)，并在第二個文本框中顯示〔4〕單擊“去除〞按鈕時，去除二個文本框中的內(nèi)容?！?〕單擊“退出〞按鈕，結(jié)束程序的執(zhí)行。PublicClassForm1Publica(2,3)AsIntegerPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi,jAsIntegerDimstrAsStringstr=""Randomize()Fori=0To2Forj=0To3a(i,j)=Int(Rnd()*100)str+=a(i,j).ToString+""Nextstr+=vbCrLfNextTextBox1.Text=strEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimb,i,j,maxAsIntegermax=a(0,0)b=0Fori=0To2Forj=0To3Ifa(i,j)>maxThenmax=a(i,j)NextNextFori=0To2Forj=0To3Ifa(i,j)=maxThenb+=1NextNextTextBox2.Text="最大值="+max.ToString+vbCrLf+"出現(xiàn)次數(shù)="+b.ToStringEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickTextBox1.Clear()TextBox2.Clear()EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickEndEndSubEndClass第4題計算一維數(shù)組元素的和設計窗體如以下圖〔1〕，單擊“開始〞按鈕后，從鍵盤輸入10個整數(shù)，輸入到一維數(shù)組中，輸入時采用inputbox函數(shù)，見圖〔2〕，然后調(diào)用FUNCTION函數(shù)過程，計算這里10個數(shù)的和，將和作為返回值在文本框中輸出，見圖〔3〕，其中輸入框的使用如下：Fori=1to10str="請輸入第"+i.ToString+"個整數(shù)"a(i)=InputBox(str)nextPublicClassForm1Publica(10)AsIntegerFunctionqiuhe(ByValcAsInteger)AsLongDimiAsIntegerFori=1To10c+=a(i)NextReturncEndFunctionPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi,mAsIntegerDimstrAsStringFori=1To10str="請輸入第"+i.ToString+"個整數(shù)"a(i)=InputBox(str)Nextm=qiuhe(m)TextBox1.Text="和="+m.ToStringEndSubEndClass第5題計算長方形的面積和周長設計如下的窗體，向前兩個文本框中分別輸入長和寬，單擊“計算〞，在另外兩個文本框中顯示長方形的面積和周長，要求采用SUB函數(shù)過程計算面積和周長，長和寬通過參數(shù)傳遞，面積和周長通過引用傳遞返回。其中計算面積的SUB過程參考代碼如下：Subarea(ByValheightAsInteger,byvalwidthasinteger,byrefsasinteger,byreflasinteger)DimsasintegerS=height*widthL=(height+width)*2EndSub完整程序:PublicClassForm1Subarea(ByValheightAsInteger,ByValwidthAsInteger)DimsAsIntegerDimlAsIntegers=height*widthl=(height+width)*2TextBox3.Text=s.ToStringTextBox4.Text=l.ToStringEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,bAsIntegera=TextBox1.Textb=TextBox2.Textarea(a,b)EndSubEndClass試驗十一第1題畫圖參考如下的代碼，在窗體中繪制不同的圖形，繪制時可以采用不同的工具、顏色和線寬。要求：繪制的圖形在顏色、位置、寬度等方面與例題不要完全相同。在繪圖中應明確以下的問題：〔1〕不同工具的定義方法〔2〕所使用的坐標系〔3〕所繪圖形的位置〔4〕不同圖形的繪制方法。PublicClassForm1PrivateSubForm1_Paint(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.PaintEventArgs)HandlesMe.PaintDimgAsGraphics=e.GraphicsDimpengreenAsPen=NewPen(Color.Green)DimpenyellowAsPen=NewPen(Color.Yellow,5)DimbrushSolidAsSolidBrush=NewSolidBrush(Color.DarkGreen)DimfontMyfavorAsFont=NewFont("幼圓",26,FontStyle.Italic)DimptP1AsPoint=NewPoint(12,12)DimptP2AsPoint=NewPoint(50,90)g.DrawLine(penyellow,55,55,224,99)g.DrawLine(pengreen,ptP1,ptP2)g.DrawRectangle(pengreen,55,200,100,100)g.DrawEllipse(penyellow,0,0,300,200)g.DrawEllipse(pengreen,300,0,400,300)g.FillEllipse(brushSolid,155,200,100,100)g.DrawEllipse(pengreen,300,0,400,300)g.DrawString("歡送來到西安交通大學！",fontMyfavor,brushSolid,0,400)EndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubEndClass第2題創(chuàng)立菜單〔1〕使用工具欄中的菜單控件創(chuàng)立菜單，主菜單