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

1、實驗三第1題 四則運算題設計如下窗體，為五個命令按鈕編寫5段代碼完成四則運算及退出程序，其中在計算除法時，如果第二個數(shù)是零，在消息框中顯示信息“除數(shù)為零”。Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b As Single a = TextBox1.Text b = TextBox2.Text TextBox3.Text = a + b End Sub Private Su

2、b Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim a, b As Single a = TextBox1.Text b = TextBox2.Text TextBox3.Text = a - b End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim a, b

3、As Single a = TextBox1.Text b = TextBox2.Text TextBox3.Text = a * b End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim a, b As Single a = TextBox1.Text b = TextBox2.Text If b = 0 Then MessageBox.Show("除數(shù)為零") Else TextBox3

4、.Text = a / b End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click End End SubEnd Class第2題 一元二次方程求解輸入系數(shù)后，單擊“求解”按鈕后，根據(jù)判別式的3種不同情況，分別顯示如下的不同結果。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Sy

5、stem.EventArgs) Handles Button1.Click Dim a, b, c, delta As Double a = TextBox1.Text b = TextBox2.Text c = TextBox3.Text delta = b * b - 4 * a * c If delta > 0 Then Label5.Visible = True Label6.Visible = True Label4.Text = "方程有兩個不相等實根" Label5.Text = "X1=" & (-b + Math.Sqrt

6、(delta) / 2 / a) Label6.Text = "X2=" & (-b - Math.Sqrt(delta) / 2 / a) ElseIf delta = 0 Then Label4.Text = "方程有兩個相等實根" Label5.Visible = True Label5.Text = "X1=X2=" & (-b / 2 / a) Label6.Visible = False Else Label4.Text = "方程沒有實根" Label5.Visible = False

7、 Label6.Visible = False End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End SubEnd Class第3題 文本框中前景色和背景色的不同組合目的：單選按鈕的使用（1）設計窗體如下所示窗體中包含兩組單選按鈕、兩個框架和一個命令按鈕。（2）程序功能：分別單擊不同的前景色和背景色按鈕，在文本框中顯示顏色的改變。（3）設置控件的主要屬性1）窗體的文本屬性為“不同前景色背景

8、色的組合”2）初始前景色為紅色、背景色為黃色3）其它屬性根據(jù)圖中顯示來設置（4）事件代碼Public Class Form1 Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged TextBox1.ForeColor = Color.Red End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System

9、.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged TextBox1.ForeColor = Color.Green End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged TextBox1.ForeColor = Color.Black End Sub Private

10、Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged TextBox1.BackColor = Color.White End Sub Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedCha

11、nged TextBox1.BackColor = Color.Yellow End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End SubEnd Class第4題 三位整數(shù)的反序顯示在窗體中添加二個文本框、二個標簽和一個命令按鈕，在一個文本框中輸入一個三位的整數(shù)，單擊命令按鈕后，在另一個框中按相反順序顯示該數(shù)，例如，輸入123，則在另一個文本框中顯示321。 提示：本題先將每位上的數(shù)字分解出來，這要用到整除和計算余數(shù)的運

12、算符，例如123整除100后的結果1就是百位，而123除以10的余數(shù)就是個位，至于十位，大家可以自己確定。分解后的三位數(shù)再倒序組合成新的三位整數(shù)。Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, c, d, y As Single a = TextBox1.Text b = a 100 c = (a - 100 * b) 10 d = a - 100 * b - 10 *

13、c TextBox2.Text = d & c & b End SubEnd Class試驗五第1題 累加編寫程序，計算1100之間的所有偶數(shù)之和，程序窗口界面及控件自行設計。Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, sum As Long For i = 2 To 100 Step 2 sum += i Next TextBox1.Text = sum

14、End SubEnd Class第2題 使用循環(huán)求解水仙花數(shù)的問題要求：（1）參考教材上例4-3關于水仙花數(shù)的定義。（2）程序窗口界面及控件與例4-3的結果即圖4-3一樣。 （3）單擊“開始”按鈕后，在文本框中顯示求出的結果。Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim M, k1, k2, k3 As Integer TextBox1.Clear() For M = 100 To

