VB经典的程序设计题

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计算人口Private Sub Label1_Click()Dim p As Single, r As Single, i As Singlep = 14r = 0.012i = 0While p

3、= 20p = p * (1 + r)i = i + 1WendPrint: PrintPrint i; 年后，我国人口将达到; p; 亿End 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求平均成绩Private Sub Command1_Click(

4、)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 x As Singlex = Text1.TextIf x = 90 ThenText2.Text = 优秀ElseIf x = 80 ThenText2.Text = 良好ElseIf x = 70 ThenText2.

5、Text = 中ElseIf x = 60 ThenText2.Text = 及格ElseText2.Text = 不及格End IfEnd 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(

6、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

7、,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(InputB

8、ox(请输入一个四位数)i = a Mod 10j = (a Mod 100) 10k = (a Mod 1000) 100m = a 1000s=个位数字是:&i&vbcrlf十位数字是:&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 = 10Print

9、sumEnd Sub用inputbox输入一个年份，判断该年份是否是闰年，若是则输出Yes,否则输出NoPrivate Sub Command1_Click()Dim j%j = Val(InputBox(请输入年份)If j Mod 400 = 0 Or j Mod 4 = 0 And j Mod 100 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_Cl

10、ick()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

11、 (yes)ElseMsgBox (no)End IfEnd Sub某分段函数描述如下：当x为偶数时，y的值为x的二分之一当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

12、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

13、= 1For i = 1 To 9 Step 2sum = sum * iNextMsgBox (sum)End Sub随机产生一个小写字母Private Sub Command1_Click()Dim a As StringRandomizea = Chr(Int(97 + 26 * Rnd)MsgBox (a)End Sub编写程序，计算下面级数中偶数项的和ES，在求和的过程中，当某偶数项（注意，该项参与求和）的值 0.001时求和终止并输出ES，结果取6位1/(1*2)+1/(2*3)+1/(3*4)+1/(n*(n+1)private Sub Command1_Click()Dim a

14、#, i%, ES#i = 1Doa = i * (i + 1)i = i + 1If i Mod 2 = 0 ThenES = ES + 1 / aEnd IfLoop Until 1 / a = 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)中

15、的偶数项的和Private Sub Command1_Click()Dim s!, i%For i = 2 To 50 Step 2s = s + i * (i + 1)NextMsgBox (s)End Sub输入长方形的长和宽，计算长方形的周长，并输出Private Sub Command1_Click()Dim m#, n#m = Val(InputBox(请输入长方形的边长)n = Val(InputBox(请输入长方形的另一个边长)MsgBox (2 * (m + n)End SubVB期末范围题总汇 1 求随机10个整数的最大值、最小值、平均值以及和； Dim a(1 To 10)

16、 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) n1 The

17、n 为了求最小公倍数，增加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.求逆序数（感觉题目类型太多） 8. 级数有限项求和问题（题目类型太多） 9. 求质因子问题 Private Sub Command1_Click() Dim N As Integer, I As Integer N = Val(InputBo

18、x(请输入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 10. 字符统计 Option Base1 Option Explicit Private Sub Command1_Click() Dim i as integer，A(26) as integer，n as integer Dim S as string*1,Strl as string Strl=Text1 n=Len(Strl) For i=1 To n S=Mid(Strl,i,1) If UCase(S)=”A” And UCase(S)=”Z” Then A(Asc(UCa