[vb大题.docVIP

[题目] 计算公式的和,当第n项的值10-5时结束。 【编程要求】 1、单击计算按钮，则将计算结果显示在文本框中Text1中；单击清除按钮，则清除文本框的内容； 单击退出按钮，程序停止运行。 2、界面应与给出的参考界面相似，不得增加或减少控件。 答案 sum = 0 n = 1 x = 1 Do While x = 0.0001 sum = sum + x n = n + 1 x = 1 / (2 * n - 1) Loop Text1.Text = sum 2 [题目] 随机生成一个由两位随机整数构成的5行5列的矩阵，求该矩阵中所有不靠边元素之和。 [编程要求] 程序中有一个过程sum()，该过程的功能是求一个数组的不靠边元素之和。 完成此函数的功能 【参考代码】 Dim i As Integer, j As Integer For i = LBound(b) + 1 To UBound(b) - 1 For j = LBound(b) + 1 To UBound(b) - 1 sum = sum + b(i, j) Next j Next i 3 [题目] 编写程序，求任意两个正整数的最小公倍数。 【编程要求】 1、单击计算按钮，在文本框Text3中显示最小公倍数；单击清除按钮，则清除3个文本框中的内容， 于文本框Text1；单击结束按钮，程序停止运行。 2、界面应与给出的参考界面相似，不得增加或减少控件； 3、运行程序，并输入3、7进行检验。 【参考代码】 m = Val(Text1): n = Val(Text2) If m n Then t = m: m = n: n = t mn = m * n r = m Mod n Do While r 0 m = n: n = r r = m Mod n Loop Text3 = mn / n 4 [题目] 编写程序，求n！，并显示前7项结果。 [编程要求] 1、按执行按钮，则开始运行程序，按图示格式将前7项阶乘显示在列表框list1中。 1、 按清除按钮，则将列表框list1中的内容清空。按结束按钮，结束程序的执行。 2、 程序中有一个函数过程，该过程的功能是使用递归函数求任意一个数的阶乘。 【参考代码】 If n = 0 Or n = 1 Then fact = 1 Else fact = n * fact(n - 1) End If 5 [题目] 求任意一个正整数n的逆序数。 例如：432的逆序数为234，210619的逆序数为916012。要求程序具有能用性，即对于输入的整数或长整数不限制位数都能求。 [编程要求] 1、在文本框Text1中输入正整数 n 后，单击计算按钮，则结果显示在文本框Text2中； 2、单击清空按钮，则清空所有文本框的内容； 3、单击退出按钮，程序停止运行； 4、界面应与参考界面相似，不得增加或减少控件； 5、运行程序，并输入14587检验。 【参考代码】 n = Val(Text1) Do While n 0 a = n Mod 10 m = m * 10 + a n = n \ 10 Loop Text2 = CStr(m) 6 [题目]随机生成500个4位正整数，将其置于文本框1中，从中找出回文数，置于文本框2中。并找出值最小的回文数，显示在文本框3中。 [编程要求] 1、按运行按钮，将运行结果按图示格式显示在文本框中；按清除按钮，将文本框清空，按退出按钮，结束程序运行； 2、程序中有一个名为HuiWenShu( )的函数过程，用于判断一个数是否为回文数。 3、在运行按钮的单击事件中完成此按钮功能功能。 【参考代码】 For i = 1 To 500 a(i) = Int((9999 - 1000 + 1) * Rnd + 1000) Text1 = Text1 a(i) vbCrLf Next i Min = 9999 For i = 1 To 500 If huiwenshu(CStr(a(i))) Then Text2 = Text2 a(i) vbCrLf