夏季学期算法与程序设计复习提纲.docx

1、夏季学期算法与程序设计复习提纲2010-2011年夏季学期算法与程序设计复习提纲目录：一、 VB开发流程二、 VB相关文件三、 VB编程相关概念四、 VB语言五、 程序结构六、 常用算法七、 经典实例一、 VB开发流程二、 VB的相关文件类型1、 窗体文件：*.frm2、 工程文件：*.vbp3、 可执行文件：*.exe4、 二进制文件：*.frx（当在窗体上设置了图标图片等）三、 VB编程的相关概念1、对象：可以看作一个整体，具有一定属性和方法的事物。 VB的对象包括窗体和控件。对象名称是代码中对它的称呼，VB靠它来识别对象，每一个对象都有一个唯一的名字。2、常见对象：窗体(form)标签(

2、label)按钮(commandbutton)文本框(textbox)计时器(timer)图像(Image)3、 容器对象:可以在其中放置其他对象的对象。Vb中的容器有：窗体、框架、PictureBox。4、对象方法：方法：对象具有的功能。它是对象提供的是特定的函数或过程。但方法与函数不同，方法属于对象，而函数不属于对象。常见方法：Print作用：窗体上输出，可接变量，表达式，提示语言。应用实例：Print aPrint x2Print “请输入一个数”Print “请输入第” & n & “个数”Pset作用：画点语法1：pset(x,y),color语法2：pset Step (x, y)

3、, colorLine作用：画线语法1：line(x1,y1)-(x2,y2),color,bf语法2：line（x，y）表示上一条直线的终点坐标作为本次的起点坐标应用实例：Line (0, 0)-(2000, 2000)Line (0, 0)-(2000, 2000),vbredLine (0, 0)-(2000, 2000),vbred,bLine (0, 0)-(2000, 2000),vbred,bfCircle作用：窗体上画圆语法1：Circle (x, y), r, color语法2： Circle Step (x, y), r, color, start, end, aspect

4、Step:不是必须的项目，是相对于当前点的坐标。例：CurrentX = 1000CurrentY = 2000Circle Step(1000, 500), 400, vbRedStart ,end:分别表示开始和结束的弧度。范围是-22，逆时针画圆，弧度为正，画圆，弧度为负，画扇形。例：Circle (1000, 500), 400, vbRed, -2, -3Circle (1000, 500), 400, vbRed, 2, 3Circle (1000, 500), 400, vbRed, -2, 3Aspect: 画圆的纵横比。应用实例：Circle(scalewidth/2,sca

5、leheight/2),1000,vbredCls:作用:清除当前窗体上的文字和线条Show,hide 窗体显示和隐藏Form1.ShowForm1.HideVB窗体坐标系示意图Y轴X轴(0,0)变换坐标系：Scale (x1,y1)-(x2,y2) (x1,y1)：新坐标系左上角坐标 (x2,y2)：新坐标系右下角坐标Scale（-1000,1000）-(1000,-1000) 变换坐标系后，新坐标系原点坐标是在窗体中心，宽度为2000单位，高度为2000单位。如下图所示，例：Scale（-1000,1000）-(1000,-1000)Circle(0,0),500,vbred4、 事件：事

6、件：是指能被对象所识别的消息(动作)。如单击Click、载入load、激活Activate 等事件过程的框架为：Sub 对象名字_事件名称(参数)End Sub常用事件：鼠标事件：Click窗体事件：Activate，Load时钟事件：Timer改变事件：Change (滚动条，文本框)5、常见属性:标志对象的一些性质。Caption：显示标题，在对象表面显示。Name：是标识，VB靠它来识别对象，只能在设计状态下用Visible：确定是否可见。取值True/False 默认为True，表示可用。Enabled：确定是否可操作，取值True/False, False为禁止操作。 Forecol

7、or：确定前景颜色Top：确定对象离顶部距离Left ：确定对象离左边距离Height：对象的高度，单位是twip缇, 即：1/1440 inch Width：确定对象的宽度。单位是twip, 即：1/1440 inchScaleheight:对象内部高度，不包括窗体边缘Scalewidth：对象内部宽度，不包括窗体边缘Autosize：对象的大小是否随标题的大小自动调整,取值True/FalseAutoRedraw：让窗体上的图形和打印字符持久输出,取值True/FalsePicture：放置图片的属性，记录图片路径Interval:时间间隔，以1/1000秒为单位四、 VB语言1、Prin

