vb環(huán)境下的算法教學探討-wenkub.com
2025-04-13 12:18 本頁面
【正文】 滿足某條件時Exit Do][語句體]Loop總之，在計算機環(huán)境下進行算法教學既是《課程標準》的要求，也是教師教學的愿望，更是學生學習的需要。Private Sub Command1_Click()Dim C(10) As DoubleFor n = 1 To 6C(n) = InputBox(輸入需要排序的數(shù), 6個數(shù)的冒泡排序, )Next nFor i = 1 To 6For j = 6 To i Step 1If C(j) C(j 1) Then a = C(j): C(j) = C(j 1): C(j 1) = aNext jNext iFor i = 1 To 6Print , C(i)Next iEnd Sub事實上,我們只要掌握VB的幾個簡單語句,: 1．賦值語句:VB中的賦值運算符是“=”，其一般格式如下：變量=值2．輸入函數(shù)InputBox :此函數(shù)用于將用戶從鍵盤輸入的數(shù)據(jù)作為函數(shù)的返回值返回到當前程序中。第二次循環(huán)仍重復上述步驟，直到 第n－1個記錄，得到次大的記錄。分析：在排序過程中，將兩個相鄰記錄間的關鍵字進行比較，小者往上浮，大者往下沉，故稱冒泡排序。Private Sub Command1_Click()a = Val()b = Val()e = Val()fa = (a * a 1) * a 1fb = (b * b 1) * b 1If fa * fb = 0 Then = 求解范圍錯！ElseDox = (a + b) / 2f = (x * x 1) * x 1If f * fa 0 Thena = x: fa = fElseb = x: fb = fEnd IfLoop Until f = 0 Or Abs(b a) e = In
教學教案相關推薦
鄂ICP備17016276號-1