Question

VB程序设计题作业求救啊！帮忙回答一下，感激不尽！

1．在VB窗体界面上有一个文本框（Textl）、一命令按钮（Commandl）和一标签控件（Labell）。在文本框（Textl）里任意输入一个整数，按下命令按钮（Commandl）后用标签（Labell）中显示该整数的奇偶性。要求写出对应事件代码。
Private Sub Commandl_Click

…
End sub
2.求1到100之间所有自然数的平方和，并将结果在窗体上输出。即

3.通过键盘输入三个数，求出这三个数中的最大数，并将其输出到窗体上。
4．计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+……，当第I项≤10-2时结束。

Answer 1

1、
Private Sub Command1_Click()
n = Text1.Text
If n Mod 2 = 0 Then
Label1.Caption = "偶数"
Else
Label1.Caption = "奇数"
End If
End Sub
2、
Private Sub Command1_Click()
For i = 1 To 100
s = s + i ^ 2
Next i
Print s
End Sub
3、
Private Sub Command1_Click()
Dim a(3) As Integer
For i = 1 To 3
a(i) = InputBox("请输入第" & i & "个数")
Next i
Max = a(1)
For i = 2 To 3
If Max < a(i) Then Max = a(i)
Next i
Print Max
End Sub
4、
Private Sub Command1_Click()
s = 1
t = 1
Do
i = i + 1
t = t + i
s = s + 1 / t
Loop Until 1 / t <= 10 ^ -2
Print s
End Sub

Answer 2

行
同学
作业