VB程序设计第三版实验D
答案
八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案
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 Sub
5
Private Sub Form_Click()
Dim s!, t!, i!, a%, n%
a = Int(Rnd * 9 + 1)
n = Int(Rnd * 6 + 5)
t = 0: s = 0
Print "a="; a, "n="; n
For i = 1 To n
t = t * 10 + a
s = s + t
Print t;
Next i
Print
Print "s="; s
End Sub
6
Private Sub Command1_Click() Dim s As Integer
s = 0
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
s = i * 100 + j * 10 + k
If s = i ^ 3 + j ^ 3 + k ^ 3 Then
Print s
End If
Next k
Next j
Next i
End Sub
Private Sub Command3_Click() formd6.Hide
main.Show
End Sub
7
Private Sub Command1_Click()
Dim a!, x0!, x1!
a = 27
x0 = 2
i = 0
Do
i = i + 1
x1 = 2 * x0 / 3 + a / (3 * x0 * x0)
If Abs(x1 - x0) < 0.00001 Then Exit Do
x0 = x1
Loop
Print x1, i
End Sub
8
Private Sub Command1_Click()
s = 0
x0 = 0.01
For i = 1 To 30
s = s + x0
x0 = x0 * 2
Next i
Print s
End Sub
9
Private Sub Command4_Click() Picture1.Cls
Picture1.Print "x课安排在 "; "y课安排在 "; "z课安排在 " Picture1.Print ""
For z = 5 To 6
For x = 1 To z - 2
For Y = x + 1 To z - 1 X1 = Choose(Weekday(x), "周一", "周二", "周三", "周四", "周五", "周六", "周日")
Y1 = Choo