最新visualbasic程序設(shè)計教程自學(xué)指導(dǎo)書-資料下載頁
2025-06-29 02:50本頁面
【正文】 。12321 1234321 . . . 12345678987654321 解答：程序如下： PrivateSubForm_Click() ForI=1To9 Forj=1To303*I Print。 Nextj Fork=1ToI Printk。 Nextk Fork=I—1To1Step—1 Printk。 Nextk Print NextI EndSub 6．從鍵盤上輸入兩個正整數(shù)M和N，求最大公因子。 解答：程序如下： PrivateSubForm_Click() Dimm,nAsInteger m=InputBox(″請輸入M的值″) m=Val(m) m1=m n=InputBox(″請輸入N的值″) n=Val(n) n1=n DoWhilen0 remin=mModn m=n n=remin Loop Printm1。和。n1。的最大公因子是：。m EndSub 該程序通過輾轉(zhuǎn)相除法求兩個正整數(shù)的最大公因子。程序運(yùn)行后，在輸入對話框中分別輸入96和64，輸出結(jié)果為：96和64的最大公因子是：32 7．從鍵盤上輸入一個學(xué)生的學(xué)號和考試成績，然后輸出該學(xué)生的學(xué)號、成績，并根據(jù)成績按下面的規(guī)定輸出對該學(xué)生的評語： 成績80~10060~7950~5940~490~39 評語VerygoodGoodFairPoorFail 答案：程序如下： PrivateSubForm_Click() n=InputBox(″請輸入學(xué)號″) s=InputBox(″請輸入分?jǐn)?shù)″) Ifs=80Then MsgBox學(xué)號amp。namp。,分?jǐn)?shù)為amp。samp。,VerygoodElseIfs=60Ands=79Then MsgBox學(xué)號amp。namp。,分?jǐn)?shù)為amp。samp。,good ElseIfs=50Ands=59Then MsgBox學(xué)號amp。namp。,分?jǐn)?shù)為amp。samp。,Fair ElseIfs=40Ands=49Then MsgBox學(xué)號amp。namp。,分?jǐn)?shù)為amp。samp。,Poor ElseIfs=0Ands=39Then MsgBox學(xué)號amp。namp。,分?jǐn)?shù)為amp。samp。,Fail EndIf EndSub 程序運(yùn)行后，單擊窗體，在輸入對話框中分別輸入學(xué)號和分?jǐn)?shù)，程序?qū)⒃谳敵鰧υ捒蛑休敵鲞m當(dāng)評語。9
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1