VB新手求助..

来源：百度知道 编辑：UC知道 时间：2024/05/31 13:05:39
写一个程序，它让用户输入一个三位数，然后打出这个三位数百位上的数字来。
匿了……
Private Sub Command1_Click()
——————（这个在VB6.0里没找到...为什么不是form..没改成Private Sub Form_Activate()之前不能用）
Dim a As Integer
Dim c As String ————为什么c要设为字符串而不是设为常数？
c = InputBox("输入数", "请输入一个三位数")
If (Len(c) <> 3) Then ————当我输入一个数字不是3位数的时候，程序错误= =
MsgBox "错误", "输入的不是三位数!"
Else
a = Int(Val(c) / 100) ——————主要还是这个....VAL是什么？
Print a
End If
End Sub

这个可以。。但是有些不明白的地方。。。

Private Sub Command1_Click()
Dim a As Integer
Dim c As String
c = InputBox("输入数", "请输入一个三位数")
If (Len(c) <> 3) Then
MsgBox "错误", "输入的不是三位数!"
Else
a = Int(Val(c) / 100)
Print a
End If
End Sub

"这个在VB6.0里没找到",你添加一个按钮就好了,在按钮单击事件里

为什么c要设为字符串而不是设为常数？,因为inputbox接受到的是字符串而不是数值,另外,当然不能是常数,因为常数不能被赋值

输入非3位数是我的程序稍微有点bug,我下面发了改完的

VAL是将非数值的数转成数值型的函数

改完后的程序:
Private Sub Command1_Click()
Dim a As Integer
Dim c As String
c = InputBox("输入数", "请输入一个三位数")
If (Len(c) <> 3) Then
MsgBox "输入的不是三位数!", 0, "错误"
Else
a = Int(Val(c) / 100)
Print a
End If
End Sub

debug.print fix(x/100)
我也匿......