vb大题

1111S?1??????3572n?1的和,当第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 If a(i) < Min Then Min = a(i) End If Next i

Text3 = Min 7

题目] 生成10个随机的两位正整数，并求出其最大值、最小值、平均值以及总和。

【编程要求】

1、单击\生成随机数\按钮，生成10个两位随机正整数并显示在列表框中；

单击\求最大最小等\按钮，则求出其最大值、最小值、平均值以及总和并显示在相应文本框中；

单击\重置\按钮，将列表框和所有文本框清空，并将焦点置于\生成随机数\按钮上。 2、界面应与给出的参考界面相似，不得增加或减少控件。

【参考代码】

Dim i As Integer Dim max As Integer Dim min As Integer Dim sum As Integer

max = a(1): min = a(1): sum = a(1) For i = 1 To 10 sum = sum + a(i)

If max < a(i) Then max = a(i) If min > a(i) Then min = a(i) Next i

txtMax.Text = CStr(max) txtMin.Text = CStr(min) txtSum.Text = CStr(sum)

txtAvg.Text = CStr(sum / 10) 8

本文来源：https://www.bwwdw.com/article/69y5.html