15、 999 k1 = M 100 k2 = (M 10) Mod 10 k3 = M Mod 10 If M = k1 3 + k2 3 + k3 3 Then TextBox1.Text += M.ToString() + " = " + k1.ToString() + "3+" + k2.ToString() + "3+" + k3.ToString() + "3" + vbCrLf End If Next End SubEnd Class第3題 統(tǒng)計整數(shù)的因子編寫程序，向一個文本框輸入一個整數(shù)，單擊“開始”按鈕

16、后，找出該數(shù)的所有因子，并統(tǒng)計因子的個數(shù)和總和，結果在另一個文本框中顯示，共有三行，其中第一行該數(shù)的所有因子，第二行顯示該數(shù)的因子個數(shù)，最后一行顯示該數(shù)所有因子之和，窗體界面如下：Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, c, d As Long c = 0 a = TextBox1.Text b = 1 While b <= a If a Mod b = 0

17、 Then c += 1 d += b TextBox2.Text = "該整數(shù)的因子是：" & +=CStr(b) + "," + vbCrLf + "因子個數(shù)為：" + c.ToString() + vbCrLf + "因子之和為：" + d.ToString() End If b = b + 1 End While End SubEnd Class第4題 判斷素數(shù)編寫程序，判斷某個整數(shù)是否是素數(shù)，在一個文本框中輸入一個整數(shù)，單擊命令按鈕后，在另一個文本框中顯示該數(shù)是否是素數(shù)，程序代碼可以參考例4-10

18、的代碼，在此基礎上改寫。以下是輸入不同整數(shù)后的兩種不同的結果，窗體結構也參照下圖。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Dim flag As Boolean = True i = TextBox1.Text j = 2 While j <= i - 1 If i Mod j = 0 Then flag = False Exit Wh

19、ile End If j = j + 1 End While If flag Then TextBox2.Text = "是素數(shù)" Else TextBox2.Text = "不是素數(shù)" End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End SubEnd Class試驗六第1題 元素交換編寫程序，通過使用inputbox將10個整數(shù)放入一個一維數(shù)組中

20、，然后將前5個元素和5個元素交換，方法是將第一個元素與第10個元素，第2個元素與第9個互換，依次類推，要求在文本框中顯示交換以前和交換以后的結果。提示: 使用inputbox將10個整數(shù)放入一個一維數(shù)組中 For i = 1 To 10 a(i) = InputBox("請輸入整數(shù)") TextBox1.Text += a(i).ToString + " " Next k = 0 TextBox1.Text += vbCrLf + "交換后：" For i = 1 To 10 If i > 5 Then k = a(i) a(i

21、) = a(11 - i) a(11 - i) = k TextBox1.Text += a(11 - i).ToString + " " Else k = a(11 - i) a(11 - i) = a(i) a(i) = k TextBox1.Text += a(i).ToString + " " End If Next完整程序; Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handle

22、s Button1.Click Dim a(10), k As Integer For i = 1 To 10 a(i) = InputBox("請輸入整數(shù)") TextBox1.Text += a(i).ToString + " " Next k = 0 TextBox1.Text += vbCrLf + "交換后：" For i = 1 To 10 If i > 5 Then k = a(i) a(i) = a(11 - i) a(11 - i) = k TextBox1.Text += a(11 - i).ToString

23、 + " " Else k = a(11 - i) a(11 - i) = a(i) a(i) = k TextBox1.Text += a(i).ToString + " " End If Next TextBox1.Text = "交換前： " + TextBox1.Text End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End SubEnd Class第2

24、題 元素平均編寫程序，通過使用inputbox將10個整數(shù)放入一個一維數(shù)組中，然后計算這10個整數(shù)的平均值，在文本框中顯示平均值和這10個數(shù)中低于平均值的數(shù)Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(10), sum, i As Integer Dim av As Single For i = 1 To 10 a(i) = InputBox("請輸入整數(shù)"

25、) sum += a(i) Next av = sum / 10 For i = 1 To 10 If a(i) < av Then TextBox1.Text += a(i).ToString + " " End If Next TextBox1.Text = "該組數(shù)的平均值為：" + av.ToString + vbCrLf + "小于平均值的數(shù)有：" + TextBox1.Text End SubEnd Class第3題 矩陣轉置編寫程序，實現(xiàn)矩陣轉置，即矩陣的行、列互換，將一個3行4列的矩陣轉換為4行3列，要示在文本框

26、中分別顯示轉換前后的兩個矩陣。提示: str = "交換前：" + vbCrLf For i = 0 To 3 For j = 0 To 2 str += a(i, j).ToString() + " " b(j, i) = a(i, j) Next str += vbCrLf Next str += "交換后:" + vbCrLf For i = 0 To 2 For j = 0 To 3 str += b(i, j).ToString + " " Next str += vbCrLf Next完整程序:Publ

27、ic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(,) As Integer = 1, 2, 3, 4, 4, 5, 6, 7, 6, 7, 8, 9 Dim i, j, b(3, 2) As Integer, str As String str = "交換前：" + vbCrLf For i = 0 To 2 For j = 0 To 3 str += a(i, j)

28、.ToString() + " " b(j, i) = a(i, j) Next str += vbCrLf Next str += "交換后：" + vbCrLf For i = 0 To 3 For j = 0 To 2 str += b(i, j).ToString() + " " Next str += vbCrLf Next TextBox1.Text = str End SubEnd Class試驗七:第1題 完全數(shù)編寫程序，找出22000之間的所有完全數(shù)。完全數(shù)是指某個整數(shù)的每個因子之和正好等于該數(shù)本身，例如： 因為6=

29、1+2+3，28=1+2+4+7+14，所以這兩個數(shù)都是完全數(shù)。要求：（1）程序窗口界面及控件自行設計。 （2）單擊“開始”按鈕后，在文本框中顯示求出的結果。（3） 請用進度條提示.Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, c, d, i As Integer For a = 2 To 2000 c = 0 For b = 1 To a - 1 d = a Mod

30、b If d = 0 Then c += b End If Next If a = c Then TextBox1.Text += a.ToString + " " End If ProgressBar1.Value = a Next End SubEnd Class第2題 楊輝三角形打印以下的楊輝三角形（打印10行）。11 11 2 11 3 3 11 4 6 4 11 5 10 10 5 1提示：（1）使用一個二維數(shù)組a保存這些數(shù)據(jù)（2）第0列、主對角線上元素都為1（3）其它元素為其上一行元素與上一行左側元素之和,即: a(I,j)=a(i-1,j)+a(i-1,j-1

31、)Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(10, 10) As Integer Dim i, j As Integer a(1, 1) = 1 For i = 2 To 10 a(i, 1) = 1 For j = 2 To i a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next Next For i = 1 To 10 For j

32、= 1 To i TextBox1.Text += a(i, j).ToString + " " Next TextBox1.Text += vbCrLf Next End SubEnd Class第3題 求最小值建立一個4行3列的二維數(shù)組，找出其中最小的元素所在的行和列，并在文本框中輸出該值及其行、列位置。Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(,)

33、 As Integer = 45, 21, 13, 42, 15, 16, 37, 18, 29, 39, 51, 62 Dim i, j, m, b As Integer Dim min As Integer = 100 For i = 0 To 3 For j = 0 To 2 If a(i, j) < min Then min = a(i, j) m = i + 1 : b = j + 1 End If Next Next TextBox1.Text += min.ToString + " " + m.ToString + "行" + b.T

34、oString + "列" End SubEnd Class試驗八:第1題 計算階乘設計如下的窗體，向第一個文本框中輸入一個整數(shù)，單擊“計算”按鈕，在另外一個文本框中顯示該整數(shù)的階乘，要求，階乘的計算在按鈕的單擊事件中完成。Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, c As Integer a = TextBox1.Text b = 1 For

35、c = 1 To a Step 1 b = b * c Next TextBox2.Text = b End SubEnd Class第2題 計算階乘設計窗體與第1題相同，向第一個文本框中輸入一個整數(shù)，單擊“計算”按鈕，在另外一個文本框中顯示該整數(shù)的階乘，要求采用SUB子過程計算階乘，整數(shù)通過參數(shù)傳遞，階乘在子過程中顯示。Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As In

