亚洲AV日韩AⅤ综合手机在线观看,激情婷婷久久综合色,欧美色五月婷婷久久,久久国产精品99久久人人澡

  • <abbr id="uk6uq"><abbr id="uk6uq"></abbr></abbr>
  • <tbody id="uk6uq"></tbody>
  • 計(jì)算機(jī)二級(jí)VB筆試試題(含答案)

    時(shí)間:2024-10-19 22:37:17 綜合指導(dǎo) 我要投稿
    • 相關(guān)推薦

    計(jì)算機(jī)二級(jí)VB筆試試題(含答案)

    2010年9月計(jì)算機(jī)二級(jí)VB筆試試題

    計(jì)算機(jī)二級(jí)VB筆試試題(含答案)

    一、選擇題(每小題2分,共70分)

    下列各題A)、B)、C)、D)四個(gè)選項(xiàng)中,只有一個(gè)選項(xiàng)是正確的。請(qǐng)將正確選項(xiàng)填涂在答題卡相應(yīng)位置上,答在試卷上不得分。

    (1)下列敘述中正確的是

    A)線性表的鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)與順序存儲(chǔ)結(jié)構(gòu)所需要的存儲(chǔ)空間是相同的

    B)線性表的鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)所需要的存儲(chǔ)空間一般要多于順序存儲(chǔ)結(jié)構(gòu)

    C)線性表的鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)所需要的存儲(chǔ)空間一般要少于順序存儲(chǔ)結(jié)構(gòu)

    D)上述三種說(shuō)法都不對(duì)

    (2)下列敘述中正確的是

    A)在棧中,棧中元素隨棧底指針與棧頂指針的變化而動(dòng)態(tài)變化

    B)在棧中,棧頂指針不變,棧中元素隨棧底指針的變化而動(dòng)態(tài)變化

    C)在棧中,棧底指針不變,棧中元素隨棧頂指針的變化而動(dòng)態(tài)變化

    D)上述三種說(shuō)法都不對(duì)

    (3)軟件測(cè)試的目的是

    A)評(píng)估軟件可靠性

    B)發(fā)現(xiàn)并改正程序中的錯(cuò)誤

    C)改正程序中的錯(cuò)誤

    D)發(fā)現(xiàn)程序中的錯(cuò)誤

    (4)下面描述中,不屬于軟件危機(jī)表現(xiàn)的是

    A)軟件過(guò)程不規(guī)范

    B)軟件開發(fā)生產(chǎn)率低

    C)軟件質(zhì)量難以控制

    D)軟件成本不斷提高

    (5)軟件生命周期是指

    A)軟件產(chǎn)品從提出、實(shí)現(xiàn)、使用維護(hù)到停止使用退役的過(guò)程

    B)軟件從需求分析、設(shè)計(jì)、實(shí)現(xiàn)到測(cè)試完成的過(guò)程

    C)軟件的開發(fā)過(guò)程

    D)軟件的運(yùn)行維護(hù)過(guò)程

    (6)面向?qū)ο蠓椒ㄖ校^承是指

    A)一組對(duì)象所具有的相似性質(zhì)

    B)一個(gè)對(duì)象具有另一個(gè)對(duì)象的性質(zhì)

    C)各對(duì)象之間的共同性質(zhì)

    D)類之間共享屬性和操作的機(jī)制

    (7)層次型、網(wǎng)狀型和關(guān)系型數(shù)據(jù)庫(kù)劃分原則是

    1

    A)記錄長(zhǎng)度

    B)文件的大小

    C)聯(lián)系的復(fù)雜程度

    D)數(shù)據(jù)之間的聯(lián)系方式

    (8)一個(gè)工作人員可以使用多臺(tái)計(jì)算機(jī),而一臺(tái)計(jì)算機(jī)可被多個(gè)人使用,則實(shí)體工作人員、與實(shí)體計(jì)算機(jī)之間的聯(lián)系是

    A)一對(duì)一

    B)一對(duì)多

    C)多對(duì)多

    D)多對(duì)一

    (9)數(shù)據(jù)庫(kù)設(shè)計(jì)中反映用戶對(duì)數(shù)據(jù)要求的模式是

    A)內(nèi)模式

    B)概念模式

    C)外模式

    D)設(shè)計(jì)模式

    (10)有三個(gè)關(guān)系R、S和T如下:

    則由關(guān)系R和S得到關(guān)系T的操作是

    A)自然連接

    B)交

    C)投影

    D)并

    (11)在Visual Basic集成環(huán)境中,要添加一個(gè)窗體,可以單擊工具欄上的一個(gè)按鈕,這個(gè)按鈕是

    A)        B)

    C)        D)

    (12)在Visual Basic集成環(huán)境的設(shè)計(jì)模式下,用鼠標(biāo)雙擊窗體上的某個(gè)控件打開的窗口是

    A)工程資源管理器窗口

    B)屬性窗口

    C)工具箱窗口

    D)代碼窗口

    (13)下列敘述中錯(cuò)誤的是

    A)列表框與組合框都有List屬性

    B)列表框有Selected屬性,而組合框沒(méi)有

    C)列表框和組合框都有Style屬性

    D)組合框有Text屬性、而列表框沒(méi)有

    2

    (14)設(shè)窗體上有一個(gè)命令按鈕數(shù)組,能夠區(qū)分?jǐn)?shù)組中各個(gè)按鈕的屬性是 A)Name        B)Index       C)Caption     D)Left  (15)滾動(dòng)條可以響應(yīng)的事件是 A)Load        B)Scroll      C)Click       D)MouseDown  (16)設(shè)a=5, b=6, c=7, d=8,執(zhí)行語(yǔ)句X=Ilf((a>b)And (c>d), 10, 20)后,x的值是 A)10          B)20          C)30          D)200  (17)語(yǔ)句Print Sgn(-6^2)+ Abs(-6^2)+Int(-6^2)的輸出結(jié)果是 A)-36         B)1           C)-1          D)-72  (18)在窗體上畫一個(gè)圖片框,在圖片框中畫一個(gè)命令按鈕,位置如圖所示。

    則命令按鈕的Top屬性值是

    A)200         B)300         C)500         D)700

    (19)在窗體上畫一個(gè)名稱為Command l的命令按鈕。單擊命令按鈕時(shí)執(zhí)行如下事件過(guò)程:   Private Sub Command 1_Click()

    a$=”software and hardware"

    b$=Right(a$,8)

    c$=Mid(a$, 1,8)

    MsgBox a$,,b$,c$, 1

    End Sub

    則在彈出的信息框標(biāo)題欄中顯示的標(biāo)題是

    A)software and hardware

    B)hardware

    C)software

    D)1

    (20)在窗體上畫一個(gè)文本框(名稱為Text 1)和一個(gè)標(biāo)簽(名稱為L(zhǎng)abel 1),程序運(yùn)行后,如果在文本框中輸入文本,則標(biāo)簽中立即顯示相同的內(nèi)容。以下可以實(shí)現(xiàn)上述操作的事件過(guò)程是

    A)Private Sub Text1_Change()

    Label1.Caption=Text1.Text

    End Sub

    B)Private Sub Label1_Change()

    Label1.Caption=Text1.Text

    End Sub

    C)Private Sub Text1_Click()

    Label1.Caption=Text1.Text

    End Sub

    3

    D)Private Sub Label1_Click()

    Label1.Caption=Text1.Text

    End Sub

    (21)以下說(shuō)法中錯(cuò)誤的是

    A)如果把一個(gè)命令按鈕的Default屬性設(shè)置為True,則按回車鍵與單擊該命令按鈕的作用相同

    B)可以用多個(gè)命令按鈕組成命令按鈕數(shù)組

    C)命令按鈕只能識(shí)別單擊(Click)事件

    D)通過(guò)設(shè)置命令按鈕的Enabled屬性,可以使該命令按鈕有效或禁用

    (22)以下關(guān)于局部變量的敘述中錯(cuò)誤的是

    A)在過(guò)程中用Dim語(yǔ)句或Static語(yǔ)句聲明的變量是局部變量

    B)局部變量的作用域是它所在的過(guò)程

    C)在過(guò)程中用Static語(yǔ)句聲明的變量是靜態(tài)局部變量

    D)過(guò)程執(zhí)行完畢,該過(guò)程中用Dim或Static語(yǔ)句聲明的變量即被釋放

    (23)以下程序段的輸出結(jié)果是

    x=I

    y=4

    Do Until y>4

    x=x*y

    Y=y+I(xiàn)

    Loop

    Print x

    A)1        B)4        C)8        D)20

    (24)如果執(zhí)行一個(gè)語(yǔ)句后彈出如圖所示的窗口,則這個(gè)語(yǔ)句是

    A)InputBox("輸入框”,”請(qǐng)輸入VB數(shù)據(jù)”)

    B)x=InputBox("輸入框”,”請(qǐng)輸入VB數(shù)據(jù)”)

    C)InputB ox("請(qǐng)輸入VB數(shù)據(jù)”,”輸入框”)

    D)x=InputBox("請(qǐng)輸入VB數(shù)據(jù)”,”輸入框”)

    (25)有如下事件過(guò)程:

    Private Sub Form Click()

    Dim n A s Integer

    x=0

    n=InputBox("請(qǐng)輸入一個(gè)整數(shù)”)

    For i=1 Ton

    For j=1 To i

    x=x+I(xiàn)

    Next j

    Next i

    Print x

    4

    End Sub  程序運(yùn)行后,單擊窗體,女口果在輸入對(duì)話框中輸入:,則在窗體上顯示的內(nèi)容是  A)13       B)14        C)15        D)16    (26)請(qǐng)閱讀程序:  Sub subP(b()As Integer)  For i=1 To 4  b(i)=2*i  Next i  End Sub    Private Sub Command 1_Click()  Dim a(l  To  4)As Integer  A(l)=5:a(2)=6:a(3)=7:a(4)=8  subP a()  For i=1 To 4  Print a(i)  Next i  End Sub  運(yùn)行上面的程序,單擊命令按鈕,則輸出結(jié)果是  A)2      B)5      C)10      D)出錯(cuò)      4           6           12      6           7           14

    8           8           16

    (27)Fibonacci數(shù)列的規(guī)律是:前2個(gè)數(shù)為1,從第3個(gè)數(shù)開始,每個(gè)數(shù)是它前2個(gè)數(shù)之和,即:1,1,2, 3, 5, 8,13, 21,34, 55, 89,…。某人編寫了下面的函數(shù),判斷大于1的整數(shù)x是否是Fibonacci數(shù)列中的某個(gè)數(shù),若是,則返回True,否則返回False。

    Function Isfab(x As Integer)As Boolean

    Dim a As Integer, b As Integer, c As Integer, flag As Boolean

    flag=False

    a=1:b=I

    Do While x<b

    c=a+b

    a=b

    b=c

    If x=b Then flag=True

    Loop

    Isfab=flag

    End Function

    測(cè)試時(shí)發(fā)現(xiàn)對(duì)于所有正整數(shù)x,函數(shù)都返回False,程序需要修改。下面的修改方案中正確的是

    A)把a(bǔ)= b與b=c的位置互換

    B)把c=a+b移到b=c之后

    C)把Do While x<b改為Do While x>b

    D)把if x=b Then   flag=True改為If x=a Then   flag=True

    (28)在窗體上畫一個(gè)命令按鈕,其名稱為Commandl,然后編寫如下事件過(guò)程:

    5

    Private Sub Command1_Click()

    Dim a$, b$,c$, k%

    a="ABCD”

    b=”123456”

    c=""

    k=1

    Do While k<= Len(a)Or k<=Len(b)

    If k<=Len(a)Then

    c=c&Mid(a, k, 1)

    End If

    If k<=Len(b)Then

    c=c&Mid(b, k, 1)

    End If

    k=k+1

    Loop

    Print c

    End Sub

    運(yùn)行程序,單擊命令按鈕,輸出結(jié)果是

    A)123456ABCD    B)ABCD123456    C)D6C5B4A321    D)AlB2C3D456

    (29)請(qǐng)閱讀程序:

    Private Sub Form_ Click()

    m=1

    For i=4 To 1 Step-1

    Print Str(m);

    m=m+1

    For j=1 To i

    Print”*”;

    Next j

    Print

    Next i

    End Sub

    程序運(yùn)行后,單擊窗體,則輸出結(jié)果是

    A)1****          B)4****           C)****          D)*

    2***                3***                  ***                **

    3**                 2**                   **                   ***

    4*                  1*                     *                     ****

    (30)在窗體上畫一個(gè)命令按鈕(其名稱為Commandl),然后編寫如下代碼: Private Sub Command l_Click()

    Dim a

    a=Array(1,2,3,4)

    I=3:j=1

    Do While i>=0

    s=s+a(i)*j

    i=i-1

    j=j*10。

    6

    Loop

    Print s

    End Sub

    運(yùn)行上面的程序,單擊命令按鈕,則輸出結(jié)果是

    A)4321        B)123         C)234         D)1234

    (31)下列可以打開隨機(jī)文件的語(yǔ)句是

    A)Open "file l .dat" For lnput As#1

    B)Open”file l .dat" For Append As#1

    C)Open”file1.dat" For Output As#1

    D)Open”file1.dat" For Random As#1 Len=20

    (32)有彈出式菜單的結(jié)構(gòu)如下表,程序運(yùn)行時(shí),單擊窗體則彈出如下圖所示的菜單。下面的事件過(guò)程中能正確實(shí)現(xiàn)這一功能的是

    A)Private Sub Form _Click() PopupMenu cut End Sub B)Private Sub Command l Click() PopupMenu edit End Sub C)Private Sub Form_ Click() PopupMenu edit End Sub End Sub D)Private Sub Form_lick() PopupMenu cut PopupMenu paste (33)請(qǐng)閱讀程序: Option Base I Private Sub Form_ Click() Dim Arr(4, 4)As Integer For i=1 To 4 For j=I To 4 Arr(i, j)=(i - 1)*2+j Next j Next i  For i=3To4 For j=3 To 4 Print Arr(j, i); Next j 7

    Print

    Next i

    End Sub

    程序運(yùn)行后,單擊窗體,則輸出結(jié)果是

    A)5 7    B)6 8    C)7 9    D)8 10

    6 8         7 9         8 10        8 11

    (34)一下面函數(shù)的功能應(yīng)該是:刪除字符串str中所有與變量ch相同的字符,并返回刪除后的結(jié)果。例如:若str= "ABCDABCD", ch= "B",則函數(shù)的返回值為:"ACDACD"

    Function delchar(str As String, ch As String)As String

    Dim k As Integer, temp As String, ret As String

    ret=""

    For k=1 To Len(str)

    temp=Mid(str, k, 1)

    If temp= ch Then

    ret=ret&temp

    End If

    Next k

    delchar=ret

    End Function

    但實(shí)際上函數(shù)有錯(cuò)誤,需要修改。下面的修改方案中正確的是

    A)把ret=ret&temp改為ret=temp

    B)把If temp=ch Then改為If temp<> ch Then

    C)把delchar=ret改為delchar=temp

    D)把ret =""改為temp=""

    (35)在窗體上畫一個(gè)命令按鈕和兩個(gè)文本框,其名稱分別為Command1、Text I和Text2,在屬性窗口中把窗體的KeyPreview屬性設(shè)置為True,然后編寫如下程序:

    Dim S I As String, S2 As String

    Private Sub Form Load()

    Text 1 .Text=""

    Text2.Text=""

    Text 1.Enabled=False

    Text2.Enabled=False

    End Sub

    Private Sub Form_ KeyDown(KeyCode As Integer, Shift As Integer)

    S2=S2&Chr(KeyCode)

    End Sub

    Private Sub Forin_ KeyPress(KeyAscii As Integer)

    S1=S1&Chr(KeyAscii)

    End Sub

    Private Sub Command l Click

    Text l .Text=Sl

    Text2.Text=S2

    S1=""

    S2=""

    8

    End Sub 程序運(yùn)行后,先后按“a”、“b”、“c”鍵,然后單擊命令按鈕,在文本框Textl和Text2中顯示的內(nèi)容分別A)abc和ABC B)空白 C)ABC和abc D)出錯(cuò)

    二、填空題(每空2分,共30分)

    請(qǐng)將每空的正確答案寫在答題卡【1】至【15】序號(hào)的橫線上,答在試卷上不得分。

    (1)一個(gè)棧的初始狀態(tài)為空。首先將元素5,4,3,2,1 依次入棧,然后退棧一次,再將元素A,B,C,D依次入棧,之后將所有元素全部退棧,則所有元素退棧(包括中間退棧的元素)的順序?yàn)開_【1】__。

    (2)在長(zhǎng)度為n的線性表中,尋找最大項(xiàng)至少需要比較___【2】___次。

    (3)一棵二叉樹有10個(gè)度為1的結(jié)點(diǎn),7個(gè)度為2的結(jié)點(diǎn),則該二叉樹共有__【3】___個(gè)結(jié)點(diǎn)。

    (4)僅由順序、選擇(分支)和重復(fù)(循環(huán))結(jié)構(gòu)構(gòu)成的程序是_【4】__程序。

    (5)數(shù)據(jù)庫(kù)設(shè)計(jì)的四個(gè)階段是:需求分析,概念設(shè)計(jì),邏輯設(shè)計(jì)和_【5】_。

    (6)窗體上有一個(gè)名稱為Combo1的組合框,  其初始內(nèi)容為空,有一個(gè)名稱為Command1、標(biāo)題為“添加項(xiàng)目”的命令按鈕。程序運(yùn)行后,如果單擊命令按鈕,會(huì)將給定數(shù)組中的項(xiàng)目添加到組合框中,如圖所示。請(qǐng)?zhí)羁铡?/p>

    Option Base 1

    Private Sub Command 1_ Click(

    Dim city As Variant

    city=_【6】_("北京","天津","上海","武漢","重慶","西寧")

    For i=_【7】_To UBound(citv)

    Combo 1.Addltem_【8】_

    Next

    End Sub

    (7)窗體上有一個(gè)名稱為Text 1的文本框和一個(gè)名稱為Command l、標(biāo)題為“計(jì)算”的命令按鈕,如圖所示。函數(shù)fun及命令按鈕的單擊事件過(guò)程如下,請(qǐng)?zhí)羁铡?/p>

    9

    Private Sub Command 1 _Click()

    Dim x As Integer

    x=Val(InputBOX("輸入數(shù)據(jù)"))

    Text 1=Str(fun(x)+fun(x)+fun(x))

    End Sub

    Private Function fun(ByRef n As Integer)

    If n Mod 3=0 Then

    n=n+n

    Else

    n=n*n

    End If

    _【9】_=n

    End Function

    當(dāng)單擊命令按鈕,在輸入對(duì)話框中輸入2時(shí),文本框中顯示的是_【10】_

    (8)窗體上有一個(gè)名稱為L(zhǎng)ist1的列表框,一個(gè)名稱為Picture 1的圖片框。Form_ Load事件過(guò)程的作用是,把Datal.txt文件中的物品名稱添加到列表框中。運(yùn)行程序,當(dāng)雙擊列表框中的物品名稱時(shí),可以把該物品對(duì)應(yīng)的圖片顯示在圖片框中如圖所示。以下是類型定義及程序,請(qǐng)?zhí)羁铡?/p>

    Private Type Pic gName As String*10    ?物品名稱 picFile As String*20  ?物品圖片的圖片文件名 End Type Dim p(4)As Pic,pRec As Pic Private Sub Form Load() Open”Datal.txt" For Random As#1 _【11】_=Len(pRec) For i=0 To 4 Get#1,i+l,P(i) LIStI.AddItem p(i).gNaine Next i Close#1 End Sub  Private Sub List I-DbICIickO For i=OTo4 If RTrim(List一List(i))=RTrim(_【12】_)Then 10

    Picture l.,Picture=LoadPicture(p(i)._【13】_)

    Exit For

    End If

    Next

    End Sub

    (9)窗體上有一個(gè)名稱為CD1的通用對(duì)話框。通過(guò)菜單編輯器建立如圖1所示的菜單。程序運(yùn)行時(shí),如果單擊“打開”菜單項(xiàng),則執(zhí)行打開文件的操作,當(dāng)選定了文件(例如: G:\VB\2010-9\in.txt)并打開后,該文件的文件名會(huì)被添加到菜單中,如圖2所示。各菜單項(xiàng)的名稱和標(biāo)題等定義如下表。

    以一下是單擊“打開”菜單項(xiàng)的事件過(guò)程,請(qǐng)?zhí)羁铡?/p>

    Dim mnuCounter As Integer

    Private Sub tnnuOpen_ Click()

    CDI.Show0pen

    If CD I .FileName<>""Then

    Open_【14】_For Input As#1

    mnuCounter=mnuCounter+1

    Load FName(mnuCounter)

    FName(mnuCounter).Caption=CD I.FileName

    FName(mnuCounter)._【15】_=True

    Close#1

    End If

    End Sub

    11

    參考答案

    12

    【計(jì)算機(jī)二級(jí)VB筆試試題(含答案)】相關(guān)文章:

    分享VB 筆試題目11-21

    ITT HR的筆試題目,筆試試題02-24

    sony筆試題02-18

    華碩筆試題02-18

    神龍筆試題02-18

    外企筆試題精選11-21

    畢馬威筆試題02-16

    寶潔筆試題02-18

    朗訊筆試題02-18