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

1、實(shí)驗(yàn)三第 1 題 四則運(yùn)算題設(shè)計(jì)如下窗體，為五個(gè)命令按鈕編寫(xiě)5 段代碼完成四則運(yùn)算及退出程序，其中在計(jì)算除法時(shí)，如果第二個(gè)數(shù)是零，在消息框中顯示信息“除數(shù)為零”。Public Class Form1PrivateSub Button1_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButton1.ClickDim a, bAs Singlea = TextBox1.Textb = TextBox2.TextTextBox3.Text = a + bEnd SubPrivateSub Button2_Cl

2、ick(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButton2.ClickDim a, bAs Singlea = TextBox1.Textb = TextBox2.TextTextBox3.Text = a - bEnd SubPrivateSub Button3_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButton3.ClickDim a, bAs Singlea = TextBox1.Textb = Te

3、xtBox2.TextTextBox3.Text = a * bEnd SubPrivateSub Button4_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButton4.ClickDim a, bAs Singlea = TextBox1.Textb = TextBox2.TextIfb = 0ThenMessageBox.Show(ElseTextBox3.Text = a / bEnd IfEnd Sub 除數(shù)為零)Private Sub Button5_Click( ByVal sende

4、r As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickEndEnd SubEnd Class第 2 題一元二次方程求解輸入系數(shù)后，單擊“求解”按鈕后，根據(jù)判別式的3 種不同情況，分別顯示如下的不同結(jié)果。PublicClass Form1PrivateSub Button1_Click(ByVal senderAs System.Object,Button1.ClickDim a, b, c, deltaAs Doublea = TextBox1.Textb = TextBox2.Textc = TextBox

5、3.Textdelta = b * b - 4 * a * cIfdelta 0ThenLabel5.Visible =TrueLabel6.Visible =TrueLabel4.Text = 方程有兩個(gè)不相等實(shí)根Label5.Text =X1= & (-b + Math.Sqrt(delta) / 2 / a)Label6.Text =X2= & (-b - Math.Sqrt(delta) / 2 / a)ByVal eAs System.EventArgs)HandlesElseIfdelta = 0ThenLabel4.Text = 方程有兩個(gè)相等實(shí)根Label5.Visible =

6、TrueLabel5.Text =X1=X2= & (-b / 2 / a)Label6.Visible =FalseElseLabel4.Text = 方程沒(méi)有實(shí)根 Label5.Visible =FalseLabel6.Visible =FalseEnd IfEnd SubPrivate Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickEndEnd SubEnd Class第 3 題 文本框中前景色和背景色的不同組合目的：?jiǎn)芜x按鈕的使用（

7、1）設(shè)計(jì)窗體如下所示窗體中包含兩組單選按鈕、兩個(gè)框架和一個(gè)命令按鈕。（ 2）程序功能：分別單擊不同的前景色和背景色按鈕，在文本框中顯示顏色的改變。（ 3）設(shè)置控件的主要屬性1）窗體的文本屬性為“不同前景色背景色的組合”2）初始前景色為紅色、背景色為黃色3）其它屬性根據(jù)圖中顯示來(lái)設(shè)置（ 4）事件代碼Public Class Form1PrivateSub RadioButton1_CheckedChanged(ByVal senderAs System.Object,ByVal eAsSystem.EventArgs)Handles RadioButton1.CheckedChangedText

8、Box1.ForeColor = Color.RedEnd SubPrivateSub RadioButton2_CheckedChanged(ByVal senderAs System.Object,ByVal eAsSystem.EventArgs)Handles RadioButton2.CheckedChangedTextBox1.ForeColor = Color.GreenEnd SubPrivateSub RadioButton3_CheckedChanged(ByVal senderAs System.Object,ByVal eAsSystem.EventArgs)Handl

9、es RadioButton3.CheckedChangedTextBox1.ForeColor = Color.BlackEnd SubPrivateSub RadioButton4_CheckedChanged(ByVal senderAs System.Object,ByVal eAsSystem.EventArgs)Handles RadioButton4.CheckedChangedTextBox1.BackColor = Color.WhiteEnd SubPrivateSub RadioButton5_CheckedChanged(ByVal senderAs System.Ob

10、ject,ByVal eAsSystem.EventArgs)Handles RadioButton5.CheckedChangedTextBox1.BackColor = Color.YellowEnd SubPrivateSub Form1_Load( ByVal sender As System.Object,ByVal e As System.EventArgs) HandlesMyBase.LoadEnd SubEnd Class第 4 題 三位整數(shù)的反序顯示在窗體中添加二個(gè)文本框、二個(gè)標(biāo)簽和一個(gè)命令按鈕，在一個(gè)文本框中輸入一個(gè)三位的整數(shù)，單擊命令按鈕后，在另一個(gè)框中按相反順序顯示該

11、數(shù)，例如，輸入 123，則在另一個(gè)文本框中顯示 321。提示：本題先將每位上的數(shù)字分解出來(lái)，這要用到整除和計(jì)算余數(shù)的運(yùn)算符，例如 123 整除 100 后的結(jié)果 1 就是百位，而 123 除以 10 的余數(shù)就是個(gè)位，至于十位，大家可以自己確定。分解后的三位數(shù)再倒序組合成新的三位整數(shù)。PublicClass Form1PrivateSub Button1_Click(ByVal senderButton1.ClickDim a, b, c, d, yAs SingleAs System.Object,ByVal eAs System.EventArgs)Handlesa = TextBox1.T

12、extb = a 100c = (a - 100 * b) 10d = a - 100 * b - 10 * cTextBox2.Text = d & c & bEnd SubEnd Class試驗(yàn)五第1題累加編寫(xiě)程序，計(jì)算1100 之間的所有偶數(shù)之和，程序窗口界面及控件自行設(shè)計(jì)。PublicClass Form1PrivateSub Button1_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButton1.ClickDim i, sumFor i = 2sum += iNextAs LongTo

13、100Step 2TextBox1.Text = sumEnd SubEnd Class第 2 題使用循環(huán)求解水仙花數(shù)的問(wèn)題要求：（1）參考教材上例4-3 關(guān)于水仙花數(shù)的定義。（2）程序窗口界面及控件與例4-3 的結(jié)果即圖4-3 一樣。（3）單擊“開(kāi)始”按鈕后，在文本框中顯示求出的結(jié)果。PublicClass Form1Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim M, k1, k2, k3As IntegerText

14、Box1.Clear()For M = 100To 999k1 = M 100k2 = (M 10)Mod 10k3 = MMod10IfM = k1 3 + k2 3 + k3 3ThenTextBox1.Text+= M.ToString()+ = + k1.ToString()+ 3+ k2.ToString()+ 3+ k3.ToString() +3+ vbCrLfEnd IfNextEnd SubEnd Class第 3 題 統(tǒng)計(jì)整數(shù)的因子編寫(xiě)程序，向一個(gè)文本框輸入一個(gè)整數(shù)，單擊“開(kāi)始”按鈕后，找出該數(shù)的所有因子，并統(tǒng)計(jì)因子的個(gè)數(shù)和總和，結(jié)果在另一個(gè)文本框中顯示，共有三行，其中第一

15、行該數(shù)的所有因子，第二行顯示該數(shù)的因子個(gè)數(shù)，最后一行顯示該數(shù)所有因子之和，窗體界面如下：PublicClass Form1PrivateSub Button1_Click(ByVal senderAs System.Object,Button1.ClickDim a, b, c, dAs LongByVal eAs System.EventArgs)Handlesc = 0a = TextBox1.Textb = 1While b = aIfaMod b = 0Thenc += 1d += bTextBox2.Text = 該整數(shù)的因子是： & += CStr (b) +c.ToString(

16、) + vbCrLf + 因子之和為： + d.ToString(),+ vbCrLf + 因子個(gè)數(shù)為： +End Ifb = b + 1End WhileEnd SubEnd Class第4題判斷素?cái)?shù)編寫(xiě)程序，判斷某個(gè)整數(shù)是否是素?cái)?shù)，在一個(gè)文本框中輸入一個(gè)整數(shù)，單擊命令按鈕后，在另一個(gè)文本框中顯示該數(shù)是否是素?cái)?shù)，程序代碼可以參考例4-10 的代碼，在此基礎(chǔ)上改寫(xiě)。以下是輸入不同整數(shù)后的兩種不同的結(jié)果，窗體結(jié)構(gòu)也參照下圖。PublicClass Form1PrivateSub Button1_Click(ByVal senderAs System.Object,Button1.ClickDim

17、 i, jAs IntegerDim flagAs Boolean = Truei = TextBox1.Textj = 2ByVal eAs System.EventArgs)HandlesWhile j 5 Thenk = 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 + End IfNext完整程序 ;PublicClass Form1PrivateS

