[理學(xué)]華南理工大學(xué)vb期末復(fù)習(xí)(參考版)
2024-10-22 00:38本頁(yè)面
【正文】 個(gè)數(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ù)組下標(biāo)范圍的函數(shù) LBound(d) 下界 UBound(d) 上界 UBound(d) 說(shuō)明變量語(yǔ)句的位置決定了變量的作用域： 過(guò)程級(jí) (局部 ) 、文件級(jí) (模塊 )、工程級(jí) (全局 ) 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 例： 注意：不同 作用域的 同名變量。 該函數(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)生的 。 事件過(guò)程的功能首先是產(chǎn)生由前 N個(gè)自然數(shù)的平方所組成的數(shù)組 : D(1)=1*1 D(2)=2*2 D(2)=2*2 … D(N)=N*N 并求出數(shù)組元素的算術(shù)平均值，在窗體上輸出。 Next J Print ‘換行 Next I End Sub Private Sub Command1_Click() tr %, 3 ?調(diào)用子過(guò)程 tr *, 5 ?調(diào)用子過(guò)程 End Sub 例： 程序填空題。定位 For J = 1 To 2 * i – 1 39。 Next j Print ‘換行 Next I End Sub Private Sub Command1_Click() tr %, 3 ?調(diào)用子過(guò)程 tr *, 5 ?調(diào)用子過(guò)程 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)。 Next J Print ‘換行 Next I End Sub Private Sub Command1_Click() tr %, 3 ?調(diào)用子過(guò)程 tr *, 5 ?調(diào)用子過(guò)程 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。 分析：子過(guò)程的兩個(gè)形參： 打印字符 str 打印行數(shù) n。 Print ， ， ， s(1).no， s(2).no， s(1).xy 調(diào)用： Call Are(Ch， Kw) 或者 Are x， y 第 7 章 過(guò)程 子過(guò)程： Private Sub Are ( x！ , byval y！ ) …… End Sub Public Function fac
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1