程序与算法练习配答案

15．每次将一张白纸沿垂直和水平中线对半撕成四张纸片，然后取其中一张纸片照这样再撕成四张纸片，一直这样下去，计算撕了n次后纸片的总张数，现在要用VB来实现该程序。程序界面及功能如下图所示，在文本框中输入撕的次数，单击计算按钮，显示纸片数。

请完善并改正下面的程序代码： Private Sub Command1_Click() Dim i, n, s As Integer

n = Val(Text1. Caption)‘①获得撕纸片的次数 s=1‘s为纸片数，初始时为1 For i = 1 To n

②‘计算撕了n次后的纸片数量 Next i

Label2.Caption = Str(s)显示最终的纸片数 End Sub

注释①所在行语句中有错误,应改为_____________ 在横线②中填入正确的语句_______________

在用VB设计应用程序时，一般经历的阶段的正确顺序是__________（填字母顺序） a 运行调试程序 b 问题和算法分析

c 应用程序界面设计 d 事件处理过程代码编写

试卷第5页，总5页

本卷由系统自动生成，请仔细校对后使用，答案仅供参考。

参考答案

1．C 【解析】 2．C 【解析】 3．（1）a(j) > a(k) （2）shu = shu + 1 【解析】（1）根据程序的部分内容判断，该程序是冒泡排序，因此1处的代码是用于交换位置。判断依据是a(j)>a(k)（2）该程序的作用是当按下回车键的时候，一次将输入到文本框text1中的数据添加到list1列表框中，这里的变量shu是用于计数的。 4．B

【解析】选择排序的比较次数是根据公式：n(n－1)/2来计算的是，是15次。排序遍数是5遍。 5．D 【解析】 6．A 【解析】 7．C 【解析】 8．D 【解析】 9．D 【解析】 10．D 【解析】 11．C 【解析】 12．A 【解析】 13．D 【解析】 14．（1）f=False（1分）

（2）Val(Text1.Text)（1分） （3）a1+a2+a3=n（1分） 【解析】 15．（1）n=val（textl.text） s=s+3 （3）bcda 【解析】

答案第1页，总1页