一个vb编程问题
编写一个程序,程序运行时,在文本框中输入一个整数,如果输入的数据小于,等于0 提示重新输入,如果大于0 ,计算该整数的阶乘,并显示计算结果,要求用函数计算阶乘。 希望大家帮帮忙尽快帮我解决哦!谢谢!
Dim a As Integer msg = InputBox("请输入一个整数:") a = CInt(msg) Select Case a Case Is 0 t = 1 For i = 1 To a t = t * i Next i Print a; "!="; t End Select 行吧??