VB程序題庫(kù)編程題

1、題目編寫(xiě)程序，求任意兩個(gè)正整數(shù)的最小公倍數(shù)?！揪幊桃蟆?、單擊"計(jì)算"按鈕，在文本框Text3中顯示最小公倍數(shù)；單擊 "清除"按鈕，則清除3個(gè)文本 框中的內(nèi)容，于文本框Textl;單擊"結(jié)束"按鈕，程序停止運(yùn)行。2、界面應(yīng)與給出的參考界面相似，不得增加或減少控件；3、運(yùn)行程序，并輸入3、7進(jìn)行檢驗(yàn)。颼 $i博款掘NQ：激晨幡醐丸1:±擊Dim m As Integer, n As Integer, mn As LongDim t As Integer, r As Integerm = Val(Textl): n = Val

2、(Text2)If m < n Then t = m: m = n: n = tmn = m * nr = m Mod nDo While r <> 0m = n: n = rr = m Mod nLoopText3 = mn / n題目編寫(xiě)程序，求n!,并顯示前7項(xiàng)結(jié)果。編程要求1、按"執(zhí)行"按鈕，則開(kāi)始運(yùn)行程序，按圖示格式將前7項(xiàng)階乘顯示在列表框listl中。1、按"清除"按鈕，則將列表框listl中的內(nèi)容清空。按"結(jié)束"按鈕，結(jié)束程序的執(zhí)行。2、程序中有一個(gè)函數(shù)過(guò)程，該過(guò)程的功能是使用遞歸函數(shù)求任意一個(gè)數(shù)的階乘

3、。1-7的階乘分別為o D®4 2 2 D12 6 2 17 5【參考代碼】If n = 0 Or n = 1 Thenfact = 1Elsefact = n * fact(n - 1)End If題目生成10個(gè)隨機(jī)的兩位正整數(shù)，并求出其最大值、最小值、平均值以及總和?！揪幊桃蟆?、單擊"生成隨機(jī)數(shù)"按鈕，生成10個(gè)兩位隨機(jī)正整數(shù)并顯示在列表框中；單擊"求最大最小等"按鈕，則求出其最大值、 最小值、平均值以及總和并顯示在相應(yīng)文本框中；單擊“重置”按鈕，將列表框和所有文本框清空，并將焦點(diǎn)置于“生成隨機(jī)數(shù)"按鈕上。2、界面應(yīng)與給出的參

4、考界面相似，不得增加或減少控件。限大號(hào)小平均值-n X38267918337563371787最小值平均值總和生成隨機(jī)數(shù)最大值廠66. 3663求最大最小等 重置【參考代碼】Dim i As IntegerDim max As IntegerDim min As IntegerDim sum As Integermax = a(1): min = a(1): sum = aFori = 1 To 10sum = sum + a(i)If max < a(i) Then max = a(i)If min > a(i) Then min = a(i) Next itxtMax.Text

5、 = CStr(max) txtMin.Text = CStr(min) txtSum.Text = CStr(sum) txtAvg.Text = CStr(sum / 10)題目求Fibonacci數(shù)列的第n項(xiàng)，計(jì)算公式如下：1,n 1,2Fab(n) Fab(n 2) Fab(n 1), n 3編程要求1、程序中有一個(gè)遞歸函數(shù)，其功能是求斐氏數(shù)列的第n項(xiàng)。2、完成計(jì)算按鈕的單擊事件功能?！緟⒖即a】If n = 1 Or n = 2 Thenfab = 1Elsefab = fab(n - 2) + fab(n - 1)End If題目順序查找：給定一個(gè)數(shù)，在一個(gè)兩位隨機(jī)數(shù)數(shù)組中查找與此

