[理学]华南理工大学VB期末复习.pptVIP

Private Sub tr(ByVal Str$, ByVal n%) Dim I As Integer, J As Integer For I = 1 To n ‘打印n行 For J = 1 To n + 1 - i 每行打印字符 Print Str; Next j Print ‘换行 Next I End Sub Private Sub Command1_Click() tr %, 3 ‘调用子过程 tr *, 5 ‘调用子过程 End Sub Private Sub tr(ByVal Str$, ByVal n%) Dim I As Integer, J As Integer For I = 1 To n ‘打印n行 Print Tab(n + 1 - i); 定位 For J = 1 To 2 * i – 1 每行打印字符 Print Str; Next J Print ‘换行 Next I End Sub Private Sub Command1_Click() tr %, 3 ‘调用子过程 tr *, 5 ‘调用子过程 End Sub 例：程序填空题。 下面程序由一个事件过程Form_click( )和一个自定义函数过程Mean( )组成。 事件过程的功能首先是产生由前N个自然数的平方所组成的数组: D(1)=1*1 D(2)=2*2 D(2)=2*2 … D(N)=N*N 并求出数组元素的算术平均值，在窗体上输出。 求平均值由自定义函数过程Mean( )完成。 该函数的参数为数组D()， Private Sub Form_Click() Dim d( ) As Single Dim i As Integer, n As Integer n = InputBox(N=) _____________ Print 所产生的; n; 个数是: For i = 1 To n d(i) = i * i Print d(i) Next i Print Print 他们的平均值是: Print _________ End Sub Private Function _ mean(d() As Single) _______ Dim i%, n%, x% n =_________ For i = 1 To n x = x + d(i) Next i mean = x / n End Function As Single ReDim d(1 To n) mean(d()) 求数组下标范围的函数 LBound(d) 下界 UBound(d) 上界 UBound(d) 说明变量语句的位置决定了变量的作用域：过程级(局部) 、文件级(模块)、工程级(全局) Dim x As Integer Private Sub Form_Click() x = 100 Call s1: Print x Call s2: Print x End Sub Private Sub s1() Dim x As Integer x = x + 200: Print x End Sub Private Sub s2() x = x + 200: Print x End Sub 例：注意：不同作用域的同名变量。 第 8 章 文件 顺序文件的读写、随机文件的读写 打开文件 读/写文件 关闭文件 Open 语句 读（磁盘→内存） 写（内存→磁盘） Close 语句 顺序写：Write #语句、Print #语句 顺序读：Input #语句、Line Input #语句 随机写： Put #语句 随机读： Get #语句 2011年6月28日 15：00 ~17：00 课室：A2105 工业设计及重修生 A3401 会计1班 A3402 会计2班 闭卷考试 带学生证，校园卡备查。 考试题型：填空题 选择题 阅读程序写出结果 程序填空题 程序设计题 常量、变量和数据类型是程序设计语言所包含的元素。 注