第三套 试题二 “试题二“文件夹中的工程文件“ test2.vbp ”,完成下列操作: 1. 单击按钮,判断A和B的值,如果不是1-10之间的数,则弹出如图2-3所示的消息框。如果A大于B,则交换A和B的值,否则计算A到B的阶乘,并显示计算结果,显示效果如图2-2 所示。 将代码 填写完整,实现该程序功能。 Private Sub Form_Load() For i = 1 To 10 Combo1.AddItem i Combo2.AddItem i Next i End Sub Private Sub Command1_Click() a = Val(Combo1.Text) b = Val(Combo2.Text) Text1.Text = "" If a <= 0 Or a > 10 Or b <= 0 Or b > 10 Then '(1) Exit Sub End If If Then t = a: a = b: b = t '(2) s = 0 For i = a To b '(3) For j = 1 To i t = t * j Next j '(4) Next i For i = a To '(5) Text1.Text = Text1.Text & i & "!+" Next i Text1.Text = Text1.Text & '(6) End Sub