VB程序题库编程题

1、题目编写程序，求任意两个正整数的最小公倍数。【编程要求】1、单击"计算"按钮，在文本框Text3中显示最小公倍数；单击 "清除"按钮，则清除3个文本 框中的内容，于文本框Textl;单击"结束"按钮，程序停止运行。2、界面应与给出的参考界面相似，不得增加或减少控件；3、运行程序，并输入3、7进行检验。飕 $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题目编写程序，求n!,并显示前7项结果。编程要求1、按"执行"按钮，则开始运行程序，按图示格式将前7项阶乘显示在列表框listl中。1、按"清除"按钮，则将列表框listl中的内容清空。按"结束"按钮，结束程序的执行。2、程序中有一个函数过程，该过程的功能是使用递归函数求任意一个数的阶乘

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个随机的两位正整数，并求出其最大值、最小值、平均值以及总和。【编程要求】1、单击"生成随机数"按钮，生成10个两位随机正整数并显示在列表框中；单击"求最大最小等"按钮，则求出其最大值、 最小值、平均值以及总和并显示在相应文本框中；单击“重置”按钮，将列表框和所有文本框清空，并将焦点置于“生成随机数"按钮上。2、界面应与给出的参

4、考界面相似，不得增加或减少控件。限大号小平均值-n X38267918337563371787最小值平均值总和生成随机数最大值厂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数列的第n项，计算公式如下：1,n 1,2Fab(n) Fab(n 2) Fab(n 1), n 3编程要求1、程序中有一个递归函数，其功能是求斐氏数列的第n项。2、完成计算按钮的单击事件功能。【参考代码】If n = 1 Or n = 2 Thenfab = 1Elsefab = fab(n - 2) + fab(n - 1)End If题目顺序查找：给定一个数，在一个两位随机数数组中查找与此

6、数相同的元素(该数组 大小为10个元素)。如果找到与给定数值相同的元素后输出该元素在数组中的位置；找不到则输出相应 的提示信息。编程要求程序中有一个过程，过程名为 search,该过程的功能是返回查找的数在数组中的位置，如果找不到返回-1。完成此函数的功能Private Sub Command2_Click()Dim x As Integerx = search(a, Val(Text2)If x = -1 ThenText3 ="要查找的数不存在"ElseText3 ="要查找白是第"& x & "个元素"End I

7、fOutReEnd SubDim i As IntegerL = UBound(b)For i = 1 To LIf b(i) = n Thensearch = iExit FunctionEnd IfNext isearch = -1题目随机生成一个由两位随机整数构成的5行5列的矩阵，求该矩阵中所有不靠边元素之和。编程要求程序中有一个过程sum(),该过程的功能是求一个数组的不靠边元素之和。完成此函数的功能& 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以内的所有的完数。所谓完数是指所有因子数。例如：6=1+2+3【编程要求】1、单击"计算"按钮，则将计算结果显示在列表框Listl中；单击"清除&quo

10、t;按钮，则清除列表框中的内容；单击"结束"按钮，程序停止运行。2、界面应与给出的参考界面相似，不得增加或减少控件。【参考代码】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输入一个正整数k,将k的各位数字分离后，累加求和。程序界面如下图所示。 【编程要求】1、单击"计算"按钮，将结果在文本框中显示出来。2、单击"清除"按

11、钮，将二个文本框中的内容清空；单击 "结束"按钮，程序停止运行。3、界面应与给出的参考界面相似，不得增加或减少控件；4、运行程序，并输入123456检验。【参考代码】x = Val(Textl)s = 0Do While x <> 0t = x Mod 10s = s + tx = x 10LoopText2 = s题目随机生成500个4位正整数，将其置于文本框 1中，从中找出回文数，置于文本框 2中。并找出值最小的回文数，显示在文本框3中。编程要求1、按“运行"按钮，将运行结果按图示格式显示在文本框中；按"清除"按钮，将文本框清空

12、，按"退出"按钮，结束程序运行；2、程序中有一个名为 HuiWenShu()的函数过程，用于判断一个数是否为回文数。3、在运行按钮的单击事件中完成此按钮功能功能。【参考代码】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题目已知：买一只公鸡需5元，买一只母鸡需3元，买三只小鸡需1元。要用100元买100只鸡，公鸡母鸡 和小鸡各有多少只？【编程要求】1、单击"计算"按钮，则将计算结果显示在列表框Listl中；单击"清除"按钮，则清除列表框的内容；单击“退出"按钮，程序停止运行。2、界面应与给出的参考