《VisualBasic程序設(shè)計(jì)》綜合練習(xí)題(二)及答案

《VisualBasic程序設(shè)計(jì)》綜合練習(xí)題（二）及答案一、單項(xiàng)選擇鍵盤(pán)事件的執(zhí)行順序是（B）A．KeyPress、KeyDownKeyUpB．KeyDownKeyPress、C．KeyUpKeyDown、KeyPress、KeyPress、KeyDown當(dāng)需要上下文幫助時(shí)，選擇要幫助的內(nèi)容，希望出現(xiàn)MSDN窗口及顯示所需的幫助信息，應(yīng)按的鍵是（C。A．HelpB．F10C．F1D．Esc3．下列對(duì)象不能響應(yīng)A、列表框Click事件的是（B、圖片框D ）C、窗體D、計(jì)時(shí)器在VisualBasic（B。A．Integer VariantC．Double 5．WinsockServer.LocalPort=10001語(yǔ)句的含義是（ A A．設(shè)置偵聽(tīng)端口B．設(shè)置計(jì)算機(jī)IP地址C．設(shè)置中斷地址D．設(shè)置通信協(xié)議要使窗體在運(yùn)行時(shí)不可改變窗體的大小和沒(méi)有最大化和最小化按鈕只要對(duì)下（ B屬性設(shè)置就有效。MaxButton C．Width 如果想讓文本框中的內(nèi)容在運(yùn)行時(shí)不能編輯需將文本框（C 屬性設(shè)置為TrueA．TabStop B．MultiLine C．Locked D．Visible要設(shè)置命令按鈕的背景圖形，必須設(shè)置的兩個(gè)屬性是（D。Value和Icon 和IconC．Caption和Picture 和在VisualBasic（D。Integer B．Double C．Currency 10．如下數(shù)組聲明語(yǔ)句，正確的是（D。A．Dima[3,4]AsInteger a(34)AsIntegerC．Dima(n,n)AsInteger a(3,4)As117+10ModA。A．13 不屬于VB（B。A．ODBC B．BDEC．Jet引擎 DB數(shù)學(xué)式子Sin25寫(xiě)成VB（D。A．Sin25 C．SIN（25） 14．VB（B。A．F1鍵 B．F9鍵 C．F8鍵 D．Ctrl+F8鍵15．DimIAsInteger，則運(yùn)行時(shí)變量I的初始值是（A。A．0D．空值二、填空題定時(shí)控件可識(shí)別的事件Timer ，發(fā)生該事件的時(shí)間間隔由定器Interval 屬性設(shè)置。一般可使Const 關(guān)鍵字聲明常量。全局變量在整個(gè)應(yīng)用程序中有效，一般在標(biāo)準(zhǔn)模塊中使Public 語(yǔ)句聲明。.vbp工程 文件；擴(kuò)展名.frm的文件表窗體 文件；擴(kuò)展名.bas的文件表標(biāo)準(zhǔn)模塊 文件；包含ActiveX控件的文件擴(kuò)展名.OCX 。DimiAsInteger，則運(yùn)行時(shí)變量i的初始值0 。21．?dāng)?shù)學(xué)關(guān)系8≤x<30表示成正確的VB表達(dá)式8<=xANDx<30 Winsock控件主要用來(lái)編TCP/IP UDP 協(xié)議的通話程序。如果Winsock1.LocaPort=0,那么應(yīng)用程序使用隨機(jī)端口 。三、閱讀程序題三、閱讀程序題FunctionF(aAsInteger)b=3Staticcb=b+c=c+F=a+b+EndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2Fori=1To3PrintF(a)NextiEndSub寫(xiě)出程序運(yùn)行時(shí)，單擊命令按鈕在窗體上的輸出結(jié)果。24.答案：24.答案：789閱讀下面的程序，寫(xiě)出單擊窗體后的運(yùn)行結(jié)果。SubChange(ByValxAsInteger,ByValyAsInteger)DimtAst=xx=y=Printx,EndSubPrivateSubForm_Click()DimaAsInteger,bAsIntegera=3:b=4Changea,bPrinta,bEndSub25.答案：3434四、應(yīng)用題四、應(yīng)用題、Text2、Text3、Text4CommandCommand、Command3PrivateSubCommand1_Click()Text1.Text=[1] Text2.[2]="" [2] [3].Text="" [3] EndSubPrivateSubCommand2_Click()If Text1.[4]="" OR Text2.Text=[5] OR Then[4] MsgBox成績(jī)輸入不全 ElseText4.Text=([6]+Val(Text2.Text)[6]+Val(Text3.Text))/[7] [7]End[8] [8]EndSubPrivate