大學(xué)計(jì)算機(jī)VB程序設(shè)計(jì)考試題目

1、實(shí)驗(yàn)三第1題 四則運(yùn)算題設(shè)計(jì)如下窗體，為五個(gè)命令按鈕編寫5段代碼完成四則運(yùn)算及退出程序，其中在計(jì)算除法時(shí)，如果第二個(gè)數(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.Text = a /

4、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種不同情況，分別顯示如下的不同結(jié)果。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventAr

5、gs) 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 = 方程有兩個(gè)不相等實(shí)根 Label5.Text = X1= & (-b + Math.Sqrt(delta) / 2 / a) Label6.Text = X2= & (-b - Ma

6、th.Sqrt(delta) / 2 / a) ElseIf delta = 0 Then Label4.Text = 方程有兩個(gè)相等實(shí)根 Label5.Visible = True Label5.Text = X1=X2= & (-b / 2 / a) Label6.Visible = False Else Label4.Text = 方程沒有實(shí)根 Label5.Visible = False Label6.Visible = False End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal

7、 e As System.EventArgs) Handles Button2.Click End End SubEnd Class第3題 文本框中前景色和背景色的不同組合目的：單選按鈕的使用（1）設(shè)計(jì)窗體如下所示窗體中包含兩組單選按鈕、兩個(gè)框架和一個(gè)命令按鈕。（2）程序功能：分別單擊不同的前景色和背景色按鈕，在文本框中顯示顏色的改變。（3）設(shè)置控件的主要屬性1）窗體的文本屬性為“不同前景色背景色的組合”2）初始前景色為紅色、背景色為黃色3）其它屬性根據(jù)圖中顯示來設(shè)置（4）事件代碼Public Class Form1 Private Sub RadioButton1_CheckedChange

8、d(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.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged TextBox1.ForeColor = Color.

9、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 Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles R

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

11、ByVal e As System.EventArgs) Handles MyBase.Load End SubEnd Class第4題 三位整數(shù)的反序顯示在窗體中添加二個(gè)文本框、二個(gè)標(biāo)簽和一個(gè)命令按鈕，在一個(gè)文本框中輸入一個(gè)三位的整數(shù)，單擊命令按鈕后，在另一個(gè)框中按相反順序顯示該數(shù)，例如，輸入123，則在另一個(gè)文本框中顯示321。 提示：本題先將每位上的數(shù)字分解出來，這要用到整除和計(jì)算余數(shù)的運(yùn)算符，例如123整除100后的結(jié)果1就是百位，而123除以10的余數(shù)就是個(gè)位，至于十位，大家可以自己確定。分解后的三位數(shù)再倒序組合成新的三位整數(shù)。Public Class Form1 Private S

12、ub 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 * c TextBox2.Text = d & c & b End SubEnd Class試驗(yàn)五第1題 累加編寫程序，計(jì)算1100之間的所有偶數(shù)之和，程序窗口界面及控件自行設(shè)計(jì)。Public Class

13、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 End SubEnd Class第2題 使用循環(huán)求解水仙花數(shù)的問題要求：（1）參考教材上例4-3關(guān)于水仙花數(shù)的定義。（2）程序窗口界面及控件與例4-3的結(jié)果即圖4-3一樣。 （3）單擊“開始”按鈕后，在文本框中顯示求出

14、的結(jié)果。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 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()

