vb第一讲..docVIP

第一讲： 总体复习 重点应复习的知识点 Print语句 Int函数和Rnd函数 If语句（重点是多分支块IF语句的结构，详见例1） Do-Loop循环 For循环（必考） 多重循环（循环嵌套）（必考） 数组的排序 二维数组（必考） 参数传递(必考) 函数过程的编写(编程题) 列表框和组合框 定时器 鼠标和键盘事件 图形方法 顺序文件的读写操作 重点掌握的题型（设计题题型） 分段函数（选择结构） 累加和计算（如：） 多重循环的使用（如金字塔图形的输出等） 杨辉三角（用一维数组和二维数组分别实现，上机题） 数组排序（结合到其它题目中去） 函数与过程（程序阅读题、程序设计题） 控件综合 图形方法 鼠标、键盘事件（例如KeyPress事件、MouseUp、MouseDown等） 顺序文件的读写操作 内容介绍 （一）If语句 主要格式：（其它格式、特别是嵌套形式要能看懂） If 条件表达式1 Then 语句块1 ［ElseIf 条件表达式2 Then 语句块2］ ┇ ［ElseIf 条件表达式N Then 语句块N］ ［Else 语句块N+1］ Endif 例1：编程，用Inputbox输入X的值，在窗体上打印出下列分段函数Y值。 注意：用嵌套格式和If-Elseif的格式分别实现。 For循环 For 循环控制变量＝初值 To 终值 [Step 步长] 语句块 [Exit For] 语句块 Next 循环控制变量 例2：计算数学表达式 Private Sub Form Click() Dim n As Integer, p As Integer, s As Sigle, q As Integer Dim i As Integer n = InputBox(请输入N的值:) s = 0：p = -1：q = 1 ‘设置初值 For i = 1 To n p = -p: q = q * i ‘设置分子和分母的通项式 s = s + p/q Next i Print s End Sub （三）Do Loop循环 Do…Loop语句的使用格式有以下两种。 1．形式1（当型循环）： Do While 条件 语句块 [Exit Do]　　　　　　　　　　　　　　　　　　　 语句块 Loop 2．形式2（直到型循环）： Do Until 条件 语句块 [Exit Do] 语句块 Loop 注意：只有当控制变量的初值和终值确定时，可以用For循环。 Next I语句执行后，I会自动加上步长，Do循环中需要类似I=I+1的语句来反映控制变量的变化。 例3： 编程计算：S=1*2*3*…*10 Private Sub Command1_Click() I为循环变量，控制循环次数，同时取得各单项；累积变量S存放结果 Dim S As Single, I As Integer S=1 累积前变量S赋初值为1 I=1 单项取得初值 Do Until I10 S=S*I 累积单项 I=I+1 取得下一个单项 Loop Print S=;S End Sub 注：该道例题不要仔细讲了，直接让学生看程序代码，主要让学生理解Do循环的格式以及与For循环的区别。 （四）多重循环 常见题型：水仙花数、金字塔图形等（具体见书上） 例4： 打印由数字组成的如下所示金字塔图案。 9 888 77777 6666666 555555555 4444444 33333 222 1 代码详见VB文件。 注意：通过此题，进一步向学生提示如何解决图形问题。先找规律，找出每行空格数和字符个数规律，再通过两个循环来控制输出。 （五）一维数组 数组的解题步骤大致如下：数组的定义－赋初值－引用及输出 例5：数组的排序格式（务必记住）： 第一种：（选择排序） For i = 1 To n-1 For j = i + 1 To n If a(i) a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next i, j 第二种：（改进的选择排序法） For i = 1 To n-1 k = i For j = i + 1