经典的程序设计题

1、累加求和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 = s

2、umEnd 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

3、 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 Comma

4、nd1_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=, mP

5、rint 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)

6、= 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=个位数字是:&i&vbcrlf十位数字是:&

7、j&vbcrlf&百位数字是:&k&vbcrlf&千位数字是:&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 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

8、(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 Comma

9、nd1_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编写程序，计算并输出下面级

10、数前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

11、 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) 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;

12、的最大公约数为; 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 = 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 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 * 1