VB機(jī)試模擬試卷2（共27題）

VB機(jī)試模擬試卷2（共9套）（共27題）VB機(jī)試模擬試卷第1套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Forml的窗體上畫一個(gè)命令按鈕，其名稱為Commandl，如圖1-130(a)所示，然后通過屬性窗口設(shè)置窗體和命令按鈕的屬性，實(shí)現(xiàn)如下功能：①窗體標(biāo)題為“設(shè)置按鈕屬性”：②命令按鈕的標(biāo)題為“等級考試”；③程序運(yùn)行后，命令按鈕不顯示：④命令按鈕的標(biāo)題用三號常規(guī)黑體顯示。程序的運(yùn)行情況如圖1-130(b)所示。要求：不編寫任何代碼。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjtl．vbp，窗體文件名為sjtl．frm。(2)在名稱為Forml的窗體上畫一個(gè)標(biāo)簽，其名稱為Labell，在屬性窗口中把BorderStyle屬性設(shè)置為1，如圖1-131(a)所示，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊窗體，則可使標(biāo)簽移到窗體的右上角(只允許在程序中修改適當(dāng)屬性來實(shí)現(xiàn))。程序運(yùn)行情況如圖1-13l(b)所示。要求：不得使用任何變量。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標(biāo)準(zhǔn)答案：第l小題【操作步驟】步驟l：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Forml中畫一個(gè)命令按鈕，并設(shè)置它的相關(guān)屬性，其屬性及值如表2-72所示。步驟2：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2-73在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：打開代碼編輯窗口，編寫窗體的單擊事件過程。參考代碼：PrivateSubForm_Click()Label1．Top=0Labell．Left=-Forml．Labell．Width+Me．WidthEndSub步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：第l小題本題只需按要求畫出控件并設(shè)置其相應(yīng)屬性即可。第2小題控件的Top和Left屬性用于設(shè)置控件在窗體中的位置。要在單擊窗體時(shí)使標(biāo)簽移到窗體右上角，只需在其單擊事件中令Top屬性為0，Left屬性等于窗體的寬度減去標(biāo)簽的寬度。二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生目錄下有一個(gè)工程文件sjt3．vbp，窗體上有一個(gè)圓和一條直線(直線的名稱為Linel)構(gòu)成一個(gè)鐘表的圖案；有兩個(gè)命令按鈕，名稱分別為Commandl、Command2，標(biāo)題分別為“開始”、“停止”；還有一個(gè)名為Timerl的計(jì)時(shí)器。程序運(yùn)行時(shí)，鐘表指針不動，單擊“開始”按鈕，則鐘表上的指針(即Linel)開始順時(shí)針旋轉(zhuǎn)(每秒轉(zhuǎn)60，一分鐘轉(zhuǎn)一圈)；單擊“停止”按鈕，則指針停止旋轉(zhuǎn)。運(yùn)行時(shí)的窗體如圖1-111所示。請?jiān)O(shè)置計(jì)時(shí)器的適當(dāng)屬性，使得每秒激活計(jì)時(shí)器的Timer事件一次，并編寫兩個(gè)按鈕的Click事件過程。文件中已經(jīng)給出了所有控件和部分程序，不得修改已有程序和其他控件的屬性；編寫的事件過程中不得使用變量，且只能寫一條語句。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp，窗體上有兩個(gè)文本框、三個(gè)單選按鈕和一個(gè)命令按鈕。運(yùn)行時(shí)，在Textl中輸入若干個(gè)大寫和小寫字母，并選中一個(gè)單選按鈕，再單擊“轉(zhuǎn)換”按鈕，則按選中的單選按鈕的標(biāo)題進(jìn)行轉(zhuǎn)換，結(jié)果放入Text2(如圖1-112所示)。在給出的窗體文件中已經(jīng)給出了全部控件，但程序不完整，要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjl3．vbp，在屬性設(shè)置窗口，設(shè)置計(jì)時(shí)器的Interval屬性值為1000，Enabled屬性值為False。步驟2：在代碼編輯窗口，編寫“開始”和“停止”按鈕的單擊事件過程。參考代碼：PriVateSubCommand1_Click()Timerl．Enabled=TrueEndSubPriVateSubCommand2_Click()Timerl．Enabled=FalseEndSub步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：a=Mid$(Textl．Text，k，1)ch=ch+LCase(a)Text2=ch步驟2：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：第1小題計(jì)時(shí)器控件用于實(shí)現(xiàn)在規(guī)定的時(shí)間間隔觸發(fā)其Timer事件，執(zhí)行有關(guān)事件過程代碼，來完成對應(yīng)功能。Interval屬性用于設(shè)置觸發(fā)計(jì)時(shí)器的Timer事件的時(shí)間間隔，單位為毫秒，值為0時(shí)計(jì)時(shí)器不啟用。Enabled屬性控制計(jì)時(shí)器是否開始啟用，值為True時(shí)表示啟用，值為False時(shí)表示不啟用。本題通過計(jì)時(shí)器的Timer事件來控制直線控件的位置，從而實(shí)現(xiàn)鐘表上的指針旋轉(zhuǎn)的功能。為使計(jì)時(shí)器的Timer事件每秒激活一次需將計(jì)時(shí)器的Interval屬性值設(shè)置為1000;為使程序剛運(yùn)行時(shí)鐘表指針不動需將Enabled屬性值設(shè)置為False。在“開始”按鈕的單擊事件過程中，通過設(shè)置計(jì)時(shí)器的Enabled屬性值為True來啟動計(jì)時(shí)器。在“停止”按鈕的單擊事件過程中，通過設(shè)置計(jì)時(shí)器的Enabled屬性值為False來停止計(jì)時(shí)器。第2小題①UCase()函數(shù)用于將字符串中小寫字母轉(zhuǎn)換為大寫字母，原本大寫或非字母字符保持不變。②LCasel()函數(shù)用于將字符串中大寫字母轉(zhuǎn)換為小寫字母，原本小寫或非字母字符保持不變。本題原程序是在命令按鈕的單擊事件過程中，用For循環(huán)語句和Mid函數(shù)逐一取出文本框Textl中的字符后，根據(jù)單選按鈕的選擇進(jìn)行相應(yīng)轉(zhuǎn)換；當(dāng)選擇“大寫轉(zhuǎn)小寫／小寫轉(zhuǎn)大寫”時(shí)，如果是小寫字母就用UCase函數(shù)轉(zhuǎn)換為大寫，如果是大寫字母就用LCase函數(shù)轉(zhuǎn)換為小寫，如果不是字母就不用轉(zhuǎn)換；當(dāng)選擇“全部大寫”時(shí)，就用LCase函數(shù)將文本框中所有字母轉(zhuǎn)換為大寫；當(dāng)選擇“全部小寫”時(shí)，就用LCase函數(shù)將文本框中所有字母轉(zhuǎn)換為小寫。將轉(zhuǎn)換結(jié)果顯示在文本框Text2中。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在窗體上畫一個(gè)文本框，其名稱為Textl，初始內(nèi)容為空白，并設(shè)置成多行顯示格式；然后再畫兩個(gè)命令按鈕，其名稱分別為Commandl和Commantt2，標(biāo)題分別為“顯示”和“保存”，如圖1-185所示，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊“顯示”按鈕，則讀取考生文件夾下的in5．txt文件，并在文本框中顯示出來，該文件是一個(gè)用隨機(jī)存取方式建立的文件，共有5個(gè)記錄，要求按記錄號順序顯示全部記錄，每個(gè)記錄一行；如果單擊“保存”按鈕，則把所有記錄保存到考生文件夾下的順序文件out5．txt中。隨機(jī)文件in5．txt中的每個(gè)記錄包括三個(gè)字段，分別為姓名、性別和年齡，其名稱和長度分別為：其類型定義為：PriVateTypeStudInfoNameAsString*8SexAsString*4AgeAsIntegerEndType要求：文件out5．tKt以順序存取方式建立和保存。存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt5．vbp，窗體文件名為sjt5．frm。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2-104在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：打開代碼編輯窗口。編寫相應(yīng)事件過程。參考代碼：PrivateTypeStudInfoNameAsString*8SexAsString*4AgeASIntegerEndTypeDimStudAsStudInfoDimReCNumAsLongPrivateSubCommandlC1ick()OpenApp．Path&"＼in5。txt"ForRandomAs#1Len=Len(Stud)RecNum=1DoWhileNotEOF(1)Get#1，RecNum，StudTextl．Text=Textl．Text&Stud．NameTextl．Text=Textl．Text&Stud．SexTextl．Text=Textl．Text&Str(Stud．Age)Textl．Text=Textl．Text+vbCrLfRecNum=RecNum+1LoopClose1EndSubPrivateSubCommand2_Click()OpenApp．Path&"＼out5．txt"ForOutputAs#1Print#1，Textl．TextClose1EndSub步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：程序設(shè)計(jì)思路：在“顯示”按鈕的單擊事件過程中，用Open語句以隨機(jī)方式打開數(shù)據(jù)文件in5．txt，并用Get讀出一條記錄顯示在文本框中，隨后讀取下一條記錄，直到所有的記錄都讀取完畢：在“保存”按鈕的單擊事件過程中，用Open語句以O(shè)utput方式打開數(shù)據(jù)文件out5．txt，并用Print撐方法將文本框中的值存入該文件。VB機(jī)試模擬試卷第2套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Forml的窗體上畫一個(gè)名稱為Textl的文本框，其高、寬分別為400、2000。運(yùn)行后的窗體如圖1-109所示。請?jiān)趯傩钥蛑性O(shè)置適當(dāng)?shù)膶傩詽M足以下要求：①Textl的字體為“黑體”，字號為“四號”：②窗體的標(biāo)題為“輸入”，不顯示最大化按鈕和最小化按鈕。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1．vbp，窗體文件名為sjt1．frm。(2)在名稱為FormI的窗體上畫一個(gè)名稱為Image1的圖像框，利用屬性窗口裝入考生目錄下的圖像文件picl．bmp，并設(shè)置適當(dāng)屬性使其中的圖像可以適應(yīng)圖像框大小；再畫兩個(gè)命令按鈕，名稱分別為Commandl、Command2，標(biāo)題分別為“向右移動”、“向下移動”。請編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，每單擊“向右移動”按鈕一次，圖像框向右移動100；每單擊“向下移動”按鈕一次，圖像框向下移動100。運(yùn)行時(shí)的窗體如圖1-110所示。要求程序中不得使用變量，事件過程中只能寫一條語句。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”程。步驟2：單擊工具箱中的。TextBox控件圖標(biāo)，在窗體Forml上按下鼠標(biāo)左鍵并拖動到一定位置后松開。畫出一個(gè)文本框，如圖2-3所示。步驟3：選定窗體中的文本框，在屬性窗口中設(shè)置其相關(guān)屬性，如圖2-4所示，屬性及值如表2-61所示。步驟4：在文本框的屬性窗口中單擊“Font”屬性右側(cè)的按鈕，打開“字體”對話框，在其中設(shè)置“字體”為“黑體”，“字號”為“四號”。步驟5：單擊窗體無控件區(qū)域，在屬性窗口中設(shè)置窗體相關(guān)屬性，屬性及值如圖2-4所示。步驟6：選擇【文件】→【保存工程】命令，打開“文件另存為”對話框，如圖2-5所示。在該對話框的“保存在”下拉列表中選擇考生文件夾，并在“文件名”文本框中輸入sitl．frm。單擊“保存”按鈕，如圖2-5所示，即保存好窗體文件l在接下來的“工程另存為”對話框中，在“文件名”文本框中輸入sjtl．vbp，如圖2-6所示，并單擊“保存”按鈕，即保存好工程文件。第2小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，在窗體Forml中畫一個(gè)圖像框和兩個(gè)命令按鈕，分別設(shè)置其相關(guān)屬性，屬性及值如表2-62所示。步驟2：雙擊“向右移動”命令按鈕，打開代碼編輯窗口，在按鈕的Click事件過程中輸入如圖2-7所示代碼。步驟3：雙擊“向下移動”命令按鈕，打開代碼編輯窗口，在按鈕的Click事件過程中輸入如圖2-8所示代碼。步驟4：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：第1小題①用VisualBasic開發(fā)應(yīng)用程序的一般步驟：首先建立用戶界面，然后設(shè)置窗體及控件屬性，最后編寫代碼。②添加控件的方法有兩種：一是先選中工具箱中要添加的控件，然后在窗體上按下鼠標(biāo)左鍵并拖動到一定位置后松開：二是通過直接雙擊工具箱中相應(yīng)控件的圖標(biāo)來添加控件。③設(shè)置控件屬性的方法也有兩種：一是在設(shè)計(jì)階段通過對象的屬性窗口來設(shè)置；二是通過程序代碼在程序運(yùn)行時(shí)來設(shè)置。④文本框(Text)：通常用于接收用戶輸入的字符串?dāng)?shù)據(jù)或用于顯示輸出信息，其Text屬性用于設(shè)置或返回文本框中顯示的文本。⑤控件的Height和Width屬性用于設(shè)置控件在屏幕上的大小(即高和寬)。⑥通過屬性設(shè)置窗口中的Font屬性可設(shè)置控件標(biāo)題文本的字體、字號、字形等，在程序設(shè)計(jì)時(shí)Font屬性可返回一個(gè)Font對象，F(xiàn)ont對象包含有格式化文本所需要的信息。⑦窗體的標(biāo)題由其Caption屬性設(shè)置，窗體的MaxButton屬性、MinButton屬性決定其標(biāo)題欄是否顯示最大化按鈕、最小化按鈕，True表示顯示，F(xiàn)alse表示不顯示。本題只需按要求建立程序界面并設(shè)置窗體和文本框相關(guān)屬性即可。第2小題①圖像框的Picture屬性可以指定在圖像框中顯示的圖像路徑，既可以在屬性窗口中進(jìn)行設(shè)置，也可以在代碼中進(jìn)行設(shè)置。②對象的Left屬性用于確定對象距離窗體左邊框的距離，改變這個(gè)屬性值會實(shí)現(xiàn)對象的水平移動，同理改變對象的Top屬性值可以實(shí)現(xiàn)對象的垂直移動。本題需要按照要求建立相關(guān)控件并設(shè)置相應(yīng)屬性，然后在相應(yīng)事件代碼中改變圖像框的Left屬性值和Top屬性值。二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件sjt3．vbp，相應(yīng)的窗體文件為sjt3．frm，包含了所有控件和部分程序，如圖1-183所示。要求如下：①利用屬性窗口向列表框添加四個(gè)項(xiàng)目：Visual．Basic、TurboC、C++、Java。②請編寫適當(dāng)?shù)某绦蛲瓿梢韵鹿δ埽寒?dāng)選擇列表框中的一項(xiàng)和單選按鈕Optionl，然后單擊“確定”按鈕，則文本框中顯示“×××筆試”；當(dāng)選擇列表框中的一項(xiàng)和單選按鈕Option2，然后單擊“確定”按鈕，則文本框中顯示“×××上機(jī)”。其中“×××”是在列表框中所選擇的項(xiàng)目。注意：考生不得修改窗體文件中已經(jīng)存在的程序，退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕。在結(jié)束程序運(yùn)行之前，必須至少要進(jìn)行一次選擇操作(包括列表框和單選按鈕)，否則不得分。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp，相應(yīng)的窗體文件為sjt4．frm。在窗體上有一個(gè)命令按鈕，其名稱為Commandl，標(biāo)題為“計(jì)算并輸出”。程序運(yùn)行后，如果單擊命令按鈕，程序?qū)⒂?jì)算500以內(nèi)兩個(gè)數(shù)之間(包括開頭和結(jié)尾的數(shù))所有連續(xù)數(shù)的和為1250的正整數(shù)，并在窗體上顯示出來。這樣的數(shù)有多組，程序輸出每組開頭和結(jié)尾的正整數(shù)，并用“～”連接起來，如圖1-184所示。該程序不完整，請把它補(bǔ)充完整。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其能正確運(yùn)行，但不能修改程序中的其他部分。最后用原來的文件名保存工程文件和窗體文件。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟l：打開考生文件夾下的本題工程文件sjt3．vbp，在窗體上選中列表框，為其List屬性輸入四個(gè)項(xiàng)目：VisualBasic、TurboC、C++、Java，注意每輸入一項(xiàng)后用+鍵換到下一項(xiàng)輸入。步驟2：打開代碼編輯窗口，編寫“確定”按鈕的單擊事件過程。參考代碼：IfOptionl．ValueAndListl．Text<>""ThenTextl．Text=Listl．Text&Optionl．CaptionE1seIfOption2．ValueAndListl．Text<>""ThenTextl．Text=Listl．Text&Option2．CaptionEndIfEndIf步驟3：按要求將文件保存至考生文件夾中。步驟4：按鍵鍵運(yùn)行程序，在列表框中選擇一項(xiàng)，并選中一個(gè)單選按鈕，單擊“確定”按鈕，單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。第2小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：iSum=0iSum=iSum+jIfiSum=1250Then步驟2：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：第1小題列表框的Text屬性用于返回列表框中選擇的項(xiàng)目的內(nèi)容，返回值總與列表框的List(Listlndex))性的返回值相同。本題根據(jù)是選擇“筆試”或“上機(jī)”分為兩種情況，若選擇“筆試”則在文本框中顯示列表框的Text屬性值與單選按鈕Optionl的Caption屬性值的組合內(nèi)容；若選擇"上機(jī)"則在文本框中顯示列表框的Text屬性值與單選按鈕Option2的Caption屬性值的組合內(nèi)容。第2小題通常把循環(huán)體內(nèi)不再含有循環(huán)語句的循環(huán)叫做單層循環(huán)，而把循環(huán)體內(nèi)含有循環(huán)語句的循環(huán)稱為多重循環(huán)。例如在循環(huán)體內(nèi)含有一個(gè)循環(huán)語句的循環(huán)稱為二重循環(huán)。多重循環(huán)又稱多層循環(huán)或嵌套循環(huán)。程序設(shè)計(jì)思路：按順序讓1~500中的每一個(gè)數(shù)都與它之后的所有的數(shù)逐一相加，在相加過程中若累加和等于或超過1250時(shí)，則停止該組數(shù)繼續(xù)相加，并將和等于1250的該組數(shù)的開頭和結(jié)尾的數(shù)按題目要求輸出。原程序使用嵌套For循環(huán)完成上述功能，變量iSum用于記錄每組數(shù)累加時(shí)的和，其初值應(yīng)為0；表達(dá)式iSum=iSum+j用于實(shí)現(xiàn)累加功能：當(dāng)累加和正好等于1250時(shí)，輸出該組數(shù)的開頭和結(jié)尾的數(shù)，即i和j。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾中有一個(gè)工程文件sjt5．vbp，其功能是：找出矩陣元素的最大值，并求出矩陣對角線元素之和，窗體外觀如圖1-165所示。程序運(yùn)行時(shí)，矩陣數(shù)據(jù)被放入二維數(shù)組a中。當(dāng)單擊“找矩陣元素最大值”按鈕時(shí)，找出矩陣中最大的數(shù)，并顯示在標(biāo)簽Label3中。當(dāng)單擊“對角線元素之和”按鈕時(shí)，計(jì)算矩陣主對角線元素之和，并顯示在標(biāo)簽Label4中。文件中已給出部分程序，請編寫“找矩陣元素最大值”及“對角線元素之和”兩個(gè)命令按鈕的事件過程中的部分程序代碼。注意：不得修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。程序調(diào)試通過后，兩個(gè)命令按鈕的事件過程必須至少各執(zhí)行一次。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt5．vbp，在碼編輯窗ISl的指定位置輸入代碼：參考代碼：PrivateSubCommandl_Click()====考生編寫程序開始=====Max=a(1，1)Fori=1To4Forj=1To4Ifa(i，j)>MaxThenMax=a(i，j)EndIfNextjNextiLabel3．Caption=Max’====考生編寫程序結(jié)束====’不得修改以下部分saveLabel3EndSubPrivateSubCommand2_Click()’====考生編寫程序開始====sum=0Fori=1To4Sum=Sum+a(i，i)NextiLabel4．Caption=Sum====考生編寫程序結(jié)束=====’不得修改以下部分saveLabel4EndSub步驟2：按要求將文件保存至考生文件夾中。步驟3：按鍵鍵運(yùn)行程序，分別單擊“找矩陣元素最大值”按鈕和“對角線元素之和”按鈕。知識點(diǎn)解析：位于矩陣左上到右下主對角線上的元素具有行號等于列號的特點(diǎn)，位于n*n矩陣右上到左下對角線上的元素具有行號與列號之和為n+1的特點(diǎn)。【審題分析】“找矩陣元素最大值”按鈕單擊事件過程設(shè)計(jì)思路：用變量Max記錄數(shù)組a中第一個(gè)元素的值。然后通過嵌套For循環(huán)讓數(shù)組a中的每一個(gè)元素逐一與變量Max比較大小，當(dāng)有數(shù)組元素的值大于變量Max時(shí)，將其賦值給變量Max，循環(huán)結(jié)束時(shí)變量Max的值即為矩陣中最大的數(shù)，將其顯示在標(biāo)簽Label3中?！皩蔷€元素之和”按鈕單擊事件過程設(shè)計(jì)思路：通過For循環(huán)將數(shù)組元素a(i，i)累加入變量Sum(初值為0)中，循環(huán)結(jié)束時(shí)將其顯示在標(biāo)簽Label4中。VB機(jī)試模擬試卷第3套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名為Forml的窗體上繪制兩個(gè)標(biāo)簽(名稱分別為Labell和Label2，標(biāo)題分別為“長”和“寬”)、兩個(gè)文本框(名稱分別為Text1和Text2，Text屬性均為空白)和一個(gè)命令按鈕(名稱為Commandl，標(biāo)題為“輸入”)。編寫命令按鈕的Click事件過程，使程序運(yùn)行后，若單擊命令按鈕，則先后顯示兩個(gè)“輸入”對話框，在兩個(gè)“輸入”對話框中分別輸入長和寬，并分別在兩個(gè)文本框中顯示出來，運(yùn)行后的窗體如圖41—1所示。注意：程序中不得使用任何變量；文件必須存放在考生文件夾中，工程文件名為s．j1．vbp，窗體文件名為sjl．frm。(2)在名為Form1的窗體上繪制一個(gè)標(biāo)簽(名稱為Labell，標(biāo)題為“輸入”)、一個(gè)文本框(名稱為Textl，Text：屬性為空白)和一個(gè)命令按鈕(名稱為Commandl，標(biāo)題為“顯示”)。請編寫命令按鈕的Click事件過程，使程序運(yùn)行后，在文本框中輸入內(nèi)容，然后單擊命令按鈕，則標(biāo)簽和文本框消失，并在窗體上顯示文本框中的內(nèi)容。運(yùn)行后的窗體如圖41—2和圖4l一3所示。注意：要求程序中不得使用任何變量；文件必須存放在考生文件夾中，工程文件名為sj2．Vbp，窗體文件名為sj2．frm。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，在窗體上添加兩個(gè)標(biāo)簽，名稱分別為Labell和Label2、Caption屬性分別為“長”和“寬”，兩個(gè)文本框，名稱分別為Textl和Text2、Text屬性為空，一個(gè)命令按鈕，名稱為Commandl，Caption屬性為“輸入”。設(shè)計(jì)完成后，雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：OptionExplicitPrivateSubCommandl_Click()Textl．Text=InputBox("請輸入長")Text2．Text=InputBox("請輸入寬")EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，在窗體上添加一個(gè)標(biāo)簽，其名稱為I．a(chǎn)bell，標(biāo)題為“輸入”，一個(gè)文本框，其名稱為Textl、Text屬性為空，一個(gè)命令按鈕，其名稱為Commandl、標(biāo)題為“顯示”。窗體設(shè)計(jì)完成后，雙擊Commandl命令按鈕，編寫如下代碼：PrivateSubCommandlClick()Labell．Visible=False’隱藏LabellTextl．Visible=False’隱藏TextlPrintTextl’將Textl上的內(nèi)容顯示在窗體上EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在窗體上建立一個(gè)名稱為Textl的文本框，然后建立兩個(gè)主菜單，標(biāo)題分別為“操作系統(tǒng)”和“幫助”，名稱分別為vbOS和vbHelp，其中“操作系統(tǒng)”菜單包括“Windows’’、“unix”和“AppleMacOS”三個(gè)子菜單，名稱分別為vbOSl、vbOS2和vbOS3。要求程序運(yùn)行后，在“操作系統(tǒng)”的下拉菜單中選擇“WindoWS”，則在文本框內(nèi)顯示“個(gè)人用戶”；如果選擇“Unix”，則在文本框內(nèi)顯示“服務(wù)器”；如果選擇“AppleMacOS”則在文本框內(nèi)顯示“蘋果電腦”，如圖28—3所示。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj3．frm，工程文件名為sj3．vbp。(2)在考生文件夾中有文件sj4．vbp及其窗體文件sj4．frm，該程序是不完整的，請?jiān)谟小?”的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號)，但不能修改其他部分。存盤時(shí)不得改變文件夾和文件名。本題描述如下：窗體上有一個(gè)名稱為Textl的文本框；兩個(gè)復(fù)選框，名稱分別為Checkl和Check2，標(biāo)題分別為“C++”和“。Basic’’。要求程序運(yùn)行后，如果Checkl和Check2都不選，則單擊窗體后在文本框中什么都不顯示；如果只選中(2heckl，則單擊窗體后在文本框中顯示“我掌握C++”；如果只選中Check2，則單擊窗體后在文本框中顯示“我掌握Basic”；如果同時(shí)選中Checkl和Check2，則單擊窗體后在文本框中顯示“我掌握C++和．Basic’’。程序運(yùn)行后，若選擇Check2，則單擊窗體后顯示界面，如圖28—4所示。標(biāo)準(zhǔn)答案：(1)在VisualBasic中，菜單也被看做控件，具有屬性和事件。菜單的建立在菜單編輯器中完成，菜單的級數(shù)通過內(nèi)縮符號來表示，第一級菜單沒有內(nèi)縮符號，第二級菜單的內(nèi)縮符號為1。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，按“Ctrl+E”組合鍵打開菜單編輯器，在其中添加如下菜單項(xiàng)：單擊“確定”按鈕，完成菜單編輯。再將一個(gè)文本框控件添加到窗體中，將其名稱設(shè)為Textl。代碼如下：PrivateSubvbOSl_Click(IndexAsInteger)’Windows選項(xiàng)Textl．Text="個(gè)人用戶"EndSubPrivateSubvbOS2_Click(IndexAsInteger)’Unix選項(xiàng)Textl．Text="服務(wù)器"EndSubPrivateSubvbOS3_Click(IndexAsInteger)’AppleMacOS選項(xiàng)Textl．Text="蘋果電腦"EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)復(fù)選框用來表示狀態(tài)，在程序運(yùn)行期間可以改變其狀態(tài)。復(fù)選框標(biāo)題由Caption屬性來設(shè)置，復(fù)選框的Value屬性用來表示復(fù)選框的狀態(tài)，其取值有：0表示復(fù)選框未被選中；1表示復(fù)選框被選中；2表示復(fù)選框被禁止使用(灰色)。根據(jù)題意，將一個(gè)文本框控件和兩個(gè)復(fù)選按鈕添加到窗體中，文本框控件的名稱設(shè)為Textl，復(fù)選按鈕的名稱分別設(shè)為Checkl和Check2、Caption屬性分別設(shè)為“C++”和“Basic”。由于是單擊窗體觸發(fā)事件，因此，雙擊窗體進(jìn)入代碼窗口，補(bǔ)充后的代碼如下：PrivateSubform_click()Textl．Text=""IfCheckl．ValueAndNotCheck2．ValueThenTextl．Text="我掌握C++"IfCheckl．Value=0AndCheck2．ValueThenTextl．Text="我掌握Basic"IfCheckl．ValueAndCheck2．Value=1ThenTextl．Text="我掌握C++和Basic"EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在名稱為Form1的窗體上畫一個(gè)文本框，名稱為Text1，MultiLine屬性為True，ScrollBars屬性為2；兩個(gè)命令按鈕．名稱分別為Cmdl和Cmd2，標(biāo)題分別為“讀人數(shù)據(jù)”和“排序并保存”，如圖4—6所示。程序運(yùn)行后，如果單擊“讀人數(shù)據(jù)”按鈕，則讀入in．txt文件中的100個(gè)整數(shù)，放入一個(gè)數(shù)組中(數(shù)組下界為1)：如果單擊“排序并保存”按鈕，則對這100個(gè)整數(shù)按從小到大進(jìn)行排序，并把排序后的全部數(shù)據(jù)在文本框Text1中顯示出來，然后存入考生文件夾中的文件result．txt中(在程序中的標(biāo)準(zhǔn)模塊prog．bas過程可以把指定個(gè)數(shù)的數(shù)組元素存入result．txt文件中)。注意：文件必須存放在考生文件夾下，窗體文件名為sj5．frm．工程文件名稱為sj5．vbp，排序結(jié)果存入result．txt文件，否則沒有成績。標(biāo)準(zhǔn)答案：除了基本的操作外，本題涉及到的知識點(diǎn)主要有循環(huán)和數(shù)組的使用兩個(gè)方面。先在窗體上建立控件，再設(shè)置控件屬性，然后研讀提供的代碼，正確分析并完成程序。文本框顯示的內(nèi)容通過Text屬性設(shè)置；按鈕的標(biāo)題通過Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事件；在本題中涉及到文件的操作，讀人文件并以順序的方式打開，用“Input#”語句讀取數(shù)據(jù)，另外需要注意的是對文件操作結(jié)束后，一定要關(guān)閉文件。①文本框顯示的內(nèi)容通過Text屬性設(shè)置，Multiline屬性決定文本框是否可多行顯示。若需要多行顯示,則必須將Multiline屬性設(shè)置為True，同時(shí)將Scrollbars屬性設(shè)置為2。②建立界面并設(shè)置控件屬性。按鈕的標(biāo)題通過Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事件。程序中用到的控件及屬性設(shè)置見下表：③打開工程資源管理器，在其空白處右鍵添加模塊prog．bas(此文件已在考生文件夾里)，模塊代碼如下：OptionExplicitSubputdata(a()AsInteger，nAsInteger)DimsFileAsStringsFile="＼result．txt"OpenApp．Path&sFileForOutputAs#1Fori=1TonPrint#l，a(i)；NextiClose#1EndSub④打開工程資源管理器，右擊窗體，選擇查看代碼項(xiàng)，在彈出的代碼窗口輸入代碼如下：窗體代碼OptionExplicitDimi(1To100)AsIntegerPrivateSubCrodlClick()DimjAsIntegerOpenApp．Path&"＼"&．"in．txt"ForInputAs#lFori=1To100Input#l，i(j)Textl．Text=Textl．Text&i(j)&．Space(5)NextiClose#lEndSubPrivateSubCrod2Click()DimjAsIntegerDimkAsIntegerDimlASIntegerDimtempAsIntegerFork=lTO99For1=k+1To100Ifi(k)>i(1)Thentemp=i(k)：i(k)=i(1)：i(1)=tempNextiNextkTextl．Text=""Fori=1To100Textl．Text=Textl．Text&i(j)&Space(5)NextjEndSub⑤調(diào)試并運(yùn)行程序。⑥按題目要求存盤。知識點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第4套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Forml的窗體上添加一個(gè)計(jì)時(shí)器控件，名稱為Timerl。請利用“屬性”窗口設(shè)置適當(dāng)屬性，使得在運(yùn)行時(shí)可以每隔3秒，調(diào)用Timerl_Timer過程一次。另外，請把窗體的標(biāo)題設(shè)置為“計(jì)時(shí)器”。設(shè)計(jì)階段的窗體界面如圖45—1所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjl．vbp，窗體文件名為sjl．frm。(2)在名稱為Forml的窗體上畫一個(gè)文本框，名稱為Textl，無初始內(nèi)容。請編寫Textl的Change事件過程，不能使用任何變量，使得運(yùn)行時(shí)，在文本框中每輸入一個(gè)字符，就在窗體上輸出一行文本框中的完整內(nèi)容。程序運(yùn)行界面如圖45—2所示。注意：保存時(shí)必須存放在考生文件夾下，工程文件名為sj2．vbp，窗體文件名為sj2．frm。標(biāo)準(zhǔn)答案：(1)計(jì)時(shí)器控件的Interval屬性，表示兩個(gè)計(jì)時(shí)器事件之間的時(shí)間間隔，其值以ms(0．001s)為單位，題目要求每3秒產(chǎn)生一個(gè)計(jì)時(shí)器事件，那么Interval屬性應(yīng)該設(shè)置為3000。窗體的標(biāo)題由窗體的Caption屬性設(shè)置。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)計(jì)時(shí)控件添加到窗體中，然后將其Interval屬性設(shè)置為3000(單位是毫秒)，單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)文本框控件添加到窗體中，其名稱為Textl、Text屬性為空，雙擊Textl進(jìn)入代碼編寫窗口，當(dāng)Textl變換時(shí)調(diào)用Textl_Change函數(shù)，代碼如下：PrivateSubTextl_Change()Forml．PrintTextl．TextEndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件sj3．vbp，相應(yīng)的窗體文件為sj3．frm。其功能是產(chǎn)生30個(gè)0～800的隨機(jī)整數(shù)，放入一個(gè)數(shù)組中，然后輸出這30個(gè)整數(shù)中小于400的所有整數(shù)的個(gè)數(shù)。程序運(yùn)行后，單擊名稱為Commandl的命令按鈕，其標(biāo)題為“輸出小于400的整數(shù)的個(gè)數(shù)”，即可求出這些整數(shù)的個(gè)數(shù)，并在名稱為Textl的文本框上顯示出來，如圖34—4所示。這個(gè)程序不完整，請把它補(bǔ)充完整，并能正確運(yùn)行。注意：去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sj4．vbp，相應(yīng)的窗體文件為sj4．frm，在窗體上有一個(gè)命令按鈕和兩個(gè)文本框。程序運(yùn)行后，單擊命令按鈕，即可計(jì)算出20～200范圍內(nèi)能被5整除的所有整數(shù)的和及個(gè)數(shù)，并分別在文本框中顯示出來，如圖34—5所示。在窗體的代碼窗口中，已給出了部分程序，其中計(jì)算能被5整除的整數(shù)的和及個(gè)數(shù)的操作在通用過程Func中實(shí)現(xiàn)，請編寫該過程的代碼。注意：請勿改動程序中的任何內(nèi)容，只在FunctionFunc()和EndFunction之間填入你編寫的若干語句。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：(1)本題要產(chǎn)生隨機(jī)整數(shù)，需要使用Rnd函數(shù)。Rnd函數(shù)返回小于1，但大于或等于0的值，其格式為：Rnd[(number)]。其中number參數(shù)是可選的，是Single或任何有效的數(shù)值表達(dá)式。number的值決定了Rnd函數(shù)生成隨機(jī)數(shù)的方式。要生成某個(gè)范圍內(nèi)的隨機(jī)整數(shù)，可使用公式：Int((upperbound--lowerbound+1)*Rnd+lowerbound)，其中upperbound是隨機(jī)數(shù)范圍的上限，而lowerbound則是隨機(jī)數(shù)范圍的下限。補(bǔ)充后的代碼如下：PrivateSubCommandl_Click()Dima(30)AsInteger’聲明一個(gè)數(shù)組DimnumAsIntegernum=0Fori=1To30a(i)=Rnd()*(800-0)’將0～800的隨機(jī)數(shù)存人數(shù)組Ifa(i)<400Thennum=num+1’如果數(shù)小于400，計(jì)數(shù)加1EndIfNextiTextl．Text=num’將得到的總數(shù)放在Textl中顯示EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)要判斷一個(gè)數(shù)能不能被5整除，使用求余運(yùn)算符Mod，如果余數(shù)不為0，則表示該數(shù)不能被整除。程序提供的代碼如下：DimnumAsIntegerPrivateSubCommandl_Click()Textl．Text=Func’調(diào)用Func函數(shù)Text2．Text=num’全局變量EndSub補(bǔ)充后的Func函數(shù)參考代碼如下：FunctionFunc()AsLong’返回Long型數(shù)值DimiAsIntegerFunc=0num=0Fori=20To200IfiMod5=0Thennum=hum+1’如果能被5整除，則計(jì)數(shù)加lFunc=Func+i’算人總和中EndIfNextiEndFunction單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有工程文件sj5．vbp及窗體文件sj5．frm，該程序是不完整的。在名稱為Forml的窗體上有3個(gè)Label控件和2個(gè)命令按鈕，數(shù)據(jù)文件sjin．dat，存放工人的編號、姓名和年齡。按“開始”按鈕后，能從考生文件夾下的sjin．dat中讀出數(shù)據(jù)并把年齡小于平均年齡的工人的所有數(shù)據(jù)寫入考生文件夾下的sjout．dat文件中；執(zhí)行完畢，“開始”按鈕變成“完成”，且無效，如圖37—5所示。注意：請?jiān)谟小?”的地方填入正確內(nèi)容，然后刪除“?”及所有注釋符(即“’”號)，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾，相應(yīng)的dat文件也保存到考生文件夾下，否則沒有成績。標(biāo)準(zhǔn)答案：本題主要考查定義結(jié)構(gòu)體變量，其格式如下：Privatetype結(jié)構(gòu)體名參數(shù)名as參數(shù)類型Endtype程序中在同一個(gè)過程打開兩個(gè)文件，因此要用兩個(gè)文件號，一個(gè)用來讀入(文件號#1)，一個(gè)用來輸出(文件號#2)。利用EOF來判斷是否讀取完，先對文件進(jìn)行一次讀取，計(jì)算出平均值，然后再根據(jù)條件進(jìn)行邊讀取邊寫入的操作，補(bǔ)充后的具體代碼如下：PrivateTypePerson’聲明結(jié)構(gòu)體numAsString*12NamAsString*12YeaAsLongEndTypePrivateSubCommandl_Click()DimperAsPersonDimargAsLongDimnumAsIntegerarg=0’算平均值num=0’計(jì)數(shù)Open"App．Path&＼sjin．dat"ForInputAs#1WhileEOF(1)=False’當(dāng)沒有讀取完則繼續(xù)讀取Input#1，per．numInput#l，per．NamInput#l，per．Yeaarg=arg+per．Yea’累加年齡num=num+1’累加計(jì)數(shù)WendClose#larg=arg＼numOpen"App．Pathg&＼sjin．dat"ForInputAs#1Open"App．Pathg&＼sjout．dat"ForOutputAs#2’打開輸出文件WhileEOF(1)=FalseInput#1，per．numInput#1，per．NamInput#1，per．YeaIfper．YeaEnabled=False’完成后Commandl不可用Commandl．Caption="完成"’Commandl的標(biāo)簽改為完成EndSubPrivateSubCommand2Click()UnloadMe’關(guān)閉對話框EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第5套一、基本操作題(本題共1題，每題1.0分，共1分。)1、請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在Forml的窗體上畫一個(gè)文本框，名稱為Textl。畫一個(gè)命令按鈕，名稱為C1。標(biāo)題為“顯示”，TabIndex屬性為0。請為c1設(shè)置適當(dāng)?shù)膶傩裕沟冒碋sc鍵時(shí)，可以調(diào)用cl的Click事件，該事件過程的作用是在文本框中顯示“等級考試”，程序運(yùn)行結(jié)果如圖1-186所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjtl．vbp，窗體文件名為sjtl．frm。程序中不得使用任何變量。(2)在Forml的窗體上畫一個(gè)名稱為Textl的文本框，然后建立一個(gè)主菜單，標(biāo)題為“操作”，名稱為Op，該菜單有兩個(gè)子菜單，其標(biāo)題分別為“顯示”和“隱藏”，名稱分別為Dis和Hid，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊“操作”菜單中的“顯示”命令，則在文本框中顯示“等級考試”：如果單擊“隱藏”命令，則隱藏文本框。程序的運(yùn)行情況如圖1-187所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2．vbp，窗體文件名為sjt2．frm。程序中不得使用任何變量。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2-105在窗體FormI中畫出控件，并分別設(shè)置它們的相關(guān)屬性。步驟2：雙擊“顯示”按鈕，打開代碼編輯窗口，輸入如下代碼：參考代碼：Textl．Text="等級考試"步驟3：按要求將文件保存在考生文件夾中。第2小題【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)ExE”工程，在窗體Form1中畫一個(gè)文本框，在屬性設(shè)置窗口中將其Name屬性值設(shè)置為Textl。步驟2：選擇【工具】→【菜單編輯器】命令，打開菜單設(shè)計(jì)器，如表2-106中的設(shè)置建立菜單項(xiàng)。步驟3：打開代碼編輯窗口，編寫以下事件過程：參考代碼：PriVateSubDis_Click()Textl．Text；="等級考試"EndSubPriVateSubHid_Click()Textl．Visible=FalseEndSub步驟4：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：第1小題要在程序運(yùn)行時(shí)實(shí)現(xiàn)按鍵就調(diào)用Cmdl的Click事件，需將按鈕的Cancel屬性設(shè)置為True。第2小題本題需用菜單設(shè)計(jì)器建立菜單，并編寫“顯示”和“隱藏”菜單項(xiàng)的單擊事件過程。二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在名稱為Form1的窗體上畫一個(gè)計(jì)時(shí)器，其名稱為Timerl；再畫一個(gè)圖像框，其名稱為Image1，在該圖像框中裝入一個(gè)圖形文件．pic．icol然后畫一個(gè)水平滾動條，其名稱為HScrolll，Min屬性值為100，Max屬性值為1200，LargeChange屬性值為100，SmallChange屬性值為25，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，可以使圖像框閃爍，其閃爍速度可以通過滾動條調(diào)節(jié)。要求：圖像框的閃爍可以通過圖像框交替地顯示和隱藏來實(shí)現(xiàn)。程序中不得使用變量，每個(gè)事件過程中只能寫一條語句。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt3．vbp，窗體文件名為sjt3．frm。(2)在考生目錄下有一個(gè)工程文件sjt4．vbp，包含了所有控件和部分程序，如圖1-93所示。要求如下：①利用屬性窗口設(shè)置適當(dāng)?shù)膶傩裕簽長istl列表框添加三個(gè)項(xiàng)目：宋體、黑體、楷體GB2312；Textl文本框設(shè)置初始值為“計(jì)算機(jī)”；Hscrolll水平滾動條設(shè)置最小值和最大值分別為10、50。②去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，完成以下功能：如果在列表框中選擇一種字體，然后移動滾動條中的滾動框，則可使文本框中的文字按所選擇的字體顯示，并可隨著滾動框的移動放大或縮?。喝绻贿x擇字體直接移動滾動框，則顯示一個(gè)信息框，提示“請選擇字體”。注意：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：第1小題【操作步驟】步驟l：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程，如表2-50在窗體中畫出控件并設(shè)置其相關(guān)屬性。步驟2：打開代碼編輯窗口，分別編寫計(jì)時(shí)器的Timer事件過程和滾動條的Change事件過程。參考代碼：PriVateSubHScroll1_Change()Timerl．Interva1=HScroll1．ValueEndSubPrivateSubTimer1Timer()Image2．Visible=NotImaqel．VisibleEndSub步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt4．vbp，如表2-51設(shè)置控件的相關(guān)屬性。步驟2：打開代碼編輯窗口，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Textl．FontSize=HScrolll．ValueTextl．FontName=Listl．Text步驟3：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：第1小題圖像框的閃爍可在計(jì)時(shí)器的Timer事件過程中，通過對圖像框的Visible屬性值進(jìn)行邏輯非運(yùn)算來實(shí)現(xiàn)；通過水平滾動條改變圖像框閃爍速度的功能，可以在滾動條的Change事件過程中通過將滾動條的Value屬性值賦給計(jì)時(shí)器的Interval屬性來實(shí)現(xiàn)。第2小題①在程序設(shè)計(jì)時(shí)通過屬性設(shè)置窗口中的Font屬性可設(shè)置控件標(biāo)題文本的字體、字號、字形等。②FontName屬性用于設(shè)置程序運(yùn)行時(shí)在控件中顯示文本的字體，F(xiàn)ontSize屬性、FontBold屬性、FontItalic屬性、FontStrikethru屬性和FontUnderline屬性可分別用來設(shè)置字體的大小和樣式。要實(shí)現(xiàn)本題所要求的功能，應(yīng)在水平滾動條的Change事件過程中，通過代碼設(shè)置文本框的FontSize屬性值等于水平滾動條的Value屬性值。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sjt5．vbp，相應(yīng)的窗體文件為sjt5．frm，此外還有一個(gè)名為datain．txt的文本文件，其內(nèi)容如下：32437658281298573142536475869713243546576879805937程序運(yùn)行后，單擊窗體，將把文件datain．txt中的數(shù)據(jù)輸入到二維數(shù)組Mat中，在窗體上按5行、5列的矩陣形式顯示出來，并輸出矩陣左上．右下對角線上的數(shù)據(jù)，如圖1-150所示。在窗體的代碼窗口中，已給出了部分程序，這個(gè)程序不完整，請把它補(bǔ)充完整，并能正確運(yùn)行。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開考生文件夾下的本題工程文件sjt5．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：Dimmat％(M，N)OpenApp．Path&"＼"&"datain．txt"ForInputAs#1Input#1，mat％(i，j)Ifi=jThenPrintTab(5*j)，mat(i，j)；步驟2：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：位于矩陣左上到右下的對角線稱為主對角線，主對角線上的元素具有行號等于列號的特點(diǎn)。首先定義一個(gè)二維數(shù)組用來存放矩陣數(shù)據(jù)，接下來以Input方式打開datain．txt文件，并且通過For循環(huán)使用Input語句依次讀入每一個(gè)數(shù)據(jù)并放入二維數(shù)組中。在輸出主對角線元素時(shí)，判斷條件為行號等于列號。VB機(jī)試模擬試卷第6套一、基本操作題(本題共1題，每題1.0分，共1分。)1、注意：下面出現(xiàn)的“考生文件夾”均為C:\wexam\25160002。請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在名稱為Form1的窗體上建立1個(gè)名稱為Op1的單選按鈕數(shù)組，含3個(gè)單選按鈕，它們的標(biāo)題依次為“選擇1”、“選擇2”和“選擇3”，其下標(biāo)分別為0、1和2，初始狀態(tài)下，“選擇2”為選中狀態(tài)。運(yùn)行后的窗體如圖26-1所示。注意；存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。(2)在窗體上建立1個(gè)二級菜單，第一級含兩個(gè)菜單項(xiàng)，標(biāo)題分別為“編輯”和“幫助”，名稱分別為edit和help。其中“編輯”菜單含有3個(gè)子菜單，其標(biāo)題依次為“剪切”、“復(fù)制”和“粘貼”，名稱分別為cut、copy和paste，如圖26-2所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。標(biāo)準(zhǔn)答案：在窗體上建立好控件后，設(shè)置控件的屬性。建立控件數(shù)組由多種方法，考生可以采取任何一種來建立單選按鈕數(shù)組。要使“選擇2”為選中狀態(tài)，則應(yīng)該將該控件的Value屬性值設(shè)置True。Value屬性用來表示單選按鈕的狀態(tài)，它的值可以是True或False，當(dāng)設(shè)置為True時(shí)，該單選按鈕為選中，否則沒有選中。解題步驟：第一步：建立界面并設(shè)置控件的屬性。程序中用到的控件及其屬性見表26-1。第二步：調(diào)試并運(yùn)行程序。第三步：按題目要求存盤。(2)在VisualBasic中，菜單通過“菜單編輯器”窗口來建立。解題步驟：第一步：建立界面并設(shè)置對象屬性。程序中用到的控件及其屬性見表26-2。第二步：調(diào)試并運(yùn)行程序。第三步：按題目要求存盤。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾下有一個(gè)工程文件sjt3．vbp，運(yùn)行情況如圖1-23所示。程序的功能是計(jì)算表達(dá)式的值：z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)!其中的N和x值通過鍵盤分別輸入到兩個(gè)文本框Textl、Text2中。單擊名稱為Commandl、標(biāo)題為“計(jì)算”的命令按鈕，則計(jì)算表達(dá)式的值，并將計(jì)算結(jié)果顯示在名稱為Labell的標(biāo)簽中。在窗體文件中已經(jīng)給出了全部控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確內(nèi)容。要求：程序調(diào)試通過后，必須按照如圖1-23所示輸入N=5，x=12，然后計(jì)算z的值，并將計(jì)算結(jié)果顯示在標(biāo)簽Labell中，否則沒有成績。注意；不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。(2)在考生文件夾下有一個(gè)工程文件sjt4．vbp。窗體上有名稱為Labell的標(biāo)簽和名稱為Timerl的計(jì)時(shí)器控件。該程序的功能是在名稱為Labell的標(biāo)簽中循環(huán)顯示不同的字符串。程序開始運(yùn)行，在標(biāo)簽中顯示“第一項(xiàng)”(如圖1-24所示)，且每隔1秒鐘依次顯示“第二項(xiàng)”、“第三項(xiàng)”、“第四項(xiàng)”，如此循環(huán)。在給出的窗體文件中已經(jīng)有了全部控件和程序，但程序不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。標(biāo)準(zhǔn)答案：第l小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt3．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：tmp=1tmp=temp+ixn=tmpz=z+xn(t)步驟2：按鍵鍵運(yùn)行程序，在第一個(gè)文本框中輸入5，第兩個(gè)文本框中輸入12，然后單擊“計(jì)算”按鈕。步驟3：按要求將文件保存至考生文件夾中。第2小題【操作步驟】步驟1：打開考生文件中的本題工程文件sjt4．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問號“?”改為正確的內(nèi)容。參考代碼：arr=Array("第一項(xiàng)"，"第二項(xiàng)"，"第三項(xiàng)"，"第四項(xiàng)")StaticiAsIntegerLabell．Caption=arr(i)i=0步驟2：按要求將文件保存至考生文件夾中。知識點(diǎn)解析：第l小題本題原程序中，自定義函數(shù)xn的功能是進(jìn)行m！階乘運(yùn)算，它通過For循環(huán)連續(xù)m次將循環(huán)變量i的值乘以累積變量tmp(第一個(gè)?處map初值應(yīng)為1)來實(shí)現(xiàn)。故自定義函數(shù)xn中第兩個(gè)?處應(yīng)改為：tmp*i，作為函數(shù)返回值第三個(gè)?處應(yīng)改為：)xn。在“計(jì)算”按鈕的單擊事件過程中。根據(jù)程序所要計(jì)算表達(dá)式的特點(diǎn)，原程序利用一個(gè)For循環(huán)依次計(jì)算表達(dá)式中各項(xiàng)的值((x-i)1)，并將其累加入變量z。計(jì)算表達(dá)式中各項(xiàng)的值通過調(diào)用自定義函數(shù)xn(t)來實(shí)現(xiàn)的，其中t=x-i。故Commandl_Click事件過程中第一個(gè)?處應(yīng)改為：xn(t)。計(jì)算結(jié)果顯示在標(biāo)簽中。第2小題要實(shí)現(xiàn)本題中的功能，在窗體的Load事件過程中，首先使用Array函數(shù)建立一個(gè)新數(shù)組，然后設(shè)置計(jì)時(shí)器的相關(guān)屬性并啟用計(jì)時(shí)器；在計(jì)時(shí)器的Timer事件中，由于需要計(jì)算Timer事件的執(zhí)行次數(shù)才能判斷出應(yīng)該顯示何種文字，因此計(jì)數(shù)變量i應(yīng)該聲明為Static類型的變量，然后把數(shù)組的第i項(xiàng)顯示在標(biāo)簽中，接下來令i+l，一旦i超過了3就將其重新置O以便實(shí)現(xiàn)循環(huán)顯示。三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sj5．vbp，在該工程中為考生提供了一個(gè)通用過程，考生可以直接調(diào)用。請?jiān)诖绑w上畫一個(gè)名稱為Textl的文本框；畫一個(gè)名稱為Commandl、標(biāo)題為“計(jì)算顯示”的命令按鈕；再畫兩個(gè)單選按鈕，名稱分別為Optionl和Option2、標(biāo)題分別為“求100到250之間能被5整除的數(shù)的個(gè)數(shù)”和“求300到400之間能被6整除的數(shù)的個(gè)數(shù)”，如圖62—5所示。請編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，選中一個(gè)單選按鈕，再單擊“計(jì)算顯示”按鈕，就可以按照單選按鈕后的文字要求計(jì)算，并把計(jì)算結(jié)果放入文本框中，最后把已經(jīng)修改的工程文件和窗體文件以原來的文件名存盤。注意：考生不得修改窗體文件中已經(jīng)存在的程序，退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕來完成。在結(jié)束程序運(yùn)行之前，必須至少要進(jìn)行一種計(jì)算，否則不得分。標(biāo)準(zhǔn)答案：根據(jù)題意，將一個(gè)文本框控件，兩個(gè)單選按鈕控件和一個(gè)命令按鈕添加到窗體中，文本框的名稱為Textl，單選按鈕的名稱：分別為Optionl和Option2，Caption分別為“求100到250之間能被5整除的數(shù)的個(gè)數(shù)”和“求300到400之間能被6整除的數(shù)的個(gè)數(shù)”，命令按鈕的名稱為Commandl，Caption屬性為“計(jì)算顯示”，設(shè)置完成后，雙擊Commandl進(jìn)入代碼窗口，補(bǔ)充后的具體代碼如下：PrivateSubCommandl_Click()DimrainAsInteger’下限D(zhuǎn)immaxAsInteger’上限D(zhuǎn)imiAsInteger’循環(huán)計(jì)數(shù)DimmumAsInteger’個(gè)數(shù)DimtmpAsInteger’除數(shù)IfOptionl．Value=TrueThen’選中Optionl時(shí)min=100max=250tmp=5Else’選中Option2時(shí)rain=300max=400tmp=3EndIfnum=0Fori=minTomax’利用循環(huán)來逐個(gè)判斷IfiModtmp=0Thennum=num+1’如果能被除數(shù)整除，則個(gè)數(shù)加1EndIfNextiTextl．Text=hum’在Textl文本框中顯示出來Open"App．Path&＼out5．txt"ForOutputAs#1Print#1，Textl．TextClose#1EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析VB機(jī)試模擬試卷第7套一、基本操作題(本題共1題，每題1.0分，共1分。)1、(1)在名稱為Form1的窗體中繪制一個(gè)名稱為Labell的標(biāo)簽，其標(biāo)題為空，BorderStyle屬性為1；再添加一個(gè)名稱為Timer1的計(jì)時(shí)器。請?jiān)O(shè)置適當(dāng)?shù)目丶傩?，并編寫適當(dāng)?shù)氖录^程，使得運(yùn)行時(shí)，標(biāo)簽中的數(shù)字每隔1秒鐘加2。程序運(yùn)行效果如圖1-1所示。注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sj1．vbp，窗體文件名為sj1．frm。(2)在窗體上設(shè)置一個(gè)文本框，名稱為Text1，再添加一個(gè)命令按鈕，名稱為Commandl，標(biāo)題為“當(dāng)前時(shí)間／日期切換“；每次單擊按鈕時(shí)，Text1就顯示出當(dāng)前時(shí)間，再單擊一次，Text1就顯示當(dāng)前日期。請編寫相應(yīng)的程序代碼來完成這個(gè)功能。程序運(yùn)行時(shí)的窗體界面如圖1-2所示。注意：要求考生在編寫完程序后，把工程文件與窗體文件保存到考生文件夾下，文件名分別為sj2．vbp與sj2．frm。標(biāo)準(zhǔn)答案：(1)計(jì)時(shí)器的Interval屬性用于設(shè)置每次觸發(fā)計(jì)時(shí)器的Timer事件的時(shí)間間隔，單位為毫秒。Enabled屬性控制計(jì)時(shí)器是否開始啟用，True表示啟用，F(xiàn)alse表示不啟用。根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)標(biāo)簽和一個(gè)計(jì)時(shí)器控件添加到窗體中，標(biāo)簽的名稱為Labell、Caption屬性為“0”，Timer的名稱為Timerl、Interval屬性為“1000”。設(shè)置完成后雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：PrivateSubTimer1_Timer()Labell．Caption=Val(Labell．Caption)+2’每過一個(gè)間隔計(jì)數(shù)加2EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)文本框控件和一個(gè)命令按鈕添加到窗體中．文本框的名稱為Text1、Text屬性為空，命令按鈕的名稱為Command1、Caption屬性為“當(dāng)前時(shí)間/日期切換”。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：DimiAsIntegerPrivateSubCommandl_Click()Ifi=0ThenText1．Text=Datei=1’顯示標(biāo)識，1表示顯示的是日期ElseText1．Text=Timei=0’0表示顯示的是時(shí)間EndIfEndSubPrivateSubForm_Load()Text1．Text=Timei=0EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析二、簡單應(yīng)用題(本題共1題，每題1.0分，共1分。)2、(1)在考生文件夾中有工程文件sj3．vbp及其窗體文件sj3．frm，該程序是不完整的。在窗體上有一個(gè)文本框，名稱為Textl，一個(gè)列表框，名稱為List1，一個(gè)命令按鈕，名稱為(Command1、標(biāo)題為“復(fù)制”。要求程序運(yùn)行后，在列表框中自動建立5個(gè)列表項(xiàng)，分別為“Temp1”、“Ternp2”、“Temp3”、“Temp4”、“Temp5”如果選擇列表框中的一項(xiàng)，則單擊“復(fù)制”按鈕時(shí)，可以把該項(xiàng)復(fù)制到文本框中，如圖8—3所示。注意：請?jiān)谟小?”的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號)，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。(2)在考生文件夾中有工程文件sj4．vbp及其窗體文件sj4．frm，該程序是不完整的。在窗體上有四個(gè)復(fù)選框，名稱分別為Checkl、("heck2、Check3和Check4，標(biāo)題分別為“足球”、“籃球”、“羽毛球”和“排球”，一個(gè)標(biāo)簽，名稱為Label1，還有一個(gè)命令按鈕，名稱為Command1，標(biāo)題為“選擇結(jié)果”。要求程序運(yùn)行后，如果選中某個(gè)復(fù)選框，當(dāng)單擊“選擇結(jié)果”命令按鈕時(shí)，則顯示相應(yīng)的信息。例如，如果選中“足球”和“羽毛球”復(fù)選框，單擊“選擇結(jié)果”命令按鈕后，在標(biāo)簽上顯示“我喜歡的運(yùn)動是足球羽毛球”，如圖8—4所示。注意：請?jiān)谟小?”的地方填入正確內(nèi)容，然后刪除“?”及代碼前的所有注釋符(即“’”號)．但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。標(biāo)準(zhǔn)答案：(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，在窗體空白處單擊右鍵，選擇菜單編輯器添加以下菜單項(xiàng)：單擊“確定”按鈕，單擊按鈕運(yùn)行程序，并按要求保存即可。(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，在窗體中畫一個(gè)框架控件和一個(gè)文本框控件，將框架的名稱設(shè)置為Framel、Caption屬性設(shè)置為框架、Height、Width屬性分別設(shè)置為2500、3500，將文本框的Text屬性設(shè)置為文本框，Left、Top屬性分別設(shè)置為500、1000。單擊按鈕運(yùn)行程序．并按要求保存。二、簡單應(yīng)用題(1)向列表框中添加項(xiàng)目可以用AddItem方法，也可以在屬性窗口中設(shè)置。但題目中要求程序運(yùn)行后自動添加，所以這里應(yīng)該用代碼實(shí)現(xiàn)。列表框的Text屬性為最后一次選中的表項(xiàng)的文本，也就是要顯示在文本框中的。補(bǔ)充后的代碼如下：PrivateSubForm_Load()Listl．AddItem"Templ"’加入元素1Listl．AddItem"Temp2"’加入元素2Listl．AddItem"Temp3"Listl．Addltem"Femp4"Listl．AddItem"Temp5"EndSubPrivateSubCommandl_Click()Textl．Text=Listl．Text’將Listl中選中的文本賦值給Textl的文本EndSub單擊按鈕運(yùn)行程序，并按要求保存。(2)單擊命令按鈕觸發(fā)Click事件，本題程序中主要是判斷復(fù)選按鈕的狀態(tài)和在標(biāo)簽上顯示復(fù)選按鈕的Caption屬性值，判斷復(fù)選按鈕的狀態(tài)可以通過Value屬性來實(shí)現(xiàn)。如果復(fù)選按鈕被選中，則Value值為1，否則Value值為0。把復(fù)選按鈕的Caption屬性值賦給標(biāo)簽的Caption屬性即可顯示相應(yīng)的文字。補(bǔ)充后的代碼如下：PrivateSubCommandl_Click()DimstrAsStringstr="我喜歡的運(yùn)動是"IfCheck1．ValueThensty=str+Checkl．CaptionElseStr=StrEndIfIfCheck2．ValueThenstr=str+Check2．CaptionElseStr=StrEndIfIfCheck3．ValueThenstr=str+Check3．CaptionElsestr=strEndIfIfCheck4．ValueThenstr=str+Check4．CaptionElsestr=StrEndIfLabell．Caption=strEndSubPrivateSubFormLoad()Labell．Caption=""EndSub單擊按鈕運(yùn)行程序，并按要求保存。知識點(diǎn)解析：暫無解析三、綜合應(yīng)用題(本題共1題，每題1.0分，共1分。)3、在考生文件夾下有一個(gè)工程文件sj5．vbp，其窗體上有一個(gè)文本框，名稱為Textl；有3個(gè)命令按鈕，名稱分別為Commandl、Command2和Command3，標(biāo)題分別為“輸入”、“計(jì)算顯示”和“保存”，程序運(yùn)行時(shí)的窗體界面如圖25—5所示。在給定程序中有一個(gè)函數(shù)過程isPrimeNum。其功能是判斷參數(shù)是否為素?cái)?shù)，如果是素?cái)?shù)，則返回True，否則返回False。請將程序中有問號的地方替換為相應(yīng)的代碼．使得在運(yùn)行時(shí)，單擊“輸入”按鈕，彈出“輸入”對話框以便輸入整數(shù)，單擊“計(jì)算顯示”按鈕，則找出小于輸入?yún)?shù)的最大素?cái)?shù)，并顯示在Text1中；單擊“保存”按鈕，則把Textl中的計(jì)算結(jié)果存人考生文件夾下的out5．txt文件中。注意：去掉程序中的注釋符“’”，把程序中的“?”改為正確的內(nèi)容，使其實(shí)現(xiàn)下述功能，但不能修改程序中的其他部分，也不能修改控件的其他屬性。最后把修改后的文件按原文件名存盤。考生不得修改isPrimeNum函數(shù)過程和控件的屬性，必須把計(jì)算結(jié)果通過“存盤”按鈕存入out5．txt文件中，否則無成績。標(biāo)準(zhǔn)答案：素?cái)?shù)的判斷準(zhǔn)則就是看該數(shù)是否除了1及其本身外無其他約數(shù)(即從2到n-1之間沒有可以將其整除的數(shù))即可。文本框用Text屬性來顯示計(jì)算結(jié)果，其形式為：文本框名．Text=顯示內(nèi)容。將數(shù)據(jù)寫入文件可用命令Write#或Print#，本程序中用的是后者，其形式為：Print#文件號，[輸出列表]。根據(jù)題意，將一個(gè)文本框控件和3個(gè)命令按鈕添加到窗體中，文本框的名稱為Textl，Text屬性為空，命令按鈕的名稱分別為Commandl、Command2和Command3，Caption屬性分別為“輸入”、“計(jì)算顯示”和“保存”。雙擊Commandl進(jìn)入代碼窗口，編寫如下代碼：DimaAsIntegerDimresAsIntegerPrivateSubCommandl_Click()a=Val(InputBox("輸入?yún)?shù)："))’彈出輸入對話框EndSubPrivateSubCommand2_Click()WhileisPrimeNum(a)=False’如果輸入?yún)?shù)不是素?cái)?shù)則繼續(xù)循環(huán)a=a-1WendTextl．Text=a’將獲得的素?cái)?shù)在Text1中顯示出來End