vb编程代码(35页).doc

《vb编程代码(35页).doc》由会员分享，可在线阅读，更多相关《vb编程代码(35页).doc（36页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、-计算二的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 Dim cn

2、t1 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 Form_Cl

3、ick() 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编写程序，计算并输出下面级数前n项(n=

4、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担，两匹小马驮1担，问有

5、大、中小马各多少？代码显示结果如上所示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 Integer

6、 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() Dim i

7、 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 sum As

8、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 Intege

9、r, 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 String * 1

10、, 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 Long

11、 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 begi

12、n = 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 ExplicitP

13、rivate 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 Print s

14、umEnd 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 Sub编程

15、打印如下图形,总行数通过键盘输入。(要求用循环做，非循环不给分。按原图形直接打印者无效。)代码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 Tab(be

16、gin); 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 To 30

17、 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 cnt Mod

19、 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 & Mid(s1,

20、 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 End I

21、f 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 SubPri

22、vate 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 Print

24、 *; 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 Integer

25、 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 String

26、, 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 SubPr

27、ivate 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(

29、3); 该阶梯至少有; i; 阶 Exit Do End IfLoopEnd SubPrivate Sub 图形7_Click() 编写程序，输出下列三角形： (要求用循环做，非循环不给分) 河 河南 河南农 河南农业 河南农业大 河南农业大学 ClsDim a As String, i As Integer, k As Integera = 河南农业大学k = Len(a)For i = 1 To k Print Tab(3); Left(a, i)Next iEnd Sub阶乘累加和代码Private Sub Form_Click() Dim sum As Long, jc As Long

30、 Dim i As Integer, n As Integer sum = 0 For n = 1 To 10 jc = 1 For i = 1 To n jc = jc * i Next i sum = sum + jc Next n Print sumEnd Sub求高次方根代码Option ExplicitPrivate Sub Form_Click() 说明：此题题目中要求的区间【1，2】有误，忽略之 Dim x As Double, fx As Double, fpx As Double, d As Double x = 1.5 Do d = (3 * x * x * x - 4 *

31、 x * x - 5 * x + 13) / (9 * x * x - 8 * x - 5) x = x - d Loop Until Abs(d) = 0.0001 Print 方程的根是 ; xEnd Sub数字三角形代码输入5后运行结果如图Private Sub Form_Click() Dim i As Long, j As Long Dim n As Long, begin As Long n = Val(InputBox(请输入总行数) begin = 2 * n - 1 For i = 1 To n Print Tab(begin); For j = 1 To (2 * i -

32、1) Print Trim(2 * i - 1); ; Next j Print begin = begin - 2 Next iEnd Sub求阶梯数目；每步跨2阶，剩余1；跨3剩2；4剩3；5剩4；6剩5，7不剩代码运行结果如图Private Sub Command1_Click()Dim n%n = 7Do While True If n Mod 2 = 1 And n Mod 3 = 2 And n Mod 4 = 3 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Do End If n = n + 1 Loop P

33、rint nEnd Sub代码Private Sub Form_Click() Dim i As Long, n As Long Dim cnt As Long, sum As Long Dim flag As Boolean cnt = 0 sum = 0 For n = 100 To 1000 flag = True For i = 2 To n - 1 If n Mod i = 0 Then flag = False Exit For End If Next i If flag = True Then cnt = cnt + 1 sum = sum + n Print n, If cnt

34、 Mod 5 = 0 Then Print End If Next n Print Print Print 找到; cnt; 个质数，; 和为; sumEnd Sub球从100处自由落，每次反弹回原高度一半，再落，第十次落地后经历？m，最后一次反弹高度代码Private Sub Command1_Click()Dim s!, d!, i!s = 0d = 100For i = 1 To 10s = s + d + d / 2d = d / 2Next iPrint 总共距离; s; 最后一次的高度; dEnd Sub321米钢料，a种17米，b种27米，求ab各多少段，余料最少为多少代码Pri

35、vate Sub Command1_Click()Dim i%, j%, min%, m%, n%min = 321For i = 1 To 321 / 17For j = 1 To 321 / 27If 321 - i * 17 - j * 27 = 0 Thenmin = 321 - i * 17 - j * 27m = in = jEnd IfNext jNext iPrint 17米; m; 段, 27米; n; 段, 最小残料; minEnd Sub猴子每天吃掉一半多一个，到第七天只剩一个，求桃子总数代码Private Sub Command1_Click()Dim x1%, x2%

36、, i%x1 = 1For i = 6 To 1 Step -1x2 = (x1 + 1) * 2Print 第; i; 天桃子个数为：; x2x1 = x2Next iEnd Sub评委打分，去掉最高、最低，输出平均分代码Private Sub Command1_Click()Dim s%, a%, min%, max%, i%min = 100max = 0s = 0For i = 1 To 7a = InputBox(分数:)Print a;s = s + aIf a max Then max = aIf a min Then min = aNext iPrintPrint max, minPrint 平均分; (s - max - min) / 5End Sub输入任意字符串，然后倒置显示代码Priv