- 1、本文档共57页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
专题五数制转换;1.(2019·1月浙江学考)小红编写了一个将5位以内的十六进制正整数转化成十进制数的VB程序,功能如下:在文本框Text1中输入一个十六进制正整数,单击“转换”按钮Command1,在标签Label3中显示结果。程序运行界面如图所示。;(1)要使窗体Form1标题显示“数制转换”,则需该窗体的______(单选,填字母:A.Font/B.Caption/C.BackColor)属性。
(2)要实现上述功能的VB程序如下,请在划线处填入合适的代码。
PrivateSubCommand1_Click()
DimxAsString,chAsString
DimflagAsBoolean,iAsInteger,resultAsLong
x=____①____;i=1
result=0
flag=True
ch=Mid(x,1,1)
DoWhilei=Len(x)Andflag=True
Ifch=0Andch=9Then
result=result*16+Val(ch)
ElseIfch=AAndch=FThen
result=result*16+(Asc(ch)-Asc(A)+10);ElseIfch=aAndch=fThen
result=result*16+(Asc(ch)-Asc(a)+10)
Else
flag=False
EndIf
i=i+1
ch=___②____
Loop
Ifflag=TrueThen;Label3.Caption=Str(result)
Else
Label3.Caption=输入错误
EndIf
EndSub;解析从语句ch=Mid(x,1,1)来看,x是文本框Text1输入字符。Ch为每次取出字符,如果不是0-9或A-F或a-f的字符,则flag=False。
答案(1)B(2)①Text1.Text②Mid(x,i,1)(3)C;2.(2018·4月浙江学考)某种编码以4位二进制码为一组,每组前两位表示方向,后两位表示距离。编写一个程序,将编码翻译成方向和距离,距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下:在文本框Text1中输入连续多组编码,单击“翻译”按钮Command1,结果显示在列表框List1中。
程序运行界面如下图所示。;(1)要使程序运行时,文本框Text1的Width属性值为2018,可在Form_Load事件过程中添加语句________(单选,填字母:A.Width=2018/B.Text1.Width=2018/C.Width.Text1=2018)。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
PrivateSubCommand1_Click()
DimsAsString,cAsString,dAsString
DimnAsInteger,b1AsInteger,b2AsInteger,vAsInteger,iAsInteger;s=Text1.Text:n=Len(s):i=1
DoWhilei=n
c=Mid(s,i,2)
Ifc=00Then
d=东
ElseIfc=01Then
d=南
ElseIfc=10Then
d=西;Else
d=北
EndIf
b1=Val(Mid(s,i+2,1))
b2=Val(Mid(s,i+3,1))
v=____①____;List1.AddItemd++Str(v)
___②____
Loop
EndSub
(3)若文本框Text1中输入的内容为“1111”,单击“翻译”按钮,列表框List1中显示的内容是________。
解析变量i表示在字符串每个字符的位置,d表示方向,v表示距离,距离值为每组编码后两位二进制码转换为十进制数的值。Loop语句前往往要改变循环变量的值。
答案(1)B(2)①b1*2+b2②i=i+4(3)北3;3.(2017·4月浙江选考)奇偶校验是一种校验数据传输正确性的方法。其中
您可能关注的文档
最近下载
- 部编版(2024)一年级语文下册课件 第六单元 11 浪花.pptx VIP
- GB_T 34120-2023 电化学储能系统储能变流器技术要求(OCR).pdf
- 创设情境提升小学生数学学习兴趣教学研究课题报告.docx
- DB4413_T 58-2024 特种设备双预防导则.docx VIP
- 影视或媒体岗位招聘面试题与参考回答.docx VIP
- 温室气体 产品碳足迹量化方法与要求 电解铝及编制说明.pdf
- 人工智能的现实困境.docx VIP
- 2022-2023学年上海市杨浦区复旦大学第二附属八年级下学期期中考试数学试卷含详解.pdf VIP
- 桥面板预制场施工设计方案.pdf
- 《桃花源记》文言文教学设计一等奖 .docx VIP
文档评论(0)