2. 计算机
  3. 下列程序用于判断一个整数是否为质数，试将程序补充完整。 Private Sub Command1_Click() Dim n As Integer n = InputBox("请输入") t = Int(Sqr(n)) i = 2 flag = 0 Whi

下列程序用于判断一个整数是否为质数，试将程序补充完整。 Private Sub Command1_Click() Dim n As Integer n = InputBox("请输入") t = Int(Sqr(n)) i = 2 flag = 0 Whi

admin2009-07-23  37
问题 下列程序用于判断一个整数是否为质数，试将程序补充完整。
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
选项
答案n Mod i=0 , flag=0
解析
转载请注明原文地址:https://jikaoti.com/ti/KVq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)