15、 + = + k1.ToString() + 3+ + k2.ToString() + 3+ + k3.ToString() + 3 + vbCrLf End If Next End SubEnd Class第3題 統(tǒng)計(jì)整數(shù)的因子編寫程序，向一個(gè)文本框輸入一個(gè)整數(shù)，單擊“開始”按鈕后，找出該數(shù)的所有因子，并統(tǒng)計(jì)因子的個(gè)數(shù)和總和，結(jié)果在另一個(gè)文本框中顯示，共有三行，其中第一行該數(shù)的所有因子，第二行顯示該數(shù)的因子個(gè)數(shù)，最后一行顯示該數(shù)所有因子之和，窗體界面如下：Public Class Form1 Private Sub Button1_Click(ByVal sender As System.O

16、bject, 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 Then c += 1 d += b TextBox2.Text = 該整數(shù)的因子是： & +=CStr(b) + , + vbCrLf + 因子個(gè)數(shù)為： + c.ToString() + vbCrLf + 因子之和為： + d.ToString() End If b = b + 1 End While End SubEn

17、d Class第4題 判斷素?cái)?shù)編寫程序，判斷某個(gè)整數(shù)是否是素?cái)?shù)，在一個(gè)文本框中輸入一個(gè)整數(shù)，單擊命令按鈕后，在另一個(gè)文本框中顯示該數(shù)是否是素?cái)?shù)，程序代碼可以參考例4-10的代碼，在此基礎(chǔ)上改寫。以下是輸入不同整數(shù)后的兩種不同的結(jié)果，窗體結(jié)構(gòu)也參照下圖。 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

18、 i = TextBox1.Text j = 2 While j 5 Then k = a(i) a(i) = 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

19、System.EventArgs) Handles 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 + Else k = a(11 -

20、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題 元素平均編寫程序，通過使用inputbox將10個(gè)整數(shù)放入一個(gè)一維數(shù)組中，然后計(jì)算這10個(gè)整數(shù)的平均值，在文本框中顯

21、示平均值和這10個(gè)數(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ù)) sum += a(i) Next av = sum / 10 For i = 1 To 10 If a(i) av Then TextBox

22、1.Text += a(i).ToString + End If Next TextBox1.Text = 該組數(shù)的平均值為： + av.ToString + vbCrLf + 小于平均值的數(shù)有： + TextBox1.Text End SubEnd Class第3題 矩陣轉(zhuǎn)置編寫程序，實(shí)現(xiàn)矩陣轉(zhuǎn)置，即矩陣的行、列互換，將一個(gè)3行4列的矩陣轉(zhuǎn)換為4行3列，要示在文本框中分別顯示轉(zhuǎn)換前后的兩個(gè)矩陣。提示: str = 交換前： + vbCrLf For i = 0 To 3 For j = 0 To 2 str += a(i, j).ToString() + b(j, i) = a(i, j)

23、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完整程序:Public 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

24、, 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).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

25、End SubEnd Class試驗(yàn)七:第1題 完全數(shù)編寫程序，找出22000之間的所有完全數(shù)。完全數(shù)是指某個(gè)整數(shù)的每個(gè)因子之和正好等于該數(shù)本身，例如： 因?yàn)?=1+2+3，28=1+2+4+7+14，所以這兩個(gè)數(shù)都是完全數(shù)。要求：（1）程序窗口界面及控件自行設(shè)計(jì)。 （2）單擊“開始”按鈕后，在文本框中顯示求出的結(jié)果。（3） 請用進(jìn)度條提示.Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click D

26、im a, b, c, d, i As Integer For a = 2 To 2000 c = 0 For b = 1 To a - 1 d = a Mod 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）使用一個(gè)二維數(shù)組a保存這些數(shù)據(jù)（2）

27、第0列、主對角線上元素都為1（3）其它元素為其上一行元素與上一行左側(cè)元素之和,即: a(I,j)=a(i-1,j)+a(i-1,j-1)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,

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

29、e As System.EventArgs) Handles Button1.Click Dim a(,) 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 +

30、+ m.ToString + 行 + b.ToString + 列 End SubEnd Class試驗(yàn)八:第1題 計(jì)算階乘設(shè)計(jì)如下的窗體，向第一個(gè)文本框中輸入一個(gè)整數(shù)，單擊“計(jì)算”按鈕，在另外一個(gè)文本框中顯示該整數(shù)的階乘，要求，階乘的計(jì)算在按鈕的單擊事件中完成。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

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

32、im a As Integer 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題 計(jì)算階乘設(shè)計(jì)窗體與第1題相同，向第一個(gè)文本框中輸入一個(gè)整數(shù)，單擊“計(jì)算”按鈕，在另外一個(gè)文本框中顯示該整數(shù)的階乘，要求采用FUCTION 函數(shù)過程，整數(shù)通過參數(shù)傳遞，階乘由該過程返回。Public Class Form1 Private Sub Button

