高中信息技術(shù)vb知識(shí)要點(diǎn)(文件)
【正文】 r 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當(dāng)VB執(zhí)行Do WhileLoop循環(huán)時(shí)，先判斷指定的條件是否為真，當(dāng)條件為真，執(zhí)行循環(huán)體，條件為假時(shí)退出循環(huán)。例題：%的速度增長(zhǎng)，問(wèn)多少年后我國(guó)人口達(dá)到或超過(guò)15億？。（2） 編程求簡(jiǎn)單的分段函數(shù)的值。7。（4） 在程序中比較大小、求最值。 年后, 人口=。進(jìn)入循環(huán)體后，先執(zhí)行一次循環(huán)體A，然后再檢查條件P是否成立。程序設(shè)計(jì)的循環(huán)結(jié)構(gòu)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。格式三：If 條件 Then 語(yǔ)句塊 End If例題：當(dāng)從輸入一個(gè)數(shù)時(shí)，當(dāng)該數(shù)大于或等于60時(shí)顯示及格，該數(shù)小于60時(shí)顯示不及格。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ù)＝。交換數(shù)據(jù) = Str(x) = Str(y)End SubPrivate Sub cmdEnd_Click() EndEnd Sub(2) 分支結(jié)構(gòu)語(yǔ)句：掌握簡(jiǎn)單兩層嵌套的If條件語(yǔ)句。程序設(shè)計(jì)的順序結(jié)構(gòu)順序結(jié)構(gòu)：代碼按照由上到下的順序一行一行地執(zhí)行。格式：LoadPicture([filename], [size], [colordepth],[x,y])Sin(x) 求X的正弦值 例：Sin（）≈Cos(x) 求X的余弦值 例：Cos() ≈Tan(x) 求X的正切值 例：Tan() ≈1Atn(x) 求X的反正切值 例：Atn(1) ≈Exp(x) 求以e為底，以X為指數(shù)的值 例：Exp(1) =Log(x) 求以e為底的X的對(duì)數(shù) 例：Log()=1注意：使用三角函數(shù)時(shí)，參數(shù)應(yīng)是弧度，如數(shù)學(xué)中sin300應(yīng)寫(xiě)為：sin(30*)字符串函數(shù)：Len(字符串) 求字符串的長(zhǎng)度 例：Len(“hello”) = 5Left(字符串，截取長(zhǎng)度) 截取字符串左邊部分 例: Left(“hello”,2) = “he”Mid(字符串，起始位置，截取長(zhǎng)度) 例：Mid(“hello”,2,2) = “el”Right (字符串,長(zhǎng)度) 截取字符
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1