• <sub id="h4knl"><ol id="h4knl"></ol></sub>
    <sup id="h4knl"></sup>
      <sub id="h4knl"></sub>

      <sub id="h4knl"><ol id="h4knl"><em id="h4knl"></em></ol></sub><s id="h4knl"></s>
      1. <strong id="h4knl"></strong>

      2. 計(jì)算機(jī)vb考試題庫(kù)

        時(shí)間:2024-10-30 18:15:08 計(jì)算機(jī)學(xué)歷 我要投稿
        • 相關(guān)推薦

        2017計(jì)算機(jī)vb考試題庫(kù)

          一、選擇題

        2017計(jì)算機(jī)vb考試題庫(kù)

          1、任何控件都有的屬性是( )。

          A.BackColor

          B.Caption

          C.Name

          D.BorderStyle

          2、設(shè)計(jì)數(shù)據(jù)庫(kù)的存儲(chǔ)結(jié)構(gòu)屬于(  )

          A.需求分析

          B.概念設(shè)計(jì)

          C.邏輯設(shè)計(jì)

          D.物理設(shè)計(jì)

          3、某人創(chuàng)建了1個(gè)工程,其中的窗體名稱為Form1;之后又添加了1個(gè)名為Form2的窗體,并希望程序執(zhí)行時(shí)先顯示Form2窗體,那么,他需要做的工作是(  )。

          A.在工程屬性對(duì)話框中把"啟動(dòng)對(duì)象"設(shè)置為Form2

          B.在Forml 的Load 事件過(guò)程中加入語(yǔ)句Load Form2

          C.在Form2的Load 事件過(guò)程中加入語(yǔ)句Form2.Show

          D.把Form2的TabIndex 屬性設(shè)置為l ,把Form1的TabIndex 屬性設(shè)置為2

          4、設(shè)有如下通用過(guò)程:

          Public Function Fun(xStr As Stri ng)As Stri ng

          Di mt Str As Stri ng ,strLAs Integer

          tStF=""

          strL=Len(xStr)

          i =1 Do While i <=strL/2

          tStr =Tstr &Mid(xStr ,i ,1)&Mid(xStr ,strL-i+1,1)

          i =i +l

          Loop

          Fun =tStr

          End Function

          在窗體上畫(huà)一個(gè)名稱為Co mmand1的命令按鈕。然后編寫如下的事件過(guò)程:

          Private Sub Co mmandI_Click()

          Di mS1As Stri ng

          S1="abedef"

          Pri m UCase(Fun(S1))

          End Sub

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

          A.ABCDEF

          B.abcdef

          C.AFBECD

          D.DEFABC

          5、下列關(guān)于棧的描述正確的是(  )。

          A.在棧中只能插入元素而不能刪除元素

          B.在棧中只能刪除元素而不能插入元素

          C.棧是特殊的線性表,只能在一端插入或刪除元素

          D.棧是特殊的線性表,只能在一端插入元素,而在另一端刪除元素

          6、下列程序段的運(yùn)行結(jié)果是(  )。

          Sub sele(  )

          Di mn As Integer

          i =21:n =3

          Do While i >n

          i =i -n

          Loop

          Print i

          End Sub

          A.2

          B.4

          C.5

          D.3

          7、復(fù)選框的Value 屬性為0時(shí),表示該復(fù)選框(  )。

          A.未被選中

          B.被選中

          C.框內(nèi)有灰色的勾

          D.操作有誤

          8、在窗體上有一個(gè)名稱為Check1的復(fù)選框數(shù)組(含4個(gè)復(fù)選框),還有一個(gè)名稱為Text1的文本框,初始內(nèi)容為空。程序運(yùn)行時(shí),單擊任何復(fù)選框,則把所有選中的復(fù)選框后面的方字羅列在文本框中(見(jiàn)圖)。下面能實(shí)現(xiàn)此功能的事件過(guò)程是(  )。

          A.Private Sub Check1_Click(Index As Integer)

          Text1.Text =""

          For k =0To 3

          If Check1(k).value =1Then

          Text1.Text =Text1.Text &Check1(k).Caption &""雙引號(hào)中是空格 End If Next k

          End Sub

          B.Private Sub Check1_Click(Index As Integer)

          For k =0To 3

          If Check1(k).Value =1Then

          Text1.Text =Text1.Text &Check1(k).Caption &""雙引號(hào)中是空格

          End If

          Next k

          End Sub

          C.Private Sub Check1_Click(Index As Integer)

          Text1.Text ="" For k =0To 3 If Check1(k).Value =1Then

          Text1.Text =Text1.Text &Check1(Index).Caption &""雙引號(hào)中是空格

          End If

          Next k

          End Sub

          D.Private Sub Check1_Click(Index As Integer)

          Text1.Text ="" For k =0To 3

          If Check1(k).Value =1Then

          Text1.Text =Text1.Text &Check1(k).Caption &""雙引號(hào)中是空格

          Exit For

          End If

          Next k

          End Sub

          9、在窗體上添加一個(gè)命令按鈕,名為Co mmand1,其單擊事件中有下列程序段,則事件過(guò)程執(zhí)行后,文本框中輸出

          (  )。

          For i =1To 4

          For j=1To 3

          x=3

          For k =1To 2

          x=x+3

          Next k

          Next j

          Next i

          Textl .Text =Str(x)

          A.3

          B.6

          C.9

          D.12

          10、下列關(guān)于Sub 過(guò)程的敘述正確的是(  )。

          A.一個(gè)Sub 過(guò)程必須有一個(gè)Exit Sub 語(yǔ)句

          B.一個(gè)Sub 過(guò)程必須有一個(gè)End Sub 語(yǔ)句

          C.在Sub 過(guò)程中可以定義一個(gè)Function 過(guò)程

          D.可以用Goto 語(yǔ)句退出Sub 過(guò)程

          11、下列敘述中正確的是( )。

          A.在窗體的Form_Load 事件過(guò)程中定義的變量是全局變量

          B.局部變量的作用域可以超出所定義的過(guò)程

          C.在某個(gè)Sub 過(guò)程中定義的局部變量可以與其他事件過(guò)程中定義的局部變量同名,但其作用域只限于該過(guò)程

          D.在調(diào)用過(guò)程時(shí),所有局部變量被系統(tǒng)初始化為0或空字符串

          12、編寫如下兩個(gè)事件過(guò)程:

          Private Sub Form_KeyDown (KeyCode As Integer,Shift As Integer)

          Print Chr(KeyCode)

          End Sub

          Private Sub Form_KeyPress(KeyAscii As Integer)

          Print Chr(KeyAscii)

          End Sub

          在一般情況下(即不按住Shift 鍵也未鎖定大寫鍵時(shí))運(yùn)行程序,如果按鍵盤上的"A"鍵,則程序輸出的結(jié)果是(  )。

          A.A

          a

          B.a

          A

          C.A

          A

          D.a

          a

          13、在窗體上畫(huà)一個(gè)命令按鈕,名稱為Co mmand1,然后編寫下列代碼:

          Option Base 0

          Private Sub Co mmand1_Click()

          Di m A1(4)As Integer ,A2(4)As Integer

          For k =0To 2

          A1(k +1)=InputBox("請(qǐng)輸入一個(gè)整數(shù)")

          A2(3-k)=A1(k +1)

          Next k Print A2(k)

          End Sub

          程序運(yùn)行后,單擊命令按鈕,在輸入對(duì)話框中依次輸入2、4、6,則輸出結(jié)果為(  )。

          A.0

          B.1

          C.2

          D.3

          14、下面語(yǔ)句正確的是(  )。

          A.If x<3*y and="" x="">y Then y =x^3

          B.If x<3*y and="" x="">y Then y =3x

          C.If x<3*y x="">y Then y =x^3

          D.If x<3*y and="" x="">y Then y =x**3

          15、下面程序的輸出結(jié)果是(  )。

          Private Sub Co mmand1_Click()

          Ch$="ABCDEF"

          proc ch :Print ch

          End Sub

          Private Sub proc(ch As Stri ng)

          s =""

          For k =Len(ch)To 1Step -1

          s =s &Mid(ch ,k ,1)

          Next k

          ch =s

          End Sub

          A.ABCDEF

          B.FEDCBA

          C.A

          D.F

          16、語(yǔ)句Di ma(-3To 4,3To 6)As Integer 定義的數(shù)組元素個(gè)數(shù)是(  )。

          A.18

          B.28

          C.21

          D.32

          17、以下敘述中錯(cuò)誤的是(  )。

          A.一個(gè)工程中只能有一個(gè)Sub Main 過(guò)程

          B.窗體的Show 方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體

          C.窗體的Hide 方法和Unload 方法的作用完全相同

          D.若工程文件中有多個(gè)窗體,可以根據(jù)需要指定一個(gè)窗體為啟動(dòng)窗體

          18、在窗體上先后畫(huà)2個(gè)圖片框,名稱分別為Picture1和banana,banana 中添加了香蕉圖片,如圖1所示,且將banana.Drag Mode 屬性設(shè)置為1。要求程序運(yùn)行時(shí),可以用鼠標(biāo)把banana 拖拽到Picture1中,如圖2所示。能實(shí)現(xiàn)此功能的事件過(guò)程是(  )。

          A.Private Sub Form_DragDrop(Source As Control ,XAs Si ngle ,Y As Si ngle)

          banana . Move Picture1 . Left +X,Picture1 . Top +Y

          End Sub

          B.Private Sub banana_DragDrop(Source As Control ,XAs Si ngle ,Y As Si ngle)

          Source . Move Picture1 . Left +X,Picture 1 . Top +Y

          End Sub

          C.Private Sub Picture1_DragDrop(Source As Control ,X As Si ngle ,Y As Si ngle)

          Source . Move Picture1 . Left +X,Picture1 . Top +Y

          End Sub

          D.Private Sub Picture1_DragDrop(Source As Control ,X As Si ngle ,Y As Si ngle)

          banana . Move banana . Left +X,banana . Top +Y

          End Sub

          19、用Print 方法在Forml 窗體中顯示出4個(gè)#號(hào)的正確代碼為(  )。

          A.Debug .Print"####"

          B.Print"####"

          C.Forml-Print"####"

          D.Forml .Print"####"

          20、一個(gè)模塊內(nèi)部各個(gè)元素彼此結(jié)合的緊密程度的度量稱為(  )

          A.耦合性

          B.內(nèi)聚性

          C.復(fù)雜性

          D.數(shù)據(jù)傳輸特性

          21、函數(shù)值和余弦函數(shù)值,角度為1,2,3,…,90。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)膬?nèi)容,將程序補(bǔ)充完整。

          Private Type Ang

          K As Integer

          Si nx As Si ngle

          Cosx As Si ngle

          End Type

          Private Sub Form_Click()

          Di m Y As Si ngle

          Di mi As Integer

          Di m Ksc As Ang

          Open ____________

          Y =3.14159/180

          For i =1To 90

          Ksc .K =i

          Ksc .Si nx=Si n(i*Y)

          Ksc .Cosx=Cos(i +Y)

          ________

          Next i

          Close #2

          Elld Stub

          A."..Datal .txt"For Rando mAs #1Len =10 Put #1,i ,Ksc

          B."..Datal .txt"For Rando m As #1Len =10 Put #1,Y ,Ksc

          C."..Datal .txt"For Rando m As #1 Put #1,i ,Ksc

          D."..Datal .txt"For Rando m As #1 Put #1,Y ,Ksc

          22、下列程序運(yùn)行時(shí)輸出的結(jié)果是(  )。

          Option Base 1

          Const a=10

          Private Sub Form_Click0

          Di mx(a)As Integer

          k =-1

          For i =1To a

          x(i)=i*k

          k =(-1)*k

          Next i

          For i =1To 10

          Print x(i)

          Next i

          End Sub

          A.1 3 5 7 9 10

          B.-1-3-5-7-9

          C.-1 2-3 4-5 6-7 8-9 10

          D.1-2 3-4 5-6 7-8 9-10

          23、某人為計(jì)算n!(O

          Private Function fun(n As Integer)As Long

          Di m P As Long

          P=l

          For k =n -1To 2Step -1

          p =p*k

          Next k

          fun =p

          End Function

          在調(diào)試時(shí)發(fā)現(xiàn)該函數(shù)過(guò)程產(chǎn)生的結(jié)果是錯(cuò)誤的,程序需要修改。下面的修改方案中有3種是正確的,錯(cuò)誤的方案是(  )。

          A.把p =1改為p =11

          B.把For k =n -1To 2Step -1改為For k =1To n -1

          C.把For k =n -1To 2Step -1改為For k =1To n

          D.把Fo rk --n -1To 2Step -1改為For k =2To n

          24、要設(shè)置窗體為固定對(duì)話框,并包含控制菜單欄和標(biāo)題欄,但沒(méi)有最大化和最小化按鈕,設(shè)置的操作是(  )。

          A.設(shè)置BorderStyle 的值為Fi xed Tool Wi ndow

          B.設(shè)置BorderStyle 的值為Sizable Tool Wi ndow

          C.設(shè)置BorderStyle 的值為Fi xed Dialog

          D.設(shè)置BorderStyle 的值為Sizable

          25、設(shè)在窗體上有一個(gè)文本框,然后編寫如下的事件過(guò)程:

          Private Sub Text1_KeyDown (KeyCode As Integer ,Shift As Integer)

          Const Alt =4

          Const Key_F2=&H71

          altdown %=(Shift And Alt)>0

          f2down %=(KeyCode =Key_F2)

          If altdown %And f2down %Then

          Text1.Text ="abl"

          End If

          End Sub

          程序運(yùn)行后,清除文本框中原有內(nèi)容,如果按Shift +F2鍵,則在文本框中顯示的是( )。

          A.Alt +F2

          B.abl

          C.隨機(jī)出幾個(gè)數(shù)

          D.不發(fā)生變化

          26、在窗體上畫(huà)兩個(gè)文本框(名稱分別為Text1和Text2)和一個(gè)命令按鈕(名稱為Co mmand1),然后編寫下列事件過(guò)程:

          Private Sub Co mmand1_Click()

          x=0

          DO While x<50

          x=(x+2)*(x+3)

          n =n +l

          Loop

          Text1.Text =Str(n)

          Text2.Text =Str(x)

          End Sub

          程序運(yùn)行后,單擊命令按鈕,在兩個(gè)文本框中顯示的值分別為(  )。

          A.1和0

          B.2和72

          C.3和50

          D.4和168

          27、下列敘述中錯(cuò)誤的是(  )。

          A.軟件測(cè)試的目的是發(fā)現(xiàn)錯(cuò)誤并改正錯(cuò)誤

          B.對(duì)被調(diào)試的程序進(jìn)行"錯(cuò)誤定位"是程序調(diào)試的必要步驟

          C.程序調(diào)試通常也稱為Debug

          D.軟件測(cè)試應(yīng)嚴(yán)格執(zhí)行測(cè)試計(jì)劃,排除測(cè)試的隨意性

          28、一個(gè)工程必須包含的文件的類型是( )。

          A.*.vbp*.frm*.frx

          B.*.vbp*.cls*.bas

          C.*.bas*.ocx*.res

          D.*.frm*.cls*.bas

          29、在文本框中輸入字符時(shí),通過(guò)( )事件過(guò)程可以得到字符的ASCII 碼值。

          A.Change

          B.GotFocus

          C.KeyPress

          D.LostFocus

          30、在下列關(guān)系運(yùn)算中,不改變關(guān)系表中的屬性個(gè)數(shù)但能減少元組個(gè)數(shù)的是(  )。

          A.并

          B.交

          C.投影

          D.笛卡兒乘積

          31、有兩個(gè)關(guān)系R ,S 如下:

          由關(guān)系R 通過(guò)運(yùn)算得到關(guān)系S,則所使用的運(yùn)算為(  )。

          A.選擇

          B.投影

          C.插入

          D.連接

          32、一個(gè)棧的初始狀態(tài)為空。現(xiàn)將元素1、2、3、4、5、A、B、C、D、E依次入棧,然后再一次出棧,則元素出棧的順序是(  )。

          A.12345ABCDE

          B.EDCBA54321

          C.ABCDEl2345

          D.54321EDCBA

          33、在窗體上建立通用對(duì)話框需要添加的控件是(  )。

          A.Data 控件

          B.Form 控件

          C.Co mmonDialog 控件

          D.VBComboBox 控件

          34、在窗體上畫(huà)2個(gè)命令按鈕,名稱分別為Co mmand1、Co mmand2,然后編寫下列事件過(guò)程。

          Const n =5,m=4

          Di ma(m,n)

          Private Sub Co mmand1_Click()

          k =1

          For i =1To m

          For j=1To n

          a(i ,j)=k

          k =k +1

          Next j

          Next i

          End Sub

          Private Sub Co mmand2_Click()

          summ=0

          For i =1To m

          For j=1To n

          If i =1Or i =m Then

          summ=summ+a(i ,j)

          Else

          If j=1Or j=n Then

          summ=summ+a(i ,j)

          End If

          End If

          Next j

          Next i

          Print summ

          End Sub

          過(guò)程Command1_Click()的作用是在二維數(shù)組a 中存放1個(gè)m 行n 列的矩陣;過(guò)程Command2_Click()的作用是(  )。

          A.計(jì)算矩陣外圍一圈元素的累加和

          B.計(jì)算矩陣除外圍一圈以外的所有元素的累加和

          C.計(jì)算矩陣第1列和最后一列元素的累加和

          D.計(jì)算矩陣第1行和最后一行元素的累加和

          35、下列關(guān)于復(fù)選框的說(shuō)法,正確的是(  )。

          A.復(fù)選框的Enabled 屬性用于決定該復(fù)選框是否可見(jiàn)

          B.復(fù)選框的Value 屬性用于決定該復(fù)選框是否被選中

          C.復(fù)選框的Tabi ndex 屬性用于決定該復(fù)選框在控件數(shù)組中的序號(hào)

          D.復(fù)選框的Visi ble 屬性用于決定該復(fù)選框是否可用

          36、按照"后進(jìn)先出"原則組織數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)是(  )。

          A.隊(duì)列

          B.棧

          C.雙向鏈表

          D.二叉樹(shù)

          37、當(dāng)一個(gè)復(fù)選框被選中時(shí),它的Value 屬性的值是( )。

          A.3

          B.2

          C.1

          D.0

          38、已知在4行3列的全局?jǐn)?shù)組score(4,3)中存放了4個(gè)學(xué)生3門課程的考試成績(jī)(均為整數(shù))。現(xiàn)需要計(jì)算每個(gè)學(xué)生的總分,某人編寫程序如下:

          Option Base 1

          Private Sub Co mmand1_Click(  )

          Di msum As Integer

          Sum=0

          For i =1To 4

          For j=1To 3

          Sum=sum+score(i ,j)

          Next j

          Print "第"&i &"個(gè)學(xué)生的總分是:";sum Next i

          End Sub

          運(yùn)行此程序時(shí)發(fā)現(xiàn),除第1個(gè)人的總分計(jì)算正確外,其他人的總分是錯(cuò)誤的。程序需要修改。以下修改方案中正確的是(  )。

          A.把外層循環(huán)語(yǔ)句For i =1TO 4改為For i =1To 3內(nèi)層循環(huán)語(yǔ)句For j=1TO 3改為For j=1TO 4

          B.把sum=0移到For i =1TO 4和For j =1TO 3之間

          C.把sum=sum+score(i ,j)改為sum=sum+score(j,i)

          D.把sum=sum+score(i ,j)改為sum=score(i ,j)

          39、設(shè)有數(shù)組定義語(yǔ)句:Di ma(5)As Integer ,List1為列表框控件。下列給數(shù)組元素賦值的語(yǔ)句錯(cuò)誤的是(  )。

          A.a(3)=3

          B.a(3)=InputBox("i nput data")

          C.a(3)=List1.ListIndex

          D.a=Array(1,2,3,4,5,6)

          40、下列( )標(biāo)識(shí)符不能作為Visual Basic 的變量名。

          A.ABCabe

          B.b1234

          C.28wed

          D.crud

        《&.doc》
        将本文的Word文档下载到电脑,方便收藏和打印
        推荐度:
        点击下载文档

        【計(jì)算機(jī)vb考試題庫(kù)】相關(guān)文章:

        計(jì)算機(jī)二級(jí)vb題庫(kù)201707-30

        2016計(jì)算機(jī)二級(jí)VB上機(jī)考試試題題庫(kù)08-22

        2016年全國(guó)計(jì)算機(jī)二級(jí)vb考試題庫(kù)及答案10-20

        2016年9月全國(guó)計(jì)算機(jī)vb二級(jí)考試題庫(kù)06-10

        計(jì)算機(jī)職稱考試題庫(kù)10-24

        計(jì)算機(jī)等級(jí)考試模擬題庫(kù)07-01

        計(jì)算機(jī)等級(jí)考試一級(jí)題庫(kù)08-08

        職稱計(jì)算機(jī)考試EXCEL題庫(kù)及答案01-23

        計(jì)算機(jī)二級(jí)vb考試試題及答案12-17

        2017計(jì)算機(jī)二級(jí)考試內(nèi)容VB07-24

        国产高潮无套免费视频_久久九九兔免费精品6_99精品热6080YY久久_国产91久久久久久无码
      3. <sub id="h4knl"><ol id="h4knl"></ol></sub>
        <sup id="h4knl"></sup>
          <sub id="h4knl"></sub>

          <sub id="h4knl"><ol id="h4knl"><em id="h4knl"></em></ol></sub><s id="h4knl"></s>
          1. <strong id="h4knl"></strong>

          2. 亚洲欧洲中文字幕第一区 | 天堂mv手机在线mv观看午夜版 | 日韩精品福利片午夜免费观看 | 中文字幕乱码激情视频 | 日本中文字幕有码 | 午夜福利100在线少妇 |

            2017計(jì)算機(jī)vb考試題庫(kù)

              一、選擇題

            2017計(jì)算機(jī)vb考試題庫(kù)

              1、任何控件都有的屬性是( )。

              A.BackColor

              B.Caption

              C.Name

              D.BorderStyle

              2、設(shè)計(jì)數(shù)據(jù)庫(kù)的存儲(chǔ)結(jié)構(gòu)屬于(  )

              A.需求分析

              B.概念設(shè)計(jì)

              C.邏輯設(shè)計(jì)

              D.物理設(shè)計(jì)

              3、某人創(chuàng)建了1個(gè)工程,其中的窗體名稱為Form1;之后又添加了1個(gè)名為Form2的窗體,并希望程序執(zhí)行時(shí)先顯示Form2窗體,那么,他需要做的工作是(  )。

              A.在工程屬性對(duì)話框中把"啟動(dòng)對(duì)象"設(shè)置為Form2

              B.在Forml 的Load 事件過(guò)程中加入語(yǔ)句Load Form2

              C.在Form2的Load 事件過(guò)程中加入語(yǔ)句Form2.Show

              D.把Form2的TabIndex 屬性設(shè)置為l ,把Form1的TabIndex 屬性設(shè)置為2

              4、設(shè)有如下通用過(guò)程:

              Public Function Fun(xStr As Stri ng)As Stri ng

              Di mt Str As Stri ng ,strLAs Integer

              tStF=""

              strL=Len(xStr)

              i =1 Do While i <=strL/2

              tStr =Tstr &Mid(xStr ,i ,1)&Mid(xStr ,strL-i+1,1)

              i =i +l

              Loop

              Fun =tStr

              End Function

              在窗體上畫(huà)一個(gè)名稱為Co mmand1的命令按鈕。然后編寫如下的事件過(guò)程:

              Private Sub Co mmandI_Click()

              Di mS1As Stri ng

              S1="abedef"

              Pri m UCase(Fun(S1))

              End Sub

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

              A.ABCDEF

              B.abcdef

              C.AFBECD

              D.DEFABC

              5、下列關(guān)于棧的描述正確的是(  )。

              A.在棧中只能插入元素而不能刪除元素

              B.在棧中只能刪除元素而不能插入元素

              C.棧是特殊的線性表,只能在一端插入或刪除元素

              D.棧是特殊的線性表,只能在一端插入元素,而在另一端刪除元素

              6、下列程序段的運(yùn)行結(jié)果是(  )。

              Sub sele(  )

              Di mn As Integer

              i =21:n =3

              Do While i >n

              i =i -n

              Loop

              Print i

              End Sub

              A.2

              B.4

              C.5

              D.3

              7、復(fù)選框的Value 屬性為0時(shí),表示該復(fù)選框(  )。

              A.未被選中

              B.被選中

              C.框內(nèi)有灰色的勾

              D.操作有誤

              8、在窗體上有一個(gè)名稱為Check1的復(fù)選框數(shù)組(含4個(gè)復(fù)選框),還有一個(gè)名稱為Text1的文本框,初始內(nèi)容為空。程序運(yùn)行時(shí),單擊任何復(fù)選框,則把所有選中的復(fù)選框后面的方字羅列在文本框中(見(jiàn)圖)。下面能實(shí)現(xiàn)此功能的事件過(guò)程是(  )。

              A.Private Sub Check1_Click(Index As Integer)

              Text1.Text =""

              For k =0To 3

              If Check1(k).value =1Then

              Text1.Text =Text1.Text &Check1(k).Caption &""雙引號(hào)中是空格 End If Next k

              End Sub

              B.Private Sub Check1_Click(Index As Integer)

              For k =0To 3

              If Check1(k).Value =1Then

              Text1.Text =Text1.Text &Check1(k).Caption &""雙引號(hào)中是空格

              End If

              Next k

              End Sub

              C.Private Sub Check1_Click(Index As Integer)

              Text1.Text ="" For k =0To 3 If Check1(k).Value =1Then

              Text1.Text =Text1.Text &Check1(Index).Caption &""雙引號(hào)中是空格

              End If

              Next k

              End Sub

              D.Private Sub Check1_Click(Index As Integer)

              Text1.Text ="" For k =0To 3

              If Check1(k).Value =1Then

              Text1.Text =Text1.Text &Check1(k).Caption &""雙引號(hào)中是空格

              Exit For

              End If

              Next k

              End Sub

              9、在窗體上添加一個(gè)命令按鈕,名為Co mmand1,其單擊事件中有下列程序段,則事件過(guò)程執(zhí)行后,文本框中輸出

              (  )。

              For i =1To 4

              For j=1To 3

              x=3

              For k =1To 2

              x=x+3

              Next k

              Next j

              Next i

              Textl .Text =Str(x)

              A.3

              B.6

              C.9

              D.12

              10、下列關(guān)于Sub 過(guò)程的敘述正確的是(  )。

              A.一個(gè)Sub 過(guò)程必須有一個(gè)Exit Sub 語(yǔ)句

              B.一個(gè)Sub 過(guò)程必須有一個(gè)End Sub 語(yǔ)句

              C.在Sub 過(guò)程中可以定義一個(gè)Function 過(guò)程

              D.可以用Goto 語(yǔ)句退出Sub 過(guò)程

              11、下列敘述中正確的是( )。

              A.在窗體的Form_Load 事件過(guò)程中定義的變量是全局變量

              B.局部變量的作用域可以超出所定義的過(guò)程

              C.在某個(gè)Sub 過(guò)程中定義的局部變量可以與其他事件過(guò)程中定義的局部變量同名,但其作用域只限于該過(guò)程

              D.在調(diào)用過(guò)程時(shí),所有局部變量被系統(tǒng)初始化為0或空字符串

              12、編寫如下兩個(gè)事件過(guò)程:

              Private Sub Form_KeyDown (KeyCode As Integer,Shift As Integer)

              Print Chr(KeyCode)

              End Sub

              Private Sub Form_KeyPress(KeyAscii As Integer)

              Print Chr(KeyAscii)

              End Sub

              在一般情況下(即不按住Shift 鍵也未鎖定大寫鍵時(shí))運(yùn)行程序,如果按鍵盤上的"A"鍵,則程序輸出的結(jié)果是(  )。

              A.A

              a

              B.a

              A

              C.A

              A

              D.a

              a

              13、在窗體上畫(huà)一個(gè)命令按鈕,名稱為Co mmand1,然后編寫下列代碼:

              Option Base 0

              Private Sub Co mmand1_Click()

              Di m A1(4)As Integer ,A2(4)As Integer

              For k =0To 2

              A1(k +1)=InputBox("請(qǐng)輸入一個(gè)整數(shù)")

              A2(3-k)=A1(k +1)

              Next k Print A2(k)

              End Sub

              程序運(yùn)行后,單擊命令按鈕,在輸入對(duì)話框中依次輸入2、4、6,則輸出結(jié)果為(  )。

              A.0

              B.1

              C.2

              D.3

              14、下面語(yǔ)句正確的是(  )。

              A.If x<3*y and="" x="">y Then y =x^3

              B.If x<3*y and="" x="">y Then y =3x

              C.If x<3*y x="">y Then y =x^3

              D.If x<3*y and="" x="">y Then y =x**3

              15、下面程序的輸出結(jié)果是(  )。

              Private Sub Co mmand1_Click()

              Ch$="ABCDEF"

              proc ch :Print ch

              End Sub

              Private Sub proc(ch As Stri ng)

              s =""

              For k =Len(ch)To 1Step -1

              s =s &Mid(ch ,k ,1)

              Next k

              ch =s

              End Sub

              A.ABCDEF

              B.FEDCBA

              C.A

              D.F

              16、語(yǔ)句Di ma(-3To 4,3To 6)As Integer 定義的數(shù)組元素個(gè)數(shù)是(  )。

              A.18

              B.28

              C.21

              D.32

              17、以下敘述中錯(cuò)誤的是(  )。

              A.一個(gè)工程中只能有一個(gè)Sub Main 過(guò)程

              B.窗體的Show 方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體

              C.窗體的Hide 方法和Unload 方法的作用完全相同

              D.若工程文件中有多個(gè)窗體,可以根據(jù)需要指定一個(gè)窗體為啟動(dòng)窗體

              18、在窗體上先后畫(huà)2個(gè)圖片框,名稱分別為Picture1和banana,banana 中添加了香蕉圖片,如圖1所示,且將banana.Drag Mode 屬性設(shè)置為1。要求程序運(yùn)行時(shí),可以用鼠標(biāo)把banana 拖拽到Picture1中,如圖2所示。能實(shí)現(xiàn)此功能的事件過(guò)程是(  )。

              A.Private Sub Form_DragDrop(Source As Control ,XAs Si ngle ,Y As Si ngle)

              banana . Move Picture1 . Left +X,Picture1 . Top +Y

              End Sub

              B.Private Sub banana_DragDrop(Source As Control ,XAs Si ngle ,Y As Si ngle)

              Source . Move Picture1 . Left +X,Picture 1 . Top +Y

              End Sub

              C.Private Sub Picture1_DragDrop(Source As Control ,X As Si ngle ,Y As Si ngle)

              Source . Move Picture1 . Left +X,Picture1 . Top +Y

              End Sub

              D.Private Sub Picture1_DragDrop(Source As Control ,X As Si ngle ,Y As Si ngle)

              banana . Move banana . Left +X,banana . Top +Y

              End Sub

              19、用Print 方法在Forml 窗體中顯示出4個(gè)#號(hào)的正確代碼為(  )。

              A.Debug .Print"####"

              B.Print"####"

              C.Forml-Print"####"

              D.Forml .Print"####"

              20、一個(gè)模塊內(nèi)部各個(gè)元素彼此結(jié)合的緊密程度的度量稱為(  )

              A.耦合性

              B.內(nèi)聚性

              C.復(fù)雜性

              D.數(shù)據(jù)傳輸特性

              21、函數(shù)值和余弦函數(shù)值,角度為1,2,3,…,90。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)膬?nèi)容,將程序補(bǔ)充完整。

              Private Type Ang

              K As Integer

              Si nx As Si ngle

              Cosx As Si ngle

              End Type

              Private Sub Form_Click()

              Di m Y As Si ngle

              Di mi As Integer

              Di m Ksc As Ang

              Open ____________

              Y =3.14159/180

              For i =1To 90

              Ksc .K =i

              Ksc .Si nx=Si n(i*Y)

              Ksc .Cosx=Cos(i +Y)

              ________

              Next i

              Close #2

              Elld Stub

              A."..Datal .txt"For Rando mAs #1Len =10 Put #1,i ,Ksc

              B."..Datal .txt"For Rando m As #1Len =10 Put #1,Y ,Ksc

              C."..Datal .txt"For Rando m As #1 Put #1,i ,Ksc

              D."..Datal .txt"For Rando m As #1 Put #1,Y ,Ksc

              22、下列程序運(yùn)行時(shí)輸出的結(jié)果是(  )。

              Option Base 1

              Const a=10

              Private Sub Form_Click0

              Di mx(a)As Integer

              k =-1

              For i =1To a

              x(i)=i*k

              k =(-1)*k

              Next i

              For i =1To 10

              Print x(i)

              Next i

              End Sub

              A.1 3 5 7 9 10

              B.-1-3-5-7-9

              C.-1 2-3 4-5 6-7 8-9 10

              D.1-2 3-4 5-6 7-8 9-10

              23、某人為計(jì)算n!(O

              Private Function fun(n As Integer)As Long

              Di m P As Long

              P=l

              For k =n -1To 2Step -1

              p =p*k

              Next k

              fun =p

              End Function

              在調(diào)試時(shí)發(fā)現(xiàn)該函數(shù)過(guò)程產(chǎn)生的結(jié)果是錯(cuò)誤的,程序需要修改。下面的修改方案中有3種是正確的,錯(cuò)誤的方案是(  )。

              A.把p =1改為p =11

              B.把For k =n -1To 2Step -1改為For k =1To n -1

              C.把For k =n -1To 2Step -1改為For k =1To n

              D.把Fo rk --n -1To 2Step -1改為For k =2To n

              24、要設(shè)置窗體為固定對(duì)話框,并包含控制菜單欄和標(biāo)題欄,但沒(méi)有最大化和最小化按鈕,設(shè)置的操作是(  )。

              A.設(shè)置BorderStyle 的值為Fi xed Tool Wi ndow

              B.設(shè)置BorderStyle 的值為Sizable Tool Wi ndow

              C.設(shè)置BorderStyle 的值為Fi xed Dialog

              D.設(shè)置BorderStyle 的值為Sizable

              25、設(shè)在窗體上有一個(gè)文本框,然后編寫如下的事件過(guò)程:

              Private Sub Text1_KeyDown (KeyCode As Integer ,Shift As Integer)

              Const Alt =4

              Const Key_F2=&H71

              altdown %=(Shift And Alt)>0

              f2down %=(KeyCode =Key_F2)

              If altdown %And f2down %Then

              Text1.Text ="abl"

              End If

              End Sub

              程序運(yùn)行后,清除文本框中原有內(nèi)容,如果按Shift +F2鍵,則在文本框中顯示的是( )。

              A.Alt +F2

              B.abl

              C.隨機(jī)出幾個(gè)數(shù)

              D.不發(fā)生變化

              26、在窗體上畫(huà)兩個(gè)文本框(名稱分別為Text1和Text2)和一個(gè)命令按鈕(名稱為Co mmand1),然后編寫下列事件過(guò)程:

              Private Sub Co mmand1_Click()

              x=0

              DO While x<50

              x=(x+2)*(x+3)

              n =n +l

              Loop

              Text1.Text =Str(n)

              Text2.Text =Str(x)

              End Sub

              程序運(yùn)行后,單擊命令按鈕,在兩個(gè)文本框中顯示的值分別為(  )。

              A.1和0

              B.2和72

              C.3和50

              D.4和168

              27、下列敘述中錯(cuò)誤的是(  )。

              A.軟件測(cè)試的目的是發(fā)現(xiàn)錯(cuò)誤并改正錯(cuò)誤

              B.對(duì)被調(diào)試的程序進(jìn)行"錯(cuò)誤定位"是程序調(diào)試的必要步驟

              C.程序調(diào)試通常也稱為Debug

              D.軟件測(cè)試應(yīng)嚴(yán)格執(zhí)行測(cè)試計(jì)劃,排除測(cè)試的隨意性

              28、一個(gè)工程必須包含的文件的類型是( )。

              A.*.vbp*.frm*.frx

              B.*.vbp*.cls*.bas

              C.*.bas*.ocx*.res

              D.*.frm*.cls*.bas

              29、在文本框中輸入字符時(shí),通過(guò)( )事件過(guò)程可以得到字符的ASCII 碼值。

              A.Change

              B.GotFocus

              C.KeyPress

              D.LostFocus

              30、在下列關(guān)系運(yùn)算中,不改變關(guān)系表中的屬性個(gè)數(shù)但能減少元組個(gè)數(shù)的是(  )。

              A.并

              B.交

              C.投影

              D.笛卡兒乘積

              31、有兩個(gè)關(guān)系R ,S 如下:

              由關(guān)系R 通過(guò)運(yùn)算得到關(guān)系S,則所使用的運(yùn)算為(  )。

              A.選擇

              B.投影

              C.插入

              D.連接

              32、一個(gè)棧的初始狀態(tài)為空。現(xiàn)將元素1、2、3、4、5、A、B、C、D、E依次入棧,然后再一次出棧,則元素出棧的順序是(  )。

              A.12345ABCDE

              B.EDCBA54321

              C.ABCDEl2345

              D.54321EDCBA

              33、在窗體上建立通用對(duì)話框需要添加的控件是(  )。

              A.Data 控件

              B.Form 控件

              C.Co mmonDialog 控件

              D.VBComboBox 控件

              34、在窗體上畫(huà)2個(gè)命令按鈕,名稱分別為Co mmand1、Co mmand2,然后編寫下列事件過(guò)程。

              Const n =5,m=4

              Di ma(m,n)

              Private Sub Co mmand1_Click()

              k =1

              For i =1To m

              For j=1To n

              a(i ,j)=k

              k =k +1

              Next j

              Next i

              End Sub

              Private Sub Co mmand2_Click()

              summ=0

              For i =1To m

              For j=1To n

              If i =1Or i =m Then

              summ=summ+a(i ,j)

              Else

              If j=1Or j=n Then

              summ=summ+a(i ,j)

              End If

              End If

              Next j

              Next i

              Print summ

              End Sub

              過(guò)程Command1_Click()的作用是在二維數(shù)組a 中存放1個(gè)m 行n 列的矩陣;過(guò)程Command2_Click()的作用是(  )。

              A.計(jì)算矩陣外圍一圈元素的累加和

              B.計(jì)算矩陣除外圍一圈以外的所有元素的累加和

              C.計(jì)算矩陣第1列和最后一列元素的累加和

              D.計(jì)算矩陣第1行和最后一行元素的累加和

              35、下列關(guān)于復(fù)選框的說(shuō)法,正確的是(  )。

              A.復(fù)選框的Enabled 屬性用于決定該復(fù)選框是否可見(jiàn)

              B.復(fù)選框的Value 屬性用于決定該復(fù)選框是否被選中

              C.復(fù)選框的Tabi ndex 屬性用于決定該復(fù)選框在控件數(shù)組中的序號(hào)

              D.復(fù)選框的Visi ble 屬性用于決定該復(fù)選框是否可用

              36、按照"后進(jìn)先出"原則組織數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)是(  )。

              A.隊(duì)列

              B.棧

              C.雙向鏈表

              D.二叉樹(shù)

              37、當(dāng)一個(gè)復(fù)選框被選中時(shí),它的Value 屬性的值是( )。

              A.3

              B.2

              C.1

              D.0

              38、已知在4行3列的全局?jǐn)?shù)組score(4,3)中存放了4個(gè)學(xué)生3門課程的考試成績(jī)(均為整數(shù))。現(xiàn)需要計(jì)算每個(gè)學(xué)生的總分,某人編寫程序如下:

              Option Base 1

              Private Sub Co mmand1_Click(  )

              Di msum As Integer

              Sum=0

              For i =1To 4

              For j=1To 3

              Sum=sum+score(i ,j)

              Next j

              Print "第"&i &"個(gè)學(xué)生的總分是:";sum Next i

              End Sub

              運(yùn)行此程序時(shí)發(fā)現(xiàn),除第1個(gè)人的總分計(jì)算正確外,其他人的總分是錯(cuò)誤的。程序需要修改。以下修改方案中正確的是(  )。

              A.把外層循環(huán)語(yǔ)句For i =1TO 4改為For i =1To 3內(nèi)層循環(huán)語(yǔ)句For j=1TO 3改為For j=1TO 4

              B.把sum=0移到For i =1TO 4和For j =1TO 3之間

              C.把sum=sum+score(i ,j)改為sum=sum+score(j,i)

              D.把sum=sum+score(i ,j)改為sum=score(i ,j)

              39、設(shè)有數(shù)組定義語(yǔ)句:Di ma(5)As Integer ,List1為列表框控件。下列給數(shù)組元素賦值的語(yǔ)句錯(cuò)誤的是(  )。

              A.a(3)=3

              B.a(3)=InputBox("i nput data")

              C.a(3)=List1.ListIndex

              D.a=Array(1,2,3,4,5,6)

              40、下列( )標(biāo)識(shí)符不能作為Visual Basic 的變量名。

              A.ABCabe

              B.b1234

              C.28wed

              D.crud