4.1解析法训练1 学校:_____姓名：_____班级：_____考号：_____ 一、选择题 1．某VB程序段如下： Text1.Text = "" For i=1 To 10 b(a(i) Mod 10) = b(a(i) Mod 10)+1 Next i For i=0 To 9 If b(i) Mod 2 = 1 Then Text1.Text = Text1.Text + Str(i) + Str(b(i)) End If Next i 数组b各元素初值为0，数组元素a(1)到a(10)的值依次为57，23，43，20，18，30，47，70，77，36，执行该程序段后，文本框Text1中显示的内容为（ ） A．3 3 7 7 7 B．0 3 6 1 3 2 7 3 C．0 3 6 1 7 3 8 1 D．0 3 6 1 7 7 7 8 2．为了保护学生视力，教室里安装了不少日光灯管。假设每个教室有40W灯管18个，每个整流器5W，每度电0.55元，每天用电12小时，每个教室每天的电费要多少？编程解决此问题最合适的算法是（ ）。 A．顺序查找算法 B．解析法 C．递归算法 D．穷举法 3．执行如下VB程序段，则s的值是（ ） s=56s1=s\10 s2=s Mod 10 s=s1+s2*10 Print"s=";s A．5.6 B．6.5 C．56 D．65 4．下列问题适合用解析算法求解的是（ ） A．寻找一堆彩球中所有的红球 B．计算一个球从100米高的楼顶掉下来的落地速度 C．将全班同学按身高从低到高排队 D．从电子词库中找到Infomation这个单词 5．运行下列VB程序，在文本框Text1中输入十进制数22，单击按钮后，在标签Label1输出转换后的五进制数。 Private sub Command1_Click() Dim y As Integer Dim s As String,Dim r As Integer y= Val(Text1. Text) s=" " Do While y < > 0 Loop Labell. Caption =s End sub 方框中的代码由以下三部分组成： ①s=Str(r)+s ②r=y Mod 5 ③y=y\5 代码顺序正确的选项是（ ）。 A．①②③ B．③②① C．②①③ D．③①② 6．以下VB程序段的功能是：单击一次按钮 Command1，在列表List1中随机输出一行10个大小写字母。已知字母“A”和“a”的ASCII码值分别为65和97。 Private Sub Command1_Click() Dim s As String，c As String，i As String，a As String，t As Integer Randomize s=" " For i= 1 To 10 ① If a <=26 Then t=a+64 Else ② End If c= Chr(t) s=s+c Next i List1. AddItem s End sub 以上横线处的正确语句是（ ）。 A．①a=Int(Rnd*52+1) ②t=a+70 B．①a=Int(Rnd*52) ②t=a+71 C．①a=Int(Rnd*52+1) ②t=a+72 D．①a=Int(Rnd*52) ②t=a+73 7．下列VB程序段实现求双重数列0，2，1，4，1，6，2，8，3，10，5，12，8，……前n项中的奇数项和。 Dim a(1 To 100)As Integer n= Val(Text1. Text) a(1)=0:a(3)=1 s=1 Next i Text2. Text= Str(s) 方框中的代码由以下三部分组成： ①a(i)=a(i-2)+a(i-4) ②s=s+a(i) ③For i=5 To n Step2 代码顺序正确的选项是（ ）。 A．①②③ B．③②① C．②①③ D．③①② 8．对用户输入的字符串进行解密的VB程序段如下： s= Text. Text For i =1 To Len(s) ch= Mid(s,i,1) nk=Asc(ch)-i If nk <0 Then nk nk+127 Text2. Text= Text2 Text Chr(nk) Next i 已知大写字母A的ASCII码值为65，小写字母a的ASCII码值为97，在文本框Text1中输入内容“yhT5”，执行程序段后，文本框Text2显示的内容为（ ）。 A．YHt5 B．xgS4 C．zjw9 D．xfQ1 9．某排序算法，VB代码如下： i=1 Do While i<=5 If i = 0 or a(i – 1)<= a(i) Then i=i+1 Else t=a(i):a(i)=a(i-1):a(i-1)=t i=i-1 End If Loop 数组元素a(0)到a(5)依次为：“0，41，22，53，99，36”，经过该程序段处理后，数组元素a(3)的值为（ ） A．36 B．53 C．41 D．22 10．某对分查找算法的VB程序段如下： i=1:j=6:n=0:f=False key=Val(Text1.Text) Do While i<=j and Not f n=n+1 m=Fix((i+j)/2) If key=a(m)then f=True If key
