UC知道再请教一个vb问题。。
来源：百度知道 编辑：UC知道 时间：2024/06/25 05:01:52
我想弹对话框
也就是说inputbox函数提示输入一个数字
数字可以从一到最大
比如我输入500
那么点了确定以后
就弹出msgbox 从500 499 488 …… 1
然后再end 这个怎么做啊？
还有一个问题
Dim a As Long
a = InputBox("请输入密码")
Select Case a
Case 123456
End
Case 1 To 1000000
MsgBox "好玩吧？？``"
Case Else
End Select
这段代码里面 假如Case 1 To 1000000
我把他改为Case 1 To 10000000000000000
也就是0多了 不知道为什么后面老要多一个#号
而且代码不能再用
这是什么问题 感谢高手回答。
也就是说inputbox函数提示输入一个数字
数字可以从一到最大
比如我输入500
那么点了确定以后
就弹出msgbox 从500 499 488 …… 1
然后再end 这个怎么做啊？
还有一个问题
Dim a As Long
a = InputBox("请输入密码")
Select Case a
Case 123456
End
Case 1 To 1000000
MsgBox "好玩吧？？``"
Case Else
End Select
这段代码里面 假如Case 1 To 1000000
我把他改为Case 1 To 10000000000000000
也就是0多了 不知道为什么后面老要多一个#号
而且代码不能再用
这是什么问题 感谢高手回答。
接力..
Dim a As Long '显然这里定义了a是long,最大值是&h7fffff
Case 1 To 10000000000000000'这句明显超出了long的范围,非得保留这句的话,可以dim a as double, double好像有15位有效数字(十进制).
#号是double的类型说明符,表明这个数在vb里是作为double储存的.
Private Sub Command1_Click()
a = Val(InputBox("请输入一个数字", "输入数字"))
For i = a To 1 Step -1
MsgBox i
Next i
End Sub
下面的问题我对数据类型的概念也 很模糊，