高中信息技術vb知識要點(參考版)
2025-06-29 07:06本頁面
【正文】 7。（4） 在程序中比較大小、求最值。（2） 編程求簡單的分段函數(shù)的值。 年后, 人口=。例題：%的速度增長，問多少年后我國人口達到或超過15億？。進入循環(huán)體后，先執(zhí)行一次循環(huán)體A，然后再檢查條件P是否成立。 sumEnd SubDo－Loop循環(huán)ForNext循環(huán)的次數(shù)是確定的，但是有的問題只知道循環(huán)結束的條件，重復執(zhí)行的次數(shù)事先并不知道，這是需要DoLoop循環(huán)格式一： Do While 條件 循環(huán)體 Loop例題：求最大公約數(shù)Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim r As Integer a = Val() b = Val() r = a Mod b Do While r 0 a = b b = r r = a Mod b Loop = Str(b)End SubPrivate Sub Command2_Click() EndEnd Sub當VB執(zhí)行Do WhileLoop循環(huán)時，先判斷指定的條件是否為真，當條件為真，執(zhí)行循環(huán)體，條件為假時退出循環(huán)。程序設計的循環(huán)結構ForNext循環(huán)For循環(huán)變量一般形式是：For循環(huán)變量=初值To終值Step循環(huán)變量增量 循環(huán)體Next循環(huán)變量例題1：求s＝1+2+3+4.....+100Private Sub Form_Click() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 100 sum = sum + i 39。Private Sub Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox(請輸入變量x))If x = 0 Then y = 3 * x + 1Else y = 4 * x + 1End IfPrint y=。格式三：If 條件 Then 語句塊 End If例題：當從輸入一個數(shù)時，當該數(shù)大于或等于60時顯示及格，該數(shù)小于60時顯示不及格。若條件成立，則執(zhí)行語句1；否則執(zhí)行語句2。Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim Min As Single a = InputBox(輸入a, 輸入框) b = InputBox(輸入b, 輸入框) c = InputBox(輸入c, 輸入框) If a b Then Min = a Else Min = b If c Min Then Min = c Print 最小數(shù)＝。其一般格式為：格式一：If條件Then語句執(zhí)行這種形式的If語句時，首先對條件進行判斷。交換數(shù)據(jù) = Str(x) = Str(y)End SubPrivate Sub cmdEnd_Click() EndEnd Sub(2) 分支結構語句：掌握簡單兩層嵌套的If條件語句。例題：交換兩個變量中的數(shù)據(jù)。程序設計的順序結構順序結構：代碼
法律信息相關推薦
鄂ICP備17016276號-1