- 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
窗体上有一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() a = Val(InputBox(请输入分数:, 计算你的等级, 60)) If a 0 Or a 100 Then Print 输入错误 ElseIf a 60 Then Print 不及格 ElseIf a 80 Then Print 合格 Else Print 优秀 End If End Sub 运行时,单击按钮,在输入对话框中直接回车,输出结果为()。 输入错误 不合格 合格 优秀 窗体上有一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 200 sum = sum + i If i Mod 19 = 18 Then Exit For End If Next i Print sum End Sub 运行时,单击按钮,输出结果为()。 20100 0 190 171 运行下列程序,单击窗体后输出的结果是()。 Private Sub Form_Click() Dim k As Integer For k = 1 To 2 Print 3 + k; 3 k; Spc(3); Next End Sub 31 31 32 32 31 31 32 32 4 31 5 32 4 31 5 32 下列程序段的执行结果是()。 X = 3: Y = 5: z = 9 X = X + Y Y = X - Y If X + Y Z - X Then z = X + Y If X + Y Z - Y Then X = z + Y Print X, Y, Z 3 5 9 14 3 11 8 3 11 8 5 9 执行下列程序段后输出的结果是()。 s = 1 For i = 1 To 3 For j = 0 To i - 1 s = s + s * j Next j Print s; Next I 1 2 2 1 2 2 12 1 2 12 窗体上有一个命令按钮command1,编写如下事件过程: Private Sub Command1_Click() Dim i As Integer Dim sum As Integer For i = 1 To i + 99 sum = sum + i i = i + 1 Next i Print sum End Sub 运行时单击按钮,输出结果是()。 编译错误 2401 2500 变量sum溢出 执行下列程序段后,窗体输出的结果是()。 Dim a As Integer a = Val(InputBox(请输a的值, , 6)) Select Case a Case 1 To 4 Print A Case Is 3 Print B Case 5 To 10 Print C Case Else Print D End Select A B C D 有如下程序段: Private Sub Form_Click() Dim s%, t%, a%, b% s = 1: t = 1 a = Val(Text1.Text) b = Val(Text2.Text) If a 0 Then s = s + 1 If a b Then t = t + s Else If a = b Then t = 5 Else t = 2 * s End If End If Print t End Sub 要使程序输出结果为4,则a和b应满足的条件是()。 a0 and ab a0 and ab a0 and ab a0 and ab 窗体上有一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() Dim i%, j%, x%, n% x = 0
您可能关注的文档
最近下载
- 普兰店市城市主干路施工组织设计(投标)_secret.doc
- 第5课用发展的观点看问题教学设计-2023-2024学年中职高教版(2023)哲学与人生.docx VIP
- 2024年福建省福州市鼓楼区华大街道招聘社区工作者真题及参考答案详解一套.docx VIP
- 个人二手车买卖合同协议书(标准版).doc VIP
- 2024年福建省福州市鼓楼区华大街道招聘社区工作者真题及参考答案详解.docx VIP
- 丘陵地区梯田土工程量的有理快速计算方法及应用研究.pdf VIP
- 2025年新北师大版数学二年级上册全册教案.pdf
- 第5课 用发展的观点看问题 教学设计-2024-2025学年中职思想政治高教版(2023)哲学与人生.docx VIP
- 体育心理学(第三版)第01篇 章体育心理学概述.ppt
- 体育心理学---第一章 体育心理学概述.ppt VIP
文档评论(0)