原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
教程第4章课堂讨论
第4章 习题讨论 一、单选题（补充） 1．“x 是小于100 的非负数”，用 VB 表达式表示的是 A. 0=x100 B. 0=x And x100 C. 0x And x100 D. 0x or x100 2. 下列程序段的运行结果为 a = 3 : b = a - 4 If Not a + b 0 Then x = a Else x = b Print x - a A. 0 B. -4 C. -3 D. -1 二、多选题 1．下列语句中，有语法错误的是_______。 A. y=(a-1)(b-1) B. x=2m C. Val(y)=m D. Form1.Show E. B$=InputBox(Hello$) F. Text1.Text + VB = Text2.Text G. 88Label.Caption = Label H. x=Left(Visual BASIC) I. If ab-2*3 Then y=a=b J. If a1 Not (Or b3) Then y=1 2．假设t、s、w分别为整型、字符型、逻辑型变量，且s=ABC，在下列表达式中错误的有______。 A. t=5 And w B. s90 C. 4*t–1 D. s + s E. t + s 3. 假设a=-3，b=3，下列逻辑表达式中其值为真的有 A. a=0 And Not b2 B. a*b-6 And 5*b Mod 3 0 C. ab b Or a+b=0 Or Not (a-b=0) D. 2*a=-b Or a0 And b0 E. a=0 And a-b=0 Or b=a 补充填空题1： 写出下列程序段的运行结果。 x = Val(InputBox(Enter x)) Select Case Sgn(x) + 2 Case 1 x = x + 1 Case 2 x = x + 2 Case 3 x = x + 3 End Select Print x + 1 当x的输入值为-3时，输出结果是_____；运行后x的值为____。 补充填空题2：当在文本框Text1中输入内容并按回车键后，立即跳到Text3文本框以供输入，事件过程是： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then ________ End If End Sub 编程及上机调试 第1题 (出错在什么地方?) 第4章的第1道编程题，有的学生用select case 语句编写如下程序: Private Sub Command1_Click() x = Val(Text1.Text) Select Case x Case Int(x / 2) = x / 2 Text2.Text = 偶数 Case Else Text2.Text = 奇数 End Select End Sub 为什么结果总是奇数？无论你输入偶数还是奇数。 错例 Private Sub Command1_Click
文档评论（0）