选修一第四章VB程序设计初级章末习题（较难程度） 从数组元素a(1)开始，按词典顺序存储若干英语单词（单词均小写，升序）．初始时，数组元素b(0)值为0，b(1)~b(26)分别存储首字母为a、b、c、……、z的单词个数．依据对分查找思想：设计一个在数组a中查找某个单词位置的程序．实现该功能的VB程序段如下： key = Text1．Text '输入查找单词 For i = 1 To 26 b(i) = b(i) + b(i-1) Next i （1） i = b(k-1)+1 : j = b(k) Do Whi1e i <=j m = (i + j) \ 2 If key = a(m) Then Exit Do 'Exit Do表示退出循环 If key < a(m) Then j = m – 1 E1se i = m +1 Loop If?? （2）?? Then s = "没有找到！" E1se s = "位置："+Str(m) Text2．Text = s 上述程序段2个方框处的代码分别为（??? ） A. （1）k=Asc(Mid(key，1，1))-Asc(“a”)+1 （2）i>j B. （1）k=Asc(Mid(key，1，1))-Asc(“a”) （2）i<=j C. （1）k=Asc(Mid(key，1，1))-Asc(“a”)+1 （2）i<=j D. （1）k=Asc(Mid(key，1，1))-Asc(“a”) （2）i>j 数学表达式，在VB程序设计中应该表示为??? ( ??) A. -b+sqr(b*b-4*a*c)/(2*a) B. （-b+sqr(b*b-4*a*c))/2*a C. -b+sqr(b*b-4*a*c)/2/a D. （-b+sqr(b*b-4*a*c))/2/a VB程序中表达式 33 mod 17 * 2的值为（） A. 1 B. 32 C. 33 D. 34 下列软件中，属于系统软件的是_____。 ①linix? ②VB6.0? ③Flash? ④WPS? ⑤Python A. ①②④ B. ①②③ C. ①②⑤ D. ②③④ 己知数组a(1)到a(6)的原始数据为“118”，“36”，“98”，“15”，“88”，“2”，对该数组进行排序操作，某同学编写了以下VB程序： For i=1 to 2 ?? For j=6 to i+1 step -1 ????? If a(j)< a(j-1) then ??????? t=a (j) : a(j)=a(j-1) : a (j-1)=t ????? End if ?? Next j Next i 则程序运行之后，数组a (1)到a (6)的值依次为（???? ） A. “118”，“ 15”，“ 2”，“ 36”，“ 98”，“ 88” B. “118”，“ 15”，“ 36”，“ 88”，“ 98”，“ 2” C. “2”，“ 15”，“ 36”，“ 118”，“ 88”，“ 98” D. “2”，“ 15”，“ 36”，“ 88”，“ 98”，“ 118” 二、非选择题（本大题共13小题，共13.0分） 输入一个正整数N，寻找一个比N大且最接近N的整数，要求这个数的每位数字之和与N的每位数字之和相同。例如N＝1231，则满足上述条件的最接近N的整数为1240。为了解决此问题，设计算法如下： ①从右往左扫描，找第一个非0数字，将该数字减1后移到最后面。 ②继续扫描，找第一个非9的数字，若遇到，将该数字加1，结束：若遇到9，将其移到最后面，重复执行②。 ③若扫描完没有加1，则最前面补"1"。 例如：N＝199000，按照上述算法的处理过程是：199000→190008→100089→200089，满足条件的最接近的数是200089。 （1）若输入N＝99900，则满足条件的最接近的数为_____。 （2）实现上述功能的VB代码如下，请在划线处填入适当的代码： ?? Private Sub Command1_Click（） ? ??Dim a（1 To 50） As String ? ??Dim n As String，step1 As Boolean，step2 As Boolean ? ??Dim i As Integer，length As Integer，zero As Integer，cnt As Integer ?? ?n＝Text1．Text ? ??length ＝ Len（n） ??? ’将数字串n从右往左依次存储在数组a中。 ? ??For i ＝ 1 To length ???? ?a（i）＝ ____①____ ??? Next i ??? step1 ＝ True：step2 ＝ False ’step1对应步骤①，step2对应步骤② ??? zero ＝ 0：cnt ＝ 1 ??? For i ＝ 1 To length ??? ??If step1 ＝ True Then ?? ????If a（i）＝ "0" Then ???? ????zero ＝ zero ＋ 1 ??? Else ????? ____②____ ????? If zero ＞ 0 Then ?? ?????a（cnt）＝ a（i） ?? ?????a（i）＝ "0" ?? ???End If ??? ??step1 ＝ Fa ... ...
