1、实验四 循环结构程序设计实验四 循环结构程序设计（4个学时）一 、实验目的1. 掌握For循环语句的使用。2. 掌握单Do循环语句的使用。3. 掌握如何控制循环条件，防止死循环或不循环。 二 、实验内容1. 设计一个程序：用For 循环语句计算1 n (正整数)的所有的偶数之和。（参考课本P98，例6.7）要求: 程序运行后，单击窗体弹出一个输入框由用户输入n的值，然后在窗体上显示计算的结果。1）代码设计如下Private Sub Form_Click()Dim a As Single, i As Single, n As Singlen = Val(InputBox(请输入n, 提示)s =
2、 0For i = 2 To n Step 2s = s + iNext iPrint sEnd Sub2）将输入100 时的运行结果的界面截下来粘贴在下面：3）调试过程记录（错误情况及改正方法）1.在做FOR循环时，将变量I漏写。2设计程序：求100 以内所有19的倍数的数。并求这些数的和。（参考上机指导P20，第一题） 要求：点击“显示”按钮时，将结果显示在窗体上。点击“求和”按钮时，将结果显示在一个文本框中。1）代码设计如下Option ExplicitDim i As Integer, s As Integer, t As StringPrivate Sub Command1_Clic
3、k()For i = 1 To 100If i Mod 19 = 0 Then Print iNext iEnd SubPrivate Sub Command2_Click()For i = 1 To 100If i Mod 19 = 0 Thens = s + iEnd IfNext iText1.Text = sEnd Sub2）将运行结果的界面截下来粘贴在下面3）调试过程记录（错误情况及改正方法）1.在对命令按钮2进行设计时以为只写命令1的就行，结果命令2 没有FOR结构。2.误将零写成o，结果无意中增加了一个未定义的新变量。3. 设计一个程序：我国今年的国民生产总值为45600亿元，若
4、今后每年以9%的增长率增长，计算多少年后能实现国民生产总值翻一番？ （参考课本P102 例6.11） 要求：单击“计算”按钮时，将计算的结果显示在窗体上。1）代码设计Private Sub Command1_Click()Dim x As Single, n As Longx = 45600Do While x 91200x = x * 1.09n = n + 1LoopPrint n; 年后国民生产总值翻一番End Sub2）将运行结果的界面截下来粘贴在下面3）调试过程记录（错误情况及改正方法）1.编码时将X的初值放在了DO句型的后面，结果出现了死循环。4. 编写一个程序，点击窗体时在窗体上
5、输出所有水仙花数（水仙花数是指一个三位十进制正整数，该数的各位数字的立方之和等于该数本身，例如153是个水仙花数，因为13+53+33 =153）。1）代码设计Private Sub Command1_Click()Dim i!, a!, c!, d!, t As StringFor i = 100 To 999 Step 1a = i 100c = (i Mod 100) 10d = i Mod 10If i = a 3 + c 3 + d 3 Thent = t & Str(i) & Chr(13) & Chr(10)End IfNext iText1.Text = tEnd Sub2）将
6、程序运行的结果图截下粘贴在下面。3）调试过程记录（错误情况及改正方法）Textbox换行没设置，在multiline处设置5. 编写一个程序解百马百瓦古题：大、小马和马驹共100匹，共驮100片瓦，大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合？（参考课本P106，例6.16）。 要求：单击窗体将结果显示在窗体上。1）代码设计Private Sub Form_Load()Dim x%, y%, z%ShowPrint 大马, 小马, 马驹For x = 1 To 33 For y = 1 To 50 z = 100 - x - yIf x * 3 + y * 2 +
7、z / 2 = 100 ThenPrint x, y, zEnd IfNext yNext xEnd Sub2）将程序运行的结果图截下粘贴在下面。3）调试过程记录（错误情况及改正方法）Next y和next x的顺序打反，导致无法运行。实验五 常用控件程序设计（4个学时）一 、实验目的1. 掌握单选按钮、复选按钮、框架、列表框、组合框、时钟和滚动条的属性、事件和方法。2. 明确常用内部控件的功能，熟练使用“属性”窗口设置属性。3. 掌握在常用内部控件的事件过程中编写程序代码。 二 、实验内容 1. 设计一个程序运用单选按钮、复选框和框架对文本框中文本的颜色、字号和效果进行设置。 要求：文本的颜
8、色可以选择红色、绿色和蓝色。文本的字号可以选择12、18、24号，效果可以选择删除线和下划线。当文本框中输入文字后，单击某个按钮，文本框中的文字将按所选择的选项进行设置。（参考上机指导P6，第一题）1）代码设计如下2）运行后的结果 （将运行结果的界面截下来粘贴在下面）3）调试过程记录（错误情况及改正方法，不得少于三条）2. 编写一个为组合框中添加或删除内容的程序。（参考上机指导P6第三题）要求：1）在组合框中输入内容后，单击“添加”按钮，如果列表框中没有该内容，则将输入内容加入到列表框中，否则不添加，另外，要求组合框中的内容能自动按字母顺序排序。2）在列表框中选择某一选项后，单击“删除”按钮，
9、则删除该项。3）单击“清除按钮，将清除列表框中所有的内容。1）代码设计2）运行后的结果 （将运行结果的界面截下来粘贴在下面）3）调试过程记录（错误情况及改正方法，不得少于三条）3设计一个选课程序。要求：该选课的运行界面包含2个列表框，左边为已开设的课程名称，通过Form_load事件加载，并按字母顺序排序；当单击某课程名称后，将该课程加入到右边的列表框中，并在左边的列表框中删除该课程，当右边的课程数已满5门时，不允许再加入。 1） 代码设计2) 运行后的结果 （将运行结果的界面截下来粘贴在下面）3) 调试过程记录（错误情况及改正方法，不得少于三条）4. 设计一个程序实现字体的自动放大，并用垂直
10、滚动条控制放大的速度。（参考课本P86，例5.7）1）代码设计2）运行后的结果 （将运行结果的界面截下来粘贴在下面）3）调试过程记录（错误情况及改正方法，不得少于三条）A:Hello,everyone, I am very famous . My name is QQ, people call me 阿-Q. I am very famous , I love my job very much . You know I am a worker .But I hate my boss .He says he is a foreigner, but I dont believe that.（听见老
11、板的咳嗽声）Hey master!B:（咳嗽） A-Q,you know tomorrow is my fathers birthday.A:Oh,your fathers birthday?How old is your father ? B:He is dead.A:Oh,heI am sorry to hear that But when did your father die?B：Two years before I was born.A:Oh,two years before you were born ?B：So, tomorrow, 阿Q,you should work hard
12、er.A:Of course ,of course I will work harder.额 But master 额I just want some more money(some more money)B:You want some more money?A:Yes,some more money master.B:（一巴掌扇过来）Tell you , no way!A:NO way?B:But I can find somebody to help youA:Somebody to help me?who?B:WU MA,come here,WU MA he quick!A:wu maB
13、:AQ,this is WUMA,wuma,now you just work together with AQ.A:一直在转着圈得说着 无码B:AQA:MasterB:This is wumaA :I knowB:YOU know from now you just work together with her.A NO problemB:Do remember ,do not do anything wrong to her, or I will kill youA:Of course,notB:Its ten oclock. I just want to go to buy some a
14、nimals to eatA:Oh animals to eat ,ok . okB: Remember , I will be back, do not do anything wrong to her.A Of course not ,take it easy.H: wuma wuma wuma wuma whats your name ?wumaW.My name is wumaA:wuma ,how many husbands do you have?W.Only oneA :She says only one,how old is he ?W He is dead.A :He is
15、dead! I am very glad to hear that. Wuma wumaYou know,my name is qq,people call me A-Q wuma you know, I have a large house, I make money everyday, a lot of money.W:So you have a lot of wives?A: A lot of wives? Oh, no , I dont have any wivesBut I have two dogs and three cats and four monkeys.W: Are th
16、ey beautiful?A: Of course they are very beautiful. But you are more beautiful than animals.Im sorry I mean animals are more beautiful than you im sorry I mean you are as beautiful as animals.A. wuma to be frank , to tell you the truth , actually in my heart in factI just want to marry you ,wuma I ju
17、st want you to be my wife.wuma,I just want to sleep with you.W:What did you sayA:Wuma I just want to sleep with you W:wolf wolf ,no no help help, policeman policemanA:wuma, P: Where is the wolfW:its here.P: Its A-Q,he is not a wolf , dont care about it Beautiful woman!May I know your name ?W.My name
18、 is wuma,people call me wumaP:Oh, wuma,how many husband do you have?W. only oneP : Oh, only one. How old is he?W:He is deadP:Dead ? goodP :wuma I just want you to be my wife NO.6to be my wife NO.6wuma, I am a good person .im very very good,you see Im good P:Shit,I will kill you ! A.You cant hurt her
19、P:Look , beautiful girl!A: Im hurt, I am dying wumaWuma wuma you know I am not a wolfW.:I know , I know.A:wuma you know , I love you very much.Wuma , I just want you to be my wife, ok?W:ok, I will be your wife.A:But wuma you know I am very poor.W: I dont care, I dont careA :oh, wuma, I love you.W: A-Q, I love you too.