6、數(shù)相同的元素(該數(shù)組 大小為10個(gè)元素)。如果找到與給定數(shù)值相同的元素后輸出該元素在數(shù)組中的位置；找不到則輸出相應(yīng) 的提示信息。編程要求程序中有一個(gè)過(guò)程，過(guò)程名為 search,該過(guò)程的功能是返回查找的數(shù)在數(shù)組中的位置，如果找不到返回-1。完成此函數(shù)的功能Private Sub Command2_Click()Dim x As Integerx = search(a, Val(Text2)If x = -1 ThenText3 ="要查找的數(shù)不存在"ElseText3 ="要查找白是第"& x & "個(gè)元素"End I

7、fOutReEnd SubDim i As IntegerL = UBound(b)For i = 1 To LIf b(i) = n Thensearch = iExit FunctionEnd IfNext isearch = -1題目隨機(jī)生成一個(gè)由兩位隨機(jī)整數(shù)構(gòu)成的5行5列的矩陣，求該矩陣中所有不靠邊元素之和。編程要求程序中有一個(gè)過(guò)程sum(),該過(guò)程的功能是求一個(gè)數(shù)組的不靠邊元素之和。完成此函數(shù)的功能& b-rinil3 9 4 6 77 7 19 58 17 8 95 14 8 72 8 7 5 46 7 8 116 3 15 33 8 8 9 6矩陣不靠邊元素之和為，5防O

8、ption ExplicitOption Base 1Dim a(5, 5) As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As IntegerRandomizeFor i = 1 To 5Forj = 1 To 5a(i, j) = Int(90 * Rnd) + 10 Picturel.Print a(i, j);Next jPicture1.PrintNext iEnd SubPrivate Sub Command2_Click()Text1 = Str(sum(a)OutReEnd SubFunction sum(b

9、() As Integer) As LongI*begin*Dim i As Integer, j As IntegerFor i = LBound(b) + 1 To UBound(b) - 1For j = LBound(b) + 1 To UBound(b) - 1 sum = sum + b(i, j)Next jNext iI*end*End Function（含1,不含本身）之和等于它本身的題目求100以內(nèi)的所有的完數(shù)。所謂完數(shù)是指所有因子數(shù)。例如：6=1+2+3【編程要求】1、單擊"計(jì)算"按鈕，則將計(jì)算結(jié)果顯示在列表框Listl中；單擊"清除&quo

10、t;按鈕，則清除列表框中的內(nèi)容；單擊"結(jié)束"按鈕，程序停止運(yùn)行。2、界面應(yīng)與給出的參考界面相似，不得增加或減少控件?！緟⒖即a】sum = 0For x = 2 To 100For i = 1 To x - 1If x Mod i = 0 Then sum = sum + iNext iIf sum = x Then List1.AddItem CStr(x) sum = 0Next x輸入一個(gè)正整數(shù)k,將k的各位數(shù)字分離后，累加求和。程序界面如下圖所示。 【編程要求】1、單擊"計(jì)算"按鈕，將結(jié)果在文本框中顯示出來(lái)。2、單擊"清除"按

11、鈕，將二個(gè)文本框中的內(nèi)容清空；單擊 "結(jié)束"按鈕，程序停止運(yùn)行。3、界面應(yīng)與給出的參考界面相似，不得增加或減少控件；4、運(yùn)行程序，并輸入123456檢驗(yàn)?！緟⒖即a】x = Val(Textl)s = 0Do While x <> 0t = x Mod 10s = s + tx = x 10LoopText2 = s題目隨機(jī)生成500個(gè)4位正整數(shù)，將其置于文本框 1中，從中找出回文數(shù)，置于文本框 2中。并找出值最小的回文數(shù)，顯示在文本框3中。編程要求1、按“運(yùn)行"按鈕，將運(yùn)行結(jié)果按圖示格式顯示在文本框中；按"清除"按鈕，將文本框清空

12、，按"退出"按鈕，結(jié)束程序運(yùn)行；2、程序中有一個(gè)名為 HuiWenShu()的函數(shù)過(guò)程，用于判斷一個(gè)數(shù)是否為回文數(shù)。3、在運(yùn)行按鈕的單擊事件中完成此按鈕功能功能?！緟⒖即a】For i = 1 To 500a(i) = Int(9999 - 1000 + 1) * Rnd + 1000)Text1 = Text1 & a(i) & vbCrLfNext iMin = 9999For i = 1 To 500If huiwenshu(CStr(a(i) ThenText2 = Text2 & a(i) & vbCrLfIf a(i) < Min Then Min = a(i)End IfNext iText3 = Min題目已知：買(mǎi)一只公雞需5元，買(mǎi)一只母雞需3元，買(mǎi)三只小雞需1元。要用100元買(mǎi)100只雞，公雞母雞 和小雞各有多少只？【編程要求】1、單擊"計(jì)算"按鈕，則將計(jì)算結(jié)果顯示在列表框Listl中；單擊"清除"按鈕，則清除列表框的內(nèi)容；單擊“退出"按鈕，程序停止運(yùn)行。2、界面應(yīng)與給出的參考