8、t:在窗体上输出文字信息2、End：结束程序3、Cls：清除窗口内容4、=：赋值语句5、Msgbox：消息框语句 语法：msgbox(“要显示的内容”)6、inputbox: 输入框语句 语法： a=inputbox(“提示的内容”)7、常用函数：Time：取系统时间Abs：绝对值Rnd：产生到0到1的随机小数Randomize:随机函数初始化Sqr：求平方根 a=sqr(5) a=5(1/2)Rgb(r,g,b)：由三原色合成一个颜色:r,g,b的取值都是0255Qbcolor(a):颜色函数：a的取值是015Val：把字符串转化为数值Int：去掉数字的小数部分Str：把数字串转化为字符串C

9、hr：把ASCII码转化为对应的字符Asc：字符的相应ASCII码值8、常用运算符 - （） *（乘） /（除） （整除） mod(求余数) 5 mod 3 结果为2 （求幂） (字符串连接)： 123 & 456 结果 123456 9、关系运算符 关系运算符 等于 大于等于= 大于 小于等于= 小于 不等于10、逻辑运算符 非(NOT) 与(AND) 或(OR) 五、 三大程序结构:1、顺序结构：按从上到下，从左到右的顺序运行例子1：顺序结构画多个圆Circle (1500,1500),100Circle (1500,1500),200Circle (1500,1500),300Circl

10、e (1500,1500),4002、分支结构：格式1：If 条件 then 语句1 Endif格式2：If 条件 then 语句1 else 语句2Endif格式3：If 条件1 then 命令语句Elseif 条件2 then 命令语句Elseif 条件3 then 命令语句Else 命令语句4Endif例子2：从键盘上输入一个数，判断这个数是奇数还是偶数a = InputBox(请输入一个数, a)If a Mod 2 = 0 ThenPrint 这个数是偶数ElsePrint 这个数是奇数End If3、循环结构：格式1：While 条件 循环体 Wend格式2：For（循环控制变量）

11、=（初值）To（终值）Step（步长） （循环体即需要多次执行的语句）Next （循环控制变量）例子3：计算1+2+3+4+20的值，将结果输出n=1s=0while n20s=s+n n=n+1wendprint s例子4：For i = 1 To 20Circle (ScaleWidth / 2, ScaleHeight / 2), 100 * i, vbredNext i六、 常见算法：1、 累加：求1100的和 Sum = 0 For i = 1 To 100 Sum = Sum + i End If Next i Print Sum2、 累乘求310的乘积 s = 1 For i =

12、3 To 10 s = s * i Next iPrint t3、 穷举法：穷举法的思路：列举出所有可能的情况，逐个判断有哪些是符合问题所要求的条件，从而得到问题的解答。用于解决“是否存在”和“有多少可能性”等类型问题。假设密码是一个5位数。只记得密码为678，其中百位和十位的数字记不清了，但知道该数能够被78整除，也能被67整除。同学们能不能设计一个算法帮找出这个密码。Dim d As LongDim a1,a2 As Integer For a1 = 0 To 9 For a2 = 0 To 9 d = 67000 + a1 * 100 + a2 * 10 + 8 If (d Mod 78

13、 = 0) And (d Mod 67 = 0) Then Print d Next a2Next a1 穷举法经典案例：百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，编程列出所有可能的购鸡方案。 设母鸡、公鸡、小鸡各为x、y、z只，根据题目要求，列出方程为： x+y+z=100 3x+2y+0.5z=100三个未知数，两个方程，此题有若干个解。解决此类问题采用“试凑法”，把每一种情况都考虑到。 方法一：最简单三个未知数利用三重循环来实现。 方法二：从三个未知数的关系，利用两重循环来实现。参考代码：For x = 0 To 33 For y =

