第一问答网»论坛 › 中问网 › 问答 › VB题目，求大神解答，发至[email protected]

VB题目，求大神解答，发至[email protected]

11 |

2 | 2012-12-9 18:05:59 | 显示全部楼层 |阅读模式

第1题Function F(ByVal n As Long) '阶乘函数Select Case n
Case 1
F = n
Case Else
F = n * F(n - 1)End SelectEnd Function Private Sub Command1_Click() If val(Text1.Text) <= 0 Then
MsgBox "输入的数不符合要求，请输入大于0的整数!", vbCritical, "错误" Else
Text2.Text = F(val(Text...

使用道具举报