- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB程序设计改错题复习资料
VB程序设计改错题复习
……
a a+b
……
答题方法:
题号 错行:a a+b 改正:a a+i
(找出错误得1分,把错误的行的内容完整写出来,改正得2分,将改正后的行的内容写出来)
1、求1+3+5+……+99的和。
用For循环写:
Private Sub Command1_Click Dim i%, sum%
sum 0
For i 1 To 99 sum sum + i
Next i
Print sum
End Sub
在答题纸上应该按照下面的格式做题:
1、错行:For i 1 To 99 改正:For i 1 To 99 Step 2
用Do循环写:
Private Sub Command1_Click Dim i%, sum%
sum 0
i 1
Do While i 99 sum sum + i i i + 1
Loop
Print sum
End Sub
在答题纸上应该按照下面的格式做题:
1、错行:i i+1 改正:i i+2
这类题目考察大家对循环的初值、增值和终值的数据变化过程。思考一下,如果改为乘法时怎么改呢?
2、猴子第1天摘下若干桃子,当即吃掉一半,又多吃一个,第二天将剩余的部分吃掉一半还多一个;以此类推,到第天只剩余1个。问第1天共摘了多少桃子Private Sub Command1_Click Dim i%, sum%
sum 1
i 7
Do While i 1 sum sum + 1 * 2 i i +1
Loop
Print sum
End Sub
在答题纸上应该按照下面的格式做题:
2、错行:i i+1 改正:i i-1
Private Sub Command1_Click Dim i%, sum%
sum 1
For i 6 To 1 Step -1 sum sum + 1 * 2
Next i
Print sum
End Sub
在答题纸上应该按照下面的格式做题:
2、错行:For i 6 To 1 改正:For i 6 To 1 Step -1
这类题目考察大家对递推的过程,在推导的过程中每一个变量代表的意思及变化过程。
3、求到00之间,能被3整除被7整除的数。
Private Sub Command1_Click Dim i%
For i 1 To 100 If i Mod 3 0 And i Mod 7 0 Then Print i End If
Next i
Print sum
End SubIf i Mod 3 0 And i Mod 7 0 Then 改正:If i Mod 3 0 Or i Mod 7 0 Then
这类题目考察大家对逻辑运算的过程,在逻辑运算的用法表达正确(审题很重要)。
4、求非波那契数列的前10项。
Private Sub Command1_Click Dim fib% 9 , i%
fib 0 1
fib 1 1
Print fib 0 Print fib 1 For i 2 To 10 fib i fib i - 1 + fib i - 2 Print fib i Next i
End Sub
在答题纸上应该按照下面的格式做题:
4、错行:For i 2 To 10 改正:For i 2 To 9
这类题目考察大家对数列的推算过程,在推算中的各种下标,表达的数据,初始的数据等表达正确。
5、求100到200之间的素数,并显示结果。
Private Sub Command1_Click Dim i%, j%
For i 100 To 200 For j 2 To i - 1 If i Mod j 0 Then Exit For Next j If i j Then Print i
Next i
End Sub
在答题纸上应该按照下面的格式做题:
5、错行:For j 2 To i 改正:For j 2 To i – 1
这类题目考察大家对常用算法的熟悉情况,在书本中的几个常用算法要求能够理解并进行应用。
文档评论(0)