14、 0 To 50 z = 100 - x - y If x * 3 + y * 2 + z / 2 = 100 Then Print x, y, z End If Next yNext x4、 冒泡法：冒泡法的思路：从最下面一个元素起，依次比较相邻的两个元素中的数据，将较小的数据调换到上面,小元素像气泡一样上浮。冒泡法对5个数排序Dim a(5) As IntegerDim i As IntegerDim j As IntegerPrivate Sub Form_Activate()For i = 1 To 5a(i) = InputBox()Next iFor i = 1 To 4 For

15、j = 5 To i + 1 Step -1 If a(j) a(j - 1) Then t = a(j) a(j) = a(j - 1) a(j - 1) = t End If Next jNext iFor i = 1 To 5Print a(i)Next iEnd Sub七、 经典实例：1、从键盘上输入x的值，输出分段函数 y的值。x = InputBox(请输入x的数值, a) if x=-2 And x2 then y=-3*x+1 endif print y2、绘制双色圆：x = ScaleWidth / 2 y = ScaleHeight / 2 DrawWidth = 5 Fo

16、r i = 1 To 10 If i Mod 2 = 0 Then Circle (x, y), i * 200, vbRed Else Circle (x, y), i * 200, vbGreen End If Next i3、100个下降圆Dim x(100) As IntegerDim y(100) As IntegerDim r(100) As IntegerDim d(100) As IntegerDim color(100) As Long color是长整型Private Sub Form_Load() Randomize For i = 1 To 100 x(i) = Rnd

17、 * Form1.ScaleWidth y(i) = Rnd * Form1.ScaleHeight r(i) = Rnd * 500 d(i) = Rnd * 100 + 20 color(i) = RGB(Fix(Rnd * 256), Fix(Rnd * 256), Fix(Rnd * 256) Next iEnd SubPrivate Sub Timer1_Timer() For i = 1 To 100 Circle (x(i), y(i), r(i), BackColor If y(i) = Form1.ScaleHeight Then y(i) = 0 End If y(i) =

18、 y(i) + d(i) Circle (x(i), y(i), r(i), color(i) Next iEnd Sub4、模仿Windows登陆，对密码进行判断。Private Sub Command1_Click()If Text1.Text = student And Text2.Text = 123 ThenLabel4.Caption = 用户名和密码正确！ElseLabel4.Caption = 用户名和密码错误！End Ifn = n + 1If n = 3 And Label4.Caption 用户名和密码正确！ ThenForm1.Enabled = FalseLabel4

19、.Caption = 你已经输入错误3次，系统被锁定End IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Label4.Caption = End SubPrivate Sub Command3_Click()EndEnd Sub5、输入一个三位数，反向输出Private Sub Command1_Click()a = Val(Text1.Text)X1 = a 100X2 = (a - X1 * 100) 10x3 = a - X1 * 100 - X2 * 10Text2.Text = x3 * 100 + X

20、2 * 10 + X1End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = End Sub6 自动升旗Private Sub Command1_Click()Timer1.Enabled = TrueTimer2.Enabled = FalseCommand2.Enabled = FalseEnd SubPrivate Sub Command2_Click()Timer2.Enabled = TrueTimer1.Enabled = FalseCommand1.Enabled = FalseEnd SubPrivate Sub

21、 Timer1_Timer()If Image2.Top Image1.Top ThenImage2.Top = Image2.Top - 200ElseCommand2.Enabled = TrueEnd IfEnd SubPrivate Sub Timer2_Timer()If Image2.Top + Image2.Height Image1.Top + Image1.Height ThenImage2.Top = Image2.Top + 200ElseCommand1.Enabled = TrueEnd IfEnd Sub7、图片放缩与移动Private Sub Command1_C

22、lick()Image1.Left = Image1.Left + 10End SubPrivate Sub Command2_Click()Image1.Left = Image1.Left - 10End SubPrivate Sub Command3_Click()Image1.Top = Image1.Top - 10End SubPrivate Sub Command4_Click()Image1.Top = Image1.Top + 10End SubPrivate Sub Command5_Click()Image1.Width = Image1.Width + 10End SubPrivate Sub Command6_Click()Image1.Width = Image1.Width - 10End SubPrivate Sub Command7_Click()Image1.Height = Image1.Height + 10End SubPrivate Sub Command8_Click()Image1.Height = Image1.Height - 10End Sub