2024年5月3日发(作者：)

设计思路：先构建一个不可缩放，出现在屏幕正中央的界面，在屏幕正中放置了一个TEXTBOX 用于给

用户输入需要计算的数。旁边放置一个BUTTON 给用户确认输入。当用户输入不为数字或者为负数时出

现提示告知用户输入错误，请重新输入。计算完后，在输入框上部显示计算结果。

代码：

Public Class Form1

Private Sub Button1_Click(ByVal sender As , ByVal e As rgs) Handles

Dim Number As Double

Dim Answer As Double

Dim retvalue As MsgBoxResult

Number = Val()

If Number < 0 Then '判断输入是否为正数

retvalue = MsgBox("输入错误，请输入非负数！", vbOKOnly + vbExclamation, "错误") '显示一个消息提

示框

If retvalue = 1 Then '当用户点击确定后清空结果栏

()

End If

End If

If (Not (IsNumeric())) Then '判断输入是否为数字

retvalue = MsgBox("输入错误，请输入一个数！", vbOKOnly + vbExclamation, "错误") '显示一个消息提

示框

If retvalue = 1 Then '当用户点击确定后清空结果栏

()

End If

End If

- 1 -

用户输入数字

负数

判断是否为正

数

非数字

正数

判断是否为数

字

数字

进行开根号运算

显示结果

Answer = (Number)

= Answer

()

End Sub

Private Sub Label1_Click(ByVal sender As , ByVal e As rgs) Handles

End Sub

Private Sub Form1_Load(ByVal sender As , ByVal e As rgs) Handles

End Sub

Private Sub Label2_Click(ByVal sender As , ByVal e As rgs) Handles

End Sub

End Class

- 2 -