Question

求VB6.0编程问题，帮忙一下下，做做题，最好六题都回答、、、

1.在窗体“Form1.frm”的“Command1_Click”事件中编写代码，使之能够实现如下功能：在Text1输入整数m、Text2输入整数n，判断m的平方与n的平方之和是否比99大，若比99大，则在Text3文本框中输出“大于”，否则在Text3文本框中输出：“小于或等于”。

2.在窗体“Form1.frm”的“Command1_Click”事件中编写代码，使之能够实现如下功能：在Text1输入整数m、Text2输入整数n，判断m与n和的平方能否被3整除，若能，则在Text3文本框中输出"能整除"，否则在Text3文本框中输出："不能整除"。
3.求的值。
4.在窗体"Form1.frm"的"Command1_Click"事件中编写代码，使之能够实现如下功能：在Text1输入整数a、Text2输入整数b，判断a和b的差是否比50小，若比50小，则在Text3文本框中输出"小于"，否则在Text3文本框中输出："大于或等于"。
5.在窗体"Form1.frm"的"Command1_Click"事件中编写代码，使之能够实现如下功能：已知三角形一条边C的长度为5，在Text1、Text2分别输入边长a和b,判断三条边能否构成一个三角形，如果是，则在Text3文本框中输出"能"，否则在Text3文本框中输出"不能"。

6、假设一父亲24岁，孩子1岁，问过多少年之后父亲的年龄是小孩的2倍。

Answer 1

第一题
Private Sub Command1_Click()
Dim m%, n%
m = Val(Text1.Text)
n = Val(Text2.Text)
If m ^ 2 + n ^ 2 > 99 Then
Text3.Text = "大于"
Else
Text3.Text = "小于或等于"
End If

End Sub

第二题
Private Sub Command1_Click()
Dim m%, n%
m = Val(Text1.Text)
n = Val(Text2.Text)
If (m + n) Mod 3 = 0 Then
Text3.Text = "能整除"
Else
Text3.Text = "不能整除"
End If
End Sub
第三题没看懂要求
第四题
Private Sub Command1_Click()
Dim a%, b%
a = Val(Text1.Text)
b = Val(Text2.Text)
If a - b < 50 Then
Text3.Text = "小于"
Else
Text3.Text = "大于或等于"
End If
End Sub
第五题
Private Sub Command1_Click()
Dim a%, b%, tmp%
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
a = a
Else
tmp = a
a = b
b = tmp
End If
If a + b > 5 And a - b < 5 Then
Text3.Text = "能"
Else
Text3.Text = "不能"
End If

End Sub
第六题
Private Sub Form_Click()
Dim a%, b%, i%
a = 24
b = 1
Do Until a = 2 * b

a = a + 1
b = b + 1
i = i + 1
Loop
Print i
End Sub
（是在窗体显示年份）