题目内容
(请给出正确答案)
[主观题]
(11)下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。 Private Sub
Command1_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
提问人:网友nivana999
发布时间:2022-01-06