08春浙江省計算機等級考試二級vb試卷

2008浙江省高等學計算機等級考試試卷(二級Visual說明：⑴考生應將所有試題的答案填寫在答卷上。其中試題1～試題6，請在答卷上各小題正確選項的對應位置處填“√”；⑵請將你的準考證號的后五位填寫在答卷右下角的指定位置內(nèi)⑶考試時間為90分鐘試題1（每小題3共12閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個正確答案112Tex中顯示其反序的數(shù)（高位變低位）。要求在文本框中不可輸入任何字符。123321，567765?！境绦騊rivateSubForm_Load()EndPrivateSubCommand1_Click()Text1.Text="":n=InputBox("n=")EndPrivateSubIfn<0Thenn=-n:Text1.Text="-"Whilen<>0Text1.Text 【供選擇的答案、 、 、、Tex1ede 、Tex1ede 、0&Text1.Text nd1&Tex1Tx 、Tex1Text&nd10、nn\10 、nn/10 、nn試題2（每小題3共12閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個正確答案【程序說明運行時， PrivateSubForm_Activate()P1.Height=P1.WidthP1.FontSize=10 (-10,110)-(110,-P1.Line(-5,0)-(100,P1.Line(0,-5)-(0,Fori= P1.Line(i,0)-(i,P1.Line(0,i)-(2,NextFori=1To9P1.CurrentX=i*10-2P1.CurrentY=-2EndSub【供選擇的答案w e 1t e)、er5) 、1r5)、1r r、1To9p1 、10To0 、10To0p1 、2 、i、 、試題3（每小題3共12閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個正確答案【程序說明單擊“讀文件”按鈕將文本文件讀入并逐行在列表框控件1單擊“分1、3運行結(jié)果如下【程序PrivateSub '讀文DimsAsOpen"e:\xxx.txt"For As#1WhileNotEOF(1)LineInput#1,s:List1.AddItemsEndSubPrivateSub DimiAsInteger,nAsInteger,s1AsString,s2AsStringFori=1To n=Len(List1.List(i-1))ReDima(n)AsString*1Forj=1Tona(j) Nexts1="":s2=Forj=1To Thens1=s1+a(j)Elses2=s2+a(j)NextjEndSub【供選擇的答案)、、、、)、、、、i11) i1)) )、、試題4（每小題3共12閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個正確答案【程序PrivateSubText1_KeyPress(KAsInteger)IfK<Asc("0")OrK>Asc("9")ThenK=Label1.Caption=Chr(K)+Label1.CaptionEndIfEnd【供選擇的答案Text11、3、5，1、 、 、 、Tex12、7、，1 、2 Tex11、 、 、 、Text11、2、、51 、12 、521 、試題5（每小題3共12閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個正確答案【程序PrivateSubForm_Load()Timer1.Interval=1000EndPrivateSubStatickAsForm1.CurrentX=0:Form1.CurrentY=0'窗體的所有其他屬性均取缺省Ifk=0Thenk=1Elsek=Ifk=0ThenForm1.ForeColor=RGB(0,255,0)Else_Form1.ForeColor=RGB(0,0,255)EndSub【供選擇的答案T11次系統(tǒng)時間， 、藍色顯 、綠色顯 、紅色顯系統(tǒng)時間的顯示位置，是在、窗體右上 、窗體右下 如果將T過程中的語句“”改為“e”，后，窗體系統(tǒng)時間顯示上的顏色為、藍、綠色交 、藍 、綠 、紅Te 、e 、e+T試題6（每小題3共12閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個正確答案【程序PrivateSubf(b()AsInteger,ByRefmAsDimiAsInteger,jAsInteger,kAsIntegeri=1DoWhilei<=mForj=1ToIfb(i)Modb(j)=0Andi<>jFork=iTom-1:b(k)=b(k+1):NextkExitForNextjIfj>mTheni=i+1Elsem=m-1EndPrivateSubDima(6)AsInteger,iAsInteger,nAsIntegern=6Fori=1To6:a(i)=InputBox("a("&i&")="):NextCallf(a,Fori=1Ton:Printa(i);:NextiEndSub17、、5、、、3、89 、89333 、75433 、754”21，、89 、89333 、75433 、7541、12、27、6、3、43333 、4 、12278 、1227”23，、43333 、4 、12278 、122772110，（）、事件過程12008浙江省高等學計算機等級考試答卷(二級Visual試題1~試題6請在各小題正確選項的對應位置處填“√”（每小題3，共72ABABCD1112ABCD131516172122237（28110，（1e 數(shù)x，x江省高等學校計算機等級考試參考答案（二級試題1~試題6請在各小題正確選項的對應位置處填“√”（每小題3，共72ABABCD√√√√√√√√√√11√12√ABCD13√√15√16√17√√√√21√22√23√√72110，（）、事件過程1e() 2DimiAs 1分Fori1To 5分f=f+(i)Nextff 2e)