Private Sub Form_Load()
  Label1.Caption = "作业：A的阶乘加上B的阶乘，A、B的数字范围1至100，A和B键盘输入。"
End Sub
Private Sub Command1_Click()
  x = InputBox("请输入数字A和B（1至100），之间用半角逗号隔开：", "输入数字A和B", "0,0")
  '----从第二位开始判断X值中是否有逗号
  If InStr(2, x, ",") = 0 Then
    MsgBox "输入错误，请正确输入数字A和B", 0, "提示"
  Else
 
    y = Split(x, ",")
    a = Val(y(0))
    b = Val(y(1))
   
      j = 1
      For i = 1 To a
        j = j * i
      Next i
 
      k = 1
      For i = 1 To b
        k = k * i
      Next i
     
    Sum = j + k
    Label2.Caption = "A的阶乘=" & j & "  B的阶乘=" & k & "  总和=" & Sum
    Label2.FontSize = 12
    Label2.Alignment = 2
   
  End If
End Sub