18、ub Button1_Click(ByVal senderButton1.ClickDim a(10), kAs IntegerFor i = 1To 10a(i) = InputBox( 請(qǐng)輸入整數(shù) )TextBox1.Text += a(i).ToString +NextAs System.Object,ByVal eAs System.EventArgs)Handlesk = 0TextBox1.Text += vbCrLf + 交換后：For i = 1To 10Ifi 5Thenk = a(i)a(i) = a(11 - i)a(11 - i) = kTextBox1.Text +=

19、 a(11 - i).ToString +Elsek = a(11 - i)a(11 - i) = a(i)a(i) = kTextBox1.Text += a(i).ToString +End IfNextTextBox1.Text = 交換前：+ TextBox1.TextEnd SubPrivateSub Form1_Load( ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesMyBase.LoadEnd SubEnd Class第2題元素平均編寫(xiě)程序，通過(guò)使用inputbox 將 10 個(gè)整數(shù)放入一個(gè)一維數(shù)組

20、中，然后計(jì)算這10 個(gè)整數(shù)的平均值，在文本框中顯示平均值和這10 個(gè)數(shù)中低于平均值的數(shù)PublicClass Form1Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a(10), sum, iAs IntegerDim avAs SingleFor i = 1To 10a(i) = InputBox( 請(qǐng)輸入整數(shù) )sum += a(i)Nextav = sum / 10For i = 1To 10Ifa(i) avT

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

22、a(i, j)Nextstr += vbCrLfNextstr += 交換后 : + vbCrLfFor i = 0 To 2For j = 0 To 3str += b(i, j).ToString + Nextstr += vbCrLfNext完整程序 :PublicClass Form1PrivateSub Button1_Click(ByVal senderAs System.Object,Button1.ClickDim a(,)As Integer= 1, 2, 3, 4, 4, 5, 6, 7, 6, 7, 8, 9Dim i, j, b(3, 2)As Integer , st

23、rAs Stringstr = 交換前： + vbCrLfFor i = 0To 2For j = 0To 3str += a(i, j).ToString() + b(j, i) = a(i, j)Nextstr += vbCrLfNextstr += 交換后： + vbCrLfFor i = 0To 3For j = 0To 2str += b(i, j).ToString() + Nextstr += vbCrLfByVal eAs System.EventArgs)HandlesNextTextBox1.Text = strEnd SubEnd Class試驗(yàn)七 :第1題完全數(shù)編寫(xiě)程序

24、， 找出 22000 之間的所有完全數(shù)。 完全數(shù)是指某個(gè)整數(shù)的每個(gè)因子之和正好等于該數(shù)本身，例如： 因?yàn)?6=1+2+3 ， 28=1+2+4+7+14 ，所以這兩個(gè)數(shù)都是完全數(shù)。要求：（ 1）程序窗口界面及控件自行設(shè)計(jì)。（ 2）單擊“開(kāi)始”按鈕后，在文本框中顯示求出的結(jié)果。（ 3） 請(qǐng)用進(jìn)度條提示 .PublicClass Form1PrivateSub Button1_Click(ByVal senderButton1.ClickDim a, b, c, d, iAs IntegerFor a = 2To 2000c = 0As System.Object,ByVal eAs System

25、.EventArgs)HandlesFor b = 1To a - 1d = aMod bIfd = 0Thenc += bEnd IfNextIfa = cThenTextBox1.Text += a.ToString +End IfProgressBar1.Value = a NextEnd SubEnd Class第 2 題 楊輝三角形打印以下的楊輝三角形（打印10 行）。11112113311464115101051提示：（ 1）使用一個(gè)二維數(shù)組 a 保存這些數(shù)據(jù)（ 2）第 0 列、主對(duì)角線上元素都為 1（ 3）其它元素為其上一行元素與上一行左側(cè)元素之和,即: a(I,j)=a(i-1

26、,j)+a(i-1,j-1)PublicClass Form1PrivateSub Button1_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButton1.ClickDim a(10, 10)As IntegerDim i, jAs Integera(1, 1) = 1For i = 2To 10a(i, 1) = 1For j = 2To ia(i, j) = a(i - 1, j - 1) + a(i - 1, j)NextNextFor i = 1To 10For j = 1To iText

