vb代码大全,考试都考.docVIP

1. 编写程序，单击窗体时在窗体上打印出如下所示的图形。 * *** ***** ******* ********* ******* ***** *** * Private Sub Command1_Click() Dim i As Integer, j As Integer j = j + 1 For i = -4 To 4 Print Tab(20 + Abs(i)); For j = 1 To 9 -Abs(2 * i) Print *; Next j Print Next i End Sub 2. 编写程序，输出下列三角形： (要求用循环做，非循环不给分) G FG EFG DEFG CDEFG BCDEFG ABCDEFG Private Sub Command1_Click() Dim a As String, b As String, i As Integer, j As Integer Dim s As Integer, t As Integer, k As Integer, m As Integer a = ABCDEFG k = Len(a) For i = 1 To k Print Right(a, i) Next i End Sub 3.******* * ***** *** *** ***** * ******* Private Sub Form_Load() For i = 4 To 1 Step -1 Print Tab(10 - i); For j = 1 To 2 * i - 1 Print *; Next Print Spc(2); For k = 1 To 9 - 2 * i Print *; Next Print Next End Sub 4． 1 222 33333 5555555 888888888 Private Sub Command1_Click() f1 = 0 f2 = 1 For i = 1 To 5 Print Tab(20 - 3 * i); For j = 1 To 2 * i - 1 f3 = f1 + f2 Print f3; Next f1 = f2 f2 = f3 Print Next End Sub 5. 1 123 12345 1234567 For i = 1 To 4 Print Tab(20 - 3 * i); For t = 1 To 2 * i - 1 Print t; Next Next 6 .1111111 22222 333 4 n = InputBox(n) x = 0 For i = n To 1 Step -1 Print Tab(20 - 3 * i); x = x + 1 For j = 1 To 2 * i - 1 Print x; Next Next 7 . 1 121 12321 1234321 For i = 1 To 4 Print Tab(15 - 3 * i); For j = 1 To i Print j; Next For k = i - 1 To 1 Step -1 Print k; Next Print Next For j = 1 To 2 * i - 1 Print s; Next 8.计算并输出下面数前n项的和 1-1/2+1/3-1/4+…..1/n= n = InputBox(输入数字:) For i = 1 To n j = 1 / i If i Mod 2 = 0 Then s = s - j Else s = s + j End If Next Print s 9. 求公式：e=1+1/1!+1/2!+1/3!+……+1/n! 直到n=20时的e值。 Private Sub Command1_Click() Dim i As Integer, j As Integer Dim s As Single, h As Single, l As Single, k! k = 1 s = 1 For i = 1 To 20 k = k * i s = s + 1 / k Next i Print s End Sub 10.求公式e=1/1+1/2!+1/3!+1/4!+…..1/n!直到最后 一项小于10^-6的e的值。 e = 0 s = 1 k = 1 i = 1 Do Until s 10 ^ (-6) k = k * i s = 1 / k e = e + s i = i + 1 Loop Print e