36、teger a = TextBox1.Text jch(a) End Sub Sub jch(ByVal n As Integer) Dim i, s As Integer s = 1 For i = 1 To n s = s * i Next TextBox2.Text = s End SubEnd Class第3題 計算階乘設計窗體與第1題相同，向第一個文本框中輸入一個整數(shù)，單擊“計算”按鈕，在另外一個文本框中顯示該整數(shù)的階乘，要求采用FUCTION 函數(shù)過程，整數(shù)通過參數(shù)傳遞，階乘由該過程返回。Public Class Form1 Private Sub Button1_Click(By

37、Val sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As Integer a = TextBox1.Text TextBox2.Text = jch(a) End Sub Function jch(ByVal n As Integer) Dim i, s As Integer s = 1 For i = 1 To n s = s * i Next Return s End FunctionEnd Class第4題 找出一維數(shù)組元素中的最大值和最小值設計窗體如下圖，單擊“開始”

38、按鈕后，從鍵盤輸入10個整數(shù)，輸入到一維數(shù)組中，輸入時采用inputbox函數(shù)，見圖（2），然后找出這10個數(shù)中的最大值和最小值，并在文本框中輸出，見圖， Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(9), b, c, i As Integer a(0) = InputBox("輸入第一個數(shù)") a(1) = InputBox("輸入第二個數(shù)&q

39、uot;) 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(

40、0) : c = a(0) For i = 0 To 9 If a(i) < b Then b = a(i) End If If a(i) > c Then c = a(i) End If TextBox1.Text += a(i).ToString + " " Next TextBox1.Text = TextBox1.Text + vbCrLf + "最大數(shù)為：" + c.ToString + vbCrLf + "最小數(shù)為：" + b.ToString End Sub Private Sub Button2_Click

41、(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End SubEnd Class試驗九:第1題 計算數(shù)列之和求a+aa+aaa+aaaa+. .+aa.a（n個），其中a為19之間的整數(shù)。 例如：當a = 1, n = 3時，求1+11+111之和；當a = 5, n = 7時，求5555555555555555555555之和。Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Obj

42、ect, ByVal e As System.EventArgs) Handles Button1.Click Dim a, n, s, i, m, b As Integer a = TextBox1.Text n = TextBox2.Text b = n For i = 1 To n m = a * (10 (i - 1) * b b = b - 1 s = s + m Next TextBox3.Text = s End SubEnd Class第2題 計算長方形的面積和周長設計如下的窗體，向前兩個文本框中分別輸入長和寬，單擊“計算”，在另外一個文本框中顯示長方形的面積，要求采用FUNC

43、TION 函數(shù)過程計算面積，長和寬通過參數(shù)傳遞。Function area(ByRef a As Integer, ByRef b As Integer) As Long Dim m As Long m = a * b Return m End Function Function ccc(ByRef a As Integer, ByRef b As Integer) As Integer Dim n As Integer n = 2 * (a + b) Return n End Function Private Sub Button1_Click(ByVal sender As System.

44、Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, c As Integer Dim s As Long a = TextBox1.Text b = TextBox2.Text s = area(a, b) c = ccc(a, b) TextBox3.Text = s TextBox4.Text = c End SubEnd Class第3題 綜合題，統(tǒng)計各個分數(shù)段的人數(shù)設計窗體如下：編程要求：（1）單擊“開始”按鈕后，顯示如下的消息框，向框中輸入總的人數(shù)：如果輸入的人數(shù)小于1，則顯示下列的消息框，然后重新

45、輸入人數(shù)（2）輸入人數(shù)后，接下來分別輸入這些學生的分數(shù)，如果輸入的分數(shù)不在0100之間，則顯示下面的消息框，然后重新輸入（3）輸入分數(shù)時同時統(tǒng)計每個分數(shù)段的人數(shù)，每個分數(shù)段按下列的規(guī)定：90100：優(yōu)8089：良7079：中6069：及格60分以下：不及格（4）最后按下圖顯示統(tǒng)計后的結果：（圖中是輸入10個分數(shù)后的結果）Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim str As S

46、tring Dim a As Integer str = "請輸入學生人數(shù)" a = InputBox(str) If a < 1 Then MessageBox.Show("請重新輸入") End If Dim s(a), i As Integer For i = 1 To a str = "請輸入分數(shù)" s(i) = InputBox(str) If s(i) < 0 Or s(i) > 100 Then MessageBox.Show("分數(shù)不對，請重新輸入") End If Next Di

47、m you, liang, zhong, ji, bu As Integer For i = 1 To a If s(i) >= 90 Then you += 1 ElseIf s(i) >= 80 Then liang += 1 ElseIf s(i) >= 70 Then zhong += 1 ElseIf s(i) >= 60 Then ji += 1 Else : bu += 1 End If Next str = "" For i = 1 To a str += s(i).ToString + " " Next TextBox1.Text = "分數(shù)：" + vbCrLf + str + vbCrLf + "總人數(shù)" + "=" + a.ToString + vbCrLf + "各等級分數(shù)的人數(shù)：" + vbCrLf + "