浙江信息技術(shù)學(xué)考vb模塊基礎(chǔ)檢測(cè)(附參考題答案)(完整版)
【正文】 本框Text1中的內(nèi)容為 （4分） 29. 有VB程序段如下：（4分）Private Sub Command1_Click()Dim i As Integer , a As Integer, b As Integera=0: b=0For i＝ 0 To 350 Step 3 If i Mod 3=0 Then a= a+i b= b+1 End IfNext i= Str(a） = Str(b）End Sub程序運(yùn)行時(shí)，單擊按鈕Command1后，在標(biāo)簽Label1中顯示的內(nèi)容是 ，（2分）Label2中顯示的內(nèi)容是 （2分）30．二進(jìn)制轉(zhuǎn)換為十進(jìn)制可采用按權(quán)展開(kāi)相加法：如：(1101)2=123+122+021+120=(13)10現(xiàn)用VB編寫(xiě)一個(gè)轉(zhuǎn)換程序，功能如下： 在文本框Text1中輸入二進(jìn)制編碼，單擊“轉(zhuǎn)換”按鈕Command1，程序?qū)淖蟮接乙来稳〕龆M(jìn)制數(shù)字字符，同時(shí)將該字符轉(zhuǎn)換為數(shù)值，并乘以相應(yīng)的權(quán)值后累加求和，最后在標(biāo)簽框Label1中輸出轉(zhuǎn)換后的十進(jìn)制數(shù)值。12345678910BDBACDBABD11121314151617181920DBAADBCCAD二、綜合題（本大題共10小題，每小題4分，共40分）21. （1）9 （2）(b+sqr(b^24*a*c))/(2*a) 沒(méi)有其他不同答案，注意乘號(hào)寫(xiě)錯(cuò)不給分，分母括號(hào)沒(méi)寫(xiě)不給分。壓力不是有人比你努力，而是那些比你牛幾倍的人依然比你努力。不要做金錢(qián)、權(quán)利的奴隸；應(yīng)學(xué)會(huì)做“金錢(qián)、權(quán)利”的主人。存放十進(jìn)制 Dim changdu As Integer, bit As Integer, i As Integer code2 = code10 = 0 changdu = 39。請(qǐng)?jiān)趧澗€處填入合適代碼。 ： amp。如“abba”是對(duì)稱(chēng)的，“abcba”也是對(duì)稱(chēng)的。判斷字符串是否對(duì)稱(chēng)的VB程序段如下:Dim n As Integer, i As Integer, j As Integer, k As IntegerDim s As String, c1 As String, c2 As Strings = n=Len(s)k=0 : j=nFor i = 1 To n/2 Next iIf k = 0 Then =對(duì)稱(chēng) Else = 不對(duì)稱(chēng)方框中的代碼由以下三部分組成：① j = j 1② If c1 c2 Then k = k + 1 ③ c1= Mid(s,i,1) : c2 = Mid(s,j,1)代碼順序正確的選項(xiàng)是A．①③②B．②③①C．③②①D．②①③19．某數(shù)列前三項(xiàng)分別為：a1 = a2 = a3 = 4，以后每項(xiàng)都滿足：ak = ak3 + ak1 （k3）,如果用數(shù)組a存儲(chǔ)該數(shù)列的前10項(xiàng)，請(qǐng)你完善該程序段，并輸出結(jié)果（ ）Dim a(10) As Integer, k As Integer a(1) = 2 : a(2) = 3 : a(3) = 4 For k = ______ To 10 a(k) = a(k 3) + a(k 1)Next kPrint a(10)A．4 60B．3 41C．5 11D．4 1120．以下VB程序的功能是：計(jì)算表達(dá)式12345678910的值，并在文本框Text1中輸出結(jié)果。 Str(c) 該程序段運(yùn)行后，請(qǐng)?jiān)谙?
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1