谁会谁来教教我？？

Question

Option ExplicitPrivate Sub Command1_Click()
Dim A As Integer, B As Integer
Dim Operator As Integer     '运算符 随机产生，0 + ，1 - ，2 * ，3 /
Dim C As Single        '单精度，运算结果
Dim D                  '输入的结果
Const upperbound = 100 '随机数范围的上限
Const lowerbound = 0   '随机数范围的下限。
Randomize         '用系统计时器初始化随机数生成器。
A = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
'产生0-100之间的随机数
B = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Operator = Int((3 - 0 + 1) * Rnd + 0)
Select Case Operator
  Case 0
    C = A + B
    D = InputBox("请计算：" & A & " + " & B)
    If IsNumeric(D) Then    '判断输入是否为数值
      If D = C Then
        MsgBox "答对了 ！ "
      Else
        MsgBox "错 ！ "
      End If
    End If
  Case 1
' 自己写吧
  Case 2
'   
  Case 3
    While B = 0
      B = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
    Wend
    C = Int(A / B * 100 + 0.5) / 100   '保留两位小数，4舍5入
    D = InputBox("请计算：(保留两位小数)" & A & " / " & B)
    If IsNumeric(D) Then    '判断输入是否为数值
      If Int(D * 100) = Int(C * 100) Then
        MsgBox "答对了 ！ "
      Else
        MsgBox "错 ！ "
      End If
    End If
End Select
End Sub