VB經(jīng)典的程序設(shè)計(jì)題

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的奇數(shù)和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計(jì)算人口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; 年后，我國人口將達(dá)到; 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 = 優(yōu)秀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(請(qǐng)輸入圓的半徑)Print 圓的周長為:, 2 * pi * rEnd Sub輸入兩個(gè)整數(shù)m n，使得m=n,并輸出m nPrivate Sub Command1_Click()Dim m As Integer, n As Integer, a As Integerm = Val(

6、InputBox(請(qǐng)輸入m:, 輸入, m)n = Val(InputBox(請(qǐng)輸入n:, 輸入, n)If n m Thena = mm = nn = aEnd IfPrint m=, mPrint n=, nEnd Sub計(jì)算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定義一個(gè)下標(biāo)上界為10的整型數(shù)組，并隨機(jī)函數(shù)為其賦值（值處于【0

7、,100】之間，計(jì)算數(shù)組中所有偶數(shù)的和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 所有偶數(shù)的和為:, sEnd Sub輸入一個(gè)四位數(shù)，分別輸出它的個(gè)位數(shù)字、十位數(shù)字、百位數(shù)字、和千位數(shù)字。（待修改）Private Sub Command1_Click()Dim a%, i%, k%, m%, s$a = Val(InputB

8、ox(請(qǐng)輸入一個(gè)四位數(shù))i = a Mod 10j = (a Mod 100) 10k = (a Mod 1000) 100m = a 1000s=個(gè)位數(shù)字是:&i&vbcrlf十位數(shù)字是:&j&vbcrlf&百位數(shù)字是:&k&vbcrlf&千位數(shù)字是:&mPrint sEnd Sub計(jì)算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輸入一個(gè)年份，判斷該年份是否是閏年，若是則輸出Yes,否則輸出NoPrivate Sub Command1_Click()Dim j%j = Val(InputBox(請(qǐng)輸入年份)If j Mod 400 = 0 Or j Mod 4 = 0 And j Mod 100 0 ThenMsgBox (Yes)ElseMsgBox (No)End IfEnd Sub計(jì)算并輸出下面級(jí)數(shù)前n項(xiàng)（n=20）中奇數(shù)項(xiàng)的和。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如果一個(gè)三位數(shù)等于其各位數(shù)字的立方和，則稱其為水仙花數(shù)。請(qǐng)輸入一個(gè)三位數(shù)，并判斷其是否為水仙花數(shù)。若是，用MsgBox輸出“yes”，否則輸出“no”Private Sub Command1_Click()Dim a%, i%, j%, k%a = InputBox(請(qǐng)輸入一個(gè)三位數(shù)！)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某分段函數(shù)描述如下：當(dāng)x為偶數(shù)時(shí)，y的值為x的二分之一當(dāng)x為奇數(shù)時(shí)，y的值為x的二倍Private Sub Command1_Click()Dim x!, y!x = Val(InputBox(請(qǐng)輸入X的值！)If x Mod 2 = 0 Theny = x / 2Elsey = 2 * xEnd IfMsgBox (y)End Sub輸入三個(gè)數(shù)，判斷其是否能夠構(gòu)成三角形.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計(jì)算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隨機(jī)產(chǎn)生一個(gè)小寫字母Private Sub Command1_Click()Dim a As StringRandomizea = Chr(Int(97 + 26 * Rnd)MsgBox (a)End Sub編寫程序，計(jì)算下面級(jí)數(shù)中偶數(shù)項(xiàng)的和ES，在求和的過程中，當(dāng)某偶數(shù)項(xiàng)（注意，該項(xiàng)參與求和）的值 0.001時(shí)求和終止并輸出ES，結(jié)果取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隨即輸出一個(gè)位于【0,100】之間的整數(shù)Private Sub Command1_Click()RandomizeDim s%s = (101 * Rnd)Print sEnd Sub編寫程序，計(jì)算并輸出下面級(jí)數(shù)前n項(xiàng)（n=50)中

15、的偶數(shù)項(xiàng)的和Private Sub Command1_Click()Dim s!, i%For i = 2 To 50 Step 2s = s + i * (i + 1)NextMsgBox (s)End Sub輸入長方形的長和寬，計(jì)算長方形的周長，并輸出Private Sub Command1_Click()Dim m#, n#m = Val(InputBox(請(qǐng)輸入長方形的邊長)n = Val(InputBox(請(qǐng)輸入長方形的另一個(gè)邊長)MsgBox (2 * (m + n)End SubVB期末范圍題總匯 1 求隨機(jī)10個(gè)整數(shù)的最大值、最小值、平均值以及和； Dim a(1 To 10)

16、 Private Sub Command1_Click() Randomize Picture1.Print 產(chǎn)生的隨機(jī)數(shù)為： 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 為了求最小公倍數(shù)，增加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; 的最大公約數(shù)為; n Print 最小公倍數(shù)=, m1 * n1 / n End Sub 7.求逆序數(shù)（感覺題目類型太多） 8. 級(jí)數(shù)有限項(xiàng)求和問題（題目類型太多） 9. 求質(zhì)因子問題 Private Sub Command1_Click() Dim N As Integer, I As Integer N = Val(InputBo

18、x(請(qǐng)輸入2的整數(shù):) 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. 字符統(tǒng)計(jì) 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