vb程序编程1解析

1、Private Sub Comma nd1_Click( Dim a As In tegerDim b As In tegerDim m As In tegerDim n As In tegera = InputBox(输入 a 的值 b = InputBox(输入 b 的值If a b The nm = bn = aElsem = an = bEnd Ifr = m Mod nDo While r 0 m = nn = rr = m Mod nLoopPrint a与b的最大公约数为;n End SubPrivate Sub Comma nd1O_Click( Dim i As In teg

2、erDim j As In tegerFor i = 1 To 4Print Tab(20 - 2 * i;Forj = 1 To iPrint 2 * i - 1;NextPrintNextEnd SubPrivate Sub Comma nd11_Click( Dim i As In tegerDim j As In tegerDim n As In tegerDim s As LongDim flag As Boolea nFor i = 100 To 1000flag = TrueForj = 2 To i- 1If i Mod j = 0 Thenflag = FalseExit F

3、orEnd IfNext jIf flag Thenn = n + 1s = s + iPrint i;If n Mod 10 = 0 The nPrintEnd IfEnd IfNext iPrintPrint n=; n, s=; sEnd SubPrivate Sub Comma nd12_Click( For m = 1 To 5Print Tab(70 - 3 * m;For n = 1 To 2 * m - 1If n = 1000 ThenExit ForEnd IfNextPrint 1+2+3.+n 1000 的最大 n 值为;n - 1 End SubPrivate Sub

4、 Comma nd15_Click(Dim m As In teger, n As In tegerCisPrintFor n = 1 To 5Print Tab(2 * n + 2;For m = n To 10 - nPrint Spc(1; *;NextPrint Spc(4;For m = 1 To 2 * n - 1Print Spc(1; *;NextPrintNextEnd SubPrivate Sub Comma nd16_Click(Dim i As In tegerDim j As In tegerFor i = 1 To 5Print Tab(20 - 3 * i;For

5、j = 1 To 2 *i - 1Print 2 * i - 1;Next jPrintNext iEnd SubPrivate Sub Comma nd17_Click(Dim n As In teger, i As In teger n = InputBox(输入数值For i = 1 To nPrint Spc(n - 1m = String(2 * i - 1, *Print mNext iEnd SubPrivate Sub Comma nd18_Click(Dim i As In teger i = InputBox(输入判断的数值If i Mod 2 = 0 The nPrint

6、 i;是偶数ElsePrint i;是奇数End IfEnd SubPrivate Sub Comma nd19_Click(Dim x As In teger, fiag As Boolea nDim n As In teger, s As LongFor x = 100 To 1000flag = Truen = 2Do While n xIf x Mod n = 0 The nflag = FalseEnd Ifn = n + 1LoopIf flag ThenEnd IfNext xPrint 100到1000之间的素数和为;s End SubPrivate Sub Comma nd2

7、_Click(Rem水仙花数Dim x As In teger, y As In teger, z As In teger Dim i As In teger i = 100Do While i = 999x = i100y = (i Mod 100 10z = i Mod 10If i = x A 3 + y A 3 + z A 3 The nPrint i;End Ifi = i + 1LoopEnd SubPrivate Sub Comma nd20_Click(Dim a As Strin g, i As In tegerDim k As In tegera = ABCDEFGk =

8、Len(aFor i = i To kPrint Right(a, iNext iEnd SubPrivate Sub Comma nd21_Click(Rem 1+2.+100Dim x As In tegerDim i As Longi = 0y = 1Do While y = 100i = i + yy = y + 1LoopPrin t 1+2.+100=; iEnd SubPrivate Sub Comma nd22_Click(Rem前n项和Dim x As In teger, y As In tegerDim n As In tegerDim i As Longn = Input

9、Box(输入 n 的值i = 0y = 1Do While y = ni = i + yy = y + 1LoopPrint iEnd SubPrivate Sub Comma nd23_Click( Rem 2到 100 的素数输出Dim a As In tegerDim i As In tegerFor a = 2 To 100Do While i a - 1 The nPrint a;j = j + 1If j Mod 10 = 0 Then Print End IfNextEnd SubPrivate Sub Comma nd24_Click( Dim cj As In tegerDi

10、m dj As Stri ngcj = InputBox(请输入成绩If cj = 0 And cj = 100 The nSelect Case cjCase Is 60dj = ECase Is 70 dj = DCase Is 80 dj = CCase Is 90 dj = BCase Is = 100dj = AEnd SelectEnd IfPrint cj;的成绩等级是;djEnd SubPrivate Sub Comma nd25_Click(Print * 3 4 5 6 7 8 Print For j = 12 To 24 Step 3Print Format(j, ; |

11、;For i = 3 To 8Print Format(j * i, ;NextPrintNextEnd SubPrivate Sub Comma nd26_Click(Rem 1到100奇数和Dim i As In teger, sum As Long sum = 0i = 1Do While i 99i = i + 2sum = sum + iPrint i;j = j + 1 分行If j Mod 10 = 0 Then PrintLoopPrint sumEnd SubPrivate Sub Comma nd27_Click(Dim i As Sin gle, s As Stri ng

12、 Ran domizei = RndPrint iIf i 0.5 The ns =正面Elses =反面End IfPrint sEnd SubPrivate Sub Comma nd28_Click(Dim i As Integer, j As Integer, n1 As Integer, n2 As Integer j = 0Do While j 0.5 The nn1 = n1 + 1Else n2 = n2 + 1End IfLoopPrint n1, n2End SubPrivate Sub Comma nd29_Click(RCq * * *Dim n As In tcgcrn

13、 = InputBox(输入 n 的值For i = 1 To nPrint Spc(n - 1m = String(2 * i - 1, *Print mNext iEnd SubPrivate Sub Comma nd3_Click(Dim x As In tcgcrDim y As In tcgcrDim s As Stri ng x = InputBox(输入 x 的值 y = InputBox(输入 y 的值If x 0 And y 0 The ns =第一象限Elself x 0 The ns =第二象限Elself x 0 And y 0 The ns =第三象限Elses =第

14、四象限End IfPrint点(;x; ,; y;在;sEnd SubPrivate Sub Comma nd30_Click(Forj = 1 To 9Fori = 1 TojPrint Format(i, ; *; j; =; Format(j * i, ;Next iPrintNext jEnd SubPrivate Sub Comma nd4_Click(Dim i As In tegerDim j As In tegerDim s As Stri ngi = InputBox(输入判断的月份j = InputBox(输入判断的年份Select Case iCase 1,3, 5, 7

15、, 8, 10, 12s = 31 天Case 4, 6, 9, 11s = 30 天Case 2If j Mod 4 = 0 And j Mod 100 0 Or j Mod 400 = 0 Then s = 29 天Elses = 28 天End IfEnd SelectPrint 这个月有;sEnd SubPrivate Sub Comma nd5_Click(Rem求n的阶乘Dim i As In tegerDim s As LongDim n As In tegern = InputBox(输入阶乘数值s = 1i = 0Do While i ni = i + 1s = s * iL

16、oopPrint n;的阶乘为;sEnd SubPrivate Sub Comma nd6_Click( Dim a As In tegerDim i As In tegera = InputBox(输入数值i = 2Do While i = nIf a Mod i = 0 ThenExit DoEnd Ifi = i + 1LoopIf i a - 1 The nPrint a;不是素数ElsePrint a;是素数End IfEnd SubPrivate Sub Comma nd7_Click( Dim a As In tegerDim flag As Boolea nflag = Tru

17、ea = InputBox(输入要判断的值i = 2Do While i = a - 1flag = FalseEnd Ifi = i + 1LoopIf flag ThenPrint a;是素数ElsePrint a;不是素数End IfEnd SubPrivate Sub Comma nd8_Click( Dim n As In tegerDim k As LongDim s As Long n = InputBox(输入数值s=1 k=0 For i = 1 To n s=s*i k=k+s Next Text1.Text = k End Sub Private Sub Command9_Click( Dim i As Inte