《高級語言程序的設(shè)計(jì)-(VB)》試題樣題

. . . .. . . ...........《高級語言程序設(shè)計(jì)(VB)》試題樣題考試時(shí)間：90分鐘專 業(yè) 班 號 班 號 機(jī)號 成績一、登錄網(wǎng)絡(luò)及文件操作4FS3，刪除F在F(1(2錄，并在該文件夾下分創(chuàng)建NO1、NO2、NO3和NO4等四個文件夾，下列四題分別存放在上述對應(yīng)的四個文件夾中（否則無分）。二、用VB編寫下列程序n1！+2！+3！+…+n！，并輸出結(jié)果。100~1003．用繪圖方法繪制曲線：y=x2-100（-10≤x≤10）。用圖像框和公共對話框（打開文件對象）等控件實(shí)現(xiàn)一個圖像瀏覽器。VisualBasic語言程序設(shè)計(jì)筆試樣卷（考試時(shí)間90分鐘，滿分100分）一、選擇題（1）—（35）題每題2分，共70分。下列各題A)、B)、C)、D)四個先項(xiàng)中,只有一個選擇是正確的,請將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上,答在試卷上不得分。下列不能打開屬性窗口的操作是 。執(zhí)行“視圖”菜單中的“屬性窗口”命令按F4按Ctrl+T單擊工具欄上的“屬性窗口”按鈕 。下列可以打開立即窗口的操作是 。Ctrl+D B)Ctrl+E C)Ctrl+F D)Ctrl+GinputBox函數(shù)反回值的類型為 。數(shù)值 B)字符串C)變體 D)數(shù)值或字符串（視輸入的數(shù)據(jù)而定）可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是 。Ltrim B)Rtrim C)Trim D)Mid(5)表達(dá)式4+5\6*7/8Mod 9的值是A) 4 B)6 D)7

5 C)如果在立即窗口中執(zhí)行以下操作：a=8 <CR> (<CR>是回車鍵，下同)

