欧美日韩不卡一区二区三区,www.蜜臀.com,高清国产一区二区三区四区五区,欧美日韩三级视频,欧美性综合,精品国产91久久久久久,99a精品视频在线观看

試題

9月計(jì)算機(jī)二級(jí)考試VB復(fù)習(xí)題

時(shí)間:2025-05-13 22:40:30 試題 我要投稿

2017年9月計(jì)算機(jī)二級(jí)考試VB復(fù)習(xí)題

  2017年計(jì)算機(jī)二級(jí)考試馬上就要開(kāi)始了,你報(bào)考了VB科目嗎?為了方便考生備考計(jì)算機(jī)二級(jí)考試VB 科目。下面是小編為大家?guī)?lái)的計(jì)算機(jī)二級(jí)考試VB復(fù)習(xí)題,歡迎閱讀。

2017年9月計(jì)算機(jī)二級(jí)考試VB復(fù)習(xí)題

  復(fù)習(xí)題一:

  1.在窗體上畫(huà)一個(gè)名稱為Text1的文本框,一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過(guò)程和通用過(guò)程:

  Private Sub Command1_Click( )

  n = Val(Text1.Text)

  If n2 = n/2 Then

  f = f1(n)

  Else

  f = f2(n)

  End If

  Print f; n

  End Sub

  Public Function f1(ByRef x)

  x=x*x

  f1=x+x

  End Function

  Public Function f2(ByVal x)

  x=x*x

  f2=x+x+x

  End Function

  程序運(yùn)行后,在文本框中輸入3,然后單擊命令按鈕,窗體上顯示的是(D)(單)

  A.72 36

  B.108 36

  C.72 6

  D.27 3

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

  Private Sub Command1_Click( )

  c = "1234"

  For i = 1 To 4

  c1 = Trim(Str( ))

  Print c1

  Next i

  End Sub

  程序運(yùn)行后,單擊命令按鈕,要求在窗體上顯示如下內(nèi)容

  1

  12

  123

  1234

  則在下劃線處應(yīng)填入的內(nèi)容為(B)(單)

  A.Right(c1,i)

  B.Left(c1,i)

  C.Mid(c1,i,1)

  D.Mid(c1,i,i)

  3.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為Text1的文本框,然后編寫如下事件過(guò)程:

  Private Sub Command1_Click( )

  n = Val(Text1.Text)

  For i = 2 To n

  For j = 2 To sqr(i)

  If i Mod j = 0 Then Exit For

  Next j

  If j >Sqr(i) Then Print i

  Next i

  End Sub

  該事件過(guò)程的功能是(C)(單)

  A.輸出n以內(nèi)的奇數(shù)

  B.輸出n以內(nèi)的偶數(shù)

  C.輸出n以內(nèi)的素?cái)?shù)

  D.輸出n以內(nèi)能被j整除的數(shù)

  4.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕,然后編寫如下通用過(guò)程和命令按鈕的事件過(guò)程:

  Private Function f(m As Integer)

  If m Mod 2 = 0 Then

  f = m

  Else

  f = 1

  End If

  End Function

  Private Sub Command1_Click( )

  Dim i As Integer

  s = 0

  For i = 1 To 5

  s = s + f(i)

  Next

  Print s

  End Sub

  程序運(yùn)行后,單擊命令按鈕,在窗體上顯示的是(C)(單)

  A.11

  B.10

  C.9

  D.8

  5.在窗體上畫(huà)一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過(guò)程:

  Private Sub Command1_Click( )

  Dim array1(10, 10) As Integer

  Dim i As Integer, j As Integer

  For i = 1 To 3

  For j = 2 To 4

  array1(i, j) = i + j

  Next j

  Next i

  Text1.Text = array1(2, 3) + array1(3, 4)

  End Sub

  程序運(yùn)行后,單擊命令按鈕,在文本框中顯示的值是(D)(單)

  A.15

  B.14

  C.13

  D.12

  6.Visual Basic應(yīng)用程序中標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是【BAS或.BAS】(注意不要寫點(diǎn))。

  7.在菜單編輯器中建立一個(gè)菜單,其主菜單項(xiàng)的名稱為mnuEdit,Visible屬性為False,程序運(yùn)行后,如果用鼠標(biāo)右鍵單擊窗體,則彈出與mnuEdit相應(yīng)的菜單。

  Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)

  If Button=2 Then

  popupmenu mnuEdit

  End If

  End Sub

  8.在菜單編輯器中建立一個(gè)菜單,其主菜單項(xiàng)的名稱為mnuEdit,Visible屬性為False,程序運(yùn)行后,如果用鼠標(biāo)右鍵單擊窗體,則彈出與mnuEdit相應(yīng)的菜單。以下是實(shí)現(xiàn)上述功能的程序,請(qǐng)?zhí)羁铡?/p>

  Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)

  If Button=2 Then

  【popupmenu】 mnuEdit

  End If

  9.為了使計(jì)時(shí)器控件Timer1每隔0.5秒觸發(fā)一次Timer事件,應(yīng)將Timer1控件的【Interval】屬性設(shè)置為500。

  10.為了使計(jì)時(shí)器控件Timer1每隔0.5秒觸發(fā)一次Timer事件,應(yīng)將Timer1控件的Interval屬性設(shè)置為【500】。

  復(fù)習(xí)題二:

  1.雙擊窗體中的對(duì)象后,VB將顯示的窗口是(C)(單)

  A.工具箱

  B.項(xiàng)目(工程)窗口

  C.代碼窗口

  D.屬性窗口

  2.下述選項(xiàng)中,VB的程序設(shè)計(jì)方法是(B)(單)

  A.面向?qū)ο、順序?qū)動(dòng)

  B.面向?qū)ο蟆⑹录?qū)動(dòng)

  C.面向過(guò)程、事件驅(qū)動(dòng)

  D.面向過(guò)程、順序驅(qū)動(dòng)

  3.在VB中,要將一個(gè)窗體裝載到內(nèi)存進(jìn)行變量初始化等預(yù)處理,但沒(méi)有顯示該窗體,應(yīng)使用的方法或語(yǔ)句是(C)(單)

  A.Show

  B.Unload

  C.Load

  D.Hide

  4.文本框的默認(rèn)屬性是(B)(單)

  A.Caption

  B.Text

  C.Name

  D.Top

  5.標(biāo)簽?zāi)J(rèn)屬性是(A)(單)

  A.Caption

  B.Text

  C.Name

  D.Top

  6.執(zhí)行以下程序段:

  a$="abbacddcba"

  For I=6 To 2 Step -2

  X=Mid(a,I,I)

  Y=Left(a,I)

  z=Right(a,I)

  z=Ucase(X&Y&z)

  Next I

  Print z

  輸出結(jié)果為(B)(單)

  A.ABA

  B.BBABBA

  C.ABBABA

  D.AABAAB

  7.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕,然后編寫如下程序:

  Option Base 1

  Private Sub Command1_Click( )

  Dim a As Variant

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

  Sum=0

  For I=1 To 5

  Sum = sum+a(I)

  Next I

  x=Sum/5

  For I =1 To 5

  If a(I)>x Then Print a(I);

  Next I

  End Sub

  程序運(yùn)行后,單擊命令按鈕,在窗體上顯示的內(nèi)容是(D)(單)

  A.1 2

  B.1 2 3

  C.3 4 5

  D.4 5

  8.假定一個(gè)工程由一個(gè)窗體文件Form1和兩個(gè)標(biāo)準(zhǔn)模塊文件Model1及Model2組成。Model1代碼如下:

  Public x As Integer

  Public y As Integer

  Sub S1( )

  x =1

  S2

  End Sub

  Sub S2( )

  y=10

  Form1.Show

  End Sub

  Model2的代碼如下:

  Sub Main( )

  S1

  End Sub

  其中Sub Main被設(shè)置為啟動(dòng)過(guò)程。程序運(yùn)行后,各模塊的執(zhí)行順序是(C)(單)

  A.Form1->Model1->Model2

  B.Model1->Model2->Form1

  C.Model2->Model1->Form1

  D.Model2->Form1->Model1

  9.設(shè)有如下程序段:

  a$="beijingshanghai"

  b$=Mid(a$,InStr(a$,"g")+1)

  執(zhí)行上面的程序段后,變量b$的值為【shanghai】

  10.以下程序段的輸出結(jié)果是【3】

  Num =0

  Do While num<=2

  num = num+1

  Loop

  Print num

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

  Private Sub Command1_Click( )

  Move 500,500

  End Sub

  程序運(yùn)行后,單擊命令按鈕,執(zhí)行的操作為(A)(單)

  A.命令按鈕移動(dòng)到距窗體左邊界、上邊界各500的位置

  B.窗體移動(dòng)到距屏幕左邊界、上邊界各500的位置

  C.命令按鈕向左、上方向各移動(dòng)500

  D.窗體向左、上方向各移動(dòng)500

  12.在窗體上有若干控件,其中有一個(gè)名稱為Text1的文本框。影響Text1的Tab順序的屬性是(D)(單)

  A.TabStop

  B.Enabled

  C.Visible

  D.TabIndex

  13.在窗體上畫(huà)一個(gè)名稱為L(zhǎng)ist1的列表框,為了對(duì)列表框中的每個(gè)項(xiàng)目都能進(jìn)行處理,應(yīng)使用的循環(huán)語(yǔ)句為(A)(單)

  A.For i=0 To List1.ListCount-1 ......  Next i

  B.For i=0 To ListCount-1 ...... Next i

  C.For i=1 To List1.listCount  ...... Next i

  D.For i=1 To ListCount ...... Next i

  14.以下Case語(yǔ)句中錯(cuò)誤的是(C)(單)

  A.Case 0 To 10

  B.Case Is>10

  C.Case Is>10 And Is<50

  D.Case 3,5,Is>10

  15.以下關(guān)于圖片框控件的說(shuō)法中,錯(cuò)誤的是(D)(單)

  A.可以通過(guò)Print方法在圖片框中輸出文本

  B.清空?qǐng)D片框控件中圖形的方法之一是加載一個(gè)空?qǐng)D形

  C.圖片框控件可以作為容器使用

  D.用圖片框控件的Stretch屬性可以自動(dòng)調(diào)整圖片框中圖形的大小

  16.執(zhí)行語(yǔ)句s=Len(Mid("VisualBasic",1,6))后,s的值是(A)(單)

  A.Visual

  B.Basic

  C.6

  D.11

  17.以下敘述中錯(cuò)誤的是(D)(單)

  A.下拉式菜單能用菜單編輯器建立

  B.在多窗體程序中,每個(gè)窗體都可以建立自己的菜單系統(tǒng)

  C.能夠?qū)Σ藛雾?xiàng)的Click事件編程

  D.如果把一個(gè)菜單項(xiàng)的Enabled屬性設(shè)置為False,則該菜單項(xiàng)不可見(jiàn)

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

  Private Sub Command1_Click( )

  a = "12345"

  Print Format$(a, "000.00")

  End Sub

  程序運(yùn)行后,單擊命令按鈕,窗體上顯示的是(B)(單)

  A.123.45

  B.12345.00

  C.12345

  D.00123.45

  19.以下關(guān)于函數(shù)過(guò)程的敘述中,正確的是(A)(單)

  A.函數(shù)過(guò)程形參的類型與函數(shù)返回值的類型沒(méi)有關(guān)系

  B.在函數(shù)過(guò)程中,過(guò)程的返回值可以有多個(gè)

  C.當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí),既能以傳值方式傳遞,也能以傳址方式傳遞

  D.如果不指明函數(shù)過(guò)程參數(shù)的類型,則該參數(shù)不能有數(shù)據(jù)類型的參數(shù)

  20.以下關(guān)于變量作用域的敘述中,正確的是(C)(單)

  A.用dim定義變量是靜態(tài)變量

  B.靜態(tài)變量必須在標(biāo)準(zhǔn)模塊中聲明

  C.用public定義變量是全局變量

  D.Static類型變量的作用域范圍是它所在的窗體或模塊文件

  21.確定一個(gè)控件在窗體上的位置的屬性是(C)(單)

  A.Width和Height

  B.Width或Height

  C.Top和Left

  D.Top或Left

  22.在窗體上畫(huà)一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過(guò)程:

  Private Sub Command1_Click( )

  Text1.Text = "Visual"

  Me.Text1 = "Basic"

  Text1 = "Program"

  End Sub

  程序運(yùn)行后,如果單擊命令按鈕,則在文本框中顯示的是(C)(單)

  A.Visual

  B.Basic

  C.Program

  D.出錯(cuò)

  23.以下關(guān)系表達(dá)式中,其值為False的是(A)(單)

  A."ABC">"AbC"

  B."the"<>"they"

  C."VISUAL"=UCase("Visual")

  D."Integer">"Int"

  24.語(yǔ)句Print int(5/4*65) Mod 2的輸出結(jié)果是(B)(單)

  A.0

  B.1

  C.2

  D.3

  25.在窗體上畫(huà)一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕,其名稱分別為Text1、Label1和Command1,然后編寫如下兩個(gè)事件過(guò)程:

  Private Sub Command1_Click( )

  strText = InputBox("請(qǐng)輸入")

  Text1.Text = strText

  End Sub

  Private Sub Text1_Change( )

  Label1.Caption = Right(Trim(Text1.Text), 3)

  End Sub

  程序運(yùn)行后,單擊命令按鈕,如果在輸入對(duì)話框中輸入abcdef,則在標(biāo)簽中顯示的內(nèi)容是(D)(單)

  A.空

  B.abcdef

  C.abc

  D.def

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

  Private Sub Command1_Click( )

  x = -5

  If x >0 Then

  y = x ^ 2

  Else

  y = x

  End If

  Print y

  End Sub

  程序運(yùn)行后,單擊命令按鈕,窗體上顯示的是(A)(單)

  A.-5

  B.25

  C.1

  D.-1

  27.一個(gè)工程中含有窗體Form1、Form2和標(biāo)準(zhǔn)模塊Model1,如果在Form1中有語(yǔ)句Pubilc X As

  Integer,在Model1中有語(yǔ)句Pubilc Y As Integer,則以下敘述中正確的是(A)(單)

  A.變量X、Y的作用域相同

  B.Y的作用域是Model1

  C.在Form1的任何地方中可以直接使用Y

  D.在Form2中可以直接使用X和Y

  28.在窗體上畫(huà)一個(gè)名稱為Drive1的驅(qū)動(dòng)器列表框,一個(gè)名稱為Dir1的目錄列表框。當(dāng)改變當(dāng)前驅(qū)動(dòng)器時(shí),目錄列表框應(yīng)該與之同步改變。設(shè)置兩個(gè)控件同步的命令放在一個(gè)事件過(guò)程中,這個(gè)事件過(guò)程是(A)(單)

  A.Drive1_Change

  B.Drive1_Click

  C.Dir1_Click

  D.Dir1_KeyPress

  29.在窗體上畫(huà)一個(gè)命令按鈕(其NAME屬性為Command1),然后編寫如下代碼:

  Option Base 1

  Private Sub Command1_Click( )

  Dim a

  s = 0

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

  For I = 4 To 1 Step -1

  s = s + a(I)

  Next I

  Print s

  End Sub

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

  A.4321

  B.1234

  C.34

  D.10

  30.在窗體上畫(huà)一個(gè)名稱為Text1的文本框,編寫以下代碼:

  Private Sub Text1_KeyPress(KeyAscii As Integer)

  If KeyAscii < 65  Or  KeyAscii> 90 Then

  msgBox "請(qǐng)輸入大寫字母"

  KeyAscii = 0

  End If

  End Sub

  以下能說(shuō)明該事件過(guò)程正確是(A)(單)

  A.要求文本框只能接收大寫字母的輸入

  B.要求文本框只能接收小寫字母的輸入

  C.要求文本框只能接收數(shù)字的輸入

  D.要求文本框只能接收65到90之間的數(shù)值的輸入


【9月計(jì)算機(jī)二級(jí)考試VB復(fù)習(xí)題】相關(guān)文章:

2017年9月計(jì)算機(jī)二級(jí)考試VB復(fù)習(xí)題及答案09-15

9月計(jì)算機(jī)二級(jí)考試VB真題10-11

2017年9月計(jì)算機(jī)二級(jí)考試VB考試題09-28

2017年9月計(jì)算機(jī)二級(jí)考試VB備考題09-03

2017年9月計(jì)算機(jī)二級(jí)考試VB基礎(chǔ)題05-22

2012年9月計(jì)算機(jī)二級(jí)考試VB真題11-08

2016年9月計(jì)算機(jī)二級(jí)《VB》考試試題09-09

2017年9月計(jì)算機(jī)二級(jí)考試VB備考題及答案09-01

2017年9月計(jì)算機(jī)二級(jí)考試VB測(cè)試題08-16