//回复25楼
Private Sub Command1_Click()
Dim m, n, y As Long
m = Val(Text1.Text)
n = Val(Text2.Text)
y = m ^ 2 + n ^ 2
If y > 10000 Then Text3.Text = "大于10000"
If y < 10000 Then Text3.Text = "小于10000"
If y = 10000 Then Text3.Text = "等于10000"
End Sub
这是那道需要自己写程序的题的标准答案,其实写法很多,但是考试改卷是电脑改卷,只认标程代码,所以只能这么写
@437542468