[填空题] 下列程序用于判断一个整数是否为质数,试将程序补充完整。 Private Sub Command1_Click() Dim n As Integer n = InputBox(&qu
26 查阅
[填空题] 下列程序用于判断一个整数是否为质数,试将程序补充完整。 Private Sub Command1_Click() Dim n As Integer n = InputBox("请输入") t = Int(Sqr(n)) i = 2 flag = 0 While i <= t And flag = 0 If ______ Then flag = 1 Else: i = i + 1 End If Wend If ______ Then Print "这是一个质数" Else Print "这不是一个质数" End If End Sub
参考答案: