2、.变量a中存储了一个字符,能够正确判断该字符为数字字符“0”~“9”的VB表达式是()A.Asc(a)>=0OrAsc(a)<=9B.“0”<=a<=“9”C.a<=“0”Ora>=“9”D.a>=“0”anda<=“9”5.以下程序段运行时出现如图所示的错误提示:Fori=1To100IfRnd>0.5Thenn=n+1Elsem=m+1Nexti分析该程序段,该代码中缺少了()A.ForB.EndIfC.NextD.If6.如下VB程序代码:Fori=3to15stepxPrint“∗”Nexti下列说法中正确的是()A.若x的值为3,则显示5个∗B.若x的值为5,则显示4个∗C.
3、若x的值为0,则显示0个∗D.若x的值为-2,则显示1个∗7.对称字符串的特征是从左到右读和从右到左读是完全一样的,如“abba”是对称的,“abcba”也是对称的,判断字符串是否对称的VB程序段如下:n=Len(s)’s是待判断的字符串k=0:j=nFori=1Ton/2NextiIfk=0ThenLabell.Caption=“对称”ElseLabell.Caption=“不对称”方框中的代码由以下三部分组成:①j=j-1②Ifcl<>c2Thenk=k+1③cl=Mid(s,i,l):c2=mid(s,j,l)代码顺序正确的选项是()A.①③②B.②③①C.③②①D.②①③8.下
4、列VB程序用于求2个正整数(均小于10000)的最大公约数:PrivateSubmand1_Click()DimxAsInteger,yAsInteger,zAsIntegerx=Val(Text1.Text)‘第1个正整数y=Val(Text2.Text)‘第2个正整数‘调用函数gcdText3.Text=Str(z)EndSubFunctiongcd(aAsInteger,bAsInteger)AsIntegerDoWhilea<>bIfa>bThena=a-bElseb=b-aLoopgcd=bEndFunction方框中的正确语句是()A.z=gcdB.z=gcd(a,b)C.
5、z=gcd(x,y)D.z=gcdx,y9.用选择排序将七个数“2022,xx,xx,xx,2021,xx,xx”从小到大进行排序,则第二轮交换数据后的顺序是()A.2022,2021,xx,xx,xx,xx,xxB.xx,xx,xx,xx,2021,2022,xxC.xx,xx,xx,xx,2021,2022,xxD.2022,2021,xx,xx,xx,xx,xx10.已知斐波那契数列前8项是1,1,2,3,5,8,13,21,设计如下VB程序求其第n项的值:Dima(1to1000)aslong,nasintegern=Val(Text1.Text)a(1)=1:a(2)=1Fo
6、ri=3tona(i)=a(i-1)+a(i-2)NextiLabel1.Caption=“斐波那契的第”&Str(n)&“是”&a(n)该程序用到了下列哪一个算法()A.枚举算法B.递归算法C.排序算法D.查找算法11.有如下VB程序段:m=Val(Text1.Text)DoWhilem<>0x=mMod8m=m8a(x)=a(x)+1Ifa(x)=1Thenn=n+1Loop数组a各元素的初始值都为0,在文本框Text1中输入“529”,执行程序后,变量n的值为（）A.1B.2C.3D.412.若数组元素d(1)到d(8)的值依次为“86,75,58,46,20,18,12,5”
7、,查找某Key值的VB程序段如下:n=0:i=1:j=8Key=Val(Text1.Text)DoWhilei<=jm=(i+j)2IfKey=d(m)ThenExitDo'ExitDo表示退出循环IfKey>d(m)Thenj=m-1:n=n-1Elsei=m+1:n=n+1EndIfLoopLabel1.Caption=Str(n)当输入不同的Key值,运行该程序段后,在标签Label1中显示的不同结果共有A.5种B.6种C.7种D.8种
