Question

VB怎么设置Label1.caption的输入字符长度？

Label1.Caption=Val(InputBox("请输入一个4位数字"))

Answer 1

Dim nub As String

nub = InputBox("请输入一个4位数字")

If Len(nub) > 4 Then

MsgBox "只能输入4位"

Else

Label1.Caption = Val(nub)

End If