3x+1猜想：任意输入一大于1的正整数，如果是奇数，则乘以3再加1；如果是偶数，则除以2。得到的结果，再继续按上述规则一直计算下去，必定会得到1。 请编程验证此猜想，要求程序运行后可实现屏幕提示“请任意输入一大于1的正整数：”，当输入一大于1的正整数后，显示每一步计算结果，如果得到1，则结束，并显示“猜想成立”。
3x+1猜想：任意输入一大于1的正整数，如果是奇数，则乘以3再加1；如果是偶数，则除以2。得到的结果，再继续按上述规则一直计算下去，必定会得到1。 请编程验证此猜想，要求程序运行后可实现屏幕提示“请任意输入一大于1的正整数：”，当输入一大于1的正整数后，显示每一步计算结果，如果得到1，则结束，并显示“猜想成立”。
参考答案和解析
B
相关考题：
角谷静夫是日本的一位数学家,他所提出的角谷猜想是这样的:任意给出一个自然数N,如果它是偶数,则将它除以2(变成N／2);如果它是奇数,则将它乘以3再加上1(变成3N＋1),然后重复上述过程。最后都无一例外地得到自然数“1”(确切的说是进入“1→4→2→1”的循环)。这一猜想的获得过程主要采用了() A、演绎推理B、论证推理C、归纳推理D、类比推理
（ 9 ） 下面的程序执行时 ， 可以从键盘输入一个正整数 ， 然后把该数的每位数字按逆序输出 。 例如 ： 输入 7685 ，则输出 5867 ，输入 1000 ，则输出 0001 。请填空。Private Sub Command1_Click()Dim x As Integerx=InputBox( “ 请输入一个正整数 ” )While x_ _[11] ___Print x Mod 10;x=x\10WendPrint__ [12] __End Sub
（21）窗体上有 Command1、Command2 两个命令按钮。现编写以下程序：Option Base 0Dim a( ) As Integer, m As IntegerPrivate Sub Command1_Click( )m=InputBox("请输入一个正整数")ReDim a(m)End SubPrivate Sub Command2_Click( )m=InputBox("请输入一个正整数")ReDim a(m)End Sub运行程序时，单击 Command1 后输入整数 10，再单击 Command2 后输入整数 5，则数组a 中元素的个数是（ ）。A）5B）6C）10D）11
在窗体中添加一个命令按钮Command1，并有以下程序：Functionretnum()nl=Chr(13)+Chr(10)msg$=1.运行VB应用程序+nl+2.计算器msg$=msg$+nl+请输入数字选择retnum=InputBox(msg$,Title,Default)EndFunctionPrivateSubCommand1_Click()r=retnumIfr=1Thenx=Shell(c:\vbp\vbexam.exe,1)ElseIfr=2Thenz=Shell(calc.exe,1)ElseMsgBox请输入1-2的数EndIfEndSub程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示( )A.请输入1-2的数B.Windows的计算器C.调用C:\vbp\vbexam.exe程序并运行D.出错
在窗体上画一个命令按钮，命名为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则F1返回1，否则返回0。能够正确实现上述功能的代码是 。A．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End FunctionC．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End FunctionD．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
“角谷猜想”指出，将一个自然数按以下的一个简单规则进行运算：若数为偶数，则除以2：若为奇数，则乘以3加1。将得到的数按该规则重复运算，最终可得1。请在下面程序的每条横线处填写一个语句，使程序的功能完整。(如：输入34，则输出结果为34 17 52 26 13 40 20 10 5 16 8 4 2 1)注意：请勿改动main()主方法和其他已有的语句内容，仅在横线处填入适当的语句。源程序文件清单如下：import java.io.*；class JiaoGu{public static void main(String args[]){System.out.print("\n请输入一个数")；try{BufferedReader br=new BufferedReader(new InputStreamReader(System.in))；Stirng s=br.readLine()；______while(a!=1){System.out.print(" "+a)；if(a%2==1)______elsea=a/2；}System.out.println(" "+a)；}______{ }}}
“角谷猜想”指出将一个自然数按以下的规则进行运算：若数为偶数，则除以2；若为奇数乘3加1。将得到的数按该规则重复运算，最终可得1。请在下面程序得每条横线处填写一和语句，使程序的功能完整。(如：输入34，则输出结果为34 17 52 26 13 40 20 10 5 16 8 4 2 1)注意：请勿改动main()主方法和其他已有的语句内容，仅在横线处填人适当的语句。import java.io.*；class JiaoGu{public static void main(String args[]){System.out.print("\n请输入一个数")；try{BufferedReader br=new BufferedReader(new lnputStreamReader(System.in))；String s=" "；try {s=br.readline()；}catch (IOExceptine){}__________while(a! =1){System.out.print(" "+a)；if(a%2==1)__________elsea=a/2；}System.out.println(" "+a)；}__________{}}}
在考生文件夹内(C:\ylc)有一个工程文件ylc.vbp。在窗体上有一个文本框，名字为Text1，以及两个命令按钮，名字分别为Command1和Command2，标题分别为Search和Save。还有一个函数过程Search(a)，在程序中可以直接调用该函数，其功能为判断整型参数number是否为质数。如果是则返回True，否则返回False。编写一个事件过程，实现以下功能：运行时，在文本框内输入一个正整数。单击Search按钮后，找到小于该正整数的第一个素数，显示在 Text1中；单击“Save”，则把Text1中的计算结果存入考生文件夹下的out.txt文件中。程序运行后如图27所示。要求实现题目给出的功能，并将文件保存在考生文件夹下，工程文件名为 ylc.vbp。
窗体上有Commandl、Command2两个命令按钮。现编写以下程序：OptionBase 0Dim a()As Integer，m As IntegerPrivate Sub Commandl_Click()m=InputBox(”请输入一个正整数”)ReDim a(m)End SubPrivate Sub Command2_Click()in=InputBox(”请输入一个正整数”)ReDim a(m)End Sub运行程序时，单击Commandl后输入整数10，再单击Command2后输入整数5，则数组a中元索的个数是A．5B．6C．10D．11
在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。 能够正确实现上述功能的代码是A．Privme Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End FunctionC．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End FunctionD．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1 (Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
工程中有Form1、Form2两个窗体。Forml窗体外观如图1所示。程序运行时，在Forml中名称为Text1的文本框中输入一个数值(圆的半径)，然后单击命令按钮“计算并显示”(其名称为Commandl)，则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据!”。请填空。Private Sub Command1_Click()IfText1．Text=””ThenMsgBox”请输入半径!”ElseIf Not IsNumerie(【 】)ThenMsgBox“请输入数值数据!”．Elser=Val(【 】)Form2．Show【 】．Print”圆的面积是”3．14”r*rEnd IfEnd Sub
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Do While b＞=0a=Val(InputBox("请输入a的值"))b=Val(InputBox("请输入b的值"))c=a+bLoopMsgBox cEnd Sub程序运行后，依次输入3,2,1,0,-1,-2，则输出结果是______。
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() x=0 Do Until x=-1 a=InputBox(“请输入A的值”) a=Val(a)b=InputBox(“请输入B的值”) b=Val(b)x=InputBox(“请输入x的值”) x=Val(x) a=a+ b+ x Loop Print aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 ______。A．2B．3C．14D．15
下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5 8 6 7；输人1000，则输出0 0 0 1。请填空。 Private Sub Command1_Click Dim x As Integer X=InputBox(“请输入一个正整数”) While x 【11】 Print x Mod 10； x=x＼10 Wend Print 【12】 End Sub
有以下程序:includemain(){int i,s=0; for(i=1;i 有以下程序： #include ＜stdio.h＞ main() { int i,s=0; for(i=1;i＜10;i+ =2) s+ =i+1; printf("%d\n",s); } 程序执行后的输出结果是( )。A．正整数1～9的累加和B．正整数1～10的累加和C．正整数1～9中奇数之和D．正整数1～10中偶数之和
一个程序根据输入的年份和月份计算该年中该月的天数，输入参数包括年份（正整数）、月份（用1~12表示）。若用等价类划分测试方法进行测试，则（35）不是一个合适的测试用例（分号后表示测试的输出）。A.（2013，1，31）B.（0，1，‘错误’）C.（0，13，‘错误’）D.（2001，-1，‘错误’）
在窗体上绘制两个标签，名称分别为Lab1和Lab2，标题分别为“请输入一个正整数 N”和“1+2+3+…+N=”；绘制两个文本框，名称分别为Text1和Text2，内容都设为空白；绘制一个命令按钮，名为Cmd1，标题为“计算”。编写适当的程序，使程序运行时，在Text1中输入一个正整数N，单击“计算”按钮，计算出1+2+3+…+1N的和显示在Text2中。程序运行结果如下图所示。注意：程序中不得使用任何变量：文件必须存放在考生文件夹中，窗体文件名为 execise120.frm，工程文件名为execise120.vbp。
在考生文件夹下有一个工程文件sj5．vbp，其窗体上有一个文本框，名称为Text1；有三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“输入”、“计算显示”和“保存”，运行界面如图25-5所示。在给定程序中有一个函数过程isPrimeNum，其功能是判断参数是否为素数，如果是素数，则返回True，否则返回False。请将程序中有“?”的地方替换为相应的代码，使得在运行时，单击“输入”按钮，弹出“输入”对话框，单击“计算显示”按钮，则找出大于输入参数的最小素数，并显示在Text1中；单击“保存”按钮，则把Text1中的计算结果存入考生文件夹下的out5．txt文件中。注意：去掉程序中的注释符“‘”，把程序中的“?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。考生不得修改isPrimeNum函数过程和控件的属性，必须把计算结果通过“保存”按钮存入out5．txt文件中，否则无成绩。
（ 6 ）工程中有 Form1 、 Form2 两个窗体。 Form1 窗体外观如图 1 所示。程序运行时，在 Form1 中名称为 Text1 的文本框中输入一个数值 （ 圆的半径 ） ， 然后单击命令按钮 “ 计算并显示 ” （ 其名称为Command1 ） ，则显示 Form2 窗体，且根据输入的圆的半径计算圆的面积，并在 Form2 的窗体上显示出来，如图 2 所示 。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示 “ 请输入数值数据！ ” 请填空。Private Sub Command1_Click()If Text1.Text= ”” ThenMsgBox “ 请输入半径！ ”Else If Not IsNumeric( 【 6 】 ) ThenMsgBox “ 请输入数值数据！ ”Elser=val( 【 7 】 )Form2.show【 8 】 .Print “ 圆的面积是 ” 3.14*r*rEnd IfEnd Sub
（ 6 ）窗体上有一个组合框，其中已输入了若干个项目。程序运行时 ， 单击其中一项 ， 即可把该项与最上面的一项交换 。例如 ： 单击 图 1 中的 “ 重庆 ” ， 则与 “ 北京 ” 交换 ， 得到 图2 的结果。下面是可实现此功能的程序，请填空。Private Sub Combo1_Click()Dim temptemp = Combo1.Text[6] = Combo1.List(0)Combo1.List(0) = tempEnd Sub
(7）在窗体上画1个名称为Command 1的命令按钮，然后编写如下程序：Private Sub Command 1 Click()Dim m As Integer, x As IntegerDim flag As Booleanflag=Falsen=Val(InputBox("请输入任意1个正整数"））Do While Not flaga＝2flag=【7】Do While flag And a = Int(Sqr(n))If n／a=n＼a Thenflag=FalseElse【8】End IfLoopIf Not flag Then n=n+lLoopPrint【9】End Sub上述程序的功能是，当在键盘输入任意的1个正整数时，将输出不小于该整数的最小素数。请填空完善程序。
在Excel中，若在A1单元格中输入=SUM(MAX(15,8),MIN(8,3))，按Enter键后，则A1单元格显示的内容为(请作答此空)；若在A2单元格中输入"=3=6"(输入不包含引号)，则A2单元格显示的内容为( )。A.23B.16C.18D.11
在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。对下面程序说法正确的是（） Private Sub Command1_Click（） x=InputBox（"请输入整数"）a=F1（Val（x）） Print a End Sub Function F1（ByRef b As Integer） If b Mod 2=0 Then F1=0 Else F1=1 End If End FunctionA、在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0B、在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回0，否则返回1C、在F1中判断所输入的整数是否是偶数，如果是偶数，过程F1返回1，否则返回0D、在F1中判断所输入的整数是否是偶数，如果是偶数，过程F1返回0，否则返回1
单选题将一个正整数n表示成一系列正整数之和，n=n1+n2+…+nk（其中，n1≥n2≥…≥nk≥1，k≥1）正整数n的一个这种表示称为正整数n的一个划分。正整数n的不同的划分个数总和称为正整数n的划分数，记作p（n）；另外，在正整数n的所有不同划分中，将最大加数n1不大于m的划分个数记作q（n，m）。则当n=10时，p（n）=（）。Aq（8，8）B1+q（9，9）C2+q（10，8）DABC都正确
单选题任意取一个大于50的自然数，如果它是偶数，就除以2；如果它是奇数，就将它乘3之后再加1。这样反复运算，最终结果是多少？（）A1B2C3