- 1、本文档共77页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第一单元 算法 10.3 1.下列问题不能用算法描述的是( ) A.求所有自然数之和 B.将四位十进制数转换为对应的二进制数 C.将100个实数按升序排列 D.求100个整数中的最大值和最小值 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 11.右图是VB控件工具箱的部分截图,其中“标签”控 件工具是( ) A.1 B.2 C.3 D.4 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 17.小强想设计一个判断某年是否是闰年的VB程序。通过查询资料得知:如果年份能被100整除同时也能被400整除,则该年是闰年;如果年份不能被100整除但能被4整除,则该年也是闰年。“判断某年是否为闰年”的算法流程图如下图所示(k=True表示该年是闰年,k=False表示该年不是闰年)。请回答下列问题: (1)流程图粗线框部分的内容是 (2)实现流程图虚线框部分的VB语句是 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 10.9 9、VB中,用于设置命令按钮标题的属性是( ) A.TextB.CaptionC.NameD.BackColor Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 14、下列VB程序运行时,在文本框Text1中输入1234,单击命令按钮Command1后,文本框Text1中显示的内容是 。该程序使用了 结构(填:顺序 / 选择 / 循环)。 Private Sub Command1_click ( ) Dim n As Integer , x As Integer n = Val ( Text1.Text ) x = n Mod 10 n = x * 1000 + n \ 10 Text1.Text = Str ( n ) End Sub Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 17、小施想编写一个VB程序帮助弟弟练习最大公约数的计算,程序运行界面如下图所示。单击“生成题目”按钮Command1生成两个两位随机正整数,分别显示在左边的文本框Text1和中间的文本框Text2中。在右边的文本框Text3中输入结果并按回车键后,如果结果正确,将在该文本框右边的标签Label3中显示“√”,否则显示“×”。请在画线处填入合适的代码。 Dim r As Integer ‘用于存放最大公约数 Private Sub Command1_Click ( ) Dim i As Integer Dim m As Integer Dim n As Integer Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Randomize m = Int ( Rnd * 90) + 10 n = Int ( Rnd * 90) + 10 Text1.Text = Str ( m ) : Text2.Text = Str ( n ) Text3.Text = : Label3.Caption = If m n Then r = n Else r = m For i = r To 1 Step -1 If m Mod i = 0 n Mod i = 0 Then
文档评论(0)