VB实验任务10答案.docVIP

实验任务10 课程名称：程序设计基础VB 实验名称——实验十 基本控制语句（四） 一、实验目的： 1．清楚循环流程，掌握循环语句的描述 2．学会不同循环语句之间转换表示 3．掌握循环结构程序的设计方法 4．掌握经典的算法，并学会灵活应用 二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）： 实验1实验5-10 阅读程序，写出执行结果（注意输出格式），并上机验证，充分使用单步调试工具（单步执行、立即窗口、本地窗口和监视窗口），弄清楚循环执行流程，以及相应变量值的变化情况。 （1）单击命令按钮，窗体上显示的内容为 。 Private Sub Command1_Click() Dim i As Integer For i = 5 To 1 Step -0.8 Print i, Int(i) Next i End Sub 若去掉Dim i As Integer语句，则窗体上显示的内容为 。 （2）单击命令按钮，窗体上显示的内容为 。 Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a - 1 Loop While a = 0 Print s; a End Sub （3）单击命令按钮，窗体上显示的内容为 。 Private Sub Command1_Click() Dim a As Integer, b As Integer, i As Integer a = 10: b = 0 For i = 5 To 1 Step -2 Do a = a - 4 b = b + 1 Loop Until b 2 Or a -1 Next i Print a, b, i End Sub （4）以下程序中，命令按钮的“Caption”属性是“计算”，命令按钮的名称是 ，输入Txta.Text=21，Txtb.Text=9，单击窗体上的“计算”按钮，则在窗体上输出的第一行是 ，第二行是 ，推测这段程序的作用是求两个数的 。运行界面如图5-20所示。 Option Explicit Private Sub Calc_Click() Dim a%, b%, c%, d%, e%, i% a = Val(Txta.Text) b = Val(Txtb.Text) If a b Then c = b Else c = a For i = 2 To c If (a Mod i) = 0 And (b Mod i) = 0 Then d = i Next i e = a * b / d Print Gcd( a , b )=; d Print Lcm( a , b )=; e End Sub 实验2实验5-11 改错题。 （1）窗体的左右两端各有l条直线，名称分别为Linel、Line2；名称为Shapel的圆靠在左边的Linel直线上（见图5-21）；另有1个名称为Timerl的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序： 图5-20 运行界面 图5-21 运行界面 Private Sub Timer1_Timer() For k=Line1X1 To Line2.X1 Step 100 If Shape1.Left+Shape1.WidthLine2.X1Then Shape1.Left=Shape1.Left+100 End If Next k End Sub 运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，请修改程序。 （2）窗体如图5-22（a）所示。要求程序运行时，在文本框Textl中输入一个姓氏，单击“删除”按钮（名称为Commandl），则可删除列表框Listl中所有该姓氏的项目。编写以下程序来实现此功能。 Private Sub Command1_Click() Dim n%, k% n = Len(Text1.Text) For k = 0 To List1.ListCount ? 1 If Left(