vb基本控制结构..docVIP

信 息 工 程 学 院 程序设计基础(VB) 实验/实习报告 学院:创新实验学院 班级:生科创新123 姓名:李欣莅 学号:2012010422 成绩:A 实习三 基本控制结构 1. 掌握三种控制结构的编程思路 2. 掌握为程序提供数据的方法，特别是从数据文件中获得数据的方法 3. 掌握程序结果输出的几种方法，特别是将数据输出到数据文件的方法 4. 掌握源程序的缩进书写格式 5. 理解累加、累积、判断素数、求极值、输出数列、最大公约数与最小公倍数等常用算法及程序实现方法。 二、实习内容 1. 完成教材顺序结构例题验证，掌握程序的基本组成部分，理解顺序结构程序设计的基本方法，掌握数据输入、输出的方法和途径。 2. 完成教材编程题1小题。 3. 完成教材选择结构例题验证，理解选择结构程序设计的基本方法，理解选择语句用法，掌握实现选择功能的基本算法。 4. 完成教材编程题2、3、4、5、6小题。 5. 完成教材循环结构例题验证，理解选择循环程序设计的基本方法，理解循环语句用法，掌握实现循环功能的基本算法。 6. 完成教材编程题有关循环部分的习题。 三、程序设计及代码 1. 顺序结构： 习题1 Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, d As Single x = Val(InputBox(请输入x变量的值)) a = Sqr(x) b = (x) ^ 2 c = (x) ^ 3 d = (x) ^ (1 / 3) Print 平方根为： round(a, 3), 平方为： round(b, 3), 立方为： round(c, 3), 立方根为： round(d, 3) End Sub 2. 选择结构： 习题二 Private?Sub?Command1_Click()???Dim?a?As?Single,?b?As?Single,?c?As?Single???a?=?Val(Text1.Text)???b?=?Val(Text2.Text)???c?=?Val(Text3.Text)???If?a??b?Then????If?a??c?And?b??c?Then??????Print?最大值为??a;?,最小值为??c????ElseIf?a??c?And?c??b?Then??????Print?最大值为??a;?,最小值为??b????ElseIf?c??a?Then????Print?最大值为??c;?最小值为??b??????End?If???Else????If?b??c?And?a??c?Then??????Print?最大值为??b;?,最小值为??c????ElseIf?b??c?And?c??a?Then??????Print?最大值为??b;?,最小值为??a????ElseIf?c??b?Then????Print?最大值为??c;?最小值为??a????End?If?End?IfEnd?Sub 习题三 Private?Sub?Command1_Click()????Dim?x$????x?=?Val(InputBox(请输入一个年份))????If?x?Mod?4?=?0?Then????????If?x?Mod?100?=?0?Then???????????Print?不是闰年????????Else???????????Print?闰年????????End?If????ElseIf?x?Mod?400?=?0?Then???????Print?闰年????Else???????Print?不是闰年????End?IfEnd?Sub 习题4 Private Sub Command1_Click() Dim x As Integer x = Val(InputBox(请输入一个数)) If x Mod 5 = 0 Then MsgBox x 能被5整除 Else MsgBox x 不能被5整除 End If End Sub 习题5 Private Sub Command1_Click() Dim a!, b! a = InputBox(请输入您的收入：) If a 300 Then Print 免征。 ElseIf a = 500 Then b = (a - 300) * 0.002 ElseIf a = 5000 Then b = (a