问题：
[单选] 下列程序的功能是：输出10到100之间的所有回文素数。所谓回文素数是指，如果一个数是素数，则该数反序后形成的数也是素数。例如，13是素数，13反序形成得到数为31，31也是素数，则称13为回文素数。 Private Sub Command1 2_Click（ ） Dim k As Integer，m As Integer，n AsIntegerFor k=10 T0 100If prim(k)Thenm=__________n=0Do While m>0N=n*10+Im Mod l0M=m/10LoopIf prim(n)ThenMsgBox k&“，”&nEnd IfEnd IfNext kEnd SubPublic Function prim(n As Integer)As BooleanDim j As IntegerFor j=2 To n／2If n Mod J=0 Thenprim=__________Exit FunctionEnd IfNext jprim=TrueExit FunctionEnd Function横线处应填写的内容是（ ）。
k Fake。k True。m False。n True。
问题：
[单选] 数据库中有“平时成绩表”，包括“学号”、“姓名”、“平时作业”、“小测验”、“期中考试”、“平时成绩”和“能否考试”等字段，其中，平时成绩=平时作业×50%+小测验×10%+期中成绩×40%。如果学生平时成绩大于等于60分，则可以参加期末考试(“能否考试”字段为真)，否则学生不能参加期末考试。 下面的程序按照上述要求计算每名学生的平时成绩并确定是否能够参加期末考试，请在空白处填入适当的语句，使程序可以完成所需要的功能。 PrivateSub Command0_Click（ ）Dim dbAs DA0．DatabaseDim rsAs DA0．RecordsetDim pszyAs DA0．Field，xcy As DA0．Field，qzksAs DA0．FieldDim psAs DA0．Field，ks As DA0．FieldSet db=CurrentDb（ ）Setrs=db．Openrecordset(”平时成绩表”)Setpszy=rs．Fields(”平时作业”)Setxcy=rs．Fields(”小测验”)Setqzks=rs．Fields(”期中考试”)Setps=rs．Fields(”平时成绩”)Setks=rs．Fields(”能否考试”)Do WhileNot rs．EoFrs．Editps=__________Ifps>=60 Thenks=TrueElseks=FalseEnd Ifrs．__________rs．MoveNextLooprs．Closedb．CloseSetrs=NothingSetdb=NothingEnd Sub横线处应填写的内容是（ ）。
0．5*gzks+0．1*xcy+0．4* pszy CLOSE。0．5*gzks+0．1*xcy+0．4*pszyUPDATE。0．5*pszy+0．1*xcy4+0．4*gzks CLOSE。0．5*pszy4+0．1*xcy4+0．4*gzksUPDATE。
问题：
[单选] 在下列模式中，能够给出数据库物理存储结构与物理存取方法的是（ ）。
内模式 。外模式。概念模式 。逻辑模式 。
问题：
[单选] 在黑盒测试方法中，设计测试用例的主要根据是（ ）。
程序内部逻辑 。程序流程图。程序数据结构 。程序外部功能 。
问题：
[单选] 在窗体中为了更新数据表中的字段，要选择相关的控件，正确的控件选择是（ ）。
只能选择绑定型控件 。只能选择计算型控件。可以选择绑定型或计算型控件 。可以选择绑定型、非绑定型或计算型控件 。
问题：
[单选] 用来测试当前读写位置是否达到文件末尾的函数是（ ）。
EOF 。FileLen。Len。LOF。
问题：
[单选] 运行下列过程，当输入一组数据：l0，20，50，80，40，30，90，100，60，70，输出的结果应该是（ ）。Sub pl()Dim i，j，arr(11)AsIntegerx=1Whilek<=10arr(k)=VaI(InputBox(”请输入第”&k&”个数：”，”输入窗口”))k=k+1WendFor i=1T09J=i+1Ifarr(i)>arr(j)Thentemp=arr(i)arr(i)=art(j)arr(j)=tempEndIfDebu9．Printarr(i)NextiEnd Sub
无序数列。升序数列。降序数列。原输入数列 。
问题：
[单选] 利用AD0访问数据率的步骤是： ①定义和创建ADO对象实例变量②设置连接参数并打开连接 ③设置命令参数并命令 ④设置查询参数并打开记录集⑤操作记录集 ⑥关闭、回收有关对象 这些步骤的执行顺序应该是（ ）。
①④③②⑤⑥。①③④②⑤⑥。①③④⑤②⑥ 。①②③④⑤⑥。
问题：
[单选] 下列程序的功能是：输入l0个整数。‘Private sub Command2_Click()Dim i，j，k，temp，arr(11)As IntegerDimresult As StringFor k=1T0 10arr(k)=Val(InputBox(“请输入第”&k&”个数：”，”数据输入窗口”))Next ki=1 J=10DoTemp=arr(i)arr(i)=arr(j)arr(j)=tempi=i+1j=__________LoopWhileresule=””For k=1 To 10result=result&arr(k)&Chr(13)NextkMsgBoxresultEnd Sub横线处应填写的内容是（ ）。
J-i i<j。j+1 i<j。j+1 i>j。J-1 i>j。
问题：
[单选] 有如下事件程序，运行该程序后输出结果是（ ）。 PrivateSub Command33_click()Dim x AsInteger，Y AsIntegerx=1：y=0Do Untily<=25y=y+x*xx=x+1LoopMsgBox”x=＆x＆”，y="&YEnd Sub
x=1，y=0。x=4，y=25。x=5，y=30。输出其他结果 。
