vb练习(三)编程.doc

1. 建立一个 66的整型二维数组（数据由程序调用Rnd函数产生0，10 ）的随机整数数），输出数组中所有奇数列元素的和。 Dim A(5, 5) As Integer Dim i, j As Integer For i = 0 To 5 For j = 0 To 5 A(i, j) = Int(Rnd() * 10) Next Next Dim sum As Integer For i = 0 To 5 For j = 0 To 5 Step 2 sum = sum + A(i, j) Next Next 902. 编写一个函数，其功能为求两个数的最大公约数。 Public Function gcd(ByVal m As Integer, ByVal n As Integer) As Integer Dim i As Integer If m n Then Dim t As Integer t = m: m = n: n = t End If For i = m To 1 Step -1 If m Mod i = 0 And n Mod i = 0 Then gcd = i Exit Function End If NextEnd Function3. 用InputBox输入一个年份，判断该年份是否是平年，若是则输出“Yes”，否则输出“No”。Dim year As Integer year = Val(InputBox() If(year Mod 400 = 0)Or(year Mod 4 = 0 And year Mod 1000) Then MsgBox(No) Else MsgBox(Yes) End If4. 建立一个 66的整型二维数组（数据由程序调用Rnd函数产生0，20 ）的随机整数数），输出数组中所有奇数列元素的和。 Dim A(5, 5) As Integer Dim i, j As Integer For i = 0 To 5 For j = 0 To 5 A(i, j) = Int(Rnd() * 20) Next Next Dim sum As Integer For j= 0 To 5 Step 2 For i = 0 To 5 sum = sum + A(i, j) Next Next Text1.Text = sum所有奇数列元素的和为：1885. 输入两个整数m、n，编写程序使得m=n，并输出m、n的值。Dim m, n As Integer m = Val(InputBox() n = Val(InputBox() If m n Then Dim t As Integer t = m : m = n : n = t End IfMsgBox(m= & m & ; & n= & n)6. 求下面级数前n项的和S，在求和过程中，当某项（注意，该项参与求和）的绝对值小于0.0001 时求和终止。结果取 5 位小数。 1-1/3+1/5-1/7+1/9-1/11+ +(-1)(n-1)*1/(2n-1)+ Private Sub Command1_Click() Dim n As Integer Dim item As Double Dim sum As Double i = 1 Do While True item = (-1) (i - 1) * 1 / (2 * i - 1) sum = sum + item If Abs(item) max Then max = A(i, j) End If Next Next Text1.Text = max 最大元素为：9 End Sub8. 编写一个函数，其功能为判断一个3位正整数是否是水仙花数。（水仙花数是指各位数字的立方和与该数相等，如153=13+53+33,153就是水仙花数。）Public Function Panduan(ByVal x As Integer) As Boolean Dim a As Integer, b As Integer, c As Integer a = x 100 b = (x Mod 100) 10 c = x Mod 10 If x = a 3 + b 3 + c 3 Then Panduan = True Else Panduan = False End If End FunctionPrivate Sub Command1_Click() Dim i As Integer i = InputBox(输入一个3位正整数：) MsgBox (Panduan(i)End Sub9. 计算sum=1+2+.+100 Dim sum, i As Double For i = 1 To 100 sum = sum + i Next print sum10. 定义一个下标上界为10整型数组，并为其赋值（值处于0，100之间），计算数组中所有不小于60的数据的和。 Dim a(10), i, sum As Integer For i