- 1、本文档共26页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
----------专业最好文档,专业为你服务,急你所急,供你所需-------------
文档下载最佳的地方
----------专业最好文档,专业为你服务,急你所急,供你所需-------------
文档下载最佳的地方
程序调试题
1.计算1!+2!+...+20!
Public Function nFactor(ByVal n As Integer) As Double
该过程用于计算n!。
Dim i As Integer
Dim temp As Double
----1---- ‘temp=1
For i = 1 To n
temp = temp * i
Next i
nFactor = ----2---- ‘temp
End Function
?Public Sub summary()
该过程用于计算1!+2!+...+20!,并打印出计算结果。
Dim sum As Double
Dim i As Integer
Dim n As Integer
n = 20
For i = 1 To n
sum = sum +----3---- ‘nFactor (i)
Next i
Form1.Print sum= ----4---- ‘sum
End Sub
47.
Public Sub find()
该过程是用于从1到10000中找出这样的数,
该数各个位的数字的阶乘相加之和等于该数,并将结果输出。
Dim k, a, n, i
Dim p As Integer
For k = 1 To 10000
a = LTrim(Str(k))
n = 0
For i= ----1----- ‘1 to a
p = Val(Mid(a, i, 1))
n= -----2---- ‘n+fact(p)
Next i
If n = k Then form1.Print k
Next k
End Sub
Function fact(x As Integer) As Long
该函数用于计算阶乘
Dim y As Long
Dim i%
y = 1
For i% = 1 To x
y = y * i%
Next i%
----3---- ‘fact=y
End Function
2. ----------------------------------------------------------------------------------------------------------------
‘统计个位上的数字
Public Sub calculate()
Dim a(1 To 100) As Integer
Dim x(1 To 10) As Integer
Dim i As Integer, p As Integer
产生100个[0,99]范围内的随机整数
每行10个打印出来
For i = 1 To 100
******** 错误1 ***********
a(i) = Rnd * 99 ‘a(i)=int(Rnd*100)
If a(i) 10 Then
Form1.Print Space(2); a(i);
Else
Form1.Print Space(1); a(i);
End If
If i Mod 10 = 0 Then Form1.Print
Next i
统计个位上的数字分别为1,2,3,4,5,6,7,8,9,0的数的个数
并将统计结果保存在数组x(1),x(2),...,x(10)中,将统计结果打印出来
For i = 1 To 100
******** 错误2 **********
p = Int(a(i) / 10) 求个位上的数字 ‘p=a(i) mod 10
If p = 0 Then p = 10
******** 错误3 **********
x(p) = x(p) – 1
您可能关注的文档
最近下载
- 英语搞笑短剧剧本(6角色).docx VIP
- 实验班提优大考卷二年级上册语文人教版.pdf
- 小数乘除法竖式计算题500道及答案.docx VIP
- 655-诊断学与病理学-扬州大学2023年硕士研究生初试试卷.doc VIP
- 扬州大学 655诊断学与病理学 2021年考研真题.pdf VIP
- 非煤矿山标准化操作规程.pdf
- XAQ06 工程线施工安全监理实施细则(和若铁路J4标)2020.9.17.pdf
- 外研版英语 八年级上册 Module 5 Lao She Teahouse 单元整体教学设计.docx
- QC成果提高钢结构厂房防火涂料施工质量.ppt
- ninebot九号电动滑板车MaxG2说明书用户手册.pdf
文档评论(0)