下列程序用于判断一个整数是否为质数，试将程序补充完整。Private Sub Command1_Click()Dim n As Integern = InputBox("请输入")t = Int(Sqr(n))i = 2flag = 0While i ＜= t And flag = 0If ______Thenflag = 1Else: i = i + 1End IfWendIf ______ThenPrint "这是一个质数"ElsePrint "这不是一个质数"End IfEnd Sub
题目
下列程序用于判断一个整数是否为质数，试将程序补充完整。
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
更多“下列程序用于判断一个整数是否为质数,试将程序补充完整。Private Sub Command1_Click()Dim n As I ”相关问题
-
第1题：
【程序说明】 程序功能是判断一个自然数是否为质数。
【程序】
SET TALK OFF
INPUT“请输入一个大于1的自然数：” (1)
K=0 &&K值为0表示所输入的数是质数，为1表示不是质数
J=2
DO WHILE J＜N
IF MOD(N，J) (2)
(3)
LOOP
ELSE
K＝1
EXIT
ENDIF
ENDDO
IF K＝0
? (4) +“是质数”
ELSE
? “NO!”
ENDIF
SET TALK ON
RETURN
(1)
A．ON N
B．TO N
C．GO N
D．INTO N
正确答案：B
解析：INPUT命令格式：INPUT[字符表达式＞]TO内存变量＞。 -
第2题：
编写程序。输入一个正整数判断其是否是质数。要求设计一个函数对正整数n是否是质数进行判断，是质数函数返回1，不是质数返回0。
B解析：INPUT命令格式：INPUT[＜字符表达式＞]TO＜内存变量＞。 -
第3题：
请填空将程序补充完整，实现在数组a中存入随机产生的20个互不相等的整数。 #include ＜stdlib.h＞ #define N 20 int fun（int a[20]) { int i,x,n=0; x=rand（)%20; while（n＜N) { for（i=0;i＜n;i++) if（x==a[i]) ______________ if（i==n) { a[n]=x; n++;} x=rand（)%20; } return 0; }
Min=arr1(i) Min=arr1(i) 解析：题目要求输出数组中的最小值，分析程序可知，本程序求数组最小值的算法是：假设最小值是第一个数组元素，并把它存在Min变量中，然后从数组的第二个元素开始逐个与Min变量对比，如果有比Min更小的数，则赋值给Min，这样对比到数组最后一个元素时，就能找到最小的元素；且它存储在Min变量中，因此最后只要输出Min变量值即可。 -
第4题：
21、以下程序是将输入的一个整数反序打印出来，例如，输入1234， 则输出4321，输入-1234，则输出-4321。请将以下程序补充完整 void printopp（long int n){ int i=0; if（n==0) return; else while（n){ if（_____________) printf（"%ld",n % 10); else printf（"%ld",-n % 10); i++; n=n/10; } }
A．n＜0&&i==0
B．n＜0||i==0
C．n＞0&&i==0
D．n＞0||i==0
B -
第5题：
设n为正整数。试确定下列各程序段中前置以记号@的语句的频度： for（i=1; i＜=n; i++) { for（j=1; j＜=i; j++) { for（k=1; k＜=j; k++) @ x += delta; }
n-1