问题:
[单选] 下列程序的功能是:输出10到100之间的所有回文素数。所谓回文素数是指,如果一个数是素数,则该数反序后形成的数也是素数。例如,13是素数,13反序形成得到数为31,31也是素数,则称13为回文素数。
Private Sub Command1 2_Click( )
Dim k As Integer,m As Integer,n AsInteger
For k=10 T0 100
If prim(k)Then
m=__________
n=0
Do While m>0
N=n*10+Im Mod l0
M=m/10
Loop
If prim(n)Then
MsgBox k&“,”&n
End If
End If
Next k
End Sub
Public Function prim(n As Integer)As Boolean
Dim j As Integer
For j=2 To n/2
If n Mod J=0 Then
prim=__________
Exit Function
End If
Next j
prim=True
Exit Function
End Function
横线处应填写的内容是( )。
A . k Fake
B . k True
C . m False
D . 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。
在窗口中有一个标签Label0和一个命令按钮Commandl,Commandl的事件代码 如下: Frivate Sub Commandl Click()Label0.Left=Label0.Left+100End Sub打开窗口,单击命令按钮,结果是( )。 标签向左加宽 。 标签向右加宽。 标签向左移动 。 标签向右移动 。
下列程序的功能是:输出10到100之间的所有回文素数。所谓回文素数是指,如果一个数是素数,则该数反序后形成的数也是素数。例如,13是素数,13反序形成得到数为31,31也是素数,则称13为回文素数。
Private Sub Command1 2_Click( )
Dim k As Integer,m As Integer,n AsInteger
For k=10 T0 100
If prim(k)Then
m=__________
n=0
Do While m>0
N=n*10+Im Mod l0
M=m/10
Loop
If prim(n)Then
MsgBox k&“,”&n
End If
End If
Next k
End Sub
Public Function prim(n As Integer)As Boolean
Dim j As Integer
For j=2 To n/2
If n Mod J=0 Then
prim=__________
Exit Function
End If
Next j
prim=True
Exit Function
End Function
横线处应填写的内容是( )。
参考答案:
A
● 参考解析
素数是只能被1和它本身整除的数,因此本题第二空填写False。click函数主要有两个功能,一个是返序,另一个是判断是不是回文素数。在for循环中判断k是不是回文素数,rn是代表即将判断的数字,也就是k。