32vb三種程序結(jié)構(gòu)visualbasic語言作為結(jié)構(gòu)化程序設(shè)計語-資料下載頁
2025-08-23 15:09本頁面
【導(dǎo)讀】變量或?qū)ο髮傩?。轉(zhuǎn)換成左邊變量的精度。A=ˊA是整型變量，A中的結(jié)果是5?？沾畷r，則出錯。出現(xiàn)“類型不匹配”的錯誤。換為0；反之，當(dāng)數(shù)值型賦給邏輯型時，非0轉(zhuǎn)換為True，函數(shù)返回所選按鈕對應(yīng)的整數(shù)值，其數(shù)值的意義見后表。若不需要返回值，則作為MsgBox語句。答復(fù)按鈕+圖標(biāo)：確定在消息框中按鈕。變量名=InputBox(提示[,標(biāo)題][,默認值][橫坐標(biāo)，時，要用分隔符隔開。②輸出格式分為標(biāo)準(zhǔn)輸出格式和緊湊輸出格式。對于每個字符串，各個數(shù)據(jù)項之間沒有間隔。VB用于產(chǎn)生隨機數(shù)的公式取決于稱為種子的初始值。默認情況下，每次運行一個應(yīng)用程序，VB提供一相同的種子，即Rnd產(chǎn)生相同序列的隨機數(shù)。為了每次運行時，產(chǎn)生不同序
【正文】 到新的余數(shù) R。 （ 3） 如果 R仍不等于 0， 則重復(fù)步驟 （ 2） 。 如果R為零 ， 則這時的被除數(shù) N就是最大公約數(shù) 。 最小公倍數(shù)為這兩個數(shù)的乘積除以他們的最大公約數(shù) 。 編寫窗體單擊事件過程代碼如下： Private Sub Form_Click() Dim A As Integer, B As Integer, N As Integer, M As Integer, R As Integer, T As Integer M = InputBox(請輸入第一個正整數(shù) M,求 M、 N最大公約數(shù)和最小公倍數(shù) ) N = InputBox(請輸入第二個正整數(shù) N,求 M、 N最大公約數(shù)和最小公倍數(shù) ) A = M: B = N If M N Then 39。 使 M中存放較大的數(shù) ， N中存放較小的數(shù) T = M M = N N = T End If R = M Mod N Do While R 0 M = N N = R R = M Mod N Loop Print 最大公約數(shù)為： , N Print 最小公倍數(shù)為： , A * B / N End Sub T F 條件 循環(huán)體 Do… Loop While 語句流程圖 格式： Do 〈 循環(huán)體 〉 [Exit Do] 〈 循環(huán)體 〉 Loop While〈 條件表達式 〉 ⑵ . Do … Loop While 語句 說明： ① 至少要執(zhí)行循環(huán)體一次 。 ② 與 Do While循環(huán)的區(qū)別： Do While循環(huán)先測試條件是否成立 ， 只有成立才執(zhí)行循環(huán)；而該循環(huán)先執(zhí)行循環(huán)體 ， 后測試條件是否成立 。 例 求 1到 100之間所有自然數(shù)的平方和。 即 ??10012iiPrivate Sub cmdDoLoopWhile_Click() Dim i As Integer Dim Total As Long Do Total = Total + i * i i = i + 1 Loop While i = 100 = Do … Loop While 方法結(jié)果： = Format(Total) End Sub 格式： Do Until〈 條件表達式 〉 〈 循環(huán)體 〉 [Exit Do] 〈 循環(huán)體 〉 Loop ⑶ . Do Until …Loop 語句 Do Until … Loop 語句流程圖 F T 條件 循環(huán)體 ⑷ . Do …Loop Until 語句 格式： Do 〈 循環(huán)體 〉 [Exit Do] 〈 循環(huán)體 〉 Loop Until〈 條件表達式 〉 T F 條件 循環(huán)體 Do … Loop Until 語句流程圖 ? Private Sub cmdDoUntilLoop_Click() ? Dim i As Integer ? Dim Total As Long ? Do Until i 100 ? Total = Total + i * i ? i = i + 1 ? Loop ? ? Total ? End Sub 格式： While 〈 條件表達式 〉 循環(huán)體 Wend 功能： 當(dāng) While的條件表達式的值是 True時執(zhí)行循環(huán)體內(nèi)的代碼 ， 直到 While后的條件表達式的值為 False。 說明： 它與 Do … Loop語句的差別是： While … Wend語句中不能使用 Exit語句跳出循環(huán) 。 3. While … Wend 循環(huán) 例：求 N要求 N的階乘最接近 2020，但不大于 2020。 ? Private Sub Form_Click() ? Dim n%, f% ? n = 0 ? f = 1 ? While f 2020 ? n = n + 1 ? f = f * n ? Wend ? f = f / n ? n = n 1 ? Print n=。 n ? End Sub 多重循環(huán) 循環(huán)體內(nèi)含有循環(huán)語句的循環(huán)稱多重循環(huán)。 格式： For 循環(huán)變量 = 初值 To 終值 [Step 步長 ] 循環(huán)體 1 For 循環(huán)變量 = 初值 To 終值 [Step 步長 ] 循環(huán)體 2 Next [循環(huán)變量 ] 循環(huán)體 1 Next [循環(huán)變量 ] 類型說明符有： Dim I as integer Dim i% % 表示整型 amp。 表示長整型 ！ 表示單精度型 表示雙精度型 ＠ 表示貨幣型 ＄ 表示字符型 【 例 311】 編寫程序 ， 判斷用戶輸入的數(shù)是否為素數(shù) 。 素數(shù)是指除了 1和該數(shù)本身 ， 不能被任何其他整數(shù)所整除的數(shù) 。 判斷一個自然數(shù) n（ n =3） 是否為素數(shù) ， 只要依次用從 2到 n/2作除數(shù)去除 n， 若 n不能被其中任何一個數(shù)整除 ， 則 n為素數(shù) 。 若 flag為 0:沒有找到除了 1和它本身以外能整除 n的數(shù) ， 即 n為素數(shù)； flag為 1:則說明找到了某個能整除 n的正整數(shù) ， 即 n不是素數(shù) 。 Private Sub Form_Click() Dim n!, k%, flag%, i% n = InputBox (請輸入一個大于 2的整數(shù) ) k = Int (Sqr (n)) flag = 0 i = 2 While i = k And flag = 0 If n Mod i = 0 Then flag = 1 Else i = i + 1 End If Wend If flag = 0 Then Print n。 是素數(shù) Else Print n。 不是素數(shù) End If End Sub
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1