vb實驗編程答案

實驗教程 實驗三 順序結構程序設計編程題參考答案 （第47頁） 1. 輸入學生的語文、數(shù)學、英語、物理四門課程的成績，計算該學生的總成績和平均成績并輸出。要求使用InputBox分別進行輸入，使用Print 方法輸出。 2. 輸入圓的半徑，輸出其周長、面積。要求使用TextBox控件進行輸入，使用Label控件輸出。 3. 輸入一元二次方程ax2+bx+c=0 的系數(shù)a、b、c，輸出兩個實根。要求使用TextBox控件分別進行輸入，使用Label控件輸出。 實驗四 選擇結構程序設計編程題參考答案 （第58頁） 1. 輸入一個，判斷其是否能同時被3和7整除。 2. 輸入三個數(shù)，輸出其中的最大值。 Y= t2 t<1 t2-1 1≤t<2 t2-2t+1 2≤t<3 t2+4t-17 t≥3 6. 編程及輸出分段函數(shù)的值。由鍵盤輸入t的值，計算y的值 7. 輸入年齡，輸出所處人群：9歲以下為兒童，輸出A；10～19為少年，輸出B；20～29為青年，輸出B；30～49為中年，輸出B； 50以上為老年，輸出E；要求使用Select Case語句實現(xiàn)。 8. 輸入年份，輸出對應的屬相。已知1984年為鼠年，要求使用Select Case語句實現(xiàn)。 實驗五 循環(huán)結構程序設計編程題參考答案 （第77頁） 1. 編寫程序，求s=1×2×3 + 2×3×4 + … + n×(n+1) ×(n+2)的值，n由程序輸入。 2.有一個分數(shù)序列 ，求出這個序列前20項的和。 3. 求（即1！+2！+3！+…+10?。? 4. 求一類三位數(shù)，該書中有某兩位為相同數(shù)字，且該數(shù)是一個完全平方數(shù)，輸出這些數(shù)并統(tǒng)計個數(shù)。 5. 輸出所有的“水仙花數(shù)”?！八苫〝?shù)”是指一個三位數(shù)，其各位數(shù)字立方和等于該數(shù)本身。例如，371是一個水仙花數(shù)，因為371=33+73+13 6. 打印如圖所示的乘法表 實驗六 定長數(shù)組的使用編程題參考答案 （第96頁） 1.定義一個包含10個數(shù)組元素的數(shù)組a，為其數(shù)組元素分別賦值為2、4、6、8、…20，并輸出。 2. 輸入十個評委的分數(shù)，去掉最高分和最低分后，計算最后的平均分并輸出。 3.輸入5個學生的姓名與一門課程的成績，按成績的升序輸出姓名和成績。分別使用比較互換法、選擇法和冒泡法實現(xiàn)。 4. 輸出5×5的矩陣，除對角線上的元素為1外，其他數(shù)組元素的值均為0。 5. 輸入5×5的矩陣，求出每列元素之和，并把和值最大的那一列上的各元素和第一列各元素進行對調(diào)。 7. 輸入十個學生的三門課程的成績，并進行如下操作。 (1) 計算并輸出每門課程的平均分。 (2) 輸出每門課程中的最高分與最低分。 (3) 計算每個學生的平均分。 (4) 按學生的平均分進行降序排序。 實驗七 動態(tài)數(shù)組、控件數(shù)組與自定義類型的數(shù)組編程題參考答案 （第10頁） 6. 自定義學生類型，包括學生姓名、學號和成績，輸入學生人數(shù)n，并輸入學生的信息，按成績進行降序排序后輸出。程序界面設計如下圖。 實驗七 過程編程題參考答案 （第123頁） 2．編寫子過程Sub ArraySa(a() As Integer, sum As Single, aver As Single)，該過程的功能是求一維數(shù)組a的元素和與平均值，并通過參數(shù)sum 和aver 返回結果。 4．編程子過程Sub movearray(a() As Integer, lr As Boolean, n As Integer)，該過程的功能是使一維數(shù)組元素左移或者右移若干位。其中參數(shù)a()是數(shù)組、lr參數(shù)指示位移的方向（True向左移，F(xiàn)alse向右移）、n參數(shù)確定移動的位數(shù)。程序界面如下圖 實驗八 函數(shù)過程編程題參考答案 （第137頁） 1．編寫程序，利用Function函數(shù)計算下式的值。 實驗十一 VB的常用控件編程題參考答案 （第123頁） 1．利用命令按鈕控制改變文字的顯示區(qū)域。程序界面如圖所示，單擊按鈕“更該區(qū)域”按鈕，將使“標簽練習”幾個字依次在上下兩個顯示區(qū)域（兩個標簽中）顯示。 2．利用命令按鈕控制改變文字的顯示顏色。 在上題基礎上，添加一個按鈕并將其Cption設為“更改顏色”，單擊按鈕，使標簽的字體顏色依次按紅、綠、藍變化。 提示：設置標簽的字體顏色可以用RGB函數(shù)。例如： Label1.ForeColor = RGB(255,0,0) ‘設置紅色 Label1.ForeColor = RGB(0,255,0) ‘設置綠色 Label1.ForeColor = RGB(0,0,255) ‘設置藍色