用vb 求阶乘，用函数过程实现，我的代码哪错了_百度知道
用vb 求阶乘，用函数过程实现，我的代码哪错了
Function jc%(ByVal n%)
Dim i%, c%
For i = 1 To n
c = c * i（为什么老说我这一步错了？？）
End Function
提问者采纳
它的范围就是-之间，所以你要把这些变量改为长整型，程序这么改就没问题了Function jc(ByVal n As Long) As Long
Dim i%，你用这个函数算7以内的阶乘都没问题，但是算到8的时候数值就溢出了因为你的C定义成为整型了
提问者评价
太感谢了哈，偶知道原因了
其他类似问题
为您推荐：
阶乘的相关知识
其他3条回答
不是next i吗
dim c as double
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求大神助攻，这代码哪里错了= =_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：62,147贴子：
求大神助攻，这代码哪里错了= =收藏
Type computerinfo
cnum As Integer
cname As String
cprice As Single
stockdate As String
amount As SingleEnd TypeOption Base 1Public a() As computerinfoPublic n As IntegerPrivate Sub Cmdinput_Click()num = InputBox(&请输入货物种类数&)num = CInt(num)n = n + numReDim a(num) As computerinfoOpen &C:\\temp\\bole.txt& For Append As #1For i = 1 To num
a(i).cnum = InputBox(&请输入货物号&)
a(i).cname = InputBox(&请输入货物名称&)
a(i).cprice = InputBox(&请输入货物单价&)
a(i).stockdate = InputBox(&请输入进库时机&)
a(i).amount = InputBox(&请输入货物数量&)
Write #1, a(i).cnum, a(i).cname, a(i).cprice, a(i).stockdate, a(i).amount
Open &C:\\temp\\bole.txt& For Output As #1
Print #1, n
Close #1End SubPrivate Sub cmdout_Click() Open &C:\\temp\\bole.txt& For Input As #1 Input #1, n Close #1 ReDim a(n) As bole_info Open &C:\\temp\\boleI.txt& For Input As #2 i = 1 Print &货物号&; &货物名&; &单价&; &进库时间&; &货物数量& Print Do While Not EOF(2)
Input #2, a(i).cnum, a(i).cname, a(i).price, a(i).stockdate, a(i).amount
Print a(i). a(i). a(i). a(i). a(i).amount
i = i + 1 Loop Close #2End Sub
你这个是窗体模块吧你定义成public 当然不行了 再说了 提示不是已经全部说出来了吗。。。
改成公有的。
把public改成dim试试
把public改成dim或者把有public的句子在标准模块声明不知道行不行我小白
新建一个模块然后定义全局变量
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或求大神指导，为什么我电脑里的精简版VB打不开程序呢？怎么办额_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：62,147贴子：
求大神指导，为什么我电脑里的精简版VB打不开程序呢？怎么办额收藏
求大神帮帮忙吧。。。
需要下载企业版VB么？
有没有其他办法打开啊。。。精简版为什么打不开这程序呢？
还有很多办法啊 比如说 用记事本打开代码文件即可 用命令行调用连接器对代码进行编译 生成exe 嘿嘿
精简版vb不会创建文件关联，所以要：第一个方法就是，右键打开方式，浏览精简版目录里面的vb6.exe第二个方法，先开vb6精简版再浏览打开vdp即可
正确安装了还会有这问题吗？ 根本就没安装完成.
精简版是这样的，最好写一个Reg文件把文件关联写进去方便下次导入注册表，我以前用精简版时也用这种方法的
先打开VB， 再把那个“工程.vbp”拖进VB就可以打开了，虽然麻烦点。 呵呵
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或【100分】C#的代码转换为VB.net，有3处小错误请大家帮忙纠正一下
[问题点数：100分，结帖人iamzerg]
【100分】C#的代码转换为VB.net，有3处小错误请大家帮忙纠正一下
[问题点数：100分，结帖人iamzerg]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
本帖子已过去太久远了，不再提供回复功能。急求VB程序改错题高手,每个FOUND下一行有错误,请改正!十万火急!已知C的公式表示如下:' ' C=------------------' (n-m)!*m!'函数过程fac( )求k!函数,在Fomr_Click事件中完成运算,'请修正程序中错误.'----------_百度作业帮
拍照搜题，秒出答案
急求VB程序改错题高手,每个FOUND下一行有错误,请改正!十万火急!已知C的公式表示如下:' ' C=------------------' (n-m)!*m!'函数过程fac( )求k!函数,在Fomr_Click事件中完成运算,'请修正程序中错误.'----------
急求VB程序改错题高手,每个FOUND下一行有错误,请改正!十万火急!已知C的公式表示如下:' ' C=------------------' (n-m)!*m!'函数过程fac( )求k!函数,在Fomr_Click事件中完成运算,'请修正程序中错误.'------------------------------------------------Option ExplicitPrivate Function fac(k As Integer) As SingleDim x As Single,j As Integer'C = fac(n) / fac(n - m) * fac(m)Print "C="; CEnd Sub
1、x = 0 (不管怎么乘都是0,0乘任何数都为0) 应该为 x=12、 x = x ^ j (表示x的j次方) 应该为 x = x *j3、C = fac(n) / fac(n - m) * fac(m) （乘除的优先级别一样 按照次序进行,即先除再乘）应该为 C = fac(n) /( fac(n - m) * fac(m))}