a=val(a)+val(b) b=val(\
if a<>b then print a-b else print b-a A) 9 B) -9 C) 7 16 D) 0 正确答案是: B
9、要计算当0 A) if 0 10、下列程序的执行结果为 a=75 if a>60 then i=1 if a>70 then i=2 if a>80 then i=3 if a>90 then i=4 print \ A) i=1 B) i=2 C) i=3 D) i=4 正确答案是: B 循环结构 1、语句y=y+1的正确含义是（）： A) 变量y的值与y+1的值相等 B) 将变量y的值加1后赋给变量y C) 变量y的值为1 D) 将变量y的值存入到y+1中 正确答案是: B 2、有如下程序 s=0:i=1 do while i<=100 s=s+i loop print s A) 5050 B) 505 C) 死循环，无输出 D) 无穷大的数 正确答案是: C 3、单击窗体时输出\斐波那契数列\的前20项.该数列第一项为1,第二项为1,其后每一项的植都是前两项的和.即: 1,1,2,3,5,8,13... 从题后供选的答案中选出正确的答案，填入以下程序中相应处，构成完整程序。 private sub form_click() x1=1 x2=1 n=0 do while n<10 print x1,x2 6 x1=_____ x2=x1+x2 n=n+1 loop end sub A) x1+x2 B) x2 C) x1+n D) x2+n 正确答案是: A 4、下列程序的执行结果为 s=0:t=0:u=0 for x=1 to 3 for y=1 to x for z=y to 3 s=s+1 next z t=t+1 next y u=u+1 next x print s;t;u A) 3 6 14 B) 14 6 3 C) 14 3 6 D) 16 4 3 正确答案是: B 5、Do while〈条件〉- Loop循环对循环体的执行过程是 A) 先执行循环体，再测试〈条件〉是否成立 B) 先测试〈条件〉是否成立，如果满足条件，才能执行循环体 C) 当〈条件〉为假时，执行循环 D) 当〈条件〉为真时，循环体的所有语句都被执行 正确答案是: B 6、判断下面程序段是计算哪一个数学式的（）。 n=inputbox(\输入n的值\ x=inputbox(\输入x的值\ t=1:s=0:p=1 For i = 2 To 2*n step 2 t=t*i p=p*x s=s+p/t next i print s A) 1+x/2!+x/4!+?+x/2N! B) 1+x/2!+x^2/(2x4)+x^3/(2x4x6)?+x^n/(2x4x6x?x2n) C) 1!+x/2+x^2/4+x^3/6?+x^n/2n D) 1+x^2/2+x^4/()2x4+?+x^(2n)/2N! 正确答案是: B 7、下面程序段的输出结果是（）。 p=0 7 s=0 do p=p+2 s=s+p loop while p<11 print p,s A) 12 42 B)11 30 C) 10 30 D) 12 30 正确答案是: A 8、下列语句组中，不能实现循环100次的有 A) n=0 B) n=0 do do n=n+1 n=n+1 loop until n>=100 loop while n<100 C) n=0 D) n=0 do do while n<100 n=n+1 n=n+1 loop until n<100 loop 正确答案是: C 9、下列程序段的结果为 a=\ for i=6 to 2 step -2 x=mid(a,i,i) y=left(a,i) z=right(a,i) z=x & y & z next i print z A) ABA B) AABAAB C) BBABBA D) ABBABA 正确答案是: C 10、为了计算1+3+5+?+99的值，某人编程如下： k=1 s=0 While k<=99 k=k+2:s=s+k Wend Print s 在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是（ A）While?Wend循环语句错误，应修改为For k=1 To 99?Next k B）循环条件错误，应改为 While k<99 C）循环前的赋值语句k=1错误，应改为k=0 D）循环中两条赋值语句的顺序错误，应改为s=s+k:k=k+2 正确答案是: D 常用控件 。 8 ）1、列表框中的列表项的数目可以通过以下哪个属性的值获得 A) count B) listcount C) listindex D) index 正确答案是: B 2、要清除列表框中所有的列表项时，应使用以下那种方法 A) remove B) clear C) removeitem D) move 正确答案是: B 3、决定控件上文字的字体、字型、大小、效果的属性是 A) text B) caption C) name D) font 正确答案是: D 4、下列不能打开属性窗口的操作是 A) 执行“视图”菜单中的“属性窗口”命令 B) 按“f4”键 C) 按ctrl+t D) 单击工具拦上的“属性窗口”按钮 正确答案是: C 5、用于设置粗体字的属性是（）。 A) Fontname B) Fontsize C) FontItalic D) FontBold 正确答案是: D 6、以下说法正确的是（）。 A) 图片框控件除了可以显示图形外，还可以作为控件的容器 B) 图像框控件除了可以显示图形外，还可以作为控件的容器 C) 图片框控件可以延伸任何类型的图形的大小以适应控件的大小 D) 图像框控件不能延伸任何类型的图形的大小以适应控件的大小 正确答案是: A 7、组合框是文本框和（ ）特性的组合。 A）复选框 B）标签 C）列表框 D）目录列表框 正确答案是: C 8、假定在图片框Picturel中装入了一个图形，为了清除该图形（注意，清除图形，而不是删除图片框），应采用的正确方法是（ ）。 A）选择图片框，然后按Del键 B）执行语句Picturel.Picture = LoadPicture(\ C）执行语句Picturel.Picture = \ D）选择图片框，在属性窗口中选择Picture属性条，然后按回车键 正确答案是: B 9、程序运行时，当在空文本框中依次输入1234时，窗体上显示的是（ ）。 Private sub Text1_Change() Print Text1; End Sub A）1234 B）12 C）1121231234 9 D）10 正确答案是: C 10、在窗体上画一个名称为Text1的文本框，然后画一个名称为Hscroll1的滚动条，其Min和Max属性分别为和 错误！未找到目录项。。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是（ ）。 A） Private Sub Hscroll1_Change() Text1.Text=HScroll1.Value End Sub B） Private Sub Hscroll1_Click() Text1.Text=HScroll1.Value End Sub C） Private Sub Hscroll1_Change() Text1.Text=Hscroll1.Caption End Sub D） Private Sub Hscroll1_Click() Text1.Text=Hscroll1.Caption End Sub 正确答案是: A 数组 1、用下面语句定义的数组的元素个数是 dim a(-3 to 5) as integer A) 6 B) 7 C) 8 D) 9 正确答案是: D 2、下列程序的执行结果是（ ）。 Private Sub Form_Activate() Dim score(3) As Integer, total As Integer Dim aa_score As Variant score(1) = 50: score(2) = 14: score(3) = 36 total = 0: i = 0 For Each aa_score In score i = i + 1 tota1 = tota1 + aa_score Print i, aa_score, tota1 Next End Sub A） 1 0 0 2 50 50 3 14 64 4 36 100 B） 1 50 50 2 14 64 10