Question

VB判断一个数个位数是否是3rt

Answer 1

Private Sub Command1_Click()

Dim a As Single

Dim b As Single

a = Val(Text1.Text)

b = Val(Right(a,1))

If b = 3 Then

MsgBox "个数为3的"

Else

MsgBox "个数非3的"

End If

End Sub