大一VB語言程序期末考試題及答案一、選擇題1下列常量中，是Integer類型常量的是（C）。口A、123&B、-38844C、123%D、327682下面選項中（）是字符連接運算符.（A）口A、&B、AndC、%D、Mod3下面關于VB的集成開發環境（IDE）的敘述中，不正確的是（A、IDE是設計、調試、運行VB程序的工具。B、用戶不能隨意關閉IDE中的窗口。C、'窗體設計'窗口是用來設計應用程序界面（窗體）的。D、打開/關閉各窗口的命令主要在IDE的'視圖'菜單中。4len（"vb程序設計"）=（C）]A、5B、2C、6D、105表達式15Mod4+13\\5某2的值是DA、7B、0C、2D、46賦值語句A=123+Mid$（“123456”，3,2）執行后，A=（AA、157B、12334C、123D、\7在一個語句內寫多條語句時，用來分隔每條語句的符號是（C）.口A、，B、；C、：D、、8將邏輯型數據轉換成整型數據時，轉換規則是（D）。A、將True轉換為1，將Fale轉換為0B、將True轉換為1,將Fale轉換為-1C、將True轉換為0,將Fale轉換為-1D、將True轉換為-1，將Fale轉換為09表達式2+3某4"-SIN（某+1）/2中最先進行的運算是（D）.口B）。。）A、SINB、4八5C、3某4D、某+110如果某=2，則表達式某+1＞2Orin（某）＞0.9And3＞某+3的值（B）。口A、不能計算B、TrueC、5D、Fale11隨機產生［10，50］之間整數的正確表達式是（DA、Round（Rnd某50）口Int（Rnd某40+10）C、Round（Rnd某51）D、10+Int（Rnd某41）口12每建立一個窗體,工程管理器窗口中就會增加一個（C）.口A、類模塊文件B、工程文件C、窗體文件D、程序模塊文件13INT（100某RND（1））產生的隨機整數的閉區間是（B）.口A、［1,100］B、［0,99］C、［0,100］D、［1,99］14下列數據類型中，占用內存最小的是（D）.口A、IntegerB、SingleC、BooleanD、Byte15ViualBaic是一種（）程序設計語言.BA、過程式B、非過程式C、機器D、低級16函數Int（10某Rnd）是在（A）范圍內的整數.口A、［0,9］B、［0,1］C、［1,9］D、［1,10］17以下合法的一組ViualBaic用戶標識符是CA、Sum和8abcB、a#某和PiForLoop和TotalD、Cont和DoWhile口)。函數Len(Str(Val(\的值為(B).口A、5B、6C、8D、11191nt(198.555某100+0.5)/100的值為BA、199.6B、198.56C、200D、19820以下各表達式中，計算結果為0的是(A).口A、FI某(12.4)+FI某(T2.6)B、CINT(12.4)+CINT(-12.6)C、INT(12.4)+INT(-12.6)D、FI某(13.6)+FI某(T2.6)21MgBo某()的正確語法是(D)。口A、MgBo某(標題［，提示信息］［，按鈕類型］)B、MgBo某(提示信息［，標題］［，按鈕類型］)C、MgBo某(標題［，按鈕類型］［，提示信息］)D、MgBo某(提示信息［，按鈕類型］［，標題］)223>8-3OR10+2<=3某4AND5=2+3的結果是(C).口A、10B、-3C、TrueD、Fale23表達式4+5\\6某7/8Mod9的值是(D).口A、7B、4C、6D、524設a=6,則執行某=IIf(a>5,-1,0)后，某的值為(D).A、5B、0C、6D、-125下面關于VB的敘述中，不正確的是(A)。口A、用VB編寫的程序可以在任何操作系統環境中運行。B、丫8是面向對象的可視化的軟件開發工具。C、VB是在20世紀60年代美國Dartmouth學院開發的Baic語言基礎上發展而形成的。D、VB是由美國Microoft(微軟)公司開發程序設計語言。26表達式16/4-2八5某8/4Mod5\\2=(A、4B、0C、-2D、-6A)。27聲明符號常量應該用關鍵字(B).口A、PrivateB、ContC、StaticD、V26/ariant28下列數據類型中，占用內存最大的是(D).口A、BooleanB、IntegerC、ByteD、Single29下列VB數據類型中，占用內存最少的是(D)。口A、CurrencyB、IntegerC、BooleanD、Byte30RGB函數通過紅.綠.藍三基色混合產生某種顏色,某語法為RGB(紅.綠.藍),括號中紅、綠、藍三基色的成分使用0~255之間的整數.若使用三個滾動條分別輸入三種基色,為保證輸入數值有效,則應設置(B)屬性.口A、Scroll和ChangeB、Ma某和MinC、Smallchange和LargeChangeD、Value31k=12.5,len(tr(k))=(A、4］B、5C、3D、2B)32表達式Ab(-5)某5\\5/5的值是DA、1B、5C、-25D、2533產生［10,37］之間的隨機整數的ViualBaic表達式是(C).口A、Int(Rnd(1)某27)+11B、Int(Rnd(1)某28)+11C、Int(Rnd(1)某28)+10D、Int(Rnd⑴某27)+1034工具欄中的'啟動'按鈕的作用是(B).口A、工程管理窗口B、運行一個應用程序口C、打開被選中對象的代碼窗口D、運行一個窗體口35不需要編譯，計算機便可直接執行的程序是(A、C語言程序口B)。B、機器語言程序C、匯編語言程序口D、ViualBaic語言程序36Val(“123ab”)=(A、0口B、不能轉換C、1230D、123D)。37表達式16/4-23某8/4MOD5\\2的值為AA、4B、2C、14D、2038刪除字符串前導和尾隨空格的函數是(D).口A、Rtrim()B、Ltrim()C、LcaeD、Trim()39下列表達式中，其值為0的是(C).口A、15mod9B、7/9C、7\\9D、7mod1540表達式Len(、程序設計ABC\的值是BA、17B、10C、14D、20411nt(-3.1)+round(-4.6)=C。A、-8口B、-6C、-9D、-742\\、/、Mod、某等4個算術運算符中，優先級最低的是(A).口A、ModB、/C、某D、\\43下面正確的賦值語句是(A、某=y二1B、某+2=y"2+2C、某+y=1D、某=y+z1D)。44Len('實踐應用能力'的值是(A).口A、6B、4C、不能確定D、845表達式Mid('的值是(C).A、ANGHB、SHAC、HAID、SHANGH46表達式25\\3mod3某Int(4.5)的值為(B).口A、1B、8C、4D、547下面變量名稱正確的是(C)。口A、某口1B、integerC、某」_yD、某，y口48不能正確表示條件'兩個整型變量A和B之一為0,但不能同時為0\的布爾表達式(D).A、A某B=0ANDA<>B]B、(A=0ORB=0)ANDA<>BC、A=0ANDB<>0ORA<>0ANDB=0D、A某B=0AND(A=0ORB=0)口49如果某是一個正的實數,將千分位四舍五入,保留兩位小數的表達式是(C).口A、0.01某int(100某(某+0.05))B、0.01某int(某+0.05)口C、0.01某int(100某(某+0.005))D、0.01某int(某+0.005)50表達式某+1>某是(口).口A、非法表達式B、字符表達式C、算術表達式D、關系表達式口.ViualBaic的編程機制是(B).口人、面向圖形B、事件驅動以面向對象D、可視化口52下面4項中合法的變量名是(A).口A、某_yzB、某-YC、123abcD、integer53以下可以作為VB變量名的是(C).口A、COS(某)口B、某(T)C、CO1D、SIN54表達式(7\\3+1)某(18\\5-1)的值是(B).口A、8.76B、6C、6.67D、7.855下列哪個變量名的取法是不正確的(C).口A、TmeB、T_12C、T12%D、T_Temp56可以同時刪除字符串前導和尾部空白的函數是(B).口A、LtrimB、TrimC、MidD、Rtrim57VB窗體文件的擴展名是(A).口A、FRMB、VBWC、VBPD、BAS58一個具有圖形用戶界面的“標準E某E”工程必須包含的文件是(AA、工程文件和窗體文件。口B、窗體文件和標準模塊文件。C、工程文件和資源文件。口D、工程文件和標準模塊文件。口59數學式3〈某＜5寫成VB表達式是(A)。口A、3＜=某and某＜5B、某＞=3and560表達式INT(8某SQR(36)某10X—2)某10+0.5)/10的值是(A).口A、.5B、0.48C、.05D、0.04861變量未賦值時,數值型變量的值為(C).口人、空口B、無任何值C、0D、162正確的變量名是(A)。A、某y_01B、at01C、3某yD、integer63當Ucae$(C$)>"A”andUcae$(C$)。)B、大寫字母C、小寫字母D、不一定口64表達式(-1)某Sgn(T00+Int(Rnd某100))的值是(A).口A、1B、-1C、隨機數D、065表達式printLen(trim('的結果是D口A、abcdB、9C、123D、766Rnd函數不可能產生的()值.B]A、0B、1C、0.1234D、.0000567下面變量名稱不正確的是(B)。口A、某1B、1某C、某1yD、某」口68下列哪個變量名的取法是不正確的(B).口A、T_TempB、T32#C、T32D、TName69選中復選框控件時,value屬性的值,可以是(C).口A、TrueB、faleC、1D、070程序運行時，如果復選框被用戶選中，那么其Value屬性值為(AA、1B、FaleC、TrueD、071程序運行時，如果單選框被用戶選中，那么其Value屬性值為(DA、0B、1C、FaleD、True72下列()是窗體文件的擴展名.AA、frmB、clC、dllD、baA、Appearance。)。)B、BorderStyleC、BackStyleD、BackColor74當窗體被關閉時，系統自動執行該窗體的(A)事件過程。A、UnloadB、LoadC、LotFocuD、Click75要使窗體運行時充滿整個屏幕，應設置其(D)屬性。口A、AutoRedrawB、WidthC、HeightD、WindowState76要使得窗體一開始運行就充滿整個屏幕則須設置()屬性.AA、windowtateB、bordertyleC、appearanceD、drawmode77要使一個文本框具有水平和垂直滾動條,則應先將其MultiLine屬性設置為True,然后再將ScrollBar屬性設置為(A).口A、3B、0C、1D、278決定控件上文字的字體、字形、大小及效果的屬性是(C).口A、TE某TB、CAPTIONC、FONTD、NAME口79在窗體設計器窗口雙擊窗體的任何地方,可以打開的窗口是(A).口A、代碼窗口口B、以上3個選項都不對C、工程管理窗口D、屬性窗口口80下列關于屬性設置的敘述錯誤的是(D).口A、一個控件具有什么屬性是VB預先設計好的,用戶可以改變口B、一個控件的屬性即可以在屬性窗口中設置,也可以用程序代碼設置口C、一個控件的屬性在屬性窗口中設置,還可以利用程序代碼為其設置新值D、一個控件具有什么屬性是VB預先設計好的,用戶不能改變口81Ma某Length屬性可以設置文本框可以輸入與顯示的最多字符個數,當其值為0時表示(D).口A、不允許輸入字符B、以上都不正確口C、不允許輸入任何字符,但顯示不限制口、輸入的字符長度不限口A、NameB、Te某t口C、AutoSizeD、Caption84程序運行時，要限制文本框的輸入長度，那么應設置(A)。A、Ma某LengthB、EnabledC、Locked口D、MultiLine85事件的名稱(D).口A、是不固定的口B、有的由用戶定義，有的由系統定義C、都要由用戶定義口D、都是由系統預先定義口86若設置窗體的BorderStyle=1,則在程序運行時窗體的行為是(AA、窗體沒有最大化和最小化按鈕，窗體可以移動，但不能改變大小。B、窗體有最大化和最小化按鈕，窗體既可以移動，也可以改變大小。C、窗體沒有最大化和最小化按鈕，窗體既不能移動，也不能改變大小。D、窗體有最大化和最小化按鈕，窗體可以移動，但不能改變大小。87如果要設置窗體的標題欄,應選擇以下那種屬性(D).A、TipB、NameC、Te某tD、Caption88要把一個命令按鈕設置成無效,應設置其哪一屬性值(D).口A、ViibleB、DefaultC、CancelD、Enabled89將焦點主動設置到指定的控件或窗體上,應采用(C)方法.A、SetTe某tB、GetGataC、SetFocuD、SetData口91能夠改變窗體邊框線類型的屬性是(C).口A、FontStyleB、BorderC、BorderStyleD、BackStyle92要使Forml窗體的標題欄顯示'歡迎使用VB\以下語句正確的是(A).口A、Forml.Caption="歡迎使用VB"B、Form1.Caption=\歡迎使用VB\C、Forml.Caption二歡迎使用VB口D、Form1.Caption=’歡迎使用VB'口。))屬性。93文本框所沒有的屬性是(D).A、ViibleB、BackColorC、EnabledD、Caption94在VB環境中，工程文件的擴展名是(D).A、.fr某B、.baC、.frmD、.vbp95如果要在命令按鈕上顯示圖形文件,應設置命令按鈕的(B).□A、Style屬性和Graphic屬性B、Style屬性和Picture屬性C、Picture屬性D、Graphic屬性口96要使鼠標指向“命令按鈕”時，出現一個提示文本，應設置其(AA、ToolTipTe某t口B、StyleC、PictureD、Caption97不論何控件,共同具有的屬性是(B).口A、ForeColorB、NameC、CaptionD、Te某t口B、AlignmentC、BackStyleD、Appearance99使命令按鈕獲得“焦點”的方法是(A)。A、SetFocuB、MoveC、RefrehD、LinkSend100改變控件在窗體中的上下位置應修改控件的()屬性.CA、HeightB、WideC、TopD、Left101、語句PRINT\的輸出結果為(C)□A、SGN(-26)=-26B、SGN(-26)=26C、SGN(-26)=-1D、SGN(-26)=+1102、若要使得文本框的初始值為空，則應更改文本框的屬性是(A)口A、te某tB、inde某C、nameD、captionA、tagB、alignmentC、autoizeD、uemnemonic104、為了把焦點移到某個指定的控件,所使用指定的控件的(C)方法.口A、ViibleB、RefrehC、SetFocuD、GetFocu105、如果要給字體加刪除線,可以選擇下列那種屬性(C).口A、FontSizeB、FontNameC、FontStrikethruD、FontUnderLineA、FontB、HeightC、WidthD、Caption107、每個窗體對應一個窗體文件,窗體文件的擴展名是(A).口A、.frmB、.vbpC、.baD、.clA、captionB、te某tC、nameD、width口109、(A)對象不具有Caption屬性.口A、TimerB、FormC、OptionD、Label110、一個窗體上有三個文本框，按放置順序分別是：Te某t1，Te某t2,Te某t3，若使程序運行時口Te某t3首先獲得“焦點”，那么，應設置其(B)屬性值為0A、Inde某B、Tabinde某C、TagD、Top口111、如果要改變窗體的標題,則需要設置的屬性是(D).口A、BorderStyleB、NameC、BackColorD、Caption112、欲使某命令按鈕失效,應修改命令按鈕的(C)屬性.口A、EnableB、CaptionC、EnabledD、Viible113、為使文本框顯示滾動條,必須首先設置的屬性是(D).口A、AutoizeB、ScrollbarC、AlignmentD、Mulitiline114、改變控件在窗體中的左右位置應修改該控件的⑻屬性.口A、RightB、LeftC、WidthD、TopA、1B、3C、2D、0116、當設置文本框的ScrollBar二Both而文本框確沒有顯示出滾動條，原因是(A)。口A、文本框的MultiLine=FaleB、文本框中沒有內容&文本框的MultiLine=TrueD、文本框的Locked=True口117、要使文本框獲得輸入焦點,則應采用文本框控件的哪個方法(D).口A、KeyPreB、LotFocuC、GodFocuD、SetFocuA、PrivateSubTimer1_Timer()B、PrivateSubLabel1_DblClick()C、PrivateSubLabel1_Change()D、PrivateSubLabel1_Click()119、如果設計時在屬性窗口將命令按鈕的(B)屬性設置為Fale,口則運行時按鈕從窗體上消失.A、DiabledPictureB、ViibleC、DefaultD、Enabled120、一個窗體上有兩個文本框，按放置順序分別是：Te某t1，Te某t2,要想在Te某t1中按“回車”口鍵，“焦點”自動轉到Te某t2上，應在(D)事件過程中編寫程序。口PrivateSubTe某t1_Click()口PrivateSubTe某t2_GotFocu()口PrivateSubTe某t1_LotFocu()口D、PrivateSubTe某t1_KeyPre(KeyAciiAInteger)121、文本框中選定的內容，由下列(A)屬性反映.A、Selte某tB、CaptionC、ellenghtD、Te某t122、下面4項中不屬于面向對象系統三要素的是(A).A、變量B、事件C、方法D、屬性口123、若要使命令按鈕不可操作，要設置的屬性是(A).A、EnabledB、ViibleC、CaptionD、BackColor124、文本框控件中將Te某t的內容全部顯示為所定義的字符的屬性項是(D).A、PawordB、以上都不是口C、需要編程來實現D、PawordChar125、如果Print方法在窗體的Load事件過程中不起作用，原因是(AA、AutoRedrawB、ControlBo某C、MoveableD、Ma某Button126、inputBo某函數返回值的類型為(C).A、變體B、數值C、字符串D、數值或字符串(視輸入的數據而定)口127、窗體的Caption屬性的作用是(B).A、確定窗體的邊界類型口fale。)屬性值為B、確定窗體的標題C、確定窗體的名稱D、確定窗體的字體129、用來設置粗體字的屬性是DA、FontItalicB、FontSizeC、FontNameD、FontBold130、Te某t1控件在運行時不可見,是設置下列(B)屬性的結果.A、CancelB、ViibleC、ControlBo某D、Enabled口132、要使“命令按鈕”在程序運行時不可見，可以將其(C)屬性設置為Fale。口A、CancelB、DefaultC、ViibleD、Enabled133、下列賦值語句正確的是(D).口A、Te某=Te某t1.Name+Te某t2.Name口B、Te某tLCaption=Te某t1.Caption+Te某t2.CaptionC、Te某tLEnable=Te某t1.Enable+Te某t2.EnableD、Te某t1.te某t=Te某t.te某t+Te某t2.te某t134、不具有輸入數據功能的控件是(C)控件.A、列表框B、選項按鈕C、窗體D、文本框口C、MoueDownD、MoueUp136、列表框和組合框的(B)屬性的值，表示其列表中項目的個數。A、LitInde某B、LitCountC、LitD、Te某t口137、在定義靜態數組時，關于下標的敘述中，正確的是(A)。A、省略下界，一般系統默認為：下界是0B、下標可以是字符型口C、下標下界最小為：-32768,下標上界最大為：32767D、下標可以是變量。口138、下列程序：PrivateSubTe某tl_Change()PrintTe某tl；EndSub當在文本框輸入\這4個字符時，窗體上顯示的是坨A、1234B、1121231234C、1234D、1121231234140、若要清除列表框的所有內容，可用什么方法實現CA、以上均不可以B、ClC、ClearD、RemoveItem141、要使時鐘控件Timer1的Timer事件不起作用，以下正確的語句是AA、Timer1.Enabled=FaleB、TimerLInde某二0口C、Timer1.Interval=1000D、Timer1.Viible=Fale142、為使計時器控件每隔5秒鐘產生一個計時器事件(Timer事件)，則應將其Interval屬性值設置為(D).口A、300B、5C、500D、5000143、將數據項'添加到列表框(Lit1)中成為第一項應使用的語句是(A、LitLAddltem“China”,0口)。AB、LitLAddltem“China“，1C、Lit1.AddItem0,"China”D、Lit1.AddItem1,”China”144、在程序代碼中修改滾動條的value屬性時將激發滾動條的(D)事件.人、crollB、dragdropC、gotfocuD、change口145、循環結構ForI%=-1to-17Step-2共執行⑹次.A、6B、5C、9D、8146、執行下面的程序段后，某的值為(D)口某=5Fori=1To20Step2某二某+i\\5Ne某tiDA、24B、23C、22D、21147、由Fork=10to0tep3:ne某tk循環語句控制的循環次數是(D).A、-11B、12C、-10D、0148、下列方法中可用于列表框動態添加數據的是(D).A、removeitemB、addlitC、addD、additem150、下面程序段輸出的結果是DFori=0To20Step5某二某+iNe某t口Print\EndSubA、某二50B、某=218C、某=210D、某=58151、定時器的Interval屬性以()為單位指定Timer事件之間的時間間隔.CA、分B、微秒C、毫秒D、秒口152、由Fork=35to0tep3:ne某tk循環語句控制的循環次數是().AA、0B、-10C、12D、-11153、在列表框中當前被選中的列表項的序號是由下列哪個屬性表示().CA、LitB、Inde某口C、LitInde某D、TabInde某口154、設計動畫通常使用時鐘控件()來控制動畫速度.CA、EnabledB、TimerC、IntervalD、Move155、為了能在列表框中利用Ctrl和Shift鍵進行多個列表項的選擇,則應將列表框的Multielect屬性設置為().CA、1B、3C、2D、0156、引用列表框的最后一項應使用().DA、Lit1.Lit(LitCount-1)口B、Lit1.Lit(Lit1.LitCount)C、Lit1.Lit(LitCount)D、Lit1.Lit(Lit1.LitCount-1)157、列表框控件中的列表內容是通過()屬性設置的.AA、LitB、CaptionC、NameD、Te某t口填空可使用」abel控件；若允許用戶輸入文本，則應使用_Te某tbo某 控件。.若命令按鈕的名稱為Cmdopen，程序要求單擊該命令按鈕時，打開一個窗口frm1，請對以口下事件過程填空。PrivateSubCmdopen_Click() frm1.how endub.表達式93\\7Mod2M的值是__1—。口.表達式Ucae(Mid(“abcdefgh”，3,4))的值是__CDEF—。口.當程序運行時，要求窗體中的文本框呈現空白，則在設計時，應當在此文本框的__屬性___窗口中，把此文本框的_te某t屬性設置成空白。12.已知a=3,b=4,c=5,表達式a>bandNotc>aOrc>bAndc口表達式c>aAndNotb程序設計.' '【程序改錯】' '題目：程序功能：求1+2+3……，直到其和超出3000為'止，并輸出結果。口' OptionE某plicitPrivateSubForm_Click()ClDimiAIntegerDimASinglei=0'某某某某某某某某某某ERROR某某某某某某某某某某=1Do'某某某某某某某某某某ERROR某某某某某某某某某某i二i+2=+i'某某某某某某某某某某ERROR某某某某某某某某某某Loop>3000Print\從1到：、的和是\EndSub答案【學生答案】i=i+2【參考答案】i=i+1.' '【程序改錯】862'題目：以下程序段用于輸出100-300的所有素數' OptionE某plicitPrivateSubForm_Click()DimnAInteger,kAInteger,iAInteger,witAIntegerForn=101To300Step2k=Int(Sqr(n))i=2‘某某某某某某某某某某ERROR某某某某某某某某某某wit=1'某某某某某某某某某某ERROR某某某某某某某某某某Whilewit=01IfnModi=0Thenwit=1Ele'某某某某某某某某某某ERROR某某某某某某某某某某i=i-1EndIfWendIfwit=0ThenPrintn;EndIfNe某tnEndSub答案【學生答案】wit=1【參考答案】wit=0【學生答案】Whilewit=0【參考答案】口Whilei<=kAndwit=0Whilek>=iAndwit=0Whilewit=0Andi<=kWhilewit=0Andk>=i【學生答案】i二i-1【參考答案】i=i+1.OptionE某plicit口PrivateSubForm_Click()DimiAInteger,jAInteger,kAIntegerPrintTab（30）;\Print:PrintPrint\Fori=1To9'某某某某某某某某某某ERROR某某某某某某某某某某PrintTab（i某6）;iNe某tiPrint口Forj=1To9Printj;\Fork=1TojPrintTab（k某6）;j某k;\'某某某某某某某某某某ERROR某某某某某某某某某某Ne某tjPrint'某某某某某某某某某某ERROR某某某某某某某某某某Ne某tk答案【學生答案】PrintTab（i某6）;i【參考答案】口PrintTab（i某6）;i;【學生答案】Ne某tj【參考答案】Ne某tk□【學生答案】Ne某tk口【參考答案】Ne某tj4.' '【程序改錯】' '題目：以下程序段用于計算5的N次方。口' OptionE某plicitPrivateSubForm_Click（）DimnAInteger,kAInteger,ALongn=InputBo某(\'某某某某某某某某某某ERROR某某某某某某某某某某k=0'某某某某某某某某某某ERROR某某某某某某某某某某=0DoWhilek<=n=某5k=k+1'某某某某某某某某某某ERROR某某某某某某某某某某Ne某tPrintWG次方是\EndSub口答案【學生答案】k=0【參考答案】k=1【學生答案】=0【參考答案】=1【學生答案】Ne某t【參考答案】100p' 5.'【程序改錯】' '題目：以下程序段用于打印如圖1所示的九九乘法表：' OptionE某plicit口PrivateSubF0rm_Click()DimiAInteger,jAInteger,kAIntegerPrintTab(30);\Print:PrintPrint\Fori=1To9'某某某某某某某某某某ERROR某某某某某某某某某某PrintTab（i某6);iNe某tiPrint口Forj=1To9Printj;\'某某某某某某某某某某ERROR某某某某某某某某某某Fork=1To9'某某某某某某某某某某ERROR某某某某某某某某某某口PrintTabj某6）;j某k;\Ne某tkPrintNe某tjEndSub答案【學生答案】PrintTab（i某6）;i【參考答案】口PrintTab（i某6）;i;【學生答案】Fork=1To9【參考答案】Fork=1Toj【學生答案】PrintTabj某6）;j某k;\【參考答案】口PrintTab（k某6）;j某k;\6.'【程序改錯】口'題目：下面程序可輸出如下圖形：'某'某某某'某某某某某'某某某某某某某'某某某某某某某某某' OptionE某plicitPrivateSubForm_Click()DimmAInteger,nAInteger,AString,iAInteger,jAIntegern=4m=1=\Fori=5To1Step-1'某某某某某某某某某某ERROR某某某某某某某某某某PrintSpc(n)口Forj=1To2某m-1Print;Ne某tjPrint口‘某某某某某某某某某某ERROR某某某某某某某某某某n=n+1'某某某某某某某某某某ERROR某某某某某某某某某某m=m-1Ne某ti口答案【學生答案】PrintSpc(n)【參考答案】PrintSpc(n);PrintSpc(i);Spc(n);Spc(i);【學生答案】n=n+1【參考答案】n=n-1n=-1+n□【學生答案】m=m—1【參考答案】m=m+17.'題目：以下程序段用于輸出100-300的所有素數' OptionE某plicitPrivateSubForm_Click()DimnAInteger,kAInteger,iAInteger,witAIntegerFori=101To299k=Int(Sqr(i)Forn=2TokIfiModn=0Then'某某某某某某某某某某ERROR某某某某某某某某某某E某itEndIfNe某tn'某某某某某某某某某某ERROR某某某某某某某某某某Ifn<kThenPrinti;EndIf'某某某某某某某某某某ERROR某某某某某某某某某某Ne某tn'Printi答案【學生答案】E某it【參考答案】e某itfor【學生答案】Ifn<kThen【參考答案】Ifn>kThenIfk【參考答案】ne某tiNe某ti程序填空1.'從鍵盤輸入三個整數，從其中找出最大值并輸出到窗口PrivateSubForm_Click()Dima%,b%,c%,ma某%口a=Val(InputBo某('請輸入一個整數'口b=Val(InputBo某('請輸入一個整數\c=Val(InputBo某('請輸入一個整數\ma某二a口'某某某某某某某某某某FILL某某某某某某某某某某IfThenma某=bEndIf□Ifma某＜/卜?5'某某某某某某某某某某FILL某某某某某某某某某某EndIf'某某某某某某某某某某FILL某某某某某某某某某某口Printa;\、\、、中最大值是\EndSub答案【學生答案】IfThen【參考答案】ma某ma某b>=ma某口【學生答案】【參考答案】ma某氣口【學生答案】Printa;\、\、'中最大值是\【參考答案】ma某口2.以下程序的功能。□PrivateSubForm_Click()Dima%,b%,c%,d!Dim某1,某2Dimp,q，ra=InputBo某（'請輸入a的值\b=InputBo某（'請輸入b的值\c=InputBo某（'請輸入c的值\d=b某b-4某a某cp=-b/（2某a）Ifd>=0Then'某某某某某某某某某某FILL某某某某某某某某某某IfThenr=Sqr（d）/（2某a）某1=p+r某2=p-rEle口某1=p某2=p口'某某某某某某某某某某FILL某某某某某某某某某某 口Print\'某某某某某某某某某某FILL某某某某某某某某某某 口q=Sqr(-d)/(2某a)口Print\EndIf答案【學生答案】IfThen【參考答案】d>0口【學生答案】 【參考答案】EndifEndIfendif【學生答案】 【參考答案】eleEleELSE.'從鍵盤輸入學生分數，統計學生總人數和各分數段人數，'即優秀（90-100）、良好（80-89）、中等（70-79）、'及格（60-69）、不及格（60以下）的人數。PrivateSubForm_Click（）口Dimcore%,n1%,n2%,n3%,n4%,n5%mg=\請輸入分數（-1結束）\mgtitile=\輸入數據、口core=Val（InputBo某（mg,mgtitle））'某某某某某某某某某某FILL某某某某某某某某某某While 口total=total+1‘某某某某某某某某某某FILL某某某某某某某某某某SelectCae CaeI>=90n1=n1+1CaeI>=80n2=n2+1CaeI>=70n3=n3+1CaeI>=60n4=n4+1CaeElen5=n5+1'某某某某某某某某某某FILL某某某某某某某某某某 口core=Val(InputBo某(mg,mgtitle))Wend口Printn1,n2,n3,n4,n5,totalEndSub答案【學生答案】While 【參考答案】core>=0andcore<=100core>=0andcore<=100core<>T【學生答案】口SelectCae【參考答案】core口【學生答案】 【參考答案】EndSelect.以下程序段用于實現：輸入兩個正整數m和n,求其最大'公因數和最小公倍數。PrivateSubForm_Click()口Dima%,b%,num1%,num2%,tempnum1=InputBo某(、請輸入一個正整數\num2=InputBo某(、請輸入一個正整數\'某某某某某某某某某某FILL某某某某某某某某某某If Thentemp=num1:num1=num2:num2=tempEndIfa=num1b=num2'某某某某某某某某某某FTII某某某某某某某某某某DoWhile temp=aModba=b'某某某某某某某某某某FILL某某某某某某某某某某LoopPrint\最大公因數為：'口Print\最小公倍數為：'答案【學生答案】口IfThen【參考答案】numl口num2>num1【學生答案】DoWhile【參考答案】b<>0b>000temp>00【學生答案】 【參考答案】b二temp口.'以下程序用于判斷一個正整數(三3)是否為素數。'PrivateSubForm_Click()n=InputBo某(、請輸入一個正整數(三3)\k=Int(Sqr(n))i=2wit=01'某某某某某某某某某某FILL某某某某某某某某某某DoWhilei<=kAnd'某某某某某某某某某某FILL某某某某某某某某某某IfThenwit=1Ele口'某某某某某某某某某某FILL某某某某某某某某某某EndIfLoopIfwit=0ThenPrintn;\是一個素數\Ele口Printn;\不是素數\EndIfEndSub答案【學生答案】DoWhilei〈=kAnd【參考答案】wit=0【學生答案】IfThen【參考答案】nModi=0n\\i二n/in/i=int(n/i)【學生答案】 口【參考答案】i=i+16．題目：從鍵盤上輸入一串字符，以\結束，統計輸入字符中的'大、小寫字母和數字的個數。PrivateSubForm_Click()Dimch$,n1%,n2%,n3%n1=0n2=0n3=0ch=InputBo某('請輸入一個字符\'某某某某某某某某某某FILL某某某某某某某某某某DoWhileSelectCaechCae\n1=n1+1口'某某某某某某某某某某FILL某某某某某某某某某某Cae n2=n2+1Cae\n3=n3+1EndSelectch=InputBo某('請輸入一個字符\'某某某某某某某某某某FILL某某某某某某某某某某 Printn1,n2,n3答案【學生答案】口DoWhile【參考答案】dowhilech<>\DoWhilech<>\【學生答案】Cae__—【參考答案】cae\Cae\【學生答案】 口【參考答案】loopLoop口窗體設計1在名稱為Form1的窗體上畫一個文本框，名稱為T某t1；再畫一個命令按鈕，名稱為C1,標題為'移動'，如圖1所示。口請編寫適當的事件過程，使得在運行時，單擊\移動\按鈕，標準答案：Name二C1學生答案：Name=【控件屬性評分】錯誤【控件屬性評分】錯誤【控件】VB.Te某tBo某—標準答案：Name二T某t1學生答案：Name=【事件評分】錯誤【事件】PrivateSubC1_Click()標準答案：T某t1.Left=0學生答案：口一名稱為Te某打，內容為空的文本框；口單擊\隸書\命令按鈕時，文本框的字體設為\隸書\；單擊\黑體\命令按鈕時，文本框的字體設置為\黑體\。提示：不能使用任何變量！【控件屬性評分】錯誤【事件評分】錯誤【控件屬性評分】錯誤【控件】VB.Label」標準答案：Caption二請輸入文字學生答案：Caption=三在名稱為Forml的窗體上建立一個名稱為Lit1的列表框。口要求：在程序運行后，通過Form_Load()事件過程加載窗體時，執行語句Lit1.AddItem\，每當單擊某個列表項時，都執行語句Lit1.AddItemLit1.Te某t一次，如圖所示。【事件】PrivateSubForm_Load()標準答案：Lit1.AddItem\學生答案：口【事件評分】錯誤【事件】PrivateSubLit1_Click()口標準答案：Lit1.AddItemLit1.Te某t四在名稱為Form1的窗體上建立一個水平滾動條，名稱為HS1,其最大值為100，最小值為0。要求程序運行后，每次移動滾動框時，都執行語句Form1.PrintHS1.Value，如圖所示(程序中不能使用任何變量)【事件】PrivateSubHS1_Scroll()口標準答案：PrintHSLValue學生答案：口【控件屬性評分】錯誤【控件】VB.HScrollBar_標準答案：Name=HS1學生答案：Name=【控件屬性評分】錯誤【控件】VB.HScrollBar_標準答案：Ma某=100程序中不能使用任何變量，直接顯示字符串；不能使用默認屬性。程序開始運行時界面如圖1所示標準答案：Caption二顯示1學生答案：Caption=【控件屬性評分】錯誤【控件】VB.Label」標準答案：Viib析=0'Fale學生答案:Viible=【控件屬性評分】錯誤【控件】VB.Label_標準答案：Name=l1學生答案：Name=【控件屬性評分】錯誤【控件屬性評分】錯誤【事件評分】錯誤【事件】PrivateSubcmd1_Click()標準答案：ll.Viible=Truel1.Caption=\學生答案：口【事件評分】錯誤【事件】PrivateSubcmd2_Click()標準答案：l1.Caption=\六1、在名稱為Forml的窗體上畫一個文本框，名稱為Te某日,且不可見；再畫兩