VB综合(答案).doc
《VB综合(答案).doc》由会员分享,可在线阅读,更多相关《VB综合(答案).doc(8页珍藏版)》请在咨信网上搜索。
1、VB综合(学考部分非选择题)1. 2017年4月学考题奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法:统计二进制数据的数位中“1”的个数,若个数为奇数,则校验位值为0,否则校验位值为1。小李编写了一个计算奇校验位值得VB程序,功能如下:在文本框Text1中输入1255十进制待校验数,单击“计算”按钮Command1后,在文本框Text2中显示该数对应的二进制值,并在标签Label3中显示该数的校验位值。程序运行界面如图所示。(1)在设计程序界面时,要清空文本框中的显示内容,应修改该文本框中的 Text 属性。(2)实现上述功能的VB程序如下,请在划线处填入合适代码。Private Su
2、b Command1_Click() Dim a As Integer, s As String Dim n As Integer, t As Integer, v As Integer n = Val(Text1.Text) t = 0 s = Do While n 0 a = n Mod 2 n = n 2 t = t+a s = Str(a) + s Loop v = t Mod 2 Text2.Text = s Label3.Caption = 校验位值: + str(1-v) End Sub(3)运行该程序,在文本框Text1中输入22,单击“计算”按钮,则显示的校验位值是 0 。2
3、. 2016年10月学考题编写“加法练习题生成器”程序,实现如下功能:在文本框Text1中输入题数n,单击“生成”按钮Commandl,在列表框Listl中显示n个两数之和小于100的加法练习题。程序运行界面如图a所示。 图a 图b(1)在设计程序界面时,使应使用图b所示“控件工具箱”中的 3 (填写相应编号)添加“生成”按钮。(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。Private Sub Command1_Click() Dim n As Integer, i As Integer, a As Integer, b As Integer Randomize n = Val
4、(Text1.Text)i = 1 Do While i= n a = Int(Rnd * 100) b = Int(Rnd * 100) If a+b= a And a = A And a = 0 And a = 0 And c = A And c + tEnd Sub(3)由上述算法可知,运行时在Text1框中输入“d8”,列表框List1中添加的条目为 。(单选,填字母:A. d8-216/ B. d8-输入有误!)5. 编写VB趣味程序“计算厚道指数”,实现如下功能:在文本框Text1中输入姓名,单击“试一试”按钮Command1,在列表框List1依次求解并显示姓名中的每一个字符的A
5、SCII码,并按程序中给定方式进行运算,得出厚道指数。运行界面如图所示,程序代码如下。(1)为实现上述功能,请在划线处填入合适的代码。Private Sub Command1_Click()Dim s As String,c As StringDim n As Integer,k As Integers = Text1.TextList1.ClearList1.AddItem (开始分解姓名 + s + ,计算内码:)For i = 1 To Len(s) c=mid(s , i , 1 )k = Asc(c)List1.AddItem (c + 十进制ASCII值: + Str(k)n =
6、(n + k) Mod 50 Next i n = n + 50 -iLabel2.Caption = Str(n)End Sub(2)程序中的代码“list1.clear ”的“clear”是 。(单选,填字母:A.对象名/B.属性名/C.事件名/ D. 方法名)(3)若在文本框中输入姓名是“jam”这3个字符,点击“试一试”按钮,在label2上显示的“厚道指数”值为 。686. 查找ASCII 码值最小的字符。程序功能如下:在文本框Text1中输入一个字符串,单击命令按钮Command1,在文本框Text2中输出该字符串中ASCII码值最小的字符,运行界面如下图所示。解决该问题的VB 程
7、序如下:Private Sub Command1_Click()Dim str1 As String 存储输入的字符串Dim n As Integer 存储输入字符串的长度Dim i As Integer, j As Integerstr1 = Text1.Text n = Len(str1)s = Mid(str1, 1, 1) For i = 2 To nIf Mid(str1, i, 1) s Then s = Mid(str1, i, 1)Next iText2.Text = sEnd Sub(1)将命令按钮Command1中显示的文本“Command1”修改为“查找”,可在其属性窗口
8、中将 Caption 属性的属性值改“查找”。(2)为实现上述功能,请在划线处填入合适的代码。程序中划线处应填入 程序中划线处应填入 (3)如上图所示, 在文本框Text2中输出的字符“M”是输入字符串中的第 1 个“M”。7. 用物理天平测量物体的质量。待测得物体的质量为x克(x为小于1000的整数),下列程序为计算天平砝码盘中所需的砝码。已知天平可用砝码为:500克1个,200克1个,100克2个,50克1个,20克1个,10克2个,5克1个,2克2个,1克1个。程序界面如下图。Private Sub Command1_Click() Dim a(1 To 12) As Integer,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 综合 答案
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【精****】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【精****】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。