vb程序编程1.docx

1、vb程序编程1Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim m As IntegerDim n As Integera = InputBox(输入a的值)b = InputBox(输入b的值)If a b Then m = b n = aElse m = a n = bEnd Ifr = m Mod nDo While r 0 m = n n = r r = m Mod nLoopPrint a与b的最大公约数为; nEnd SubPrivate Sub Command10_Click()Dim i As Int

2、egerDim j As IntegerFor i = 1 To 4 Print Tab(20 - 2 * i); For j = 1 To i Print 2 * i - 1; Next Print NextEnd SubPrivate Sub Command11_Click()Dim i As IntegerDim j As IntegerDim n As IntegerDim s As LongDim flag As BooleanFor i = 100 To 1000 flag = True For j = 2 To i - 1 If i Mod j = 0 Then flag = F

3、alse Exit For End If Next j If flag Then n = n + 1 s = s + i Print i; If n Mod 10 = 0 Then Print End If End IfNext iPrintPrint n=; n, s=; sEnd SubPrivate Sub Command12_Click()For m = 1 To 5Print Tab(70 - 3 * m); For n = 1 To 2 * m - 1 If n = 1000 Then Exit For End IfNextPrint 1+2+3.+n1000的最大n值为; n -

4、 1End SubPrivate Sub Command15_Click()Dim m As Integer, n As IntegerClsPrintFor 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 Command16_Click()Dim i As IntegerDim j As IntegerFor i = 1 To 5 Pri

5、nt Tab(20 - 3 * i); For j = 1 To 2 * i - 1 Print 2 * i - 1; Next jPrintNext iEnd SubPrivate Sub Command17_Click()Dim n As Integer, i As Integern = InputBox(输入数值)For i = 1 To nPrint Spc(n - 1)m = String(2 * i - 1, *)Print mNext iEnd SubPrivate Sub Command18_Click()Dim i As Integeri = InputBox(输入判断的数值

6、)If i Mod 2 = 0 Then Print i; 是偶数Else Print i; 是奇数End IfEnd SubPrivate Sub Command19_Click()Dim x As Integer, fiag As BooleanDim n As Integer, s As LongFor x = 100 To 1000 flag = True n = 2 Do While n x If x Mod n = 0 Then flag = False End If n = n + 1 LoopIf flag Thens = s + xEnd IfNext xPrint 100到

7、1000之间的素数和为; sEnd SubPrivate Sub Command2_Click()Rem 水仙花数Dim x As Integer, y As Integer, z As IntegerDim i As Integeri = 100Do While i = 999x = i 100y = (i Mod 100) 10z = i Mod 10If i = x 3 + y 3 + z 3 Then Print i;End Ifi = i + 1LoopEnd SubPrivate Sub Command20_Click()Dim a As String, i As IntegerD

8、im k As Integera = ABCDEFGk = Len(a)For i = i To k Print Right(a, i)Next iEnd SubPrivate Sub Command21_Click()Rem 1+2.+100Dim x As IntegerDim i As Longi = 0y = 1Do While y = 100 i = i + y y = y + 1LoopPrint 1+2.+100=; iEnd SubPrivate Sub Command22_Click()Rem 前n项和Dim x As Integer, y As IntegerDim n A

9、s IntegerDim i As Longn = InputBox(输入n的值)i = 0y = 1Do While y = n i = i + y y = y + 1LoopPrint iEnd SubPrivate Sub Command23_Click()Rem 2到100的素数输出Dim a As IntegerDim i As IntegerFor a = 2 To 100 i = 2 Do While i a - 1 Then Print a; j = j + 1 If j Mod 10 = 0 Then Print End IfNextEnd SubPrivate Sub Co

10、mmand24_Click()Dim cj As IntegerDim dj As Stringcj = InputBox(请输入成绩)If cj = 0 And cj = 100 Then Select Case cj Case Is 60 dj = E Case Is 70 dj = D Case Is 80 dj = C Case Is 90 dj = B Case Is = 100 dj = A End SelectEnd IfPrint cj; 的成绩等级是 ; djEnd SubPrivate Sub Command25_Click()Print * 3 4 5 6 7 8Prin

11、t -For j = 12 To 24 Step 3 Print Format(j, ); |; For i = 3 To 8 Print Format(j * i, ); Next PrintNextEnd SubPrivate Sub Command26_Click()Rem 1到100奇数和Dim i As Integer, sum As Longsum = 0i = 1Do While i 99 i = i + 2 sum = sum + i Print i; j = j + 1 分行 If j Mod 10 = 0 Then PrintLoopPrint sumEnd SubPriv

12、ate Sub Command27_Click()Dim i As Single, s As StringRandomizei = RndPrint iIf i 0.5 Thens = 正面Elses = 反面End IfPrint sEnd SubPrivate Sub Command28_Click()Dim i As Integer, j As Integer, n1 As Integer, n2 As Integerj = 0Do While j 0.5 Then n1 = n1 + 1 Else n2 = n2 + 1 End IfLoopPrint n1, n2End SubPrivate Sub Command29_Click()Rem * * *Dim n As Integern