Question

VB如何设置一个变量 变量之前等于1

比如说我现在有2个按钮。
第一个按钮的代码是这样的
Label3.Caption = "所需要的挑卡数量是：" & (26575003 - Text1.Text) / 3144000 / k
我想将这个k做为一个变量值
第二个按钮的代码是这样的
Private Sub Command11_Click()
Dim k As String
k = (InputBox("请输入失败率0>x>1，建议输入0.75-0.95之间。"))
If k > 1 Then
k = 1
MsgBox "请重新输入报废率，不能大于1。"
End If
If k < 0 Then
k = 1
MsgBox "请重新输入报废率，不能小于0。"
End If
If Not k > 1 Or k < 0 Then
MsgBox "报废率设定成功，请重新按等级，就将进行新的计算。"
End If
End Sub
我每次运行的时候都按了第一个按钮之后 都说除数为0
各位大神，请问如何解决，是k的变量值写错了吗，望回复

Answer 1

你在第二个按钮定义的K作用域只在第二个按钮的过程内 第一个按钮无法调用它 因为没有定义这个变量 所以默认值为0
要声明全局变量 且初始值为1 可以在过程外添加
Dim k As string
k=1

Answer 2

把 K 定义为全局变量，也就是在所有过程前面定义K，然后在窗体load过程里面赋初值。VB是不能在过程外部赋值的。