VB二十道常见编程(期末操作题).doc

1.求随机10个整数的最大值、最小值、平均值以及和；Dim a(1 To 10)Private Sub Command1_Click() Randomize Picture1.Print 产生的随机数为： For i = 1 To 10 a(i) = Int(Rnd * 99 + 1) Picture1.Print a(i); Next i Picture1.PrintEnd SubPrivate Sub Command2_Click() Dim max, min, ave max = a(1) min = a(1) ave = 0.1 * a(1) For i = 2 To 10 If a(i) max Then max = a(i) If a(i) n1 Then 为了求最小公倍数，增加m,n变量 m = m1: n = n1 Else m = n1: n = m1 End If Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop Print n1; ,; m1; 的最大公约数为; n Print 最小公倍数=, m1 * n1 / n End Sub 7. 求逆序数Private Sub Command1_Click()Dim n As String Dim i As Integer Dim s As String n = Text1 For i = 1 To Len(n) st = Mid(n, i, 1) s = st + s Next i Text2 = sEnd SubPrivate Sub Command2_Click() Text1 =“” Text2 =“”End SubPrivate Sub Command3_Click() EndEnd Sub8. 级数有限项求和问题Private Sub Command1_Click()Dim a As Double 存放阶乘Dim s As Double 存放和Dim i As Integer 循环变量Dim n As Double 存放通项Dim m As Double 存放项数 s = 1 和初值 a = 1 阶乘初值 i = 1 循环变量初值 Do a = a * i 阶乘 n = 1 / a 通项 s = s + n 和 i = i + 1 下个循环 Loop Until n =”A” And UCase(S)=”Z” Then A(Asc(UCase(S)-64)+1 End If Next iFor i=1 To 26 List1.Additem Chr(64+i) & “:” & A(i) Netx iEnd SubPrivate Sub Command_Click() EndEnd Sub11. 判定素数过程Function isprime(Num As Long) As Boolean If Num = B, A, B) x存入最大值 Y = IIf(A a(j) Then t = a(j - 1) a(j - 1) = a(j) a(j) = t End If Next NextEnd Sub 14.顺序查找过程Private Sub Command1_Click()Dim i, j, t, a(1 To 10)RandomizePrint 原数组:For i = 1 To 10 a(i) = Rnd * 10 Print a( & i & ) = & a(i) & Space(2), If i Mod 2 = 0 Then PrintNext iPrintFor i = 1 To 9 For j = i + 1 To 10 If a(j) 1 Then For j = n To 2 Step -1 Print j & *; Next j End If Print 1=; Print JieCheng(n)End SubPrivate Function JieCheng(ByVal i&) As Long If i 1 Then JieCheng = i * JieCheng(i - 1) Else JieCheng = 1 End IfEnd Function 17.递归函数求Fibonacci数列Option base1Option explicitPrivate sub command1_click()Dim n as integer, i as integerDim f() as longn=text1Redim f(n)F(1)=1List1.Additem F(1)F(2)=1List1,Additem F(2)For i=3 To n F(i)=F(i-2)+F(i-1) List1.Additem F(i)Next iEnd SubPrivate Sub Command2_Click()EndEnd Sub18.矩阵靠边元素之和Private Sub Form_Click() Cls Randomize Dim a(5, 5) As Integer For i = 0 To 5 For j = 0 To 5 a(i, j) = Int(Rnd * 9) Print a(i, j) & ,; Sum = Sum + a(i, j) Next j Print Next i Print 所有元素和为： & Sum Sum = 0 For i = 0 To 5 Sum = Sum + a(i, 0) + a(i, 5) + a(0, i) + a(5, i) Next Sum = Sum - a(0, 0) - a(5, 0) - a(5, 5) - a(0, 5) Print 所有靠边元素的和: & Sum 备用的Sum = 0 For i = 0 To 5 Sum = Sum + a(i, i) + a(i, 5 - i) Next Print 两条对角线元素的和为： & Sum End Sub19.矩阵不靠边元素之和利用第8题求出的所有和，减去靠边和即可20.矩阵转置Private Sub Command1_Click()Dim a() As Integern = InputBox(输入行个数)m = InputBox(输入列个数)ReDim a(1 To n, 1 To m)RandomizePrint 生成矩阵For i = 1 To nFor j = 1 To ma(i, j) = Int(Rnd * 100 + 1)Print a(i, j);Next jPrintNext iEnd SubPrivate Su