vb程序设计第三版实验D.docVIP

实验D? 部分 ? 第一题 ? Private Sub Form_click() For i = 1 To 9Print Tab(10 - i); String(2 * i - 1, Trim(Str(i)));Next iEnd Sub 第二题 ? ? Private Sub Form_click() For i = 9 To 1 Step -1?? Print Tab(10 - i); String(2 * i, Chr(74 - i))? Next iEnd Sub ? 第三题 ? Private Sub Form_click()Dim sum!, i, a%sum = 0a = 0i = 1Do While 1 / i = 0.0001?? sum = sum + 1 / i?? a = a + 1?? i = i + aLoopPrint sum=; sum End Sub ? 第四题 ? Private Sub Form_click()Dim π!, n, i%i = 0π = 2For n = 1 To 1000 π = π * (2 * n) ^ 2 / ((2 * n - 1) * (2 * n + 1)) i = i + 1 If i = 10 ThenPrint π1=; πElseIf i =