求用VB编一个小程序！高手进！

来源：百度知道 编辑：UC知道 时间：2024/05/30 23:49:43
条件是 输入一个四位数 只限整数（1000~9999）

如果输入的数字开平方后得出的数字是这个四位数的 中间2个数字

就显示 该数开平方为 该数的中间2位 （如2500 开平方50 是2500 中间的2个数字） 求高手！！！

Dim n As Integer
Dim str As String

Private Sub Form_Click()
n = InputBox("请输入一个四位整数")
str = n
If Sqr(n) = Mid(str, 2, 2) Then
Print n & "开平方为" & n & "的中间2位" & Sqr(n)
Else
Print n & "开平方的结果不是" & n & "的中间两位"
End If
End Sub

Dim n As Integer
Do
n = Val(InputBox("请输入一个四位整数"))
loop until n>=1000 and n<=9999
If Sqr(n) = Mid(str(n), 2, 2) Then
Print str(n) & "开平方为" & str(n) & "的中间2位" & Sqr(n)
Else
Print str(n) & "开平方的结果不是" & str(n) & "的中间两位"
End If

For i = 1000 To 9999
If Sqr(i) = Mid(i, 2, 2) Then Print i & "该数开平方为 该数的中间2位"
Next i