浙江信息技術(shù)學(xué)考vb模塊基礎(chǔ)檢測(cè)(附參考題答案)(文件)
【正文】 tegers=0n=Val（）For i＝ 5 To 1 Step 2 s= s+nNext i= Str(s）End Sub程序運(yùn)行時(shí)在文本框Text1中輸入7，連續(xù)單擊兩次Command1按鈕后。下列VB程序的功能是：統(tǒng)計(jì)前1000個(gè)自然數(shù)中A類數(shù)的個(gè)數(shù)，并在文本框中輸出。（共4分）Private Sub Command1_Click() Dim sum As Long, i As Integer, n As Integer sum = 0 n = Val()For i = 1 To n _______ 39。25．有VB程序段如下：（4分） Dim a(1 To 10) As Integer Dim k As Integer, i As Integer, c As Integer a(1) = 2: a(2) = 11: a(3) = 7: a(4) = 14: a(5) = 25 c = 0 For i = 6 To 10 If a(i 3) + a(i 2) = a(i 1) * 2 Then c = c + 1 a(i) = (a(i 3) + a(i 1)) \ 2 Next i = Str(a(10)) amp。（4分）Private Sub Command1_Click() Dim i As Integer, n As Integer Dim s1 As String, s2 As String, c As String s1 = s2 = n = Len(s1) For i = 1 To n c = Mid(s1, i, 1) s2 = c + s2 Next i = s2End Sub23．為使左、右框內(nèi)的VB程序段能實(shí)現(xiàn)相同的功能：（共4分）Private Sub Command1_Click() Dim i As Integer, s As Long s = 0 For i = 1 To 50 s = s + 2 * i 1 Next i = Str(s)End SubPrivate Sub Command1_Click() s = 0: t = 1 Do While __________39。1．某算法的自然語(yǔ)言描述與流程圖表示分別如下：第1步：輸入一個(gè)實(shí)數(shù)x第2步：判斷x與0的大小關(guān)系，若x≥0，則y=x21，否則y=2x1第3步：輸出y第4步：結(jié)束則流程圖中空白處理框①和②處應(yīng)填入的是（ ）A．① y ← x2 – 1 ② x ← 2x – 1 B．① y ← x2 – 1 ② y ← 2x – 1C．① y ← 2x – 1 ② y ← x2 – 1D．① x ← x2 – 1 ② y ← 2x – 12．字符串變量a的值為“Hello,world!”，下列VB表達(dá)式的值是“world”的是（ ）A．Len(a)B．Mid(a, 6, 5)C．Mid(a, 7, 4)D．Mid(a, 7, 5)3．產(chǎn)生[20，20] 范圍內(nèi)某一隨機(jī)整數(shù)的表達(dá)式是（ ）A．Int(Rnd * 41) B．Int(Rnd * 41) 20C．Int(40 * Rnd) 20D．Int(40 * Rnd) + 204．在VB中，若a = 4，b = 3，語(yǔ)句If a b Then a = a 2 Else b = b + 1執(zhí)行后，下列說法正確的是（ ）A．執(zhí)行了語(yǔ)句a = a 2B．先執(zhí)行a = a 2，再執(zhí)行c = b + 1C．執(zhí)行了語(yǔ)句
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1