b=9 <CR>print a>b 則輸出結(jié)果是 。A) -1 B) 0 C)False D)True以下語句的輸出結(jié)果是 PrintFormat$(32548.5,“000,000.00”)A)32548.5 B)32,548.5 C)032,548.50 D)32,548.50執(zhí)行以下程序段后，變量c$的值為a$=“VisualBasicb$=“Quick”c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,11)VisualBASIC ProgramingQuick Basic ProgramingQUICK Basic ProgramingQuick BASIC Programing 為了在按下回車鍵時(shí)執(zhí)行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬設(shè)置為True，這個屬性是 。Value B)Default C)Cancel D)Enabled為了把焦點(diǎn)移到某個指定的控件，所使用的方法是SetFocus B)Visible C)Refresh D)GetFocus設(shè)a=6，則執(zhí)行x=IIf(a>5,-1,0)后，x的值為 。A)5 B)6 C)0 D)-1執(zhí)行下面的程序段后的值為 x=5For i=1To20Stepx=x+i\5NextiA) 21 B) 22 C)23 D)24PrivateSubCommand1_Click()For i=1Tox=4For j=1Tox=3For k=1Tox=x+6Next kNext jNext iPrint EndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 。A) 7 B) 15 C)157 D)538PrevateSubCommand1_Click()x=0DoUntilx=-1a=InputBox(“請輸入Aa=Val(a)b=InputBox(“請輸入Bb=Val(b)x=InputBox(“請輸入xx=Val(x)a=a+b+xLoopPrintaEndSub程序運(yùn)行后，單擊命令按鈕，依次在輸入對話框中輸入5、4、3、2、1、-1，則輸結(jié)果為 。2 B) 3 14 D)15(Name屬性為Form1)上畫兩個文本框（其Name屬性分別為Text1Text2）一個命令按鈕屬性為Command1），然后編寫如下兩個事件過程：PrivateSubCommand1_Click()a=Text1.Text+Text2.TextPrintaEndSubPrivateSubText1Text=""Text2Text=""Endsub程序運(yùn)行后，在第一個文本框（Text1）和第二個文本框（Text2）中分別輸入123和321，然后單擊命令按鈕，則輸出結(jié)果為A)444 B)321123132231。C)123321D)(16)閱讀下面的程序段：For i=1To3For j=1ToFork=jToa=a+1NextkNextjNexti執(zhí)行上面的三重循環(huán)后，a的值為。A)143D)21B)9C)在窗體上畫一個文本框（其中Name屬性為Text1），PrivateSubForm_Load()Ttext1.Text=""Text1.SetFocusFori=1ToSum=Sum+iNextiText1.Text=SumEndSub上述程序的運(yùn)行結(jié)果是 。在文本框Text155在文本框Text10出錯在文本框Text1Name屬性分別為Text1Text2屬性為Command1)，然后編寫如下事件過程：PrivateSubCommand1_Click()x=0DoWhilex<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序運(yùn)行后，單擊命令按鈕，在兩個文本框中顯示的值分別為A)1和0 B)2和72 C)3和50 D)4和168用下面語句定義的數(shù)組的元素個數(shù)是 DimA(-3To5)AsInteger6 B) 7 8 D)9以下程序的輸出結(jié)果是Option Base1PrivateSubCommand1_Click()Dima(10),p(3)AsIntegerk=5Fori=1To10a(i)=iNextiFori=1To3p(i)=a(i*i)NextIFori=1To3k=k+p(i)*2NextiPrintkEndsubA) 33 B) 28 C)35 D)37OptionBase1PrivateSubCommandl_Click()Dimaa=Array(1,2,3,4)j=1For i=4ToSteps=s+a(i)*jj=j*10Next PrintsEnd Sub運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是 。A) 4321 B) 12 C)34 D)1234在窗體上面一個命令按鈕（其Name屬性為Commandl），OptionBase1PrivateSubCommandl_Click()Dima(4,4)Fori=1To4Forj=1To4a(i,j)=(i-1)*3+jNextjNextiFori=3To4Forj=3To4Printa(j,i);NextjPrintNextiEndSub程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為 。A)6 9 B)710 C)811 D)9 127 10 8 11 912 1013假定有如下的SubSubS（xAsSingle,yAsSingle）t=xx=t/yy=tModyEndSub在窗體上畫一個命令按鈕，然后編寫如下事件過程：PrivateSubCommandl_Click()DimaAsSingleDimbAsSinglea=5b=4SPrinta,bEndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為 。A)5 4 B)11 C)1.25 4 D)1.25 1閱讀程序：FunctionF(aAsInteger)b=0Staticb=b+1c=c+1f=a+b+cEndFunctionPrivateSubCommandl_Click()DimaAsIntegera=2Fori=1To3PrintF(a)NextiEndSub運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為 。4 B) 4 4 D)44 5 674 6 89閱讀程序：SubsubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommandl_Click()Dima(1To4)AsIntegera(1)=5a(2)=6a(3)=7a(4)=8subPa()Fori=1To4Printa(i)NextiEndSub運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為 。A2 5 10 出錯4 6 1267148816下列不能打開菜單編輯器的操作是 A）按Ctrl+EB）單擊工具欄中的“菜單編輯器”按鈕C）執(zhí)行“工具”菜單中的“菜單編輯器”命令D）按Shift+Alt+M假定有一個菜單項(xiàng)，名為MenuItem，為了在運(yùn)行時(shí)使該菜單項(xiàng)失效（變灰），應(yīng)使的語句為 。MenuItem.Enabled=FalseMenuItem.Enabled=TrueMenuItem.Visible=TrueMenultem.Visible=False在程序運(yùn)行期間，如果拖動滾動條上的滾動塊，則觸發(fā)的滾動條事件是 。Move B)Change C)Scroll D)GetFocus假定窗體上有一個標(biāo)簽，名為Labell，為了使該標(biāo)簽透明并且沒有邊框，則正確的性設(shè)置為 。Label1.BackStyle=0Label1.Borderstyle=0Label1.BackStyle=1Label1.Borderstyle=1Label1.BackStyle=TrueLabel1.BorderStyle=TrueLabel1.BackStyle=FalseLabel1.Borderstyle=FalsePrivateSubForm_Load()List1.AddItem"357"List1.AddItem"246"List1.AddItem"123"Listl.AddItem"456"Text1.Text=""EndSubPrivateSubList1_DblClick()a=List1.TextPrinta+Text1.TextEndSub程序運(yùn)行后，在文本框中輸入“789”（見圖1），然后雙擊列表框中"456"，輸出結(jié)果為 。A)1245 B)456789 C)789456 D)0為了暫時(shí)關(guān)閉計(jì)時(shí)器，應(yīng)把該計(jì)時(shí)器的某個屬性設(shè)置為False，這個屬性是 。Visible B)Timer C)Enabled D)Interval為了把一個記錄型變量的容寫入文件中指定的位置，所使用的語句的格式為。A）GetB）Get文件號，變量名，記錄號C）Put文件號，變量名，記錄號D）Put文件號，記錄號，變量名對窗體編寫如下事件過程：PrivateSubForm_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingleYAsSingle)IfButton=2ThenPrint"AAAAA"EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsPrint"BBBBB"EndSub程序運(yùn)行后，如果單擊鼠標(biāo)右鍵，則輸出結(jié)果為 。AAAAA B)BBBBB C)AAAAA BBBBBBBBBBAAAAA為了在運(yùn)行時(shí)能顯示窗體左上角的控制框（系統(tǒng)菜單），必須 。把窗體的Contro1Box屬性設(shè)置為Fale,其他屬性任意把窗體的ControlBox屬性設(shè)置為True,并且把BoderStyle1-5把窗體的ControlBox屬性設(shè)置為False,同時(shí)把BoderStyle0把窗體的ControlBox屬性設(shè)置為True,同時(shí)把BoderStyle0對窗體編寫如下代碼：OptionBase1PrivateSubForm_KeyPress(KeyAsciiAsa=Array(237,126,87,48,498)m1=a(1)m2=1IfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenm1=a(j)m2=iEndIfNextiEndIfPrintm1Printm2EndSub程序運(yùn)行后，按回車鍵，輸出結(jié)果為A)48 B)237 C)498 D)4984 1 54二、填空題（每空２分，共30分）請將每空的正確答案寫在答題卡[1]—[15]序號的橫線上，答在試卷上不得分。設(shè)有如下的VisualBasic5*x^2–3*x–2*Sin(a)/3它相當(dāng)于代數(shù)式【1】。執(zhí)行下面的程序段后的值為【】 s=5Fori=2.6To4.9Step0.6s=s+1Nexti（3）表達(dá)式Fix(-32.68)+Int(-23.02)的值為【3】。picfile.jpg裝入圖片框Picture1】。PrivateSubCommand1_Click()a=InputBox("請輸入一個整數(shù)")b=InputBox("請輸入一個整數(shù)")Printa+bEndSub321和455】。】。a=300b=20a=a+bb=a-ba=a-b7】。num=0Whilenum<=2num=num+1PrintnumWendPrivateSubCommand1_Click()Dima(1To10)Dimp(1To3)k=5Fori=1To10a(i)=iNextiFori=1To3p(i)=a(i*i)NextiFori=1To3k=k+p(i)*2NextiPrintkEndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是【8】。a1091011處將程序補(bǔ)充完整。OptionBase1PrivateSubCommand1_Click()Dimaa=Array(678,45,324,528,439,387,87,875,273,823)Fori=【9】Forj=【10】Ifa(i)【11】a(j)a1=a(i)a(i)=a(j)a(j)=a1EndIfNextjNextiFori=1To10Printa(i)NextiEndSub在窗體畫一個命令按鈕，然后編寫如下過程：Functionfun(ByValnumAsLong)AsDimkAsk=1num=Abs(num)DoWhilenumk=k*(numMod10)num=num\10Lo