（9）下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867，输入1000，则输出0001。请填空。

private sub command1_click()

dim x as integer

x=inputbox(“请输入一个正整数”)

while x>__[11]___

print x mod 10;

x=x\10

wend

print__[12]__

end sub

（10）有如图所示的窗体。程序执行时先在text1文本框中输入编号，当焦点试图离开text1时，程序检查编号的合法性，若编号合法，则焦点可以离开text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且

焦点不能离开text1文本框（见图）。

合法编号的组成是：前2个字符是大写英文

字母，第3个字符是“-”，后面是数字字符

（至少1个）。下面程序可实现此功能，请

填空。

private sub text1_lostfocus()

dim k%,n%

n=len(   [13]     )

for k=1 to   if (n>3,n,4)

c=mid(text1. text,k,1)

select case k

case 1,2

if c<"a" or c>"z" then

msgbox("第"&k&"个字符必须是大写字母！")

setposition k

exit for

end if

case 3

if c<>"-" then

msgbox("第"&k&"个字符必须是字符"’"-"’")

setposition k

exit for

end if

case else

if c<"0" or c>"9" then

msgbox("第"&k&"个字符必须是数字！")

setposition k

exit for

end if

end select

next k

end sub

private sub setposition(pos as integer)

text1.selstart=pos-1

text.sellength=   [14]    

text1.   [15]    

end sub

2007年9月全国计算机等级考试二级vb参考答案
一、选择题
1-5   dbcaa
6-10  ccaba
11-15 bdcca
16-20 baaca
21-25 dbabc
26-30 bdcdb
31-35 dcdba

二、填空题
1、无歧义性
2、白盒测试
3、顺序
4、acbdfehgp
5、实体集
6、combol1.list(combol1.listindex)
7、pos
8、hscroll1.value
9、cd1.filename
10、ch
11、10
12、x
13、text1.text
14、1
15、setfocus