27、Box1.Text += a(i, j).ToString + NextTextBox1.Text += vbCrLfNextEnd SubEnd Class第3題求最小值建立一個(gè) 4 行 3 列的二維數(shù)組，找出其中最小的元素所在的行和列，并在文本框中輸出該值及其行、列位置。PublicClass Form1PrivateSub Button1_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButton1.ClickDim a(,)As Integer= 45, 21, 13, 42, 15, 16,

28、37, 18, 29, 39, 51, 62Dim i, j, m, bAs IntegerDim minAs Integer= 100For i = 0To 3For j = 0To 2Ifa(i, j) minThenmin = a(i, j)m = i + 1 : b = j + 1End IfNextNextTextBox1.Text += min.ToString + + m.ToString + 行 + b.ToString + 列End SubEnd Class試驗(yàn)八 :第1題計(jì)算階乘設(shè)計(jì)如下的窗體，向第一個(gè)文本框中輸入一個(gè)整數(shù)，單擊“計(jì)算”按鈕，在另外一個(gè)文本框中顯示該整數(shù)的階

29、乘，要求，階乘的計(jì)算在按鈕的單擊事件中完成。PublicClass Form1PrivateSub Button1_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButton1.ClickDim a, b, cAs Integera = TextBox1.Textb = 1For c = 1To aStep 1b = b * cNextTextBox2.Text = bEnd SubEnd Class第2題計(jì)算階乘設(shè)計(jì)窗體與第1 題相同，向第一個(gè)文本框中輸入一個(gè)整數(shù)，單擊“計(jì)算”按鈕，在另外一個(gè)文本框中

