VB怎么限制inputbox里输入的不能是小数,只能整数?

如题所述

第1个回答  2011-10-08
Private Sub Command1_Click()
Dim N As String
N = InputBox("请输入整数:")
Do Until Int(Val(N)) = Val(N) And IsNumeric(N)
N = InputBox("你输入的不是整数,请重新输入!")
Loop
MsgBox ("你总算输入整数了!")
End Sub
第2个回答  2011-10-08
a:
b = InputBox("请输入整数")
If Int(b) <= b Then GoTo a本回答被提问者采纳
第3个回答  2011-10-08
把数据类型改成int啊
第4个回答  2011-10-08
format 转换格式

vb中如何限制inputbox只能输入正整数 代码如下
有两种做法:一种是输入后判断是否为正整数(可以用 Int后与原值比较来确定有没有小数),若否则出错重来。另一种是直接在键入时就加以判断(可以用 MaskEdit控件,或者直接截获KeyDown事件)。

vb中用inputbox输入时如何控制输入的是数字和位数
InputText = InputBox("请输入数据","对话框",)If IsNumeric(InputText) Then Length = Len(InputText) 'Length保存数字位数(说白了就是字符串长度)'还干点什么...Else '如果输入的不是数字再干点什么...End If

VB对话框只输入整数
你可以试试,通过文本框来输入数字,这个是可以限制只能输入数字的 也可以试试,通过输入框得到数字后,只提取中间的数字.这样就能变成整数了.

VB INPUTBOX 禁止为空
要禁止INPUTBOX输入的数据为空,就同时禁止用户单击取消。例如:Private Sub Command1_Click()Dim nName As String, xx As String Input1:xx = InputBox("姓名", "第1位学生", "学生1")If xx = "" Then MsgBox "必须输入正确的数据,输入不能为空", vbInformation: GoTo Input1 '输入非空...

在vb中,InputBox函数怎样防止程序出错
A、把变量定义成数值型,如果在输入时输入纯数字型字符串不会出错,中间有一个非数字一定会出错 B、在函数前加str函数,是多余的操作,本来inputbox函数返回值就是字符串 C、VB中没有value函数,只有val函数 D、string函数是返回一个指定长度重复的字符串,当然返回值还是字符串。最有可能的是c,是不...

vb如何让数字只要有小数位就进一变为整数
Private Sub Command1_Click()n = InputBox("请输入一个小数", "输入")Print Int(n) + 1 End Sub

VB 关于如何在inputbox里输入任意个数
1、原因:inputbox函数输入的是一个字符串。你对这个字符串做a < 0 Or a > 100 判断是无效的!!!2、你的要求是依次输入多个数值,自动按照数组处理。不知道我说的对不对?3、解决方法:使用数组。代码如下:Private Sub Command1_Click()Dim 数组, a As String, 个数 As Integer, 成绩() ...

vb 中怎么在inputbox输入特定的数字,类似密码,显示为*的
在inputbox属性里有一个“密码显示”的属性设置,就将输入的字符显示为“***”,至于你说的判断输入密码正确与否,然后怎么处理,就靠你程序设计了。

VB中的inputbox问题
在VB编程中,`InputBox`函数用于创建一个对话框,允许用户输入文本。当编写需要用户输入值并进行比较的代码时,`InputBox`函数变得非常有用。下面的代码展示了如何使用`InputBox`函数和`MsgBox`函数来检查用户的答案是否正确。首先,定义了三个整型变量:`a`、`b` 和 `c`。接下来,使用`Rnd`函数生成...

VB怎么阻止关闭inputbox窗口 急!
要实现此功能,建议你不要使用inputbox,而改用自制的输入窗口来进行。因为inputbox输入框出现时,程序中断,所有代码在输入结束后才继续执行,所以无法在同一程序内用其他代码来实现时间限制功能

相似回答