填空题

执行下面的程序段，x的值为【 】。　　 Private Sub Command1_Click() 　　　For i=1 To 9 　　　　　a=a + i 　　　Next i 　　　x=Val(i) 　　　MsgBox x 　　End Sub

【参考答案】

J
<上一题 目录 下一题>
热门 试题

填空题
下列程序的功能是：当x100时，没有意义。请填空。Private Sub Command1_Click()Dim x As Singlex=InputBox( 请输入x的值! ) 【 】 Case Is<50y=0．8 * xCase 50 To 100y=0．7 * x【 】 Print 输入的数据出界! End SelectPrint x，yEnd Sub
填空题
某人编写如下函数来判断a是否为素数,若是,则函数返回True；否则返回False。 Function prime(a As Integer)As Boolean Dim k As Integer,isprime As BooleanIf a<2 Thenisprime=FalseE1seisprime=Truek=2 Do While k<a／2 And isprimeIf a Mod k=0 Then isprime=FalseE1sek=k +1End IfLoopEnd Ifprime=isprimeEnd Function在测试时发现有1个非素数也被判断为素数,这个错判的数是【 】
相关试题