主观题

下列程序是判断一个整数(>=3)是否为素数,请补充完整。 Dim n As Integer n=InputBox("请输入一个整数(>=3)") k=Int(Sqr(n)) i:2 swit=0 While i If n Mod i=0 Then [7] E1se [8] End If Wend If swit=0 Then Print n;"是一个素数。" E1se Print n;"不是一个素

查看答案
该试题由用户812****75提供 查看答案人数:46463 如遇到问题请 联系客服
正确答案
该试题由用户812****75提供 查看答案人数:46464 如遇到问题请联系客服

相关试题

换一换
主观题
下列程序是判断一个整数(>=3)是否为素数,请补充完整。 Dim n As Integer n=InputBox("请输入一个整数(>=3)") k=Int(Sqr(n)) i=2 swit=0 While i 【7】 Else 【8】 End If Wend If swit=0 Then Print n;"是一个素数。" Else Print n;"不是一个素数。" End If
答案
主观题
下列程序是判断一个整数(>=3)是否为素数,请补充完整。 Dim n As Integer n=InputBox("请输入一个整数(>=3)") k=Int(Sqr(n)) i:2 swit=0 While i If n Mod i=0 Then [7] E1se [8] End If Wend If swit=0 Then Print n;"是一个素数。" E1se Print n;"不是一个素
答案
简答题
下列程序要实现的功能是输入一个整数,判断其奇偶性,请将下列程序补充完整: n=__①__("请输入一个整数:") if__②__ print("偶数") else: print("奇数") ①____②____
答案
主观题
编写程序,其中自定义一函数,用来判断一个整数是否为素数,主函数输入一个数,输出是否为素数
答案
判断题
可以用factor()函数来判断一个正整数是否为素数。
答案
单选题
可以用factor()函数来判断一个正整数是否为素数。
A.正确 B.错误
答案
主观题
利用穷举法编写一个算法判断给定的正整数n是否是素数的程序,即判断n是否只能被1和自身整除
答案
单选题
编写一个程序,实现输入一个整数,判断是否能被3整除,最合适的程序结构是()。
A.顺序结构 B.循环结构 C.选择结构 D.递归结构
答案
主观题
以下程序完成的功能是输入一个数n,并判断它是否为素数,是或不是都通过消息对话框(MsgBox)来给出提示。请将程序补充完整。Private Sub Cemmand1_Click() n = InputBox (“请输入一个整数”) k = Int(Sqr(n)) i = 2 Flag = 0 do while i<= k And Flag = 0 if 【6】 = 0 then Flag = 1
答案
主观题
利用穷举法编写一个算法判断给定的正整数n是否是素数,即判断n是否只能被1和自身整除
答案
热门试题
编写一个函数,该函数的功能是判断一个整数是不是素数,在main函数中输入一个整数,调用该函数,判断该数是不是素数,若是则输出“yes”,否则输出“no” 输入10个整数,输出最大值和最小值 2、输入一个整数,判断其是否为素数 3、已知ABCD ×9=DCBA,求ABCD各是什么数字 下列程序执行时,从键盘上依次输入123和234,则程序的输出结果是 【10】 。 Dim a,b As Integer a=InputBox("请输入第一个整数") b=InputBox("请输入第二整数") Print a+b 以下程序的功能是:从键盘任意输入正整数n,并找出大于n的第一个素数。 Private Sub Form_Click() Dim n As Long, j As Long, m As Long Dim flag As Boolean n=InputBox("请输入正整数") Do While Not flag (11) flag=True i=2 Do While i<n And (12) If n 下面程序的作用是用InputBox函数输入一个整数,然后判断能否同时被2,5和7整除,果能则输出该数及平方值。请填空。 Private Sub Command1_Click() Dim numX As Integer numX = Val (InputBox("请输入一个整数")) If 【9】 Then Form1.Print 【10】 End If End Sub 以下程序的作用是生成一个如下图的矩阵,该程序不完整,请补充完改程序。 Private Sub Command1_Click() Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or 【7】 Then A(M,N)=1 Else 【8】 =0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) 如果一个自然数只能被1和自身整除,这样的数称为“素数”。请编程实现判断从键盘输入的一个自然数是否为素数。(2014年高考安徽卷) 下面程序运行时,若输入395,则输出结果是()。(“请输入一个3位整数”) 下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。 Sub PR() Randomize Dim a For j=1 To 10 a(i)=Int(【 】 ) If 【 】Then k=k+1 Print a(j) Next j Print Print k/10 End Sub 下面程序的功能是产生10个小于100(不含100) 的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。 Sub PR() Randomize Dim a(10) For i=1 To 10 a(i) =Int([14] ) If [15] Then k=k+1 Print a(j) Next j Print Print k/10 End Sub 下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。 Sub PR() Randomize Dim a(10) For j=1 To 10 a(i)=Int(【14】 ) If 【15】Then k=k+1 Print a(j) Next j Print Print k/10 End Sub 下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。 SubPR() Randomize Dim a(10) For j=1 To 10 a(i)=Int((14) ) If (15) Then k=k+1 Print a(j) Next j Print Print k/10 Fnd Sub 下列程序的功能是将数组中的奇数相加。给定的程序不完整,请将程序补充完整。Option Base 1 Private Sub form_Click() Dim k As Integer Dim Total As Integer Dim n n = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For k = 1 To UBound(n) If 【13】 Then Tota 在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所示)。程序不完整,请在指定的位置把程序补充完整。注意:不得修改原有程序和控件的属性。程序结束运行之前,必须至少正确运行一次程序,将统计的结果显示 设有一个10个元素的数组,下列程序将该数组的第一个元素与第十个元素交换,第二个元素与第九个元素交换……,第五个元素与第六个元素交换,请补充完该程序。 Private Sub Commnd1_Click() Dim a(1 To 10)As Integer Dim i As Integer Dim p As Integer Dim t As Integer Dim j As Integer For 编写程序:由键盘输入一个整数,判断其能否既被3整除又被5整除。 下面是程序是计算给定函数的值,自变量x,y的值用InputBox函数输入,函数如下: 程序不完整,请填空,将程序的补充完整 Option Explicit Dim x As Single Dim y As Single Dim z As Single Private Sub Command1_Click() x=Val(InputBox("x=") ) y=Val(InputBox("y=") 写一个函数判断一个正整数是否为奇数,在主函数中用scanf输入正整数m,调用函数后,根据函数返回值判断这个正整数是否为奇数,若是则输出“yes”,否则输出“no” 下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。 Sub PR() Randomize Dim a(10) For j=1 To 10a(i)=Int([14] )If [15] Then k=k+1Print a(j) Next J Print Print k/10 End Suh 一个完整数控加工程序由_、_和_三部分组成
购买搜题卡 会员须知 | 联系客服
会员须知 | 联系客服
关注公众号,回复验证码
享30次免费查看答案
微信扫码关注 立即领取
恭喜获得奖励,快去免费查看答案吧~
去查看答案
全站题库适用,可用于E考试网网站及系列App

    只用于搜题看答案,不支持试卷、题库练习 ,下载APP还可体验拍照搜题和语音搜索

    支付方式

     

     

     
    首次登录享
    免费查看答案20
    微信扫码登录 账号登录 短信登录
    使用微信扫一扫登录
    登录成功
    首次登录已为您完成账号注册,
    可在【个人中心】修改密码或在登录时选择忘记密码
    账号登录默认密码:手机号后六位