VB经典的程序设计题.doc

累加求和1到100Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100sum = sum + iNextText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub1到100的奇数和Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100 step 2sum = sum + iNextText1.Text = sumEnd SubPrivate Sub Command2_Click()End求n!Private Sub Command1_Click()Dim fact As Double, n As Integer, i As Integern = Val(Text1.Text)fact = 1For i = 1 To nfact = fact * iNextText2.Text = factEnd Sub累加求和1到100（Do while）Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0i = 1Do While i = 100sum = sum + ii = i + 1LoopText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub（Do Until）Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0i = 1Do until i 100sum = sum + ii = i + 1LoopText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub求平均成绩Private Sub Command1_Click()Dim a As Single, b As Single, c As Single, d As SingleDim pj As Singlea = 60: b = 70: c = 80: d = 90pj = (a + b + c + d) / 4Text1.Text = Str(pj)End Sub 求圆的周长Private Sub Command1_Click()Dim r As DoubleConst pi = 3.1415926r = Val(InputBox(请输入圆的半径)Print 圆的周长为:, 2 * pi * rEnd Sub输入两个整数m n，使得m=n,并输出m nPrivate Sub Command1_Click()Dim m As Integer, n As Integer, a As Integerm = Val(InputBox(请输入m:, 输入, m)n = Val(InputBox(请输入n:, 输入, n)If n m Thena = mm = nn = aEnd IfPrint m=, mPrint n=, nEnd Sub计算sum=1/1!+1/2!.+1/10!Private Sub Command1_Click()Dim m As Integer, n As Long, s As Doublen = 1s = 0For m = 1 To 10n = n * ms = s + 1 / nNextPrint sEnd Sub定义一个下标上界为10的整型数组，并随机函数为其赋值（值处于【0,100】之间，计算数组中所有偶数的和Private Sub Command1_Click()RandomizeDim a%(10)Dim i%, s%For i = 0 To 10a(i) = 101 * Rnd()NextFor i = 0 To 10If a(i) Mod 2 = 0 Thens = s + a(i)End IfNextPrint 所有偶数的和为:, sEnd Sub输入一个四位数，分别输出它的个位数字、十位数字、百位数字、和千位数字。（待修改）Private Sub Command1_Click()Dim a%, i%, k%, m%, s$a = Val(InputBox(请输入一个四位数)i = a Mod 10j = (a Mod 100) 10k = (a Mod 1000) 100m = a 1000s=个位数字是:ivbcrlf十位数字是:jvbcrlf百位数字是:kvbcrlf千位数字是:mPrint sEnd Sub计算sum=2!+4!+6!+.+10!Private Sub Command1_Click()Dim a!, i%, sum!i = 1: a = 1Doa = 2 * iIf i Mod 2 = 0 Thensum = sum + aEnd Ifi = i + 1Loop While i = 10Print sumEnd Sub用inputbox输入一个年份，判断该年份是否是闰年，若是则输出Yes,否则输出NoPrivate Sub Command1_Click()Dim j%j = Val(InputBox(请输入年份)If j Mod 4 = 0 ThenMsgBox (Yes)ElseMsgBox (No)End IfEnd Sub计算并输出下面级数前n项（n=20）中奇数项的和。1*2*3-2*3*4+3*4*5-4*5*6+.+（-1）（n-1）*n*(n+1)*(n+2)+.Private Sub Command1_Click()Dim s!, i%For i = 1 To 20 Step 2s = s + i * (i + 1) * (i + 2)NextMsgBox (s)End Sub如果一个三位数等于其各位数字的立方和，则称其为水仙花数。请输入一个三位数，并判断其是否为水仙花数。若是，用MsgBox输出“yes”，否则输出“no”Private Sub Command1_Click()Dim a%, i%, j%, k%a = InputBox(请输入一个三位数！)i = a 100j = a 10 Mod 10k = a Mod 10If a = i 3 + j 3 + k 3 ThenMsgBox (yes)ElseMsgBox (no)End IfEnd Sub某分段函数描述如下：（1） 当x为偶数时，y的值为x的二分之一（2） 当x为奇数时，y的值为x的二倍Private Sub Command1_Click()Dim x!, y!x = Val(InputBox(请输入X的值！)If x Mod 2 = 0 Theny = x / 2Elsey = 2 * xEnd IfMsgBox (y)End Sub输入三个数，判断其是否能够构成三角形.Private Sub Command1_Click()Dim i As Integer, a(2) As Integer, p As Single, s As SingleFor i = 0 To 20a(i)=val(inputbox(输入第i条边的边长:)Next iIf a(0) + a(1) a(2) And a(0) + a(2) a(1) And a(1) + a(2) a(0) Thenp = (a(0) + a(1) + a(2) / 2s=sqr(p*(p-a(0)*(p-a(1)*(p-a(2)MsgBox (s)ElseMsgBox (不能形成三角形!)End IfEnd Sub计算1*3*5.*9Private Sub Command1_Click()Dim sum As Long, i As Integersum = 1For i = 1 To 9 Step 2sum = sum * iNextMsgBox (sum)End Sub编写程序，求下面级数前n项的和s=1/1!-1/2!+1/3!-1/4（-1）（n-1）*1/n!+.求和过程当某一项的绝对值小于0.0001时结束（注意，该项参与求和），计算并输出所求的和s，要求保留6位小数Private Sub Command1_Click()Dim m As Double, n As Integer, s As Double, f As Integers = 0: n = -1: m = 1: f = 1Do While 1 / m = 0.0001m = m * ff = f + 1n = -ns = s + n / mLoops = Format(s, 0.000000)Print sEnd Sub随即输出一个位于【0,100】之间的整数Private Sub Command1_Click()RandomizeDim s%s = (101 * Rnd)Print sEnd Sub编写程序，计算并输出下面级数前n项（n=50)中的偶数项的和Private Sub Command1_Click()Dim s!, i%For i = 2 To 50 Step 2s = s + i * (i + 1)NextMsgBox (s)End SubVB期末范围题总汇 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.Print End Sub Private 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) min Then min = a(i) ave = ave + 0.1 * a(i) Next i Picture1.Print 最大数为：; max Picture1.Print 最小数为：; min Picture1.Print 平均数为：; ave End Sub 2.求水仙花数 Private Sub Form_Click() Dim a, b, c As Integer a(个)b(十)c(百) For a = 0 To 9 For b = 0 To 9 For c = 1 To 9 If a 3 + b 3 + c 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a End If Next c Next b Next a End Sub 求1000以内的所有完数 一个按钮里调用的过程 Private Sub Command1_Click() OutputWanNumber 1000 End Sub 5.求各位数字之和 input a:输入任意数 do b=a mod 10:取a的末位数 sum=sum+b:求和 a=a 10:去掉末位数 loop until a=0 print sum=;sum:输出 end （dim n as string input n for i = 1 to len(n) sum=sum+val(mid(n,i,1) next i print sum） 6.求最小公倍数 Private Sub Form_Load() Form1.AutoRedraw = True Dim n1%, m1%, m%, n%, r% n1 = InputBox(输入n1) m1 = InputBox(输入m1) If m1 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.求逆序数（感觉题目类型太多） 9. 求质因子问题 Private Sub Command1_Click() Dim N As Integer, I As Integer N = Val(InputBox(请输入2的整数:) I = 2 Do If N Mod I = 0 Then Print I; N = N I Else I = I 1 End If Loop While N 1 End Sub 1. 判定素数过程 Function isprime(Num As Long) As Boolean If Num 2 Then isprime = False: Exit Function Dim i As Long For i = 2 To Sqr(Num) If (Num Mod i) = 0 Then isprime = False Exit Function End If Next i isprime = True End Function Private Sub Command1_Click() Dim i As Long For i = 1 To 1000 If isprime(i) Then Print i End If Next i End Sub 2.求最大公约数过程； Function Max公约数(A As Long, B As Long) 求出两个数的最大公约数 Dim X As Long, Y As Long, K As Long X = IIf(A = B, A, B) x存入最大值 Y = IIf(A = B, A, B) y 存入最小值 Do 辗转相除法 K = X Mod Y: If K = 0 Then Exit Do X = Y: Y = K Loop Max公约数 = Y End Function 3.冒泡排序过程 Private Sub Command1_Click() Dim a(9) As Integer Dim i As Integer For i = 0 To 9 a(i) = InputBox(输入整数) Next Sort a For i = 0 To 9 Print a(i) Next End Sub Private Sub Sort(ByRef a() As Integer) Dim i As Integer Dim j As Integer Dim t As Integer For i = LBound(a) + 1 To UBound(a) For j = UBound(a) To i Step -1 If a(j - 1) a(j) Then t = a(j - 1) a(j - 1) = a(j) a(j) = t End If Next Next End Sub 4顺序查找过程 Private Sub Command1_Click() Dim i, j, t, a(1 To 10) Randomize Print 原数组: For i = 1 To 10 a(i) = Rnd * 10 Print a( i ) = a(i) Space(2