二級(jí)VB模擬題與答案

1、2009VB.net測(cè)試題、單選題,錐名：二勰#B.NETA碓老證:25A1234S6練習(xí)基礎(chǔ)題（單選題）第5題以下關(guān)于VB.WET的敘i術(shù)中不正確的星°設(shè)置標(biāo)記答題區(qū)廠Dina,bAs工n/tEgE工變量聲日月喬句將a、b聲明為整型°r當(dāng)Bool型的值轉(zhuǎn)換為數(shù)值類型的魏時(shí)，F(xiàn)al卵轉(zhuǎn)戚沛6而T工3轉(zhuǎn)戚為-1在VB.HET中.教組的下畀可収是小于上畀的任何整數(shù).r順序文件的每行宇符的長(zhǎng)度可次相等選擇題目題號(hào)<保存>退岀1234jmiiiiirRm|i15|l.i573910,錐名：二勰#B.NETA碓老證:25A123+S6練習(xí)基礎(chǔ)題（單選題）"M7題

2、|在VB.HET中屬于方注的是°設(shè)置標(biāo)記售題區(qū)Facus“LostFocusI"KeyPress廠SelsctedText<>保存退岀選擇題目題號(hào)123456r'Ei*s910二、填空題1、語(yǔ)句Fori=15To2Step-2的循環(huán)次數(shù)為。2、要關(guān)閉當(dāng)前的窗口,語(yǔ)句為：.Close()。3、若窗體上已建多個(gè)控件，要使程序啟動(dòng)完畢焦點(diǎn)就定位在某一控件上，應(yīng)將該控件的Tablndex屬性設(shè)為0_4、整數(shù)型變量m中存放了一個(gè)兩位數(shù)，要將這兩位數(shù)字用一個(gè)表達(dá)式交換位置，例如28變?yōu)?2,表達(dá)式為字符型數(shù)據(jù)以Unicode碼存放，無(wú)論西文或中文字符均占個(gè)字節(jié)6、要

3、使標(biāo)簽的大小自動(dòng)與所顯示的文本相適應(yīng)，可以通過設(shè)置屬性為True來實(shí)現(xiàn)要釋放一個(gè)對(duì)象變量，則需要給該對(duì)象變量賦值為三、程序填空題以下程序的功能是：從半徑5.6開始，按精度0.01依次遞增計(jì)算圓面積，最后輸出面積不超過100的最大半徑。Windc-v/sAppIicstiaM.2253399.5787799.9328310Q-2E755640001ConstPI=3.1415926Dimr,m,sAsSingleDims1AsStringr=5.6s=0AIII!DoWhile(1)(2)+0.01s=PIs1=s1&s&vbCrLf存放計(jì)算結(jié)果Loop.MsgBox(s1&am

4、p;vbCrLf&m)2、以下程序的功能是：在文本框TextBoxI內(nèi)輸入一串任意字符(長(zhǎng)度不超過50個(gè)字符),分離出單個(gè)數(shù)字分別存放于數(shù)組x中，分離出單個(gè)字母分別存放于數(shù)組y中，其他字符則丟棄。最后求出這些數(shù)字的平均值，以及這些字母中的最小字母，并分別顯示在文本框TextBox2和TextBox3。程序的思想是：對(duì)于每一單個(gè)字符c，調(diào)用函數(shù)過程IsMyChar(c)用來判別c是數(shù)字，還是字母，或者是其他字符，并返回相應(yīng)標(biāo)志值0、1、-1。Dimsp,s1AsStringDimx(50)AsIntegerDimy(50)AsStringDimm,n,s,i,tAsIntegern=0s

5、=0s1=Chr(255)Fori=1ToLen(1)sp=Mid(TextBox1.Text,i,1)t=(2)SelectCasetCase0m=m+1x(m)=Val(sp)s=s+x(m)Case1n=n+1y(n)=spIfy(n)<s1Thens1=_EndSelectNextiIfm>0ThenTextBox2.Text=s/mTextBox3.Text=s1FunctionlsMyChar(ByValcAsString)AsIntegerIfc>="0"_(4)_c<="9"ThenIsMyChar=0ThenTh

6、enElseIfUCase(c)>="A"AndUCase(c)<="Z"IsMyChar=1ElseIsMyChar=EndIfEndFunction本程序消除10到100內(nèi)2,3,5,7的倍數(shù)，最后在Labell中顯示所余下的非零整數(shù)（每行5個(gè)數(shù)）。程序的思想是：先將2到100的非零整數(shù)放到數(shù)組中，先后將2，3，5，7的倍數(shù)的數(shù)組元素值設(shè)為0,最后將非0數(shù)組元素值輸出。組元素值輸出。Dima(100)AsIntegerDimi%,d%,j%,count%Fori=2To100a(i)=(1)NextiFori=2To7Ifa(i)=2Or

