（20）某人设计了如下程序用来计算并输出7!（7的阶乘）

private sub command1_click()

t=0

for k=7 to 2 step -1

t=t*k

next

print t

end sub

执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是

a）把t=0改为t=1

b）把for k = 7 to 2 step -1改为for k =7 to 1 step -1

c）把for k = 7 to 2 stip-1改为fork=1 to 7

d）把next改为nexi k

（21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是

a）把所有单选按钮的index属性改为相同值

b）把所有单选按钮的index 属性改为连续的不同值

c）把所有单选按钮的caption属性值改为相同

d）把所有单选按钮的名称改为相同，且把它们的index属性改为连续的不同值。

（22）窗体上有文本框text1和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在text1文本框中。下面可实现此功能的事件过程是：

a）private sub save_click()                b）private sub save_click() A Kw:VP0~@*$,K`[ 本_资_料_来_源_于_贵_州_学_习_网 IT认证全国计算机等级考试 Http://wwW.gzU521.coM )A Kw:VP0~@*$,K`

text1.text=file.save.caption           text1.text=save.caption

end sub                                end sub

c）private sub file_click()                 d）private sub file_click()

text1.text=file.save.caption           text1.text=save.caption

end sub                                 end sub

（23）某人在窗体上画了一个名称为timer1的计时器和一个名称为lab

的属性设置为enabled=true,  interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。

private sub timer1_timer()

label1.caption=time$

end sub

在程序执行时发现未能实现上述目的，那么，他应做的修改是

a）通过属性窗口把计时器的interval属性设置为2000

b）通过属性窗口把计时器的enabled属生设置为false

c)把事件过程中的label1.caption=time$语句改为timer1.interval=tims$

d)把事件过程中的label1.caption=time$语句改为label1.caption=timer1.time

（24）形状控件的shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是

（25）下面关于文件的叙述中错误的是

a）随机文件中各条记录的长度是相同的]

b）打开随机文件时采用的文件存取方式应该是random

c）向随机文件中写数据应使用语句print#文件号

d）打开随机文件与打开顺序文件一样，都使用open语句

（26）设窗体上有一个图片框picture1，要在程序运行期间装入当前文件夹下的图形文件file1.jpg，能实现此功能的语句是

a）picture1.picture=”flie1.jpg

 b）picture1.picture=loadpicture(“file1.jpg”)

c) loadpicture(“file1.jpg”)              

d）call loadpicture(“file1.jpg”)

（27）下面程序执行时，在窗体上显示的是

private sub command1_click()

dim a(10)*`6%z%Jm lY c[转 贴 于 我 的 学 习 网 IT认证全国计算机等级考试 HTtp://wwW.gzU521.coM)*`6%z%Jm lY c

for k = 1 to 10

a(k) = 11 – k

next k

print a(a(3)\a(7) mod a(5))

end sub

a）3        b）5          c）7

（28）为达到把a、b中的值交换后输出的目的，某人编程如下：

private sub command1_click()

a% = 10:b% = 20

call swap(a,b)

print a,b

end sub

private sub swap(byval a as integer,byval b as integer)

c= a:a=b:b=c

end sub

在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是

a）调用swap过程的语句错误，应改为call swap a,b

b）输出语句错误，应改为：print ”a”,”b”

c）过程的形式参数有错，应改为：swap(byref a as integer,byref b as integer)

d）swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a

（29）有如下函数：

function fun(a as integer,n as integer) as integer

dim m as integer

while a >=n

a=a-n

m= m+1

wend

fun=m

end function

该函数的返回值是

a）a乘以n的乘积         b）a加n的和

c）a减n的差             d）a除以n的商（不含小数部分）