[理學]華南理工大學vb期末復習-資料下載頁
2024-10-19 00:38本頁面
【正文】 ?調用子過程 tr *, 5 ?調用子過程 End Sub 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 39。每行打印字符 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)。 39。定位 For J = 1 To 2 * i – 1 39。每行打印字符 Print Str。 Next J Print ‘換行 Next I End Sub Private Sub Command1_Click() tr %, 3 ?調用子過程 tr *, 5 ?調用子過程 End Sub 例： 程序填空題。 下面程序由一個事件過程 Form_click( )和一個自定義函數(shù)過程 Mean( )組成。 事件過程的功能首先是產(chǎn)生由前 N個自然數(shù)的平方所組成的數(shù)組 : D(1)=1*1 D(2)=2*2 D(2)=2*2 … D(N)=N*N 并求出數(shù)組元素的算術平均值，在窗體上輸出。 求平均值由自定義函數(shù)過程 Mean( )完成。 該函數(shù)的參數(shù)為數(shù)組 D()， Private Sub Form_Click() Dim d( ) As Single Dim i As Integer, n As Integer n = InputBox(N=) _____________ Print 所產(chǎn)生的 。 n。 個數(shù)是 : 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()) 求數(shù)組下標范圍的函數(shù) 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 語句 讀（磁盤 → 內(nèi)存） 寫（內(nèi)存 → 磁盤） Close 語句 順序寫： Write 語句、 Print 語句 順序讀： Input 語句、 Line Input 語句 隨機寫： Put 語句 隨機讀： Get 語句
教學課件相關推薦
鄂ICP備17016276號-1