7、a(i)=3Ora(i)=5Ora(i)=7ThenForj=dTo100Stepi(2)=0Forj=dTo100Stepi(2)=0將i的所有倍數(shù)設(shè)置為0NextjNextjEndIfNexti'按每行5個(gè)數(shù)顯示在標(biāo)簽中count=0Labell.Text=vbCrLfFori=10To100If_二ThenLabel1.Text=Label1.Text&”&icount=.IfcountMod5=0ThenLabel1.Text=Label1.Text&vbCrLfEndIfNexti四、編程題參照樣例，編寫一個(gè)完整的程序，要求如下：1. 在C:KS目錄下

8、新建項(xiàng)目文件VBNET.sIn。2.在窗體1上放置文本框1、文本框2、時(shí)鐘控件和命令按鈕。設(shè)置按鈕文本為”暫停",Enabled屬性為False;設(shè)置文本框2為多行；其他說明如樣例。按下表建立菜單。菜單標(biāo)題備注應(yīng)用一級(jí)菜單開始計(jì)時(shí)二級(jí)菜單-分隔線退出二級(jí)菜單窗體2一級(jí)菜單在窗體2上放置列表框1（初始值為空），放置"讀數(shù)據(jù)"和"返回"兩個(gè)命令按鈕。3.單擊”開始計(jì)時(shí)”菜單項(xiàng)，使時(shí)鐘控件開始工作，在文本框1模擬計(jì)時(shí)秒表，按"分：秒"顯示，精確到0.1秒，同時(shí)使按鈕的Enabled改變?yōu)門rue;單擊"暫停"按

9、鈕，暫停計(jì)時(shí)，改變按鈕文本為”繼續(xù)”，同時(shí)將秒表上的時(shí)間添加到文本框2（回車換行用vbCrLf）;單擊”繼續(xù)"按鈕，時(shí)鐘繼續(xù)工作，再將按鈕文本改為”暫?！?。4.單擊"窗體2"菜單項(xiàng)時(shí)，打開窗體2;單擊"退出"菜單項(xiàng)時(shí)，結(jié)束程序的運(yùn)行。5.在窗體2上單擊”讀數(shù)據(jù)"命令按鈕：從"C:ksdata.txt"數(shù)據(jù)文件中讀出數(shù)據(jù)，依次寫入列表框中；單擊"返回”命令按鈕則關(guān)閉窗體2。參考答案說明："【"】標(biāo)記內(nèi)為多種參考答案單選題1. 填空題1.7】Me】2. 0】(mMod10)*10+m10】

10、3. 2】Autosize】4. Nothing】程序填空題1. 1)S<100】2) r】3) 0.01】1)TextBox1.Text】2) IsMyChar(sp)】3) yn】4) And】5) -1】1)【】2) a(j)】3) a(i)>0】4) Count+1】編程題參考代碼：PublicClassFormlInheritsDimh%,m%,s%,ms%PrivateSubButton1_Click()HandlesButton1.ClickIfButton1.Text="暫停"ThenTimer1.Enabled=False'停止計(jì)時(shí)Te

11、xtBox2.Text&=TextBox1.Text&vbCrLfButton1.Text="繼續(xù)”ElseTimer1.Enabled=TrueButton1.Text="暫停"EndIfEndSubPrivateSubMenultem2_Click()HandlesMenultem2.ClickTimer1.Interval=100'開始計(jì)時(shí)Timer1.Enabled=TrueTextBox2.Text=""'清空文本框內(nèi)容h=0:m=0:s=0:ms=0Button1.Text="暫停"

12、;Button1.Enabled=TrueEndSubPrivateSubMenultem4_Click()HandlesMenultem4.ClickEndEndSubPrivateSubMenultem5_Click()HandlesMenultem5.ClickDimf2AsNewForm2f2.Show()EndSubPrivateSubTimer1_Tick()HandlesTimer1.Tick'下面程序?qū)⒂?jì)算經(jīng)過的時(shí)間IfmS<9ThenmS=mS+1ElsemS=0IfS<59ThenS=S+1ElseS=0Ifm<59Thenm=m+1Elsem=0h=h+1EndIfEndIfEndIf'將經(jīng)過時(shí)間的數(shù)值轉(zhuǎn)化為字符型顯示到文本框TextBoxl.Text=Str(m)+":"+Str(s)+"."+Str(ms)EndSubEndClassForm2PrivateSubButton1_Click()HandlesButton1.ClickDimmXAsSingle,mYAsSingleListBox1.ltems.Clear()ListBox2.Items.Clear()FileOpen(1,"xy.txt",OpenMode.Input)DoWhileNot