30、顯示該整數(shù)的階乘，要求采用SUB 子過(guò)程計(jì)算階乘，整數(shù)通過(guò)參數(shù)傳遞，階乘在子過(guò)程中顯示。PublicClass Form1PrivateSub Button1_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButton1.ClickDim aAs Integera = TextBox1.Textjch(a)End SubSub jch(ByVal nAs Integer )Dim i, sAs Integers = 1For i = 1To ns = s * iNextTextBox2.Text = s

31、End SubEnd Class第3題計(jì)算階乘設(shè)計(jì)窗體與第1 題相同，向第一個(gè)文本框中輸入一個(gè)整數(shù)，單擊“計(jì)算”按鈕，在另外一個(gè)文本框中顯示該整數(shù)的階乘，要求采用FUCTION函數(shù)過(guò)程，整數(shù)通過(guò)參數(shù)傳遞，階乘由該過(guò)程返回。PublicClass Form1PrivateSub Button1_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButton1.ClickDim aAs Integera = TextBox1.TextTextBox2.Text = jch(a)End SubFunctionjc

32、h(ByVal nAs Integer)Dim i, sAs Integers = 1For i = 1To ns = s * iNextReturn sEnd FunctionEnd Class第 4 題 找出一維數(shù)組元素中的最大值和最小值設(shè)計(jì)窗體如下圖，單擊“開(kāi)始”按鈕后，從鍵盤(pán)輸入10 個(gè)整數(shù)，輸入到一維數(shù)組中，輸入時(shí)采用 inputbox 函數(shù)，見(jiàn)圖（ 2），然后找出這 10 個(gè)數(shù)中的最大值和最小值，并在文本框中輸出，見(jiàn)圖，Public Class Form1Private Sub Button1_Click(ByVal senderAs System.Object,ByVal eAs

33、 System.EventArgs)HandlesButton1.ClickDim a(9), b, c, iAsIntegera(0) = InputBox( 輸入第一個(gè)數(shù) )a(1) = InputBox( 輸入第二個(gè)數(shù) )a(2) = InputBox( 輸入第三個(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) = Inpu

34、tBox( 輸入第十個(gè)數(shù) )b = a(0) : c = a(0)For i = 0 To 9If a(i) cThenc = a(i)End IfTextBox1.Text += a(i).ToString + NextTextBox1.Text = TextBox1.Text + vbCrLf + 最大數(shù)為： + c.ToString + vbCrLf + 最小數(shù)為： + b.ToStringEnd SubPrivate Sub Button2_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButt

35、on2.ClickEndEnd SubEnd Class試驗(yàn)九 :第 1 題 計(jì)算數(shù)列之和求 a+aa+aaa+aaaa+. .+aa.a（ n 個(gè)），其中 a 為 1 9 之間的整數(shù)。例如：當(dāng) a = 1, n = 3 時(shí)，求 1+11+111 之和；當(dāng) a = 5, n = 7 時(shí)，求 5 55555 5555 55555 5555555 之和。PublicClass Form1PrivateSub Button1_Click(Button1.ClickDim a, n, s, i, m, ba = TextBox1.Textn = TextBox2.Textb = nFor i = 1T

36、o nm = a * (10 (i - 1) * bb = b - 1s = s + mNextTextBox3.Text = sEnd SubEnd ClassByVal sender As IntegerAs System.Object,ByVal eAs System.EventArgs)Handles第 2 題 計(jì)算長(zhǎng)方形的面積和周長(zhǎng)設(shè)計(jì)如下的窗體，向前兩個(gè)文本框中分別輸入長(zhǎng)和寬，單擊“計(jì)算”，在另外一個(gè)文本框中顯示長(zhǎng)方形的面積，要求采用FUNCTION函數(shù)過(guò)程計(jì)算面積，長(zhǎng)和寬通過(guò)參數(shù)傳遞。Functionarea( ByRef aAs Integer,ByRef bAs Intege

37、r) As LongDim m As Longm = a * bReturn mEnd FunctionFunctionccc( ByRef aAs Integer,ByRef bAs Integer )As IntegerDim nAs Integern = 2 * (a + b)Return nEnd FunctionPrivateSub Button1_Click(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesButton1.ClickDim a, b, cAs IntegerDim sAs Longa =

38、TextBox1.Textb = TextBox2.Texts = area(a, b)c = ccc(a, b)TextBox3.Text = sTextBox4.Text = cEnd SubEnd Class第 3 題 綜合題，統(tǒng)計(jì)各個(gè)分?jǐn)?shù)段的人數(shù)設(shè)計(jì)窗體如下：編程要求：（1）單擊“開(kāi)始”按鈕后，顯示如下的消息框，向框中輸入總的人數(shù)：如果輸入的人數(shù)小于1，則顯示下列的消息框，然后重新輸入人數(shù)（2）輸入人數(shù)后，接下來(lái)分別輸入這些學(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é)果）PublicClass Form1PrivateSub Button1_Click(Button1.ClickDim strAs StringDim aAs IntegerByVal senderAs System.Object,ByVal eAs System.EventArgs)Handlesstr = 請(qǐng)輸入學(xué)生人數(shù)a = InputBox(str)Ifa 1ThenMessageBox.Show( 請(qǐng)重新