[IT认证]visual_basic经典例题.docVIP

期末VB题库 1.S=1+1/1!+1/2!+......+1/N! ...,计算s的值日 Private Sub Command1_Click() Dim y As Double, s As Double, i%, n% n = Val(Text1.Text) s = 0 y = 1 For i = 1 To n y = y * i s = s + 1 / y Next Print s End Sub 2打印 a a a a b b b b c c c c d d d d Private Sub Command1_Click() For i = 1 To 4 For j = 1 To 4 If i = 1 Then Print Tab((i + j - 2) * 2 + 1); a; If i = 2 Then Print Tab((i + j - 2) * 2 + 1); b; If i = 3 Then Print Tab((i + j - 2) * 2 + 1); c; If i = 4 Then Print Tab((i + j - 2) * 2 + 1); d; Next j Print Next i End Sub Private Sub Command1_Click() 3编写程序打印给出的图形。 a a a a b b b b c c c c d d d d For i = 1 To 4 For j = 1 To 4 If i = 1 Then Print Tab((3 - i + j) * 2 + 1); a; If i = 2 Then Print Tab((3 - i + j) * 2 + 1); b; If i = 3 Then Print Tab((3 - i + j) * 2 + 1); c; If i = 4 Then Print Tab((3 - i + j) * 2 + 1); d; Next j Print Next i End Sub 4计算2^1+2^2+2^3…+2^10 Private Sub Command1_Click() Dim s As Integer s = 0 k = 1 For i = 1 To 10 k = 2 ^ i s = s + k Next i Print s End Sub 5随机产生10个数10~100之间的整数，找出最大值和最小值，最小值的位置对调，将对调的结果以蓝色的16号字显示。 Private Sub Form_Click() Cls Dim a(1 To 10) Dim i%, p%, q% For i = 1 To 10 a(i) = Int(Rnd * 91 + 10) Print a(i) Next i p = 1 q = 1 For i = 2 To 10 If a(p) a(i) Then p = i If a(q) a(i) Then q = i Next i t = a(p): a(p) = a(q): a(q) = t Form1.FontSize = 16 Form1.ForeColor = vbBlue For i = 1 To 10 Print a(i) Next i End Sub 6计算S=1+(1+2)+(1+2+3)…+（1+2+3+4…+n）的值 Private Sub Command1_Click() Dim a As Integer, s As Double, i As Integer, j As Integer, k As Long n = Val(Text1.Text) s = 0 For i = 1 To n k = k + i s = s + k Next i Print s End Sub 7计算S=1!+2!+3!…+n! Private Sub Command1_Click() Dim x As Long, i As Long, y As Double x = InputBox(请输入要计算阶乘的数字:) y = 1 For i = 1 To x y = y * i s = s + y Next i Text1.Text = s End Sub Private Sub Command1_Click() 8将红色标签向左移200个单位 Label1.Left = Label1.Left + 200 End Sub Private Sub Command2_Click() 在红色标签