题目内容
（请给出正确答案）
[主观题]
下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。 Private Sub Com
mand1_click() Text1.Text="" For n=3 to 100 k=Int(Sqr(n)) i=2 Flag=0 Do While i＜=______And Flag=0 If n Mod i=0 Then Flag=1 Else i=i+1 End If Loop If______Then Text1.Text=Text1.Text&Str(n)&Chr(13)&Chr(10) End If Next n End Sub
答案
查看答案
.jpg){kind=spacer}
.jpg){kind=spacer}
代码如下，请填空。 Private Sub HScroll1_Change() Timer1．Interval=【 】 End Sub Private Sub Timer1_【 】() Text1．Text=Time End Sub
