专题08 VB综合应用之算法程序设计专项练习.docx
- 文档编号:27162304
- 上传时间:2023-06-27
- 格式:DOCX
- 页数:15
- 大小:94.61KB
专题08 VB综合应用之算法程序设计专项练习.docx
《专题08 VB综合应用之算法程序设计专项练习.docx》由会员分享,可在线阅读,更多相关《专题08 VB综合应用之算法程序设计专项练习.docx(15页珍藏版)》请在冰豆网上搜索。
专题08VB综合应用之算法程序设计专项练习
专题8VB综合应用之算法程序设计(专项练习)
1.有一段VB程序,代码如下:
Fori=1To3
Forj=8Toi+1Step-1
Ifa(j) t=a(j): a(j)=a(i): a(i)=t EndIf Nextj Nexti 数组元素a (1)到a(8)的值依次为“35,18,14,20,30,15,28,26”,运行该程序段后,a(5)到a(8)的值依次是() A.30,26,28,35B.14,15,18,20 C.26,15,18,14D.26,28,30,35 2.有如下程序: constn=10 dima(1to10)asinteger,iasinteger s=0 i=1 Dowhilea(i)>0andi<=n s=s+1 i=i+1 loop 数组元素a (1)至a(10)的数据依次为“1,5,2,3,8,-9,5,6,7,-10”,运用该算法处理后s的值是() A.3B.5C.8D.10 3.有如下程序: S=“” Fori=1to3 Forj=7toi+1step-1 Ifa(j) K=a(j): a(j)=a(j-1): a(j-1)=k Endif Nextj s=s+str(a(i)) Nexti Text1.text=s 数组元素a (1)到a(7)的数据依次为“4,15,11,7,9,16,12”经过该程序段“加工”后,文本框text1中显示的内容是() A.479B.161512 C.415117D.47911 4.有如下程序段: Fork=1To4Step3 Fori=kTok+1 Forj=i+1Tok+2 Ifa(j) temp=a(j): a(j)=a(i): a(i)=temp EndIf Nextj Nexti Nextk 数组元素a (1)到a(6)的值依次为“9,8,7,6,5,4”,经过该程序段“加工”后,数组元素a (1)到a(6)的值依次为() A.9,8,7,6,5,4B.4,5,6,7,8,9 C.7,8,9,4,5,6D.9,8,7,4,5,6 5.有如下程序段: Fori=1To2 Forj=5Toi+1Step-1 Ifa(j)>a(j-1)Then t=a(j): a(j)=a(j-1): a(j-1)=t EndIf Nextj Nexti 数组元素a (1)到a(5)的值依次为“33,24,45,16,77”,经过该程序段“加工”后,数组元素a (1)到a(5)的值依次为() A.77,45,33,24,16B.16,24,33,45,77 C.77,45,24,16,33D.16,24,45,33,77 6.以下VB代码运行后,在文本框Textl中输入1,则选择语句Ifk<=9Thenk=k+i执行的次数为() PrivateSubText1_Change() DimkAsInteger,iAsInteger k=Val(Text1.Text) Fori=1To3 Ifk<=9Thenk=k+i Nexti Text1.Text=Str(k) EndSub A.3B.5C.6D.9 7.有一组升序排列的数: 3、6、7、10、12、17、26、31、79,如果用对分法查找数据10,则依次访问的数据为() A.12、6、7、10B.12、7、10C.12、6、10D.12、7、6、10 8.字符串中任意连续的字符组成的子序列称为该字符串的子串,如字符串“abc”的子串有“a”“b”“c”“ab”“bc”“abc”。 输出字符串s所有子串的VB程序段如下: PrivateSubCommandl_Click() DimsAsString,slenAsInteger DimIAsInteger,jAsInteger s=Textl.Text slen=Len(s)① Fori=lToslen② Forj=lToslen-i+1③ Listl.AddltemMid(s,j,i)④ Nextj Nexti EndSub 则下列说法正确在的是() A.变量s放的是原始字符串的长度值 B.若输入“12345”,则字符串“245”是该字符串的子串 C.当j=2时,内循环遍历输出所有长度为2的子串 D.在保证算法功能一致的情况下,注释④处的语句可改写为Listl.AddltemMid(s,i,j) 9.有如下VB程序: PrivateSubCommandl_Click() Dims1,s2,chAsString DimiAsInteger s1=Text1.Text Fori=1ToLen(sl) ch=Mid(sl,i,1) IfAsc(ch)>=65AndAsc(ch)<=90Then ch=Chr(Asc(ch)+3) EndIf s2=ch+s2 Nexti Label1.Caption=s2 EndSub 己知大写字母A的ASCII码为65。 运行上述程序,若文本框Textl中的内容为“Alb2C3”,单击命令按钮Commandl,标签Labell中显示的是() A.Alb2C3B.3C2blAC.Dlb2F3D.3F2b1D 10.有如下程序段: tail=6: i=1: r=Val(Text1.Text) DoWhilei Forj=tailToi+1Step-1 Ifa(j)>a(j-1)Then t=a(j) a(j)=a(j-1) a(j-1)=t EndIf Nextj i=i+1 Forj=iTotail-1 Ifa(j) t=a(j)a(j)=a(j+1): a(j+1)=t EndIf Nextj tail=tail-1 Loop 数组元素a (1)到a(6)的值依次为“73、56、28、61、44、92”,若在文本框Text1中输入“2”,则经过该程序段“加工”后,数组元素a (1)到a(6)的值依次为() A.73,61,56,92,44,28B.92,73,56,61,44,28 C.92,73,61,56,28,44D.92,73,61,56,44,28 11.数组元素a(0)到a(9)的值依次为“13,20,22,25,30,33,40,52,65,100”,文本框Text1中输入的值是33,执行该程序段,下列描述正确的是() key=Val(Text1.Text) i=0: j=9: s=0 DoWhilei<=j m=Fix((i+j)\2+0.5) s=s+1 Ifkey=a(m)Then Label1.Caption=Label1.Caption+"→"+Str(m) ExitDo'ExitDo表示退出循环 EndIf
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 专题08 VB综合应用之算法程序设计专项练习 专题 08 VB 综合 应用 算法 程序设计 专项 练习
![提示](https://static.bdocx.com/images/bang_tan.gif)