《visual basic語言程序設(shè)計教程》 第8章 循環(huán)結(jié)構(gòu)-文庫吧
2025-10-05 16:04 本頁面
【正文】 件完成最大公約數(shù)的計算。 False 輸入兩個自然數(shù) m,n r=m Mod n m=n n=r r0 輸出最大公約數(shù) m 開始 結(jié)束 True Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer m = Val() n = Val() End Sub Private Sub Command2_Click() = = = End Sub Private Sub Command3_Click() End End Sub Do r = m Mod n m = n n = r Loop While r 0 = m 信息系 外院 10 Do 循環(huán) 設(shè)計一個小程序，能夠?qū)崿F(xiàn)接收若干的專家的考評打分，輸入 1表示打分結(jié)束，最后計算出平均考評分 ?界面設(shè)計 ： 由于要接收的數(shù)據(jù)無法預(yù)知其個數(shù)，所以不適合利用文本框來接收數(shù)據(jù)，所以采用輸入函數(shù) InputBox，結(jié)合循環(huán)實現(xiàn) 利用 窗體的單擊事件完成最大公約數(shù)的計算，并在窗體上而顯示結(jié)果 輸入一個專家打分 Mark 總分累加 Total = Total + Mark 輸出平均考評分 Average 開始 結(jié)束 False True 總考評分清零 Total=0 Mark1 輸入下一個專家打分 Mark Average= Total / Num 考評分個數(shù)清零 Num=0 考評分個數(shù)累加 Num = Num + 1 Private Sub Form_Click () Dim Total As Single, mark As Single, average As Single Dim Num As Integer Total = 0: Num = 0 mark = Val(InputBox(請輸入第 amp。 Num + 1 amp。 個專家評分 (1表示結(jié)束輸入 ):)) Do While mark 1 Total = Total + mark Num = Num + 1 mark = Val(InputBox(請輸入第 amp。 Num+1 amp。 個專家評分 (1表示結(jié)束輸入 ):)) Loop average = Total / Num MsgBox Num amp。 個專家的平均分為： amp。 average End Sub 信息系 外院 11 習(xí)題 1. 依次在輸入 1,輸出結(jié)果是？ Private Sub Command_Click（） X=0 Do Until x = 1 a=Val(InputBox（“請輸入 A的值”） ) b=Val(InputBox（“請輸入 B的值”） ) x=Val(InputBox（“請輸入 X的值”） ) a=a+b+x print a Loop End Sub 輸出兩個結(jié)果，分別是 12和 2 信息系 外院 12 習(xí)題 2. 依次在輸入 1，輸出結(jié)果為 _______ Private Sub Command_Click（） X=0 Do Until x=1 a=Val(InputBox（“請輸入 A的值”） ) b=Val(InputBox（“請輸入 B的值”） ) x=Val(InputBox（“請輸入 X的值”） ) a=a+b+x Loop print a End Sub 輸出結(jié)果 只有一個 ， 2 信息系 外院 13 3. 運行下列程序，單擊窗體，則執(zhí)行結(jié)果是（） Private Sub Form_Click（） s=0 Do s=(s+1)*(s+2) Number= Number+1 Loop Until s = 30 Print Number ； s End Sub A) 0 1 B) 30 30 C) 4 30 D) 3 182 習(xí)題 信息系 外院 14 4. 運行下列程序，單擊窗體，則執(zhí)行結(jié)果是（） Private Sub Form_Click（） b=1 a=2 Do While b 10 b=2*a+b Loop Print b End Sub A) 13 B) 17 C) 21 D) 33 習(xí)題 信息系 外院 15 習(xí)題 5. 運行下列程序，單擊窗體，則執(zhí)行結(jié)果是 Private Sub Form_Click（） a = 100 Do s = s + a a = a + 1 Loop While a 111 Print a End Sub 結(jié)果 :a=101 信息系 外院 16 ，單擊窗體，則執(zhí)行結(jié)果是 _____ Private Sub Form_Click（） s = 0 i = 1 Do While i =100 If (i \ 5)
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1