《算法综合练习一》由会员分享，可在线阅读，更多相关《算法综合练习一（2页珍藏版）》请在金锄头文库上搜索。
1、算法与程序设计综合练习一一、综合题1在VB中，类Shape的Shape属性值与图形形状的对应关系如下： Shape属性值O12345图形的形状矩形正方形椭圆圆圆角矩形圆角正方形下列VB程序的设计界面如图所示，程序运行时，在文本框Text1中一个05之间的整数，单击“显示”按钮Command1后，对象Shape1呈现与该数对应的形状，如果输入数据不在此范围，则标签Labe12显示“请输入05之间的整数”，假如输入“0”，则对象Shape1呈现矩形。请在划线处填入合适代码。Private Sub Command1_Click()Dim x As IntegerLabel2.Caption=“”x=
2、Val(Text1.Text)If x=0 And x=5 ThenShape1.Shape= (1) Else (2) =“请重新输入05之间的整数”End If End Sub2.下列VB程序的功能是：统计区间a,b内个位数字是8，且能被9整除的整数个数。 用VB编写的程序运行界面如下图所示，在文本框Text1中输入a的值，在文本框Text2中输入b的值，单击“统计”按钮，在列表框List1中显示满足条件的数字，在文本框Text3中显示满足条件的数字总数。按此要求编写的程序如下，但加框处代码有错，请改正。_ _Private Sub Command1_Click() Dim a As In
3、teger, b As Integer, i As Integer a = Val(Text1.Text) b = Val(Text2.Text) p=0 For i = a To b If i Mod 9 = 0 Then List1.AddItem i p = i+ 1 End If Next i Text3.Text = Str(p)End Sub3角谷猜想。对任意一个大于1的正整数n，进行如下运算：若n是奇数时，n的值替换为3n+1，若n是偶数时，n的值替换为n/2；重复以上运算，n最终变为1。下面程序用于验证角谷猜想，程序运行界面如图所示。在文本框Text1中输入一个正整数，单击“验
4、证”按钮Command1，在列表框List1中输出每一步的运算过程。解决此问题的算法流程图如图所示：程序代码如下：Private Sub Command1_Click() Dim n As Single, i As Integer n = Val(Text1.Text) List1.Clear 清除列表框List1中的内容 If Int(n) n Or n = 1 Then List1.AddItem 请输入大于1的正整数 Else i = 0 Do While If n Mod 2 = 0 Then n = Else n = n * 3 + 1 End If i= i+1 List1.AddItem Str(i)+ +Str(n) Loop End IfEnd Sub（1）解决此问题的算法是 。（填：解析算法/对分查找）（2）在程序和划线处，填入适当的语句或表达式，把程序补充完整：程序中划线处应填入_。程序中划线处应填入_。
