vb编程代码.docx

1、vb编程代码计算二的n次幂代码Private Sub Command1_Click() Dim n As Integer, mi As Double Dim i As Integer n = Int(Val(InputBox() mi = 1 For i = 1 To n mi = mi * 2 Next i Print 2 的; n; 次幂为：; miEnd Sub编写程序，随机生成100个两位整数，并统计出其中小于等于40、大于40小于等于70及大于70的数据个数。代码Private Sub Command1_Click() Dim x As Integer, i As Integer D

2、im cnt1 As Integer, cnt2 As Integer, cnt3 As Integer cnt1 = 0: cnt2 = 0: cnt3 = 0 Randomize For i = 1 To 100 x = Int(Rnd * 90 + 10) If x = 40 Then cnt1 = cnt1 + 1 ElseIf x 70 Then cnt2 = cnt2 + 1 Else cnt3 = cnt3 + 1 End If Next i Print cnt1, cnt2, cnt3End Sub编写程序，单击窗体时在窗体上输出如下所示的图形。代码Private Sub Fo

3、rm_Click() Dim i As Integer, begin As Integer begin = 5 For i = 1 To 5 Print Tab(begin); For j = 1 To 2 * i - 1 Print *; Next j Print begin = begin - 1 Next i begin = 2 For i = 4 To 1 Step -1 Print Tab(begin); or j = 1 To 2 * i - 1 Print *; Next j Print begin = begin + 1 Next iEnd Sub编写程序，计算并输出下面级数前

4、n项(n=80)的部分和。 1-1/2+1/3-1/4+1/5+1/n代码Inputbox中输入2，出现上述结果Private Sub Command1_Click() Dim n As Integer, i As Integer Dim sum As Double n = Val(InputBox() sum = 0 For i = 1 To n If i Mod 2 0 Then sum = sum + (1 / i) Else sum = sum - (1 / i) End If Next i Print sumEnd Sub有100匹马，驮100担货：大马驮3担，中马驮2担，两匹小马驮

5、1担，问有大、中小马各多少？代码显示结果如上所示Private Sub Form_Click() Dim x As Integer, y As Integer, z As Integer Print 大马, 中马, 小马 For x = 0 To 33 For y = 0 To 50 z = 100 - x - y If (x * 3 + y * 2 + z * 0.5) = 100 Then Print x, y, z End If Next y Next x编写程序，要求从键盘输入0-6中的任一个，可对应得到星期日、星期一-星期六代码Inputbox中输入2 结果如上Dim n As In

6、teger n = Int(Val(InputBox() Select Case n Case 0 Print n; ：星期日 Case 1 Print n; ：星期一 Case 2 Print n; ：星期二 Case 3 Print n; ：星期三 Case 4 Print n; ：星期四 Case 5 Print n; ：星期五 Case 6 Print n; ：星期六 Case Else Print n; ：错误 End SelectEnd Sub编写程序，输出下列三角形： (要求用循环做，非循环不给分。)代码运行结果如上图所示Private Sub Command1_Click()

7、Dim i As Integer, j As Integer, begin As Integer begin = 7 For i = 1 To 4 Print Tab(begin); For j = 1 To 2 * i - 1 Print 1 ; 注意：双引号中1后面必须有一个空格 Next j Print begin = begin - 2 Next iEnd Sub求公式：1/1!+1/2!+1/3!+1/n! 直到最后一项小于10(-6)时e的值。(注：写在Command1的Click事件中。)代码运行结果如上图所示Private Sub Command1_Click() Dim su

8、m As Double, n As Long, nj As Double Dim i As Long sum = 0 n = 1 Do nj = 1 For i = 1 To n nj = nj * i Next i sum = sum + 1 / nj n = n + 1 Loop While (1 / nj) = 0.000001 Print sumEnd Sub编写程序，输出下列三角形： 总行数通过键盘输入。代码Inputbox输入5 运行结果如上图所示Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, j As I

9、nteger, n As Integer, begin As Integer n = Int(Val(InputBox() begin = 1 For i = 1 To n Print Tab(begin); For j = 1 To 9 - 2 * i Print 1 ; Next j Print begin = begin + 2 Next iEnd Sub输入一串数字，求其中偶数位数字之和。例如输入1357986，则求3+7+8代码Inputbox输入5 运行结果如上图所示Private Sub Command1_Click() Dim str As String, s As Strin

10、g * 1, i As Long, sum As Long str = InputBox() Print str sum = 0 For i = 2 To Len(str) Step 2 s = Mid(str, i, 1) sum = sum + Val(s) Print s Next i输入一串数字，求其中奇数数字构成的数与偶数数字构成的数之差。例如输入1654238，求1536428。代码Inputbox输入5 运行结果如上图所示Private Sub Command1_Click() Dim str As String, s1 As String, s2 As String, i As

11、 Long str = InputBox() Print str s1 = s2 = For i = 1 To Len(str) If i Mod 2 = 1 Then s1 = s1 & Mid(str, i, 1) Else s2 = s2 & Mid(str, i, 1) End If Next i Print s1; - ; s2; = ; Val(s1) - Val(s2)End Sub编写程序，单击窗体时在窗体上输出如下所示的图形。代码Private Sub Command1_Click() Dim begin As Integer, n As Integer, i As Long

12、 begin = 9 For i = 1 To 5 Print Tab(begin); For n = 1 To 2 * i - 1 Print *; Next n Print begin = begin - 2 Next i begin = 3 For i = 1 To 4 Print Tab(begin); For n = 1 To 9 - 2 * i Print *; Next n Print begin = begin + 2 Next iEnd Sub有一分数序列:1 , 1/2 , 2/3 , 3/5 , 5/8 , 8/13 求出这个数列的前20项之和。代码Option Expl

13、icitPrivate Sub Command1_Click() Dim sum As Double Dim a1 As Long, a2 As Long, a3 As Long Dim b1 As Long, b2 As Long, b3 As Long Dim i As Long a1 = 1: a2 = 1 b1 = 1: b2 = 2 sum = a1 / b1 + a2 / b2 For i = 3 To 20 a3 = a1 + a2 b3 = b1 + b2 sum = sum + a3 / b3 a1 = a2 a2 = a3 b1 = b2 b2 = b3 Next i Pr

14、int sumEnd Sub编写程序，计算下面级数前n项中(n=50)奇数项的和，并输出该级数最后两项之差的绝对1*2*3+2*3*4+3*4*5+n*(n+1)*(n+2)+代码Option ExplicitPrivate Sub Command1_Click() Dim sum As Long, dif As Long, n As Long sum = 0 For n = 1 To 49 Step 2 sum = sum + n * (n + 1) * (n + 2) Next n dif = (49 - 52) * 50 * 51 Print sum Print Abs(dif)End

15、Sub编程打印如下图形,总行数通过键盘输入。(要求用循环做，非循环不给分。按原图形直接打印者无效。)代码Inputbox输入5 运行结果如上图所示Option ExplicitPrivate Sub Command1_Click() Dim f1 As Long, f2 As Long, f3 As Long Dim n As Long, begin As Long Dim i As Long, j As Long n = Int(Val(InputBox() begin = 4 * n - 3 f1 = 1 f2 = 1 For i = 1 To n f3 = f1 + f2 Print T

16、ab(begin); For j = 1 To 2 * i - 1 Print Trim(f3); Spc(4 - Len(Trim(f3); 相邻两数的位置差4 Next j Print begin = begin - 4 f1 = f2 f2 = f3 Next i End Sub编写程序，计算并输出下面级数前n项(n=30)的部分和。 1/(1*2)+1/(2*3)+1/(3*4)+1/(n*(n+1)+代码Option ExplicitPrivate Sub Command1_Click() Dim sum As Double, n As Long sum = 0 For n = 1

17、To 30 sum = sum + 1 / (n * (n + 1) Next n Print sumEnd Sub编写程序，输出下列三角形： 代码Option ExplicitPrivate Sub Command1_Click() Dim code1 As Integer, code2 As Integer For code1 = Asc(G) To Asc(A) Step -1 For code2 = code1 To Asc(G) Print Chr(code2); Next code2 Print Next code1End Sub勾股定理中三个数的关系是：a2 + b2 =c2 编

18、写程序，输出100以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。代码Press enter star this 还有两列结果未显示Option ExplicitPrivate Sub Command1_Click() Dim a As Integer, b As Integer, c As Double Dim cnt cnt = 0 For a = 1 To 99 For b = 1 To 99 c = Sqr(a * a + b * b) If c 100 And Int(c) = c Then Print a; ; b; ; c; , cnt = cnt + 1 If cn

19、t Mod 4 = 0 Then Print End If Next b Next aEnd Sub通过键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的HEJISUANJISHIYANSHI变换成IHSNAYIHSIJNAUSIJEH。 代码先后输入5和a后显示结果如上Option ExplicitPrivate Sub Command1_Click() Dim s1 As String, s2 As String Dim i As Long s1 = InputBox(请输入原始字符串) s2 = For i = Len(s1) To 1 Step -1 s2 = s2 & Mi

20、d(s1, i, 1) Next i Print s1 Print s2End Sub求1000以内分别被3、5、7除，余数都为1的正整数的个数及其和代码Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, sum As Double Dim cnt As Integer sum = 0 cnt = 0 For n = 1 To 1000 If (n Mod 3 = 1) And (n Mod 5 = 1) And (n Mod 7 = 1) Then Print n cnt = cnt + 1 sum = sum + n

21、End If Next n Print Print 共; cnt; 个 Print 和为; sumEnd Sub代码图形1_Click()图形4_Click()图形6_Click()水仙花数_Click()图形2_Click()图形3_Click()图形5_Click()乘积表_Click()数列_Click()阶梯数_Click()图形7_Click()Private Sub 图形1_Click()ClsPrint For n = 1 To 8 Print Tab(2 * n + 2); For m = 1 To 8 Print Spc(1); *; Next Print NextEnd S

22、ubPrivate Sub 图形4_Click()ClsFor i = 1 To 5 Print Tab(20 - 3 * i); For j = 1 To 2 * i - 1 Print i; Next j PrintNext iEnd SubPrivate Sub 图形6_Click()Cls k = 1For i = 1 To 6 For j = 1 To i Print Tab(5 * j); k; k = k + 1 Next j PrintNext iEnd SubPrivate Sub 水仙花数_Click()一个三位数，如果它等于各位数的立方和，如153=13+53+33,称为

23、水仙花数。求所有的水仙花数。ClsFor i = 1 To 9 For j = 0 To 9 For k = 0 To 9 a = 100 * i + 10 * j + k b = i 3 + j 3 + k 3 If a = b Then Print Tab(4); a Next k Next jNext iEnd SubPrivate Sub 图形2_Click()Cls Print For n = 1 To 5 Print Tab(n + 2); For m = n To 10 - n Print *; Next Print Spc(4); For m = 1 To 2 * n - 1

24、Print *; Next Print NextEnd SubPrivate Sub 图形3_Click()Cls Print For n = 1 To 6 Print Tab(8 - n); For m = 1 To 2 * n - 1 Print *; Next m Next n For n = 1 To 5 Print Tab(n + 2); For m = n To 10 - n Print *; Next m Next nEnd SubPrivate Sub 矩阵_Click()Cls Dim a(10, 10) As IntegerDim m As Integer, n As In

25、teger For n = 1 To 10 For m = 1 To 10 If n = m Or n = 11 - m Then a(n, m) = 1 Else a(n, m) = 0 End If Next Next Print For n = 1 To 10 For m = 1 To 10 Print Tab(m * 3); a(n, m); Next Print NextEnd SubPrivate Sub 图形5_Click()Cls 编写程序，输出下列三角形： (要求用循环做，非循环不给分) G FG EFG DEFG CDEFG BCDEFG ABCDEFGDim a As S

26、tring, i As Integer, k As Integera = ABCDEFGk = Len(a)For i = 1 To k Print Tab(3); Right(a, i)Next iEnd SubPrivate Sub 乘积表_Click() 编写程序，打印如下的乘积表：* 3 6 9 1215161718Dim i As Integer, j As IntegerClsPrint * 3 6 9 12For i = 15 To 18 Print i; ; For j = 3 To 12 Step 3 Print i * j; ; Next j PrintNext iEnd

27、SubPrivate Sub 数列_Click()有一数列：1、1、2、3、5、8、13、21，求出这个数列的前20项之和ClsDim f1 As Single, f2 As Single, f3 As SingleDim i As Integer, sum As Singlef1 = 1f2 = 1Print Tab(3); f1Print Tab(3); f2sum = 2Do While i = 20 - 3 f3 = f1 + f2 f1 = f2 f2 = f3 sum = sum + f3 i = i + 1 Print Tab(3); f3Loop Print Tab(3); 其

28、和是：; sumEnd SubPrivate Sub 阶梯数_Click()有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当如果每步跨7阶时恰好走完，问这个阶梯至少有多少阶?Dim a As Integer, i As IntegerClsDo While True i = i + 1 If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 4 And i Mod 6 = 5 And i Mod 7 = 0 Then Print Tab(3); 该阶梯至少有; i; 阶 Exit Do End IfLoopEnd SubPrivate Sub 图形7_Click() 编写程序，输出下列三角形： (要求用循环做，非循环不给分) 河 河南 河南农 河南农业 河南农业大 河南农业大学 ClsDim a As String, i As Integer, k As Integera = 河南农