随机文件使用Put语句写数据,使用【 】语句读数据。
第1题
下面程序是用来打印九九乘法表的,请补充完整。 Dim i As Integer,j As Integer,Strl$ Strl=" " For i=1 To 9 Forj=1 To 9 If【 】Then Strl=Strl + Str$(j)+"X"+Str$(i)+"="+Str$(Val(i * j)) Else Strl=Strl & Chr(13) 【 】 End If Next j Next i Print Str
请帮忙给出正确答案和分析,谢谢!
第2题
下列程序是判断一个整数(>=3)是否为素数,请补充完整。 Dim n As Integer n=InputBox("请输入一个整数(>=3)") k=Int(Sqr(n)) i=2 swit=0 While i<=k And swit=0 If n Mod i=0 Then 【 】 Else 【 】 End If Wend If swit=0 Then Print n;"是一个素数。" Else Print n;"不是一个素数。" End If
请帮忙给出正确答案和分析,谢谢!
第4题
下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所 占比例,但程序不完整,请补充完整。 Sub PR( ) Randomize Dim a(10) For j=1 To 10 a(i)=Int(【 】) If【 】Then k=k+1 Print a(j) Next j Print Print k/10 End Sub
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!