33、1_Click(ByVal 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ù)組元素中的最大值和最小值設(shè)計(jì)窗體

34、如下圖，單擊“開始”按鈕后，從鍵盤輸入10個(gè)整數(shù)，輸入到一維數(shù)組中，輸入時(shí)采用inputbox函數(shù)，見圖（2），然后找出這10個(gè)數(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(輸入第一個(gè)數(shù)) a(1) = InputBox(輸入第二個(gè)數(shù)) a(2) = I

35、nputBox(輸入第三個(gè)數(shù)) a(3) = InputBox(輸入第四個(gè)數(shù)) a(4) = InputBox(輸入第五個(gè)數(shù)) a(5) = InputBox(輸入第六個(gè)數(shù)) a(6) = InputBox(輸入第七個(gè)數(shù)) a(7) = InputBox(輸入第八個(gè)數(shù)) a(8) = InputBox(輸入第九個(gè)數(shù)) a(9) = InputBox(輸入第十個(gè)數(shù)) b = a(0) : c = a(0) For i = 0 To 9 If a(i) c Then c = a(i) End If TextBox1.Text += a(i).ToString + Next TextBox1.Tex

36、t = TextBox1.Text + vbCrLf + 最大數(shù)為： + c.ToString + vbCrLf + 最小數(shù)為： + b.ToString End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End SubEnd Class試驗(yàn)九:第1題 計(jì)算數(shù)列之和求a+aa+aaa+aaaa+. .+aa.a（n個(gè)），其中a為19之間的整數(shù)。 例如：當(dāng)a = 1, n = 3時(shí)，求1+11+111之和；當(dāng)

37、a = 5, n = 7時(shí)，求5555555555555555555555之和。Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, 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

38、Next TextBox3.Text = s End SubEnd Class第2題 計(jì)算長方形的面積和周長設(shè)計(jì)如下的窗體，向前兩個(gè)文本框中分別輸入長和寬，單擊“計(jì)算”，在另外一個(gè)文本框中顯示長方形的面積，要求采用FUNCTION 函數(shù)過程計(jì)算面積，長和寬通過參數(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 I

39、nteger Dim n As Integer n = 2 * (a + b) Return n End Function Private Sub Button1_Click(ByVal sender As System.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.T

40、ext = c End SubEnd Class第3題 綜合題，統(tǒng)計(jì)各個(gè)分?jǐn)?shù)段的人數(shù)設(shè)計(jì)窗體如下：編程要求：（1）單擊“開始”按鈕后，顯示如下的消息框，向框中輸入總的人數(shù)：如果輸入的人數(shù)小于1，則顯示下列的消息框，然后重新輸入人數(shù)（2）輸入人數(shù)后，接下來分別輸入這些學(xué)生的分?jǐn)?shù)，如果輸入的分?jǐn)?shù)不在0100之間，則顯示下面的消息框，然后重新輸入（3）輸入分?jǐn)?shù)時(shí)同時(shí)統(tǒng)計(jì)每個(gè)分?jǐn)?shù)段的人數(shù)，每個(gè)分?jǐn)?shù)段按下列的規(guī)定：90100：優(yōu)8089：良7079：中6069：及格60分以下：不及格（4）最后按下圖顯示統(tǒng)計(jì)后的結(jié)果：（圖中是輸入10個(gè)分?jǐn)?shù)后的結(jié)果）Public Class Form1 Private S

41、ub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim str As String Dim a As Integer str = 請輸入學(xué)生人數(shù) a = InputBox(str) If a 1 Then MessageBox.Show(請重新輸入) End If Dim s(a), i As Integer For i = 1 To a str = 請輸入分?jǐn)?shù) s(i) = InputBox(str) If s(i) 100 Then Mess

42、ageBox.Show(分?jǐn)?shù)不對，請重新輸入) End If Next Dim 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 = 分?jǐn)?shù)： + vbCrLf + str + vbCrLf + 總?cè)藬?shù) + = + a.ToString + vbCrLf + 各等級分?jǐn)?shù)的人數(shù)： + vbCrLf + 優(yōu)秀 + = + you.