Question

求这几道vb编程题解法，





Answer 1

这几道你全不会吗，题 没有什么难度，都是一些基础的题 。

追问

嗯嗯，我不是学这个专业的

追答

这样吧 你随意选一道，我给你做下，都做太麻烦，虽然没有难度。我给你做个样子你就可以做了吧。

追问

23.25

追答

23题
Dim n As Integer
Dim s As Double
Private Sub Form_Load()
n = Val(InputBox("请输入n"))
Me.Show
Print n
s = 1
Me.Height = 20000
For j = 2 To n
Print j;
If j Mod 2 = 0 Then
s = s - 1 / j
Print j; s
Else
s = s + 1 / j
Print j; s
End If
Next j
Print s
End Sub