检查文本框是否包含特定的十进制数字

Question

我正在做一个学校的项目，但是我们没有真正教过像这样复杂的部分，所以我希望有人能帮助我。

我想让我的程序检查我的文本框是否包含0.1-0.4十进制数字当我点击一个按钮。如果是，将出现一个消息框，提示必须输入0.5或任意一半的数字。但是，如果文本框包含0.6-0.9，则消息框将提示输入一个整数。

我知道消息框的部分，我只是不知道如何检查那些特定的十进制数字在文本框。而且，如果文本框包含整数或半数(0.5)，它将继续执行指定的操作。

If (Textbox1=0.1-0.4) Then
MsgBox("Enter a half number.")
ElseIf (TextBox1=0.6-0.9) Then
MsgBox("Enter a whole number.")
ElseIf (TextBox1=Half Number or TextBox1=Whole Number) Then
MsgBox("Transaction complete.")
End If

Answer 1

一旦将TextBox的Text转换为数值，就可以使用Select语句:

Sub CheckDecimals(number As String)
If IsNumeric(number) Then
' Convert number to Single
Dim singleNumber As Single = CSng(number)
' Use Mod to get fraction only
Dim modNumber As Single = singleNumber Mod 1
Select Case modNumber
Case 0, 0.5
MsgBox("Transaction complete.")
Case Is < 0.5
MsgBox("Enter a half number.")
Case Is > 0.5
MsgBox("Enter a whole number.")
End Select
Else
MsgBox("Please enter a number.")
End If
End Sub

在按钮Click事件处理程序中，使用:

CheckDecimals(TextBox1.Text)