算法与程序设计综合练习

1. 在求解在求解“一元二次方程实数根一元二次方程实数根”的算法中，如果方程不存在的算法中，如果方程不存在实数解，也要求输出结果实数解，也要求输出结果“无实数根无实数根”。此要求主要体现了。此要求主要体现了算法特征中的算法特征中的 ()A有穷性有穷性 B有输出有输出C确定性确定性 D唯一性唯一性B2. 在在Visual Basic中，用变量存储中，用变量存储560位学生的身高数据位学生的身高数据(如：如：1.76)，下列最合适的变量说明是，下列最合适的变量说明是()A将将560个变量说明为整数型个变量说明为整数型B将将560个变量说明为单精度实数型个变量说明为单精度实数型C将一个元素个数为将一个元素个数为560的一维数组说明为整数型的一维数组说明为整数型D将一个元素个数为将一个元素个数为560的一维数组说明为单精度实数型的一维数组说明为单精度实数型D3计算圆锥体体积的算法如下：计算圆锥体体积的算法如下：输入底面半径输入底面半径r、高、高h pi3.1416计算底面积计算底面积spir2计算体积计算体积vsh/3输出体积输出体积v上述算法属于上述算法属于 ()A枚举算法枚举算法 B解析算法解析算法C排序算法排序算法 D查找算法查找算法B4下列下列Visual Basic表达式的值等于表达式的值等于127的是的是 ()AVal(“123 ”) 4 BLen(“123 ”) 4CSqr(123) 4 DStr(“123 ”) “4 ”A5. 在在Visual Basic代码编辑窗口中，输入了代码编辑窗口中，输入了“Text1. ”后出现了如图所示的信息：后出现了如图所示的信息：其中的其中的“Text ”是是Text1的的 ()A属性名属性名 B事件名事件名C对象名对象名 D方法方法A6万有引力的计算步骤有：万有引力的计算步骤有：计算万有引力计算万有引力FG输入两物体的质量输入两物体的质量m1、m2输出结果输出结果FG6.671011输入两物体之间的距离输入两物体之间的距离r下列选项中，步骤顺序正确的是下列选项中，步骤顺序正确的是()A BC DD221rmm7.某某Visual Basic程序的一个事件过程如下：程序的一个事件过程如下：Private Sub Command1_Click()Dim x As SingleDim y As Singlex 10y Abc(x) Label1.Caption Str(y)End Sub运行程序，单击命令按钮运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示。后弹出如图所示的出错信息提示。引起该错误的语句是引起该错误的语句是()ADim y As SingleBx 10Cy Abc(x)DLabel1.Caption Str(y)C则流程图中空白处理框和处应填入的是则流程图中空白处理框和处应填入的是()Ay x2 1x 2x 1 By x2 1y 2x 1Cy 2x 1y x2 1 Dx x2 1y 2x 18某算法的自然语言描述与流程图表示分别如下：某算法的自然语言描述与流程图表示分别如下：B9. 在在Visual Basic中，要将字符串变量中，要将字符串变量a和和b的值连接并将结果的值连接并将结果在文本框在文本框Text1中输出，下列代码合适的是中输出，下列代码合适的是()AStr(a b) Text1.Text BText.Text1 a bCa b Text1.Text DText1.Text a bD10. 下列下列Visual Basic程序段运行后，变量程序段运行后，变量s的值等于的值等于55的是的是()s 0 : 0 : i i 1 1Do While i 1010s s s i ii i i 1 1Loop s 0 : 0 : i i 1 1Do While i 1010i i i 1 1s s s i iLoop s 0 0For i 1 To 1 To 10 10 s i i Next i s 0 0For i 1 To 1 To 10 10 i i i s sNext iABCDA11. 某旅游景点规定，身高在某旅游景点规定，身高在1.2米以下的儿童免票，身高在米以下的儿童免票，身高在1.2米米1.5米的儿童购买半价票，身高超过米的儿童购买半价票，身高超过1.5米的购全米的购全价票。下图所示算法用于根据身高判断购票情况：价票。下图所示算法用于根据身高判断购票情况：用于用于输出输出“购全价票购全价票”的图框编号是的图框编号是 ()A BC DD12. 在在Visual Basic代码编辑窗口中，将窗体代码编辑窗口中，将窗体Form1的的Caption属性值设置为属性值设置为“时钟时钟”，正确的代码是，正确的代码是()AForm1.Caption “时钟时钟” BForm1.Caption(“时钟时钟”)CCaption(时钟时钟) DForm1.Caption “时钟时钟”D13某书店在某书店在5所学校流动售书量所学校流动售书量(单位：本单位：本)分别是分别是88、110、48、64、35。采用冒泡排序对其进行排序，若完成第一遍。采用冒泡排序对其进行排序，若完成第一遍时的结果是：时的结果是：35、88、110、48、64，则完成第二遍时的，则完成第二遍时的结果是结果是()A35、88、110、48、64 B35、48、88、64、110C35、48、88、110、64 D35、48、64、88、110C14. 运行如下运行如下Visual Basic程序，单击命令按钮程序，单击命令按钮Command1，出现如图所，出现如图所示的出错信息。发示的出错信息。发生生“下下标越标越界界”错错误时所执行的语句是误时所执行的语句是 ()Private Sub Command1_Click()Dim a(0 To 5) As IntegerDim i As Integer a(0) 1 For i 1 To 5 a(i) 2 * a(i 1) 1Next iText1.Text Str(a(6)End SubA B C DD15. 有如下有如下Visual Basic程序段：程序段：Dim a(1 To 4) As Integera(1) 1For i 2 To 3a(i) 2 * a(i 1) 1Next i该程序段运行后，数组元素该程序段运行后，数组元素a(4)的值为的值为()A15 B7C3 D0D16. 在在Visual Basic中，有如下程序：中，有如下程序：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerDim d As Integer, z As Integera Val(Text1.Text): b Val(Text2.Text): c Val(Text3.Text)d min(a, b)z min(d, c)Text4.Text Str(d)Text5.Text Str(z)End SubFunction min(x As Integer, y As Integer) As IntegerIf x y Then min x Else min yEnd Function运行该程序，在文本框运行该程序，在文本框Text1、文本框、文本框Text2、文本框、文本框Text3中分中分别输入别输入2、5、6后，单击命令按钮后，单击命令按钮Command1，文本框，文本框Text5中显示的是中显示的是 ()A5 B2 C6 D24A17. 数制转换。将一个数制转换。将一个k进制进制(k10)数数x转换成十进制数可采用转换成十进制数可采用如下方法：主要方法是从右向左，依次取数如下方法：主要方法是从右向左，依次取数x的各位数字，的各位数字，分别计算出该数从右边数起的第分别计算出该数从右边数起的第i位数字与位数字与k(i1)的积，再将其的积，再将其累加，直到所有的数字取完为止。例如，将五进制数累加，直到所有的数字取完为止。例如，将五进制数1231转转换成十进制数的方法如下：换成十进制数的方法如下：(1231)5150351252153(191)10下列下列Visual Basic程序的功能是将程序的功能是将k进制进制(k10)数数x转换成十进转换成十进制数。界面如图所示，在文本框制数。界面如图所示，在文本框Text1中输入数制中输入数制k，在文本，在文本框框Text2中输入数中输入数x，单击，单击“转换转换”按钮按钮(Command1)后，在标后，在标签签Label4中输出转换的结果。中输出转换的结果。解决此问题的算法流程图如图所示，解决此问题的算法流程图如图所示，相应的相应的Visual Basic程序如下：程序如下：Private Sub Command1_Click()Dim b As Long, i As Integer, k As Integer, x As Long, t As Integerb 0: i 1k Val(Text1.Text)x Val(Text2.Text)t x Mod 10Do While b x x 10 t x Mod 10 i i 1LoopLabel4.Caption Str(k) “进制数进制数” Text2.text “转换成十制数为转换成十制数为” Str(b)End Sub(1)解决此问题所用的算法是解决此问题所用的算法是_。 (选填：解析法选填：解析法 或或 枚举法枚举法)在程序和划线处，填入适当的语句或表达式，把程序补充完整：在程序和划线处，填入适当的语句或表达式，把程序补充完整：(2)程序中划线处应填入程序中划线处应填入_。 (3)程序中划线处应填入程序中划线处应填入_。x0解析法解析法b+t*k(i-1)18. 以下以下Visual Basic程序的功能是：计算表达式程序的功能是：计算表达式112233445566的值，并在文本框的值，并在文本框Text_1中输出结果。中输出结果。Private Sub Command1_Click()Dim a(1 To 6) As IntegerDim s As Integer, i As Integers 0For i 1 To 6 a(i) i * i s s a(i)Next i_str(s) End Sub回答下列问题：回答下列问题：(1)为了计算上述表达式的值，上面程序段划线处应填入为了计算上述表达式的值，上面程序段划线处应填入_。 (2)该程序段运行后，该程序段运行后，a(5)的值是的值是_。Text_1.text2519. 某超市打折促销，规定如下：某超市打折促销，规定如下：购物未超过购物未超过500元按原价支付；元按原价支付；购物超过购物超过500元但未超过元但未超过1000元，超过元，超过500元部分按元部分按9折优折优惠计价；惠计价；购物超过购物超过1000元但未超过元但未超过1500元，超过元，超过1000元部分按元部分按8折折优惠计价；优惠计价；购物超过购物超过1500元但未超过元但未超过3000元，超过元，超过1500元部分按元部分按7折折优惠计价；优惠计价；购物超过购物超过3000元，超过元，超过3000元部分按元部分按6折优惠计价。折优惠计价。根据以上规定，假定购物货款为根据以上规定，假定购物货款为x元，则实付金额元，则实付金额y为：为： 程序界面如图所示，在程序界面如图所示，在“输入购物金额输入购物金额(单位：元单位：元) ”后的文后的文本框本框orgtext中输入购物金额中输入购物金额(单位：元单位：元)，单击，单击“实付金额计算实付金额计算”按钮按钮(Command1)后，在后，在“实际支付金额实际支付金额(单位：元单位：元)为为”后的文后的文本框本框cashText中输出实付金额。中输出实付金额。解决此问题相应的解决此问题相应的Visual Basic程序如下：程序如下：Private Sub Command1_Click() Dim x As Single, y As Single x Val(orgtext.Text) If x 500 Then y x ElseIf Then y 500 (x 500) * 0.9 ElseIf x 1500 Then y 500 500 * 0.9 (x 1000) * 0.8 ElseIf x 3000 Then y 500 500 * 0.9 500 * 0.8 (x 1500) * 0.7 Else y 500 500 * 0.9 500 * 0.8 1500 * 0.7 (x 3000) * 0.6 End If End Sub(1)解决此问题的算法是解决此问题的算法是_。(选填：解析法或枚举法选填：解析法或枚举法)在程序在程序和和划线处，填入适当的语句或表达式，把程序补充完整。划线处，填入适当的语句或表达式，把程序补充完整。(2)程序中程序中划线处应填入划线处应填入_。(3)程序中划线处应填入程序中划线处应填入_。 解析法解析法x=1000cashText.text=str(y)20. 王敏的王敏的Email邮箱密码忘记了，但她需要收一封很重要的来邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能找出密码。她零星记得自己的密码信息：信，请你帮她尽可能找出密码。她零星记得自己的密码信息：密码是六位数字，前面两位为密码是六位数字，前面两位为31；最后两位数字相同；最后两位数字相同；能被能被16和和46整除。整除。程序界面如图所示，单击程序界面如图所示，单击 “帮助找回密码帮助找回密码”按钮按钮(Command1)后后，可能的密码显示在列表框可能的密码显示在列表框List1中。中。解决此问题的相应程序如下：解决此问题的相应程序如下：Private Sub Command1_Click() Dim a As Integer, s Aslong, b As Integer, i As Integer For i 0 To 9999 s 310000 i If s Mod 46 0 Then b (s Mod 100) 10 If a b Then List1.AddItem Str(s) End If End If Next iEnd Sub(1)解决此问题的算法是解决此问题的算法是_。(选填：选填：枚举算法或排序算法枚举算法或排序算法)在程序和划线处，填入适当的语句或表达在程序和划线处，填入适当的语句或表达式，把程序补充完整：式，把程序补充完整：(2)程序中划线处应填入程序中划线处应填入_。(3)程序中划线处应填入程序中划线处应填入_。a=s Mod 10枚举算法枚举算法Step 16