VB求救！！为什么会是5个INPUTBOX，应该是4个INPUTBOX！！

Private Sub Command1_Click()
x = InputBox("请输入数值", "数值比较", "")
Dim a, b, c, d, m, n, i As Integer
a = Val(InputBox("请输入数值", "数值比较", ""))
b = Val(InputBox("请输入数值", "数值比较", ""))
c = Val(InputBox("请输入数值", "数值比较", ""))
d = Val(InputBox("请输入数值", "数值比较", ""))
m = IIf(a > b, a, b)
n = IIf(c > d, c, d)
i = IIf(m > n, m, n)
Print i
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Show
Command1.Caption = "比较"
Command2.Caption = "结束"
End Sub

求救:cpu为什么会是100%?? 在VB中用lenb()函数求字符"a"的字节长，为什么会是2个字节？ 会用VB的进【求救】 求救~求救~为什么会这样 vb求救~~ vb求救？ 求救！！！VB！ 求救！！qq为什么自己会重装！？不会是闹鬼把！？ vb为什么会变量未定义 求救!这是为什么?