年分姓名：________1、單項選擇題本題共計40分)1Cint(3.5)Int(–3.5)3.5)的值分別是________。()，–43B43、44，–332中，下列關于控件的屬性或方法中，搭配錯誤的有________List1.ClsPicture1.Print0()B1233CommandButton行該程序顯示窗體時，________()B、4、下面的表達試的值為真的是________。()Mid(,1,12)=Right(”B”>abcde”><=>5"Printformat(5459.478,"##,##0.00")"________。()B6Private)s=Sin(3./2)s程序運行后，消息對話框顯示_________。()0B127c$____________。Private)==&()Bbasic8、下列語句中不能正常執行的是________。print()Bprintprintprint9"PrintFormat(1234.567,"##,##0.00")",__________。()B10奇數的和的程序，請補充完整，填空應為_______。PrivatesxIntegers=0x=-2s=s+xxs1B111、下列程序段的執行結果為____________。x=Int((69-*+xIs”””不合格”B12____________。IfBIfIf：If()13、要使文本框能顯示多行文字，則需設定它的____________。()BSeleted14________。()IfIfBIfIfIfIfElseIfIfIf(a=1,2,3)15、下面程序的運行結果是________。Private()3ix;y66()B5816、下面程序的內層循環次數是________。3i3...kji3()B917、對于一個含有計時器控件的窗體，每經過一段由________()B、Interval18、窗體從加載到顯示出來，下列最先發生的事件是____________。()B、19ax3位小數四舍五入的表達式是____________。()B20的一行可以寫多條語句，語句之間用____________()B21、判斷在文本框內是否按下了回車鍵，應通過____________()B22、下列循環能正常結束循環的是____________。()Bi=i-223Ify=1，下列說法正確的是____________。()和B和、為關系表達式，為賦值語句，24ABC")____________。()B25，在該循環體內有下列四條語句，其中()B26、執行下面的程序，單擊窗體后在窗體上顯示的結果是PrivateStr1String,Str2StringStr3String,IIntegerStr1=I=12Str2=Str1=Str2&Str1Str3=Str3&Str1Str1=+I)IStr3()B27________。()i=1,x=2,y=2,則(x-y)/i<>0B(7=5)則&和+b$28____________。()HelloBHello為5、文本框中只有“Hello”29Value2____________。()B30frm事件過程名是_____。()B、313200中150，則執行下列程序段后，______。mInteger,nIntegerIfIfIfnB32yIntegerm=1m3m=m+12B23234234533、以下程序的輸出結果是____________。iInteger,aIntegerIfii=i-1IfaB34、下列符號常量的聲明中，______________asingle=1.1()Ba、aa=OK”35()B36Print、________。()B37、只能由系統觸發的是___________()B38、用于除去字符串左側的空格的函數是__________。())B)、))39____________()B404個方法中，可以返回字符串的高度值的是____________。()B2、填空題本題共計40分)1、執行下面的程序段后，s。i=2.64.90.6iprints2ABC的表達式是3和234_____。aInteger,bIntegera=InputBox("請輸入第一個整數","")b=InputBox("","")46123，661Private)aInteger,bInteger,cInteger,iIntegera=2b=2a-1Ifab=0c=IfbaIfa51625Private)iInteger,yx=1y=x*xIfxIfx6ExplicitPrivate)sString,kIntegerrString,iInteger,tStringIf&tIfir7Private)aInteger,bInteger,cInteger,nInteger,jInteger99If(nIfcba8Command1Private)tInteger,bString,kIntegert=InputBox("2&bt=t\2If&bIft程序運行后，如果單擊命令按鈕，如在輸入框輸入數值"8",。9x5y3z只1元3_______。Private)x=0y=0Ifzyx108Private)String,String,faString==""i=fa=0fa=1fa=i、運行下面的程序，就會出現___(1)_______(2)____Private()iIntegeri*12中的控件分為兩類，一類是，另一類是。1314StringInpass=_______("","")If_______""vbOKOnly+vbCritical,""If3、問答題本題共計20分)14、問答題本題共計10分)1整數之和等于它們各自的對調數之和。如：1.b,2.c,3.b,4.a,5.b,6.b,7.d,8.a,9.b,10.c,11.c,12.a,13.c,14.b,15.c,16.b,17.d,18.a,19.c,20.d,21.b,22.c,23.c,24.a,25.c,26.a,27.d,28.a,29.c,30.b,31.d,32.c,33.b,34.c,35.d,36.c,37.c,38.b,39.a,40.a1.19,2.abs(a)>=bandabs(a)<>c,3.357,4.c=1,c=a,5.x=(ymod10)or(x=(ymod100))or(x=(ymod1000)),6.mid(s,i,1),7.1to9,a*100+b*10+c,8.1000,9.5*x+3*y+z/3=100,10.1to無限循環,Ctrl+Break,12.標準控件,ActiveX控件,13.AddItem,14.InputBox,MsgBox1.DimiAsInteger,jAsIntegerPrint2;Fori=3To100Forj=2Toi-1IfiModj=0ThenExitForNextjIfj=iThenPrinti;Nexti對調數DimkAsInteger,hAsInteger,tAsInteger,sAsIntegerDimiAsIntegerk=Val(InputBox("請輸入一個兩位數