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