vb程序設(shè)計強化復(fù)習主題講座(參考版)
2025-01-15 23:32本頁面
【正文】 從變量的作用時間來說，局部變量有動態(tài)變量和靜態(tài)變量兩種。 Dim x As Integer, y As Integer Private Sub f1() x = x / 2 End Sub Private Sub f2() y = y / 2 End Sub Private Sub Command1_Click( ) Call f1 Call f2 Print x, y End Sub Private Sub Form_Load( ) x = 64 : y =64 End Sub ? 寫出四次單擊命令按鈕Command1后窗體上的輸出結(jié)果。 ? 在標準模塊中用 public修飾的通用過程，可以被工程中所有模塊調(diào)用。 聲明部分 通用過程 事件過程 ? 標準模塊 (*.bas):存放通用過程。 i amp。 )=): Next i Call f(a, n) For i = 1 To n: Print a(i)。4 End If Next i End Sub 2022春試題 6 Private Sub f(b() As Integer, ByRef m As Integer) Dim i As Integer, j As Integer, k As Integer i = 1 Do While i = m For j = 1 To m If b(i) Mod b(j) = 0 And i j Then For k = i To m 1: b(k) = b(k + 1): Next k Exit For End If Next j If j m Then i = i + 1 Else m = m 1 Loop End Sub Private Sub Command1_Click() Dim a(6) As Integer, i As Integer, n As Integer n = 6 For i = 1 To 6: a(i) = InputBox(a( amp。2 i End If Next i End Sub Public Sub factor(ByVal x As Integer, ByRef k As Integer) Dim i As Integer a(1) = 1 k = 1 39。因子和 For i = 1 To 1000 n = 0 s = 0 factor 39。存放每個數(shù)分解出來的因子 Public Sub cloze() Dim i As Integer, j As Integer Dim n As Integer 39。所謂完數(shù)是指一個數(shù)的所有因子之和等于其自身。 y End Sub Private Sub Form_Click() Dim a As Integer, b As Integer a = 1: b = 1 Call ff(a, b) Print a。 DataProduce過程用于產(chǎn)生原始數(shù)據(jù)； Average過程用于計算各行的平均值； PrintArraay過程用于打印二維數(shù)組和行平均值 。 Sub prnt(b() As String * 1, n As Integer) Dim i As Integer For i = 1 To n Print b(i)。否則 ,打印 今年不是閏年 。 Dim k As Integer number = 0 For k
教學課件相關(guān)推薦
鄂ICP備17016276號-1