VisualBasic程序設(shè)計教程第三版課后習(xí)題答案_第1頁
VisualBasic程序設(shè)計教程第三版課后習(xí)題答案_第2頁
VisualBasic程序設(shè)計教程第三版課后習(xí)題答案_第3頁
VisualBasic程序設(shè)計教程第三版課后習(xí)題答案_第4頁
VisualBasic程序設(shè)計教程第三版課后習(xí)題答案_第5頁
已閱讀5頁,還剩70頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

/《》綜合復(fù)習(xí)資料第一章VisualBasic程序設(shè)計概述一、填空題1、VisualBasic是一種面向__________的可視化程序設(shè)計語言,采取了__________的編程機(jī)制。2、在VB中工程文件的擴(kuò)展名是____________,窗體文件的擴(kuò)展名是____________,標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是____________。3、執(zhí)行“工程”菜單下的__________命令,可選擇并添加ActiveX控件。4、VisualBasic6.0用于開發(fā)__________環(huán)境下的應(yīng)用程序。二、選擇題1、下面不是VB工作模式的是()A.設(shè)計模式 B.運行模式 C.匯編模式 D.中斷模式2、可視化編程的最大優(yōu)點是()A.具有標(biāo)準(zhǔn)工具箱 B.一個工程文件由若干個窗體文件組成C.不需要編寫大量代碼來描述圖形對象 D.所見即所得3、下列不能打開屬性窗口的操作是()A.執(zhí)行“視圖”菜單中的“屬性窗口”命令B.按F4鍵C.按Ctrl+TD.單擊工具欄上的“屬性窗口”按鈕4、下列可以打開立即窗口的操作是()A.Ctrl+D B.Ctrl+E C.Ctrl+F D.Ctrl+G5、VisualBasic的編程機(jī)制是()A.可視化B.面向?qū)ο驝.面向圖形D.事件驅(qū)動三、簡答題1、代碼窗口主要包括哪幾部分?2、在工程資源管理器窗口中,主要列出了哪三類文件?3、窗體布局窗口的主要用途是什么?4、VB的基本特點是什么?5、怎樣理解可視化設(shè)計?6、怎要理解事件驅(qū)動編程?第二章簡單的VB程序設(shè)計一、填空題1、設(shè)置是否可以用Tab鍵來選取命令按鈕,應(yīng)該用______________屬性。2、一個控件在窗體的位置由_______和________屬性決定,其大小由__________和_________屬性決定。3、利用對象的屬性setfocus可獲得焦點,對于一個對象,只有其visible屬性和____________屬性為true,才能接受焦點。4、設(shè)置控件背景顏色的屬性名稱是______________________。5、所有控件都具有的共同屬性是__________________屬性。6、一般情況下,控件有兩個屬性項的缺省值是相同的,這兩個屬性項是_______________。7、VB中的每個對象(控件)都有一組特征,這組特征稱為__________,我們通過修改它可以控制對象的外觀和操作。8、通常情況下,VB中一個工程主要包括如下四個文件:窗體文件、工程文件、類模塊文件和_____________文件,后者的擴(kuò)展名為.Bas,通常由Basic語言編寫,是一個可共用的子程序。9、VB有三種工作模式,分別是設(shè)計(Design)模式、_____________和中斷(Break)模式。二、選擇題1、以下能夠觸發(fā)文本框Change事件的操作是()A.文本框失去焦點 B.文本框獲得焦點C.設(shè)置文本框的焦點 D.改變文本框的內(nèi)容2、應(yīng)用程序設(shè)計完成后,應(yīng)將程序保存,保存的過程是()A.只保存窗體文件即可B.只保存工程文件即可C.先保存工程文件,之后保存窗體文件D.先保存窗體文件(或標(biāo)準(zhǔn)模塊文件),之后還要保存工程文件3、VB應(yīng)用程序的運行模式是()A.解釋運行模式 B.編譯運行模式 C.兩者都有 D.匯編模式4、任何控件都具有的屬性是()A.TEXT B.CAPTION C.NAME D.FORECOLOR5、決定控件上文字的字體、字形、大小與效果的屬性是()A.TEXT B.CAPTION C.NAME D.FONT6、在窗體上建立了多個控件,如TEXT、LABEL1、COMMAND1,若要使程序一運行焦點就定位在COMMAND1控件上,應(yīng)將COMMAND1控件的()設(shè)置為0A.INDEX B.TABINDEX C.TABSTOP D.ENABLED7、運行時,當(dāng)用戶向文本框輸入新的內(nèi)容,或在程序代碼中對文本框的TEXT屬性進(jìn)行賦值從而改變了文本框的TEXT屬性值時,將觸發(fā)文本框的()事件A.CLICK B.DBLCLICK C.GOTFOCUS D.CHANGE8、在運行時,按TAB鍵跳過了一個可以獲得焦點的控件(如文本框),則可能是因為()A.該控件的TABSTOP屬性值為TRUE B.該控件的TABINDEX屬性值為FALSEC.該控件的ENABLED屬性值為TRUE D.該控件的ENABLED屬性值為FALSE9、為了防止用戶隨意將光標(biāo)置于控件上,應(yīng)()A.將控件的TABINDEX屬性設(shè)置為0B.將控件的TABSTOP屬性設(shè)置為TRUEC.將控件的TABSTOP屬性設(shè)置為FALSED.將控件的ENABLED屬性設(shè)置為FALSE10、若要使標(biāo)簽控件顯示時,不覆蓋其背景內(nèi)容,應(yīng)設(shè)置標(biāo)簽控件的()屬性A.BACKCOLOR B.BORDERSTYLEC.FORECOLOR D.BACKSTYLE11、如果要在文本框中輸入字符時,只顯示某個字符,如星號(*),運行時,在文本框中輸入的字符仍然顯示出來,而不顯示星號,原因可能是()A.文本框的MULTILINE屬性值為TRUEB.文本框的LOCKED屬性值為TRUEC.文本框的MULTILINE屬性值為FALSED.文本框的LOCKED屬性為FALSE12、在運行階段,要在文本框TEXT1獲得焦點時選中文本框中所有內(nèi)容,對應(yīng)的事件過程是()A.PrivateSubText1_GotFocus()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSubB.PrivateSubText1_LostFocus()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSubC.PrivateSubText1_Change()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSubD.PrivateSubText1_SetFocus()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSub13、VisualBasic繼承了Basic語言簡單易用的語法特點,同時支持面向?qū)ο蟮木幊虣C(jī)制,其中構(gòu)成其控件(對象)的三要素是()A.屬性、事件、事件過程 B.控件、窗體、事件C.屬性、過程、方法 D.屬性、事件、方法14、決定標(biāo)簽(Label)顯示的屬性是()A.TextB.NameC.CaptionD.Alignment15、命令按鈕的標(biāo)題文字由()屬性來設(shè)置。A.TextB.CaptionC.NameD.(名稱)16、若要設(shè)置文本的顯示顏色,則可用()屬性來實現(xiàn)。A.BackColor B.ForecolorC.FillColorD.Backstyle17、在運行時,若要調(diào)用某命令鈕的Click事件過程,則可設(shè)置該命令鈕對象的()屬性為Ture來實現(xiàn)。A.EnabledB.ValueC.DefaultD.Cancel18、在運行時,若要獲得用戶在文本框中所選擇的文本,可通過訪問()屬性來實現(xiàn)。A.SelStart B.SelLenght C.Text D.SelText三、簡答題1、事件驅(qū)動的含意是什么?舉例說明。2、交互式開發(fā)方法和傳統(tǒng)的應(yīng)用程序開發(fā)過程有什么不同?3、文本框在什么情況下使用?4、什么是工程?5、結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)是什么?6、對象的三要素是什么?并分別進(jìn)行簡單的解釋。7、為什么要生成可執(zhí)行文件和制作安裝盤?8、使用變量前先聲明有什么好處?9、如何使用幫助功能?10、結(jié)構(gòu)化程序設(shè)計的特點是什么?11、為了把焦點移到某個指定的控件,在代碼中應(yīng)使用的方法是什么?12、啟動VisuaBasic后,只創(chuàng)建了一個窗體,若此時保存,需要保存幾個文件?各是什么文件?先保存的是哪一個?13、為了防止文本框中的信息運行后被用戶修改,應(yīng)設(shè)置什么屬性?第三章VB基本語言一、填空題1、一般可以使用__________關(guān)鍵字聲明常量。2、______類型也稱變體類型,是一種通用的、可變的數(shù)據(jù)類型,它可表示或存儲任何一種數(shù)據(jù)類型。3、變量的聲明分為兩種方法:__________和____________。4、在VB中,用___________________語句設(shè)定數(shù)組的下界,用_____________和__________________語句分別返回數(shù)組的上、下界。5、在代碼模塊中加入OptionExplicit的目的是_____________________。6、functionaa(a1asdate,optionala2asboolean)assingle,寫出optional命令的作用__________________。7、在VB中,我們用一個簡單的______語句就能實現(xiàn)退出程序。8、生成消息框的命令是____________,生成輸入框的命令是____________。9、通用對話框(commondialog)屬activex控件,它可以顯示多個標(biāo)準(zhǔn)對話框,包括打開/另存為、字體、打印等對話框,若要顯示所有文件,則應(yīng)設(shè)置其屬性filter=____________,若要使它顯示為打印對話框,則應(yīng)使用什么方法____________。10、從字符串中任意位置截取字符的函數(shù)是__________。11、語句Forj=3To20Step3使循環(huán)體執(zhí)行了______次。12、對于正在使用的動態(tài)數(shù)組Arraya(),要增加一個單元,但不能破壞數(shù)組內(nèi)的數(shù)據(jù),則應(yīng)使用語句__________________________________。13、在VisualBasic中聲明靜態(tài)變量的關(guān)鍵字是_________________。14、表達(dá)式10Mod6\4的值為______。15、表達(dá)式chr(Asc("a")+5)的值為_________。16、VB中使用注釋有2種方法,即________和________。17、VB中的數(shù)據(jù)以四種形式存儲:常量、_________、_________和記錄。18、為了在VB中存儲一個4行5列的二維矩陣,需要定義一個整型的數(shù)組,請把數(shù)組定義語句補(bǔ)充完整:DimJuzhen(__)asInteger。19、控件數(shù)組由一組相同類型的控件組成,這些控件共用一個相同的控件名,但是每個控件都有一個唯一的下標(biāo)來區(qū)分,我們使用屬性____來設(shè)置下標(biāo)。20、在過程調(diào)用中,實現(xiàn)調(diào)用過程的實參和被調(diào)用過程的形參之間的數(shù)據(jù)傳遞有兩種方式:按值傳遞和____。21、為了保證程序中必須對變量的強(qiáng)制性定義,需要在代碼模塊的聲明部分加入______________語句。22、分析For……Next循環(huán)結(jié)構(gòu)的實例:Fori=5To30Step2中,循環(huán)體一共執(zhí)行了______次。23、表達(dá)式Mid("UniversityOfPetroleum",8,4)的值為_________。24、常量分為普通常量和__________常量。25、要將大寫字母轉(zhuǎn)換為小寫字母,可使用____________函數(shù)。26、不管焦點在哪個控件上,按__________鍵相當(dāng)于按了取消按鈕。27、執(zhí)行“工程”菜單下的__________命令,可選擇并添加ActiveX控件。28、__________是程序中VB停止執(zhí)行的地方。29、邏輯常量為True或__________。30、使用了__________________的聲明后,當(dāng)程序中使用未經(jīng)聲明的變量時,程序運行時會報錯。31、要將小寫字母轉(zhuǎn)換為大寫字母,可使用____________函數(shù)。32、自字符串N1位開始向右取N2個字符,要使用_________________函數(shù)。33、日期常量表示時,用符號__________將日期型數(shù)據(jù)括起來。34、局部變量只能在__________中聲明和使用。35、模塊級變量的聲明關(guān)鍵字是Dim或__________。36、函數(shù)Abs(x)的功能是__________。37、表達(dá)式3/6*5的值是__________。二、選擇題1、以下哪個是合法的變量()A.right B.a(chǎn)bc@123 C.123_abc D.a(chǎn)b123c2、下列說法錯誤的是()A.在同一模塊不同過程中的變量可以同名B.不同模塊中定義的全局變量不可以同名C.引用另一模塊中的全局變量時,必須在變量名前加模塊名D.同一模塊中不同級的變量可以同名3、把MsgBox的返回值轉(zhuǎn)換為數(shù)值應(yīng)該使用的函數(shù)是()A.LogB.StrC.LenD.Val4、語句DIMAA(3,4,5)中定義的數(shù)組有()個元素A.12B.60C.120D.3455、下面程序運行后輸出的結(jié)果是()A$="CHINA"B$=STRING$(3,A$)PRINTB$ENDA.CHIB.CCCC.INAD.AAA6、以下語句的輸出結(jié)果是()PrintFormat$(32548.5,"000,000.00")A.32548.5B.325,485.00C.032,548,50D.32,548,507、以下敘述中錯誤的是()A.如果過程被定義為Static類型,則該過程中的局部變量都是Static類型B.Sub過程中不能嵌套定義Sub過程C.Sub過程中可以嵌套調(diào)用Sub過程D.事件過程可以像通用過程一樣由用戶定義過程名8、VisualBasic提供的OnErrorResumenext錯誤陷阱語句表示()A.當(dāng)發(fā)生錯誤時,使程序轉(zhuǎn)跳到語句標(biāo)號為0的程序塊B.當(dāng)發(fā)生錯誤時,不使用錯誤處理程序塊C.當(dāng)發(fā)生錯誤時,忽略錯誤行,繼續(xù)執(zhí)行下一語句D.當(dāng)發(fā)生錯誤時,終止本過程執(zhí)行,繼續(xù)執(zhí)行下一過程9、在VisualBasic中,若要將控制權(quán)交給操作系統(tǒng)則通過()的語句。A.EndB.ExitDoC.ExitSubD.DoEvents10、在VisualBasic中語句的續(xù)行號采用()A.空格與下劃線 B.下劃線與空格C.空格與短線D.短線與空格11、假定有以下程序段:Fori=1to3 Forj=5to1Step–1 Printi*j Nextj,i則語句Printi*j的執(zhí)行次數(shù)是()A.15B..16C.17D.1812、從鍵盤上輸入兩個字符串,分別保存在變量str1、str2中。確定第二個字符串在第一個字符串中起始位置的函數(shù)是()A.LeftB.MidC.StringD.Instr13、如果將布爾常量值TRUE賦值給一個整型變量,則整型變量的值為()A.0 B.-1 C.TRUE 14、下列敘述不正確的是()A.注釋語句是非執(zhí)行語句,僅對程序的內(nèi)容起注釋作用,它不被解釋和編譯B.注釋語句可以放在代碼中的任何位置C.注釋語句不能放在續(xù)行符的后面D.代碼中加入注釋語句的目的是提高程序的可讀性15、語句PRINT“INT(-13.2)”;INT(-13.2)的輸出結(jié)果為()A.INT(-13.2)=-13.2 B.INT(-13.2)=13.2C.INT(-13.2)=-13 D.INT(-13.2)=-1416、如果TAB函數(shù)的參數(shù)小于1,則打印位置在第()列A.0 B.1 C.2 17、變量未賦值時,數(shù)值型變量的值為()A、0 B.空 C.1 D.無任何值18、下列語句中正確的是()A.txt1.text+txt2.text=txt3.text B.=cmdokC.12label.caption=1234 D.a(chǎn)=inputbox(“hello”)19、假設(shè)變量BOOLVAR是一個布爾型變量,則下面正確的賦值語句是()A.BOOLVAR=‘TRUE’ B.BOOLVAR=.TRUEC.BOOLVAR=#TRUE# D.BOOLVAR=3<420、以下()程序段可以實施X、Y變量值的變換()A.Y=X:X=Y B.Z=X:Y=Z:X=YC.Z=X:X=Y:Y=Z D.Z=X:W=Y:Y=Z:X=Y21、語句PRINT“SGN(-26)=”;SGN(-26)的輸出結(jié)果為()A.SGN(-26)=26 B.SGN(-26)=-26C.SGN(-26)=+1 D.SGN(-26)=-122、讀下面程序段,判斷變量Str2的取值是()DimStr1,Str2asStringStr1="University"Str2=STRING$(3,Str1)A.Uni B.UUUC.ity D.yyy23、VB支持自定義數(shù)據(jù)類型,在某程序中我們定義了如下類型:TypeStudentnumberAsstringnameAsStringageAsIntegerEndType針對上述定義,如下幾項用法正確的是()A.S="張三"B.DimsAsS="張紅"C.DimsAsTypeStudentD.DimsAsType="張三"="張三"24、一個工程中包含兩個名稱分別為Form1、Form2的窗體,一個名稱為mdlFunc的標(biāo)準(zhǔn)模塊。假定在Form1、Form2和mdlFunc中分別建立了自定義過程,其定義格式為:Form1中定義的過程:PrivateSubfrmfunction1()EndSubForm2中定義的過程:PublicSubfrmfunction2()EndSubmdlFunc中定義的過程:PublicSubmdlFunction()EndSub在調(diào)用上述過程的程序中,如果不指明窗體或模塊的名稱,則以下敘述中正確的是()A.上述三個過程都可以在工程中的任何窗體或模塊中直接被調(diào)用B.只有mdlFunction過程能夠被工程中各個窗體或模塊直接被調(diào)用C.frmfunction1只能在form1中調(diào)用,而frmfunction2則可以在所有模塊或窗體中被直接調(diào)用D.上述三個過程都只能在各自被定義的模塊中直接調(diào)用25、VB中Do……Loop結(jié)構(gòu)既可以構(gòu)成當(dāng)型循環(huán),也可以構(gòu)成直到型循環(huán),根據(jù)下面的代碼:Dimi,nasIntegern=20i=1DoPrinti;i=i+2LoopUntili>20判斷循環(huán)結(jié)構(gòu)的類型和循環(huán)體的執(zhí)行次數(shù),正確的選項是()A.當(dāng)型循環(huán),20次 B.直到型循環(huán),10次C.當(dāng)型循環(huán),10次 D.直到型循環(huán),20次26、在程序中,使用InputBox函數(shù)可以接受用戶的輸入,如果要把它的返回值轉(zhuǎn)換為數(shù)值型的數(shù)據(jù),應(yīng)該使用的函數(shù)是()A.Val B.LenC.Str D.Log27、動態(tài)數(shù)組因為在程序運行前無法確定數(shù)組的大小,所以經(jīng)常根據(jù)程序的運行情況,對數(shù)組進(jìn)行重新定義,以下關(guān)于VB中動態(tài)數(shù)組的敘述中不正確的是()A.可以用ReDim語句重新定義動態(tài)數(shù)組,并且可以進(jìn)行多次重定義B.首次用Dim進(jìn)行動態(tài)數(shù)組聲明的時候,必須指明它的類型和上下界C.Preserve為ReDim語句的可選參數(shù),用于保留動態(tài)數(shù)組原來的內(nèi)容D.當(dāng)對動態(tài)數(shù)組使用Erase語句進(jìn)行釋放操作時,將釋放其內(nèi)存28、VB中的控件也叫做部件或組件,主要包括三類,以下哪一項不屬于VB控件的分類()A.控件 B.可插入對象C.ADO控件 D.ActiveX控件29、表達(dá)式4+5\6*7/8Mod9的值是()A.4 B.5 C.6 D.730、可以同時刪除字符串前導(dǎo)和尾部空白的函數(shù)是()A.Ltrim B.Rtrim C.Trim D.Mid三、簡答題1、全局變量聲明有哪些限制?2、字符串是否可以自動轉(zhuǎn)換為數(shù)字類型?3、用Format函數(shù)格式化后的字符格式在不同區(qū)域環(huán)境下的輸出是否相同?為什么?4、在InputBox函數(shù)中,哪一個參數(shù)是必需的?5、在MsgBox函數(shù)中哪一個參數(shù)是必須的?6、在什么情況下使用過程?7、為什么要進(jìn)行程序調(diào)試?8、調(diào)試程序有哪些手段?9、用語句DimA(-3To5)AsInteger定義的數(shù)組的元素個數(shù)是多少?10、設(shè)有如下的VisualBasic表達(dá)式:5*x^2-3*x-2*Sin(a)/3,與它對應(yīng)的數(shù)學(xué)式是什么?11、數(shù)學(xué)式對應(yīng)的VB表達(dá)式是什么?12、表達(dá)式2>3And4<=5Or4>4的值是什么?13、怎樣在程序中設(shè)置斷點?14、在什么情況下可以設(shè)置斷點?15、程序出錯的類型有哪幾種?16、在同一模塊、不同過程中聲明的相同變量名,兩者是否表示同一個變量?為什么?17、什么情況下會出現(xiàn)“數(shù)組下標(biāo)越界錯誤”?18、逐語句和逐過程有什么區(qū)別?19、表達(dá)式2.75*2\3.45的值是什么?20、在程序設(shè)計中為什么盡量不用GoTo語句?四、讀程序題1、分析以下程序,寫出運行結(jié)果。PrivateSubForm_Click()score=Int(Rnd*10)+80SelectCasescoreCaseIs<60A$="F"Case60To69A$="D"Case70To79A$="C"Case80To89A$="B"CaseElseA$="A"EndSelectPrintA$EndSub2、讀下面的程序,分析其功能,寫出運行結(jié)果。在窗體上有一個命令按鈕,名稱為Command1。然后編寫如下程序:PrivateSubCommand1_Click()ForI=1To4ForJ=0ToIPrintChr$(65+I);NextJPrintNextIEndSub程序運行后,如果單擊命令按鈕,則在窗體上顯示的內(nèi)容是什么?3、閱讀下面的程序,分析并寫出其功能。Subinsert(a()AsSingle,ByValxAsSingle)Dimmasinteger,nasintegern=1DoWhilen<20Andx>a(n) n=n+1LoopForm=20-1TonStep–1 a(m+1)=a(m)Nextma(n)=xEndSub4、分析以下程序,寫出運行結(jié)果。SubsubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommandl_Click()Dima(1To4)AsIntegera(1)=5a(2)=6a(3)=7a(4)=8subPa()Fori=1To4Printa(i)NextiEndSub運行上面的程序,單擊命令按鈕,輸出結(jié)果是什么?5、分析以下程序,寫出運行結(jié)果。Subsele()DimnasIntegeri=21:n=3DoWhilei>ni=i-nLoopPrintiEndSub6、分析以下程序,寫出運行結(jié)果。SubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegera=2:b=5:c=2If(a>=b)and(a>=c)or(b>c)ThenPrintaa=a+2ElsePrintbEndIfPrinta;b;cEndSub7、分析以下程序,寫出運行結(jié)果。Subswap()DimxasIntegerDimyasIntegerDimzasIntegerx=1:y=2:z=0Printx;y;zx=x+yx=x*zPrintx,y,zEndSub8、分析以下程序,寫出運行結(jié)果。SubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegera=3:b=3:c=2If(a>=b)and(a>c)ThenPrintaPrinta,b,cEndSub五、編程題1、輸入一年號,判斷它是否是閏年。界面如下圖所示,包括兩個標(biāo)簽、一個文本框和一個命令按鈕。提示:如果此年號能被400整除或者不能被400除盡,也不能被100除盡,但能被4整除,則它是閏年;否則,不是閏年。2、輸入兩個正整數(shù)m、n,求m和n的最大公約數(shù)。要求建立如下圖所示的窗體,其中主要的控件包括:兩個標(biāo)簽(Lable1、Lable2)、兩個文本框(Text1、Text2)和一個按鈕(Command1)。3、輸入某學(xué)生成績(百分制),若是100≥成績≥90輸出優(yōu)秀;若是90>成績≥80輸出良好;若是80>成績≥70輸出中等;若是70>成績≥60輸出與格;若是60>成績≥0,輸出不與格;若是其他數(shù)則輸出error信息。4、在窗體中顯示從9號字型到16號字型。5、在有序序列中插入一個數(shù),使插入后的數(shù)列仍然有序(設(shè)按由小到大排列)。6、編程實現(xiàn)二維數(shù)組轉(zhuǎn)置。7、隨機(jī)輸入10個100以內(nèi)的整型數(shù),計算其和與平均值。8、找出所有的水仙花數(shù)。水仙花數(shù)是個三位數(shù),它的各位數(shù)字的立方和等于這個三位數(shù)本身。例如371=33+73+13,則371是水仙花數(shù)。9、從鍵盤輸入一個大于2的正整數(shù),判斷該數(shù)是否是素數(shù)。10、求二維數(shù)組中的最小值與其所在行號、列號。11、求一元二次方程ax2+bx+c=0的根(包括實根和復(fù)根)。12、輸入一個正整數(shù)n,計算出n!并輸出。13、Faibonacci數(shù)列為0,1,1,2,3,5,8,13…,計算并輸出第20項以與前20項的和。第四章常用控件與窗體一、填空題1、向列表框控件添加新項目的方法是__________。2、在VB中,最主要的兩種對象是____________和____________。3、當(dāng)窗體啟動時可通過__________屬性控制窗體位于所有者的中心位置。4、若要將窗體Form1隱藏起來,則可通過執(zhí)行代碼_________________來實現(xiàn)。5、要使裝入到列表框中的數(shù)據(jù)項能自動按字母順序排序,應(yīng)設(shè)置該控件的_________屬性為__________。6、窗體上放置了若干個文本框和命令按鈕,當(dāng)窗體裝入后,要將焦點自動定位到文本框Text1上,則在設(shè)計時需要將__________控件的_________屬性設(shè)置為__________。7、在標(biāo)簽控件中通過編程使文字換行用的代碼是___________________。8、設(shè)置計時器控件只能觸發(fā)______________________事件。9、設(shè)置計時器對象觸發(fā)事件的時間間隔用_____________________屬性。10、滾動條控件主要支持兩個事件,它們是_______________事件。11、要使鼠標(biāo)停留在按鈕上顯示特殊的鼠標(biāo)形狀,應(yīng)設(shè)置的屬性值是_________________。12、設(shè)某列表框共有10項,按題目要求補(bǔ)齊程序,完成相應(yīng)的功能。(1)按下命令按鈕Command1時將列表框第8項的內(nèi)容顯示在窗體上:PrivateSubCommand1_Click()List.__________(7)=TruePrintList1.______________EndSub(2)單擊列表框某一項時立即將該項打印在窗體上:PrivateSubList1_Click()Print_______________EndSub(3)按下命令按鈕Command1時在窗體上刪除第1、3、5、7、9項:PrivateSubCommand1_Click()ForI=1To5List1.____________NextIEndSub(4)在列表框的每一項之后插入一個新的項:PrivateSubCommand1_Click()ForI=1to10X=InputBox(“請輸入插入的第”&I&“項內(nèi)容”)List1.AddItem____________NextIEndSub13、設(shè)在界面上放置了一個滾動條Hscroll1和一個標(biāo)簽控件Label1,要使每次單擊滾動條兩端箭頭時,或單擊滾動條滑塊與兩端箭頭之間的空白區(qū)域時,標(biāo)簽內(nèi)容能夠反映滾動條的值,補(bǔ)齊以下代碼。PrivateSubHscroll1.__________________()Label1.Caption=Hscroll1.___________________EndSub要使拖動滾動條滑塊時標(biāo)簽內(nèi)容能夠反映滾動條的值,補(bǔ)齊以下代碼。PrivateSubHscroll1.________________()Label1.Caption=Hscroll1.__________________EndSub14、列表框(ListBox)用于列出可供選擇的項目的列表,用戶可以選擇一個或多個項目。它具有幾個非常重要的數(shù)組屬性,其中____屬性存放了列表框中所有項目的值。15、菜單項一般由標(biāo)題、訪問鍵、快捷鍵和復(fù)選標(biāo)志等構(gòu)成,通過對相應(yīng)的屬性進(jìn)行設(shè)置可以改變這些項目的狀態(tài),其中與復(fù)選標(biāo)志相對應(yīng)的屬性是____。16、keydown與keypress事件各有其參數(shù),若需獲得用戶按下"a"還是"A"需用____________事件。17、控件________組合了文本框和列表框的功能,是VB中一種功能非常強(qiáng)大的選擇類控件。18、若需要將窗體Form2以模態(tài)窗口的形式顯示出來,可通過執(zhí)行代碼_________________來實現(xiàn)。19、菜單中的分隔條是一種菜單控件,不響應(yīng)__________事件,不能被選中。二、選擇題1、當(dāng)程序運行時,在窗體上單擊鼠標(biāo),以下哪個事件是窗體不會接收到()A.MouseDown B.MouseUp C.Load D.Click2、窗體Form1的Name屬性是Frm1,它的單擊事件過程名是()A.Form1_ClickB.Form_ClickC.Frm1_ClickD.Me_Click3、用于設(shè)置通用對話框控件顯示文件類型的屬性是()A.FilterB.PathC.ParternD.FoleName4、用于從內(nèi)存刪除窗體的命令是()A.MoveB.HideC.UnloadD.Delete5、用于返回窗體可用區(qū)域?qū)挾鹊膶傩允牵ǎ〢.ScaleWidthB.ScaleLeftC.ScaleHeightD.ScaleTop6、下列關(guān)于屬性設(shè)置的敘述錯誤的是:()A.一個控件具有什么屬性是VB預(yù)先設(shè)計好的,用戶不能改變B.一個控件具有什么屬性是VB預(yù)先設(shè)計好的,用戶可以改變C.一個控件的屬性即可以在屬性窗口中設(shè)置,也可以用程序代碼設(shè)置D.一個控件的屬性在屬性窗口中設(shè)置,還可以利用程序代碼為其設(shè)置新值7、下列說法正確的是()A.對象屬性只能在“屬性窗口”中設(shè)置B.一個新的工程可以在“工程窗口”中建立C.必須先建立一個工程,才能開始設(shè)計應(yīng)用程序D.只能在“代碼窗口”中編寫程序代碼8、下列關(guān)于窗體上控件的基本操作錯誤的是()A.按下一次DEL鍵只能刪除一個控件B.按下一次DEL鍵可以同時刪除多個控件C.按住SHIFT鍵,然后單擊每個要選擇的控件,可以同時選中多個控件D.按住ALT鍵,然后單擊每個要選擇的控件,可以同時選中多個控件9、下列關(guān)于設(shè)置控件屬性的敘述正確的是()A.用戶必須設(shè)置屬性值B.所有的屬性值都可以由用戶隨意設(shè)定C.屬性值不必一一重新設(shè)置D.不同控件的屬性項都完全一樣10、不可以通過下列()操作將焦點賦給對象A.運行時使用TAB鍵 B.在代碼中用CALL語句調(diào)用C.在代碼中用SETFOCUS方法 D.用訪問鍵或用鼠標(biāo)單擊選擇對象11、要在FORM_LOAD事件過程中使用PRINT方法在窗體上輸出一定的內(nèi)容,應(yīng)()A.設(shè)置窗體的VISIBLE屬性 B.設(shè)置窗體的CAPTIONC.調(diào)用窗體的SHOW方法 D.設(shè)置窗體ENABLED屬性12、下面()對象無CAPTION屬性A.FORM B.COMMANDBUTTON C.TEXTBOX D.LABEL13、通用對話框控件和文件列表框控件中,都能根據(jù)文件的類型對要顯示的文件進(jìn)行篩選過濾,后者使用()屬性進(jìn)行該項設(shè)置。A.Pattern B.Path C.Filter D.14、對于復(fù)選框控件chkBoy,如果在程序中設(shè)置它為選中狀態(tài),下面語句正確的是()A.chkBoy.Checked=true B.chkBoy.Value=trueC.chkBoy.Selected=true D.chkBoy.Value=115、計時器(Timer)控件用于每隔一段時間自動觸發(fā)一次Timer事件,可以有規(guī)律地重復(fù)執(zhí)行一段程序,它用于設(shè)置兩次事件時間間隔的屬性是()A.Interval B.SmallChange C.LargeChange D.Max16、以下關(guān)于VB中窗體(Form)的說法中,不正確的描述為()A.執(zhí)行UnloadForm語句后,窗體Form消失,但仍在內(nèi)存中B.當(dāng)窗體的Enabled屬性為False時,通過鼠標(biāo)和鍵盤對窗體的操作都被禁止C.窗體的Height、width屬性用于設(shè)置窗體的高和寬D.窗體的load事件在加載窗體時發(fā)生17、關(guān)于滾動條控件,下面說法錯誤的是()A.點擊滾動條的箭頭,可以改變它的value值,從而引發(fā)Change事件B.拖動滾動框,可以觸發(fā)Scroll事件C.通常,水平滾動條的值從左向右遞增,垂直滾動條的值自上而下遞增D.拖動滾動框,可以觸發(fā)Change事件,而且是連續(xù)觸發(fā)的18、在窗體上放置一個命令按鈕,名稱為Command1。單擊命令按鈕時,執(zhí)行如下事件過程:PriVateSubCommand1_C1ick()a$="softwareandhardware"b$=Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,b$,c$,1EndSub則在彈出的信息框的標(biāo)題欄中顯示的信息是()A.softWareandhardware B.softwareC.hardwafe D.出現(xiàn)錯誤19、在多重窗體程序設(shè)計中,關(guān)鍵的問題是要解決不同窗體之間的銜接和窗體的顯示、關(guān)閉等問題,以下關(guān)于窗體的相關(guān)語句和方法的敘述中,錯誤的是()A.Load語句用于加載指定窗體,即在內(nèi)存中創(chuàng)建該窗體B.Show方法兼具Load語句的功能,可以將窗體顯示出來C.Hide方法用于將窗體隱藏起來D.Unload語句用來釋放窗體,但窗體并沒從內(nèi)存中消20、滾動條控件的屬性中,表示取值范圍最大值的屬性是()A.Max B.LargeChangeC.Min D.Value21、程序中如果需要檢測和控制鼠標(biāo)的位置和狀態(tài)的改變,就需要使用鼠標(biāo)事件,其中下面哪個選項用于表示拖動事件()A.DragDrop B.MouseDownC.MouseUp D.MouseMove22、為了使用通用對話框進(jìn)行打開文件的操作,應(yīng)將通用對話框的Action屬性設(shè)定為()。A.0 B.1 C.2 D.3三、簡答題1、什么是單選按鈕?什么是復(fù)選框?在使用上有什么不同?2、滾動條的change事件和scroll事件有什么不同?3、快捷鍵和訪問鍵有什么區(qū)別?4、在程序運行期間,如果拖動滾動條上的滾動塊(即滑塊),則觸發(fā)滾動條的什么事件?5、假定有一個菜單項,名為MenuItem,為了在運行時使該菜單項失效(變灰),應(yīng)使用什么語句?6、為了暫時關(guān)閉計時器(即時鐘控件),應(yīng)把該計時器的什么屬性設(shè)置為False?7、單選按鈕和復(fù)選框(即檢查框)各用于什么情況?8、如何為一個菜單項設(shè)置熱鍵和快捷鍵?9、菜單的形式有哪兩種?10、在KeyPress事件中,如何取消用戶剛輸入的字符?11、框架的作用是什么?12、如果要計時器每秒鐘發(fā)生4個Timer事件,則Interval屬性值應(yīng)設(shè)多少?13、在一個窗體的程序代碼中能否訪問另一個窗體上控件的屬性?若不行則請說明理由;若行則請說明如何訪問。14、如何在框架中建立控件?15、組合框有哪幾種類型?四、讀程序題1、對窗體編寫如下代碼:OptionBase1PrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(237,126,87,48,498)m1=a(1)m2=1IfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenm1=a(j)m2=iEndIfNextiEndIfPrintm1Printm2EndSub程序運行后,按回車鍵,輸出結(jié)果是什么?2、閱讀下面的程序,寫出執(zhí)行結(jié)果。PrivateSubForm_load()Form1.showd=0Fora=1To2Forb=1ToaForc=bTo5d=d+1NextcNextbNextaPrintdEndSub五、編程題1、在窗體上有一個文本框控件,名稱為TxtTime;一個計時器控件,名稱為Timer1,要求每一秒在文本框中顯示一次當(dāng)前的時間,請編程實現(xiàn)。2、在Text1中輸入任一英文字母,在Text2中顯示該英文字母與其ASCII碼值。要求在文本框Text2中顯示出所有輸入的英文字母與其ASCII碼值,如下圖所示。Text1Text1Text2Command13、編寫一個程序,能夠?qū)崿F(xiàn)任意個整數(shù)的排序。4、編程實現(xiàn)以下功能:用戶首先分別在兩個文本框中輸入兩個數(shù),然后在具有“加、減、乘、除”等四個菜單項的“計算”菜單中單擊某一項,即可在標(biāo)簽中顯示出相應(yīng)的結(jié)果或者錯誤提示。5、編程實現(xiàn)任意兩個數(shù)的“加、減、乘、除”。6、編寫一個程序,能夠求任意個正整數(shù)的最大值和最小值。7、編程求任意兩個正整數(shù)的最大公約數(shù)。六、程序分析填空題1、建立一個如圖所示的簡單編輯器。用戶在文本框(text1)中輸入正文后,選中某些文本時可進(jìn)行“剪切”、“復(fù)制”和“粘貼”操作。假設(shè)在窗體聲明部分定義了一個變量str1,用于保存復(fù)制和剪切的內(nèi)容,請把剪切按鈕(btnCut)的Click事件補(bǔ)充完整。程序運行界面:PrivateSubbtnCut_Click()‘請補(bǔ)充EndSub2、計算1+2+3+……+100的和并輸出。請把下面用DoWhile……Loop循環(huán)結(jié)構(gòu)實現(xiàn)這一功能的代碼補(bǔ)充完整。PrivateSubForm_Load()Dimsum,countasInteger‘請補(bǔ)充Dowhilecount<=100‘請補(bǔ)充LoopText1.Text=sumEndSub3、列表框控件(ListBox)支持多項選擇,這項功能在對用戶的興趣愛好進(jìn)行調(diào)查的時候顯得非常好用,在下圖所示的界面中列表框List1用于列出愛好選項,供用戶進(jìn)行多項選擇。請把下列代碼補(bǔ)充完整,能夠取得用戶的所選愛好選項:PrivateSubCommand1_Click()DimiAsIntegerDimsAsStrings=txtname.Text&"愛好"Fori=0ToList1.ListCount-1‘請補(bǔ)充NextLabel3.Caption=sEndSub4、要求利用計時器Timer1,在窗體Form1上每隔1秒鐘打印一個1到10的隨機(jī)整數(shù),請把下列代碼補(bǔ)充完整:PrivateSubForm_Load()Show‘請補(bǔ)充EndSubPrivateSubTimer1_Timer()‘請補(bǔ)充EndSub第五章文件一、填空題1、文件按存取方式與其組成結(jié)構(gòu)可分為________________文件、__________文件和______________文件。2、為了使文件列表框List1和目錄列表框Dir1之間能產(chǎn)生同步效果,必須在______________事件過程中加入語句__________________________。3、文件系統(tǒng)控件的作用是向用戶顯示系統(tǒng)中的文件,方便用戶選擇,它是一組控件的組合,包括:驅(qū)動器列表框、____和文件列表框。二、選擇題1、利用下面哪個函數(shù)可判定訪問文件時是否已到文件尾()A.LOFB.LOCC.EOFD.BOF2、用于設(shè)置文件列表框控件顯示文件類型的屬性是()A.FilterB.PathC.ParternD.三、簡答題1、什么是文件?2、文件存取分成幾類,幾種模式?3、順序文件、隨機(jī)文件和二進(jìn)制文件各有什么特點和用途?4、文件有哪幾種類型?它們的區(qū)別是什么?5、請說明PRINT#和WRITE#語句的區(qū)別6、EOF函數(shù)的功能是什么?四、編程題1、實現(xiàn)二進(jìn)制方式文件的復(fù)制。2、如下圖所示,實現(xiàn)一個簡單的文件管理器。第六章圖形操作一、填空題1、使用____________方法可在窗體中進(jìn)行文本的輸出,用____________方法可畫圓,用____________方法可畫直線。2、用____________函數(shù)可加載圖形。3、為了使一個Picture控件能自動根據(jù)裝入的圖片調(diào)整大小,應(yīng)設(shè)置該控件的________________屬性為True。二、選擇題1、下列關(guān)于控件畫法的敘述錯誤的是()A.單擊一次工具箱中的控件圖標(biāo),只能在窗體上畫出一個相應(yīng)的控件B.按住CTRL鍵后單擊一次工具箱中的控件圖標(biāo),可以在窗體上畫出多個相同類型的控件C.雙擊工具箱中的控件圖標(biāo),所畫控件的大小和位置是固定的D.不使用工具箱中的控件工具,不可以在窗體上畫出圖形對象,但可以寫入文字字符2、當(dāng)一個對象(如窗體或圖片框)被移動或改變大小之后,或當(dāng)一個覆蓋該窗體被移開之后,如果要保持該所畫圖形的完整性,可以選擇觸發(fā)()事件來完成圖形的重畫工作A.Paint B.Load C.Click D.Active三、簡答題1、在什么情況下使用Image控件而不使用PictureBox控件?2、在程序運行時怎樣在圖形框中裝入和刪除圖形?3、顏色函數(shù)主要有哪些?四、編程題1、如下圖顯示當(dāng)前目錄下的圖片文件列表,并能夠預(yù)覽選定的圖片。第七章面向?qū)ο蟮木幊桃?、填空題1、類是具有相同性質(zhì)的對象的_________。2、語句DIMTEMPASObject的作用是________________________________。二、簡答題1、什么是模塊?第八章界面設(shè)計一、簡答題1、什么是多文檔界面(MDI)?2、說明菜單欄、菜單、選項和工具欄之間的關(guān)系。3、結(jié)束MDI應(yīng)用程序時,需要注意什么?第九章VisualBasic與數(shù)據(jù)庫一、簡答題1、表間的關(guān)系類型有哪幾種?2、VisualBasic中的記錄集有哪幾種類型?二、編程題1、請編程實現(xiàn)每兩秒在標(biāo)簽中顯示一次當(dāng)前的時間。2、找出被3、5、7整除,余數(shù)為1的最小的2個正整數(shù)。3、有一個m×n的實型矩陣A(m,n),找出其中最大的那個元素所在的行和列。4、找出能同時被5和7整除的最小的10個正整數(shù)。5、編寫一個程序,能夠輸出100~1000之間所有的素數(shù)。6、從鍵盤上任意輸入100個整數(shù),統(tǒng)計負(fù)數(shù)的個數(shù),并計算正數(shù)的和。7、有一種數(shù),正序讀與反序讀都相同,這種數(shù)叫回文數(shù),如88、858、2332等。求出4位數(shù)以內(nèi)(0~9999)的所有回文數(shù)。8、輸出“九九乘法表”。參考答案第一章VisualBasic程序設(shè)計概述一、填空題1、對象、事件驅(qū)動2、Vbp、frm、bas3、部件4、WINDOWS二、選擇題1、C2、C3、C4、D5、D第二章簡單的VB程序設(shè)計一、填空題1、Tabstop2、Left、top、height、width3、enabled4、backcolor5、name6、name和caption7、屬性8、標(biāo)準(zhǔn)模塊文件9、運行模式二、選擇題1、D2、D3、C4、C5、D6、B7、D8、D9、D10、D11、B12、A13、D14、C15、B16、B17、B18、D第三章VB基本語言一、填空題1、Const2、Variant3、隱式聲明、顯示聲明4、optionbase、ubound、lbound5、強(qiáng)制變量聲明6、表示a2是一個可選參數(shù)7、End8、Msgbox、Inputbox9、*.*、showprint10、Mid()11、612、redimpreservearraya(ubound(arraya())+1)13、static14、015、f16、rem、’17、變量、數(shù)組18、1to4,1to519、Index20、按地址21、OptionExplicit22、1323、ityo24、符號25、LCase26、ESC27、部件28、斷點29、False30、OptionExplicit31、UCase32、Mid33、#34、過程35、private36、求x的絕對值37、2.5二、選擇題1、D2、B3、D4、C5、B6、C7、D8、C9、D10、A11、A12、D13、B14、B15、D16、B17、A18、D19、D20、C21、D22、B23、B24、B25、B26、A27、B28、C28、B30、C四、讀程序題1、結(jié)果如下:B2、結(jié)果如下:BBCCCDDDDEEEEE3、功能如下:在20個由小到大排列的數(shù)據(jù)中插入一個數(shù),插入數(shù)據(jù)后的數(shù)據(jù)仍按由小到大的順序排列。4、輸出結(jié)果為:24685、輸出結(jié)果為:36、輸出結(jié)果為:24527、輸出結(jié)果為:1200208、輸出結(jié)果為:3332五、編程題1、參考代碼如下:PrivateSubCommand1_Click()Dimyear,xAsIntegeryear=Val(Text1.Text)IfyearMod400=0ThenLabel2.Caption="是閏年"Else'下面是嵌套塊If語句IfyearMod4=0AndyearMod100<>0ThenLabel2.Caption="是閏年"ElseLabel2.Caption="不是閏年"EndIfEndIfEndSub2、程序參考代碼如下:PrivateSubCommand1_Click()Dimm,n,rAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)Ifm<0Orn<0Then‘若判斷為非法數(shù)據(jù),Then子句輸出相應(yīng)信息Label2.Caption="輸入數(shù)據(jù)有錯!"Else‘若判斷為合法數(shù)據(jù),Else子句用輾轉(zhuǎn)相除法求余數(shù)r=mModnDoWhiler<>0m=nn=rr=mModnLoop‘循環(huán)結(jié)束后n中存放的就是最大公約數(shù),輸出n值Label2.Caption="最大公約數(shù)為:"&nEndIfEndSub3、參考代碼如下:PrivateSubCommand1_Click()DimxAsSinglex=Val(Text1.Text)Ifx>100Orx<0ThenText2.Text="error"ElseIfx<60ThenText2.Text="不與格"ElseIfx<70ThenText2.Text="與格"ElseIfx<80ThenText2.Text="中等"ElseIfx<90ThenText2.Text="良好"ElseText2.Text="優(yōu)秀"EndIfEndSub4、參考代碼如下:PrivateSubForm_Load()DimiAsIntegerShow'使輸出可見Form1.Font="新宋體"Fori=9To16Step1Form1.FontSize=iPrinti;"號字型"NextiEndSub5、參考代碼如下:PrivateSubCommand1_Click()Dima(1To11)AsSingle'定義靜態(tài)數(shù)組a含11個元素Dimi,jAsIntegerDimnumAsSingle'給數(shù)組元素賦初值,即原始隊列a(1)=3:a(2)=5:a(3)=7:a(4)=8:a(5)=9a(6)=13:a(7)=16:a(8)=19:a(9)=33a(10)=38'輸出原始隊列Fori=1To10Label2.Caption=Label2.Caption&a(i)&","Nextinum=Val(Text1.Text)'把輸入的數(shù)插入隊列中Fori=10To1Step-1Ifnum<a(i)Thena(i+1)=a(i)'元素后移一個位置elsea(i+1)=numExitFor'退出循環(huán)EndIfNexti'輸出新隊列 Fori=1To11Label3.Caption=Label3.Caption&a(i)&","NextiEndSub6、參考代碼如下:OptionBase1PrivateSubForm_Load()ConstN=4'常量N決定二維數(shù)組大小Dima(N,N)AsIntegerDimi,j,TempAsIntegerShow'數(shù)組初始化Fori=1ToN'For循環(huán)i從1變化到NForj=1ToNa(i,j)=i*10+jNextjNexti'輸出原始數(shù)組Print"轉(zhuǎn)置前的數(shù)組:"Fori=1ToN'For循環(huán)i從1變化到NForj=1ToNPrinta(i,j);NextjPrintNexti'數(shù)組轉(zhuǎn)置Fori=1ToN'For循環(huán)i從1變化到NForj=1Toi'交換Temp=a(i,j)a(i,j)=a(j,i)a(j,i)=TempNextjNexti'輸出轉(zhuǎn)置后的數(shù)組Print"轉(zhuǎn)置后的數(shù)組:"Fori=1ToN'For循環(huán)i從1變化到NForj=1ToNPrinta(i,j);NextjPrintNextiEndSub7、參考代碼如下:PrivateSubForm_Click()Dima(10)AsInteger,iAsIntegerDimsumAsInteger,aveAsIntegersum=0Fori=1To10a(i)=Int(Rnd*101)sum=sum+a(i)Nextiave=sum/10Printsum,aveEndSub8、參考代碼如下:PrivateSubForm_Load()Dimi,j,k,FlowerAsIntegerShowFori=1To9Forj=0To9Fork=0To9Flower=i*100+j*10+kIfFlower=i^3+j^3+k^3ThenPrintFlower;"是水仙花數(shù)"NextkNextjNextiEndSub9、程序參考代碼如下:PrivateSubCommand1_Click()Dimm,i,yAsIntegerm=Val(Text1.Text)Ifm<=2ThenLabel2.Caption="輸入數(shù)據(jù)有錯"Elsek=Sqr(m)+1Fori=2Toky=mModiIfy=0ThenExitForNextiIfy=0ThenLabel2.Caption=m&"不是素數(shù)"ElseLabel2.Caption=m&"是素數(shù)"EndIfEndIfEndSub10、程序參考代碼如下:OptionBase1PrivateSubForm_Load()ConstN=5'常數(shù)N確定數(shù)組的大小Dima(N,N)AsIntegerDimi,j,row,line,minAsIntegerShowFori=1ToN'For循環(huán)i從1變化到NForj=1ToN'For循環(huán)j從1變化到Na(i,j)=Int(100*Rnd)+1'產(chǎn)生N*N個1~100間的隨機(jī)數(shù)NextjNexti'輸出二維數(shù)組Print"數(shù)組內(nèi)容是:"Fori=1ToNForj=1ToNPrinta(i,j);NextjPrint'輸完一行元素后輸出一個換行Nexti'設(shè)定初始值min=a(1,1):row=1:line=1'尋找最小數(shù)Fori=1ToNForj=1ToNIfa(i,j)<minThenmin=a(i,j)row=iline=jEndIfNextjNexti'輸出結(jié)果Print"最小值是:";minPrint"在第";row;"行第";line;"列"EndSub11、參考代碼如下:PrivateSubCommand1_Click()Dima,b,c,delt,realpart,imagpartAsSinglea=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text):delt=b*b-4*a*cIfa=0ThenLabel2.Caption="是一元一次方程:"Ifb<>0thenText4.Text="x1="&-c/bElse Ifc=0thenText4.Text="有無窮根"ElseText4.Text="無根"EndifEndifElse'下面嵌套塊If語句Ifdelt=0ThenLabel2.Caption="有兩個相等的實根:"Text4.Text="x1="&-b/2/aText5.Text="x2="&-b/2/bElseIfdelt>0ThenLabel2.Caption="有兩個不等的實根:"Text4.Text="x1="&(-b+Sqr(delt))/(2*a)Text5.Text="x2="&(-b-Sqr(delt))/(2*a)ElseLabel2.Caption="有兩個共軛復(fù)根:"realpart=-b/(2*a)imagpart=Sqr(-delt)/(2*a)Text4.Text="x1="&realpart&"+"&imagpart&"i"Text5.Text="x2="&realpart&"-"&imagpart&"i"EndIf'此行EndIf部分與內(nèi)層的塊If語句對應(yīng)EndIf'此行EndIf部分與外層的塊If語句對應(yīng)EndSub12、參考代碼如下:PrivateSubCommand1_Click()Dimn,i,tAsLongn=Val(Text1.Text)i=1:t=1Ifn<0ThenLabel2.Caption="error"ElseIfn=0ThenLabel2.Caption="0!=1"ElseDoWhilei<=nt=t*ii=i+1Loop

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

最新文檔

評論

0/150

提交評論