vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = InputBox("请输入一个正整数: ")Print Fac(n)End SubPrivate Function Fac(m) As Long '' '请不要删除该行,只在下一行中填空' For k = 2 to Fac = Fac
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/08 21:47:28
![vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = InputBox(](/uploads/image/z/1582829-53-9.jpg?t=vb%E6%B1%82n%E9%98%B6%E4%B9%98%E8%A1%A8%E8%BE%BE%E5%BC%8FPrivate+Sub+Command1_Click%28%29Dim+n+As+Integern+%3D+InputBox%28%22%E8%AF%B7%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%EF%BC%9A+%22%29Print+Fac%28n%29End+SubPrivate+Function+Fac%28m%29+As+Long+%27%27++%27%E8%AF%B7%E4%B8%8D%E8%A6%81%E5%88%A0%E9%99%A4%E8%AF%A5%E8%A1%8C%2C%E5%8F%AA%E5%9C%A8%E4%B8%8B%E4%B8%80%E8%A1%8C%E4%B8%AD%E5%A1%AB%E7%A9%BA%27++++++++For+k+%3D+2+to++++++++Fac+%3D+Fac)
x)+Kz)mOvxpŋ}(,K,IU.MRpMK1wLtUSp,V+IMO-S2JK+4^b䧭KhxcճMl{f)(i+QpKLtKʭ4/$3?, '?/]A]]AAh/5>Xr뗾Xأ9+?ٱW "lJb@ iT`|A V`ARf