(高等教育)大一、大二vb考试专用编程题

1编写程序，求2的n次幂，n的值通过键盘输入。(要求用循环做，非循环不给分。)Private Sub Command1_Click()Dim i As Long, n As Integer, s As Long n = Int(Val(InputBox(请输入n的值 + 输入框) s = 1 For i = 1 To n s = s * 2 Next i Print s End Sub2从键盘上输入两个正整数A和B，求最大公约数。Private Sub Command1_Click()Dim a As Integer, b As Integer, n As Integer, i As Integer a = Text1.Text b = Text2.Text If a b Then i = a: a = b: b = i Do While b 0 n = a Mod b: a = b: b = n Loop Text3.Text = n End Sub3编写程序，随机生成100个两位整数，并统计出其中小于等于40、大于40小于等于70及大于70的数据个数。Private Sub Form_Click()Dim n As IntegerDim cont1 As Integer, cont2 As Integer, cont3 As Integer n = Int(Rnd * 90 + 10) Print n cont1 = 0 cont2 = 0 cont3 = 0 If n 40 And n 70 Then cont3 = cont3 + 1 End If Print cont1: cont2: cont3 4编写程序，单击窗体时在窗体上输出如下所示的图形。 * * * * * * * * *Private Sub Form_Click()Dim i As Integer, begin As Integerbegin = 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 = 1 To 4 Print Tab(begin); For j = 1 To 9 - 2 * i Print *; Next j Print begin = begin + 1 Next iEnd Sub5编写程序，计算并输出下面级数前n项(n=80)的部分和。 1-1/2+1/3-1/4+1/5+1/n(n由键盘输入 ，要求用循环做，非循环不给分。)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 Sub6有100匹马，驮100担货：大马驮3担，中马驮2担，两匹小马驮1担，问有大、中小马各多少？Option ExplicitPrivate Sub Form_Click() Dim x As Integer, y As Integer, z As IntegerPrint 大马, 中马, 小马 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 Print Print 共7种方案。End Sub7编写程序，要求从键盘输入0-6中的一任一个，可对应得到星期日、星期一-星期六。Private Sub Form_Click() Dim n As Integer 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 Sub8编写程序，输出下列三角形： (要求用循环做，非循环不给分。) 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1Option ExplicitPrivate Sub Command1_Click() 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 ; Next j Print begin = begin - 2 Next iEnd Sub9求公式：e=1/1!+1/2!+1/3!+1/n! 直到最后一项小于10(-6)时e的值。(注：程序代码写在命令按钮Command1的Click事件中。)Private Sub Command1_Click() Dim e As Double, nj As DoubleDim n As Long, i As Long e = 0 n = 1 Do nj = 1 For i = 1 To n nj = nj * i Next i e = e + 1 / nj n = n + 1 Loop Until (1 / nj) 0.000001 Print eEnd Sub10编写程序，输出下列三角形： 总行数通过键盘输入。(要求用循环做，非循环不给分。) 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1Private Sub Command1_Click() Dim i As Integer, j As Integer, 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 Sub11输入一串数字，求其中偶数位数字之和。例如输入234567，则求357。Private Sub Command1_Click() Dim str As String, s As String * 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 Print +=; sumEnd Sub12编写程序，单击窗体时在窗体上输出如下所示的图形。 * * * * * * * * *Private Sub Command1_Click() Dim begin As Integer, n As Integer, i As Long 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 i End Sub13有一分数序列:1 , 1/2 , 2/3 , 3/5 , 5/8 , 8/13 , 13/21 求出这个数列的前20项之和。Private 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 = 2 To 20 a3 = a1 + a2 b3 = b1 + b2 sum = sum + a3 / b3 a1 = a2 a2 = a3 b1 = b2 b2 = b3 Next i Print sumEnd Sub14输入一串数字，求其中奇数数字构成的数与偶数数字构成的数之差。例如输入1654238，求1536428。Private Sub Command1_Click() Dim str As String, s1 As String, s2 As String, i As 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 Sub16编写程序，计算下面级数前n项中(n=50)奇数项的和，并输出该级数最后两项之差的绝对值。 (要求用循环做，非循环不给分。) 1*2*3+2*3*4+3*4*5+n*(n+1)*(n+2)+Private Sub Command1_Click() Dim sum As Double, plus As Double, n As Long sum = 0 For n = 1 To 50 Step 2 sum = sum + n * (n + 1) * (n + 2) Next n plus = (49 - 52) * 50 * 51 Print sum Print Abs(plus)End Sub17输入3个数x,y,z，按大小顺序把它们输出来。Private Sub Command1_Click() Dim x As Double Dim y As Double Dim z As Double Dim t As Double x = Val(Text1.Text) y = Val(Text2.Text) z = Val(Text3.Text) If x y End If If y z Then t = y: y = z: z = t 交换y和z，使z最小 If x y Then t = x: x = y: y = t 交换x和y，使x最大 End If End If Text1.Text = Str(x) Text2.Text = Str(y) Text3.Text = Str(z) End Sub19编程打印如下图形,总行数通过键盘输入。(要求用循环做，非循环不给分。按原图形直接打印者无效。) 2 3 3 3 5 5 5 5 5 8 8 8 8 8 8 8 13 13 13 13 13 13 13 13 13Private 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(begin); For j = 1 To 2 * i - 1 Print Trim(f3); Spc(4 - Len(Trim(f3); Next j begin = begin - 4 f1 = f2 f2 = f3 Next i End Sub20编写程序，计算并输出下面级数前n项(n=30)的部分和。 (要求用循环做，非循环不给分。) 1/(1*2)+1/(2*3)+1/(3*4)+1/(n*(n+1)+ Private Sub Command1_Click() Dim sum As Double, n As Long sum = 0 For n = 1 To 30 sum = sum + 1 / (n * (n + 1) Next n Print sumEnd Sub22编写程序，输出下列三角形： (要求用循环做，非循环不给分。) G FG EFG DEFG CDEFG BCDEFG ABCDEFGPrivate 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 Sub23编写程序，计算下面级数前n项(n=20)的部分和，并输出该级数最后两项之差的绝对值。 (要求用循环做，非循环不给分。) 1*2*3+2*3*4+3*4*5+n*(n+1)*(n+2)+Private Sub Command1_Click() Dim sum As Double, plus As Double, n As Long sum = 0 For n = 1 To 20 sum = sum + n * (n + 1) * (n + 2) Next n plus = (19 - 22) * 20 * 21 Print sum Print Ab