高中信息技术:算法学考2.docx

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
高中《算法与程序设计》模块强化训练 班级_____________姓名_____________ 1.某算法的部分流程图如图所示,执行这部分流程后,下列说法正确的是( ) A.变量n,x的值分别为6,1 B.变量n,x的值分别为1,6 C.步骤x←x/2的执行次数是4 D.步骤n←n+1的执行次数是6 2.某算法的部分流程图如图所示,执行该流程图,下列描述正确的是( ) A. s←s+x执行了4次 B.s≤10? 执行了4次 C.s的值为15,x的值为6 D.s的值为10,x的值为5 3.如果一个正整数是另一个整数的立方,那么称该数是“立方数”。如:1、8、27等是立方数。现要求编写VB程序实现如下功能:在文本框Text1中输入正整数n,单击命令按钮Command1后,在标签Label上显示相关信息。 (1)在VB中,文本框Text1所属的类名是________(单选,填字母:A.Text/B.Text1/C.TextBox)(2)为实现上述功能,请在画线处填入合适的代码。 Private Sub Command1_Click() Dim n As Long, i As Long Dim k As Long, s As String n = Val(Text1.Text) i = 1 Do While i * i * i = n k = i * i * i ____ eq \o\ac(○,1)____ Loop If _____ eq \o\ac(○,2)_____ Then s = Str(n) + 是立方数 Else s = 小于 + Str(n) + 的最大立方数是 + Str(k) Label.Caption = s End Sub (3)由上述算法可知,输入27时,输出为____________ 4.对称字符串从左读到右和从右读到左完全一样,如“1221”“12321”。编写VB程序,判断输入字符串是否对称,程序运行界面如图a所示,在文本框Text1中输入字符串,单击Command1按钮,在标签Label2上显示判断结果。 图a 图b (1)在设计程序界面时,要在Command1按钮上显示“判断”二字,应修改该按钮的____________属性 (2)实现上述功能的VB程序如下,请在画线处填入合适的代码。 Private Sub Command1_Click() Dim s As String, c1 As String, c2 As Integer Dim n As Integer, i As Integer Dim f As Boolean s = Text1.Text n = Len(s) f = True For i = 1 To n \ 2 c1 = eq \o\ac(○,1)__________ c2 = Mid(s, n - i + 1, 1) If c1 c2 Then f = False Exit For End If Next i If eq \o\ac(○,2)__________ Then Label2.Caption = 对称 Else Label2.Caption = 不对称 End If End Sub (3)运行该程序,在文本框中输入aba,单击“判断”按钮后,出现图b所示错误提示,引起该错误的原因是_______(单选,填字母:A.变量s的数据类型错误;B.变量c2的数据类型错误;C.变量f的数据类型错误。)

文档评论(0)

***** + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档