（29）在窗体上有1个名称为commondialog1的通用对话框和1个名称为command1的命令按钮，以及其他一些控件。要求在程序运行时，单击command1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。以下是command1_click事件过程的两种算法
　　 算法1：
　　 private sub command1_click()
　　 commondialog1.showopen
　　 open commondialog1.filename for input as#1
　　end sub

　　算法2：
　　private sub command1_click()
　　 commondialog1.showopen
　　 ifcommondialog1.filename<>””then
　　 open commondialog1.filename for input as#1
　　 end if
　　end sub
　　下面关于这两种算法的叙述中正确的是(b)
　　a) 显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会
　　b) 显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会
　　c) 两种算法的执行结果完全一样
　　d) 算法1允许输入的文件名中含有空格，而算法2不允许

　　（30）窗体上有1个名称为list的列表框，其中已经输入了若干个项目（如图所示）：还有2个文本框，名称分别为text1、text2, 1个名称为　　command1的命令按钮，并有以下程序
　　 private sub command1_click()
　　 dim str as string, s as string, k as integer
　　 s=text1
　　 str=””
　　 for k=list1.listcount-1 to 0 step-1
　　 if instr(list.list(k),s)>0 then
　　 str=str&list.list(k)&” ”
　　 end if
　　 next k
　　 if str=””then
　　 text2=”没有匹配的项目”
　　 else
　　 text2=str
　　 end if
　　end sub

　　程序运行时，在text1中输入“京”，单击命令按钮，则在text2中显示的内容是(c)
　　a) 京
　　b) 北京 南京
　　c) 南京
　　d) 没有匹配的项目

　　（31）在窗体上画1一个名称为command1的命令按钮，并编写以下程序
　　private sub command1_click()
　　 print fun(“abcdefg”)
　　end sub
　　function fun(st as string) as string
　　 stlen=len(st)
　　 temp=””
　　 for k
　　 fun=temp
　　end function
　　程序运行时，单击命令按钮，则窗体上显示的是(b)
　　a)abcdefg
　　b)agbfce
　　c)gfedcba
　　d)agbfced

　　(32)在窗体上先后画2个图片框，名称分别为picture1和banana,banana中添加了香蕉图片（见图1），且将banana.dragmode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到picture1中（见图2）。能实现此功能的事件过程是(c)
　　a) priate sub form_dragdrop(source as control,x as single,y as single banana.move picture1.left+x,picture1.top+y)
　　 end sub
　　b)private sub banana _dragdrop(source as control,x as single,y as single )
　　 source.move picture1.left+x.picture1.top+y
　　 end sub
　　c) b)private sub picture1_dragdrop(source as control,x as single,y as single )
　　 source.move picture1.left+x.picture1.top+y
　　 end sub
　　d) b)private sub picture1_dragdrop(source as control,x as single,y as single )
　　 banana.move banana.left+x, banana.top+y
　　 end sub

　　(33)在窗体上画1个名称为command1的命令按钮，然后编写如下事件过程
　　 option base 1
　　 pribate sub command1_click()
　　 dim a(5.5) as integer
　　 for i=1 to 5
　　 a(i,j)*5\10
　　 next j
　　 next i
　　 s=0
　　 for i=1 to 5
　　 s=s+a(i,i)
　　 next i
　　 print s
　　 end sub
　　程序运行后，单击命令按钮，输出结果是(a)
　　a) 15
　　b)13
　　c)11
　　d)9

　　(34)在窗体上从左到右有text1、text2两个文本框（见图），要求程序运行时，在text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0~100中的1个数，周围光标移到text2中；否则光标不动，并弹出对话框显示“分数错”，下面程序中正确的是(d)
　　a)private sub text1__keypress(keyascii as integer)
　　 if keyascii=13 then ‘回车符的acsii码是13
　　 a=val(text1)
　　 if a>=0 or a<=100 then
　　 text2.setfocus
　　else
　　 text1. setfocus ; msgbox(“分数错”)
　　end if
　　end if
　　end sub
　　b) private sub text1__keypress(keyascii as integer)
　　 if keyascii=13 then ‘回车符的acsii码是13
　　 a=val(text1)
　　 if a>=0 and a<=100 then
　　 text1.setfocus
　　else
　　 text2. setfocus ; msgbox(“分数错”)
　　end if
　　end if
　　end sub
　　c) private sub text1__keypress(keyascii as integer)
　　 if keyascii=13 then ‘回车符的acsii码是13
　　a=val(text1)
　　if a<0 and a>100 then
　　 text2.setfocus
　　else
　　 text1. setfocus ; msgbox(“分数错”)
　　end if
　　end if
　　end sub
　　d) private sub text1__keypress(keyascii as integer)
　　 if keyascii=13 then ‘回车符的acsii码是13
　　 a=val(text1)
　　 if a>=0 and a<=100 then
　　 text2.setfocus
　　else
　　 text1. setfocus ; msgbox(“分数错”)
　　end if
　　end if
　　end sub

　　(35)在窗体上画2个命令按钮，名称分别为command1、command2，并编写如下程序
　　 const n=5,m=4
　　 dim a(m,n)
　　 private sub command1_click()
　　 k=1
　　 for i=1 to m
　　 for j=1 to n
　　 a(i,j)=k
　　 k=k+1
　　 next j
　　 next i

　　private sub command2_click()
　　 summ=0
　　 for i=1 to m
　　 for j=1 to n
　　 if i=1 or i=m then
　　 summ=summ+a(i,j)
　　 else
　　 if j=i or j=n then
　　 summ=summ+a(i,j)
　　 end if
　　 end if
　　 next j
　　next i
　　print summ
　　end sub
　　过程command1_click()的作用是二维数组a 中存放1个 m行n列的矩阵；过程command2_click()的作用是(a)
　　a) 计算矩阵外围一圈元素的累加和
　　b) 计算矩阵除外一圈以外的所有元素的累加和
　　c) 计算矩阵第1列和最后一列元素的累加和
　　d) 计算矩阵第1行和最后一行元素的累加和