VB程序设计第三版实验D答案.docVIP

VB程序设计第三版实验D答案（全） 1 Private Sub Form_Click() For i = 1 To 9 Print Tab(10 - i); String(2 * i - 1, Trim(Str(i))) Next i End Sub 2 Private Sub Form_Click() For i = 1 To 10 Step 1 Print Tab(i); String((20 - 2 * i), Chr(64 + i)) Next i End Sub 3 Private Sub Command1_Click() Dim s!, t!, i s = 1 t = 1 For i = 1 To 100000 t = t + i s = s + 1 / t If 1 / t 0.00001 Then Exit For Next i Print For结构; s, i; 项 End Sub 4 Private Sub Command1_Click() Dim n, pi#, i n = InputBox(输入n值) pi = 2 For i = 1 To n pi = pi * (2 * i) / (2 * i - 1) * (2 * i) / (2 * i + 1) Next i Print 当n= n 时，pi=; pi End S