原创力文档- 1、本文档共53页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
BB平台数组
问题 1 得 2.67 分，满分 20 分 ? 利用二维数组编程输出“杨辉三角形”图案，图案行数n从键盘输入。?正确答案所选答案1. Private?Sub?Form_Click()1.Private?Sub?Form_Click()2. Dim?x() As?Integer, n?As?IntegerDim i As?Integer, j As?Integer2.Dim?x() As?Integer, n?As?IntegerDim i As?Integer, j As?Integer3. n?=?InputBox(n=)-[未给定] 4. Redim?x(n, n)-[未给定] 5. x(1, 1) = 1-[未给定] 6. For?i = 2?To?n-[未给定] 7. For?j = 1?To?i-[未给定] 8. x(i, j)?=?x(i-1, j)?+?x(i-1, j-1)-[未给定] 9. Next?jNext?i-[未给定] 10. For?i = 1?To?n-[未给定] 11. For?j = 1?To?iPrint?x(i,j);-[未给定] 12. Next?j-[未给定] 13. Print-[未给定] 14. Next?i-[未给定] 15. End?Sub-[未给定] ??问题 2 得 0 分，满分 20 分 ? 随机产生两位整数50个放入数组x中，要求对数组x中的所有元素逐个排查，若发现有重复数，则把该数删除，最终实现数组x中无重复数。?Private Sub Form_Click()?Dim x(50)?As Integer?Dim n As Integer, i As Integer ?For i=1 To 50?x(i) = Int(Rnd*90)+10?Next i?n=50正确答案所选答案1. i=2Do-[未给定] 2. For j = 1 To i - 1-[未给定] 3. If x(j) = x(i) Then?Exit For-[未给定] 4. Next j-[未给定] 5. If j = i Then-[未给定] 6. i = i + 1-[未给定] 7. ElseFor j = i + 1 To n-[未给定] 8. x(j - 1) = x(j)-[未给定] 9. Next jn = n - 1-[未给定] 10. End If-[未给定] 11. Loop While i = n-[未给定] 12. Print 整理后数据:For i = 1 To n-[未给定] 13. Print x(i);If i Mod 10 = 0 Then Print-[未给定] 14. Next i-[未给定] 15. End Sub-[未给定] ??问题 3 得 0 分，满分 20 分 ? 从键盘输入一段英文文章（都是小写字母），统计一下该段文章中26个英文字母的使用情况。?正确答案所选答案1. Private?Sub?Form_Click()-[未给定] 2. Dim?c(1?To?26)?As?IntegerDim?n?As?Integer,?k?As?Integer, s?As?String,?xs?As?String-[未给定] 3. For?i?=?1?To?26-[未给定] 4. c(i)?=?0-[未给定] 5. Next?is?=?InputBox(s=)-[未给定] 6. n?=?Len(s)-[未给定] 7. For?i?=?1?To?n-[未给定] 8. xs?=?Mid(s,?i,?1)-[未给定] 9. If?xs?=?a?And?xs?=?z?Then-[未给定] 10. k?=?Asc(xs)?–?96-[未给定] 11. c(k) = c(k) + 1-[未给定] 12. End?IfNext?i-[未给定] 13. For?i?=?1?To?26Print?Chr(96?+?i);?----;?c(i)-[未给定] 14. Next?i-[未给定] 15. End?Sub-[未给定] ??问题 4 得 0 分，满分 20 分 ? 利用一维数组编程输出“杨辉三角形”图案，图形行数n从键盘输入。?正确答案所选答案1. Private?Sub?Form_Click()-[未给定] 2. Dim?x() As?Integer, n As?IntegerDim i As?Integer, j As?Integer-[未给定] 3. n?=?InputBox(n=)ReDim?x(n)x(1)?=?1-[未给定] 4. For?i?=?1?To?n-[未给定] 5. For?j?=?i?To?1?Step?-1-[未给定] 6. x(j)?=?x(j?-?1)?
文档评论（0）