3x+1猜想：任意输入一大于1的正整数，如果是奇数，则乘以3再加1；如果是偶数，则除以2。得到的结果，再继续按上述规则一直计算下去，必定会得到1。 请编程验证此猜想，要求程序运行后可实现屏幕提示“请任意输入一大于1的正整数：”，当输入一大于1的正整数后，显示每一步计算结果，如果得到1，则结束，并显示“猜想成立”。

在窗体中添加一个命令按钮Command1，并有以下程序：

Functionretnum()

nl=Chr(13)+Chr(10)

msg$="1.运行VB应用程序"+nl+"2.计算器"

msg$=msg$+nl+"请输入数字选择"

retnum=InputBox(msg$,Title,Default)

EndFunction

PrivateSubCommand1_Click()

r=retnum

Ifr=1Then

x=Shell("c:\vbp\vbexam.exe",1)

ElseIfr=2Then

z=Shell("calc.exe",1)

Else

MsgBox"请输入1-2的数"

EndIf

EndSub

程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示( )

A.请输入1-2的数

B.Windows的计算器

C.调用C:\vbp\vbexam.exe程序并运行

D.出错

“角谷猜想”指出，将一个自然数按以下的一个简单规则进行运算：若数为偶数，则除以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)

______

else

a=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。

在窗体上画一个命令按钮，命名为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 Function

B．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 Function

C．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 Function

D．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

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Do While b＞=0

a=Val(InputBox("请输入a的值"))

b=Val(InputBox("请输入b的值"))

c=a+b

Loop

MsgBox c

End Sub

程序运行后，依次输入3,2,1,0,-1,-2，则输出结果是______。

下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入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

一个程序根据输入的年份和月份计算该年中该月的天数，输入参数包括年份（正整数）、月份（用1~12表示）。若用等价类划分测试方法进行测试，则（35）不是一个合适的测试用例（分号后表示测试的输出）。

A.（2013，1，31）

B.（0，1，‘错误’）

C.（0，13，‘错误’）

D.（2001，-1，‘错误’）

在考生文件夹下有一个工程文件sj5．vbp，其窗体上有一个文本框，名称为Text1；有三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“输入”、“计算显示”和“保存”，运行界面如图25-5所示。在给定程序中有一个函数过程isPrimeNum，其功能是判断参数是否为素数，如果是素数，则返回True，否则返回False。

请将程序中有“?”的地方替换为相应的代码，使得在运行时，单击“输入”按钮，弹出“输入”对话框，单击“计算显示”按钮，则找出大于输入参数的最小素数，并显示在Text1中；单击“保存”按钮，则把Text1中的计算结果存入考生文件夹下的out5．txt文件中。

注意：去掉程序中的注释符“‘”，把程序中的“?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。考生不得修改isPrimeNum函数过程和控件的属性，必须把计算结果通过“保存”按钮存入out5．txt文件中，否则无成绩。

（ 6 ）窗体上有一个组合框，其中已输入了若干个项目。程序运行时 ， 单击其中一项 ， 即可把该项与最上面的一项交换 。例如 ： 单击 图 1 中的 “ 重庆 ” ， 则与 “ 北京 ” 交换 ， 得到 图2 的结果。下面是可实现此功能的程序，请填空。

Private Sub Combo1_Click()

Dim temp

temp = Combo1.Text

[6] = Combo1.List(0)

Combo1.List(0) = temp

End Sub

在窗体上画一个命令按钮，命名为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 lnputStreamReader(System.in))；

String s=" "；

try {

s=br.readline()；

}

catch (IOExceptine){

}

__________

while(a! =1)

{

System.out.print(" "+a)；

if(a%2==1)

__________

else

a=a/2；

}

System.out.println(" "+a)；

}

__________{}

}

}

窗体上有Commandl、Command2两个命令按钮。现编写以下程序：

OptionBase 0

Dim a()As Integer，m As Integer

Private Sub Commandl_Click()

m=InputBox(”请输入一个正整数”)

ReDim a(m)

End Sub

Private Sub Command2_Click()

in=InputBox(”请输入一个正整数”)

ReDim a(m)

End Sub

运行程序时，单击Commandl后输入整数10，再单击Command2后输入整数5，则数组a中元索的个数是

A．5

B．6

C．10

D．11

工程中有Form1、Form2两个窗体。Forml窗体外观如图1所示。程序运行时，在Forml中名称为Text1的文本框中输入一个数值(圆的半径)，然后单击命令按钮“计算并显示”(其名称为Commandl)，则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据!”。请填空。

Private Sub Command1_Click()

IfText1．Text=””Then

MsgBox”请输入半径!”

ElseIf Not IsNumerie(【 】)Then

MsgBox“请输入数值数据!”．

Else

r=Val(【 】)

Form2．Show

【 】．Print”圆的面积是”&3．14”r*r

End If

End Sub

在窗体上画一个命令按钮，然后编写如下事件过程：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．2

B．3

C．14

D．15

有以下程序： #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中偶数之和

在窗体上绘制两个标签，名称分别为Lab1和Lab2，标题分别为“请输入一个正整数 N”和“1+2+3+…+N=”；绘制两个文本框，名称分别为Text1和Text2，内容都设为空白；绘制一个命令按钮，名为Cmd1，标题为“计算”。编写适当的程序，使程序运行时，在Text1中输入一个正整数N，单击“计算”按钮，计算出1+2+3+…+1N的和显示在Text2中。

程序运行结果如下图所示。

注意：

程序中不得使用任何变量：文件必须存放在考生文件夹中，窗体文件名为 execise120.frm，工程文件名为execise120.vbp。

（ 6 ）工程中有 Form1 、 Form2 两个窗体。 Form1 窗体外观如图 1 所示。程序运行时，在 Form1 中名称为 Text1 的文本框中输入一个数值 （ 圆的半径 ） ， 然后单击命令按钮 “ 计算并显示 ” （ 其名称为Command1 ） ，则显示 Form2 窗体，且根据输入的圆的半径计算圆的面积，并在 Form2 的窗体上显示出来，如图 2 所示 。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示 “ 请输入数值数据！ ” 请填空。

Private Sub Command1_Click()

If Text1.Text= ”” Then

MsgBox “ 请输入半径！ ”

Else If Not IsNumeric( 【 6 】 ) Then

MsgBox “ 请输入数值数据！ ”

Else

r=val( 【 7 】 )

Form2.show

【 8 】 .Print “ 圆的面积是 ” &3.14*r*r

End If

End Sub

(7）在窗体上画1个名称为Command 1的命令按钮，然后编写如下程序：

Private Sub Command 1 Click()

Dim m As Integer, x As Integer

Dim flag As Boolean

flag=False

n=Val(InputBox("请输入任意1个正整数"））

Do While Not flag

a＝2

flag=【7】

Do While flag And a <= Int(Sqr(n))

If n／a=n＼a Then

flag=False

Else

【8】

End If

Loop

If Not flag Then n=n+l

Loop

Print【9】

End Sub

上述程序的功能是，当在键盘输入任意的1个正整数时，将输出不小于该整数的最小素数。请填空完善程序。