18禁极品美女裸露网站,精品国产一区二区三区久久久蜜桃,gogogo免费观看视频高清

相關(guān)推薦

2015年計(jì)算機(jī)等級(jí)考試二級(jí)VB模擬試題

　　一、選擇題：35題，2分/題，共70分

2015年計(jì)算機(jī)等級(jí)考試二級(jí)VB模擬試題

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

　　1.當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的某個(gè)事件過(guò)程。這個(gè)事件過(guò)程是(A)

　　A)Load

　　B)Click

　　C)Unload

　　D)GotFocus

　　2.無(wú)論何控件，都具有一個(gè)共同屬性。這個(gè)屬性是(C)

　　A)Text

　　B)Font

　　C)Name

　　D)Caption

　　3.在一行內(nèi)寫(xiě)多條語(yǔ)句時(shí)，語(yǔ)句之間要用某個(gè)符號(hào)分隔。這個(gè)符號(hào)是(D)

　　A)，

　　B);

　　C)、

　　D)：

　　4.表達(dá)式3∧2*2+3 MOD 10\4的值是(C)

　　A)18

　　B)1

　　C)19

　　D)0

　　5.下面的變量名合法的是(A)

　　A)k_name

　　B)k ame

　　C)name

　　D)k-name

　　6.設(shè)有如下變量聲明Dim time1 As Date,為變量time1正確賦值的表達(dá)式是(A)

　　A)time1 = #11:34:04 #

　　B)time1 = Format(Time,"yy:mm:dd")

　　C)time1 = #"11:34:04"#

　　D)time1 = Format("hh:mm:ss",Time)

　　7.表達(dá)式12000 + "129" & 200的值是(B)

　　A)12329

　　B)"12129200"

　　C)"12000129200"

　　D)"12329"

　　8.若設(shè)a = 4,b = 5,則下列表達(dá)式值為真的是(D)

　　A)(True+a)>0 And b>10

　　B)a>b Or b>10-a

　　C)(False-b< 0) Eqv (a>b)

　　D)a>b Xor b+3>5

　　9.當(dāng)窗體上的文字或圖形被覆蓋或最小化后能恢復(fù)原貌，需要設(shè)置窗體的屬性是(D)

　　A)Appearance

　　B)Visible

　　C)Enable

　　D)Autoredraw

　　10.在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，編寫(xiě)以列程序：

　　Private Sub Command1_Click( )

　　Dim a As Integer

　　Static b As Integer

　　a = a + b

　　b = b + 4

　　Print a,b

　　End Sub

　　程序運(yùn)行后，單擊該命令按鈕三次，屏幕上顯示的值是(D)

　　A)4 12

　　B)0 4

　　C)4 8

　　D)8 12

　　11.Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，構(gòu)成對(duì)象的三要素是(B)

　　A)屬性、控件和方法

　　B)屬性、事件和方法

　　C)窗體、控件和過(guò)程

　　D)控件、過(guò)程和模塊

　　12.下列程序段錯(cuò)誤的是(A)

　　A)Dim a As Integer

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

　　B)Dim a(),b()

　　a = array(1,2,3,4):b = a

　　C)Dim a As Variant

　　a = array(1,"asd",true)

　　D)Dim a() As Variant

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

　　13.表達(dá)式String(1,"I am student") + Replace("am harass","rass","ppy") & "!"的值是(A)

　　A)"I am happy!"

　　B)"I am student I am s am harass studentam happy!"

　　C)"I am student am harass!"

　　D)"I am student am happy!"

　　14.下列程序段中，能正常結(jié)束循環(huán)的是(C)

　　A)I = 1

　　I = I + 2

　　Loop Until I = 10

　　B)I = 5

　　I = I + 1

　　Loop Until I < 0

　　C)I = 10

　　I = I + 1

　　Loop Until I > 0

　　D)I = 6

　　I = I - 2

　　Loop Until I = 1

　　15.引用列表框(List1)最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用的表達(dá)式是(B)

　　A)List1.List(List1.ListCount)

　　B)List1.List(List1.ListCount-1)

　　C)List1.List(ListCount)

　　D)List1.List(ListCount-1)

　　16.有如下程序：

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim x,y(3,3)

　　x = Array(1,2,3,4,5,6,7,8,9)

　　For i = 1 To 3

　　For j = 1 To 3

　　y(i,j) = x(i*j)

　　If(j > = i) Then Print y(i,j);

　　Next j

　　Next i

　　End Sub

　　運(yùn)行時(shí)輸入出的結(jié)果是(D)

　　A)1 2 3

　　2 4 6

　　4 6 8

　　B)1 2 3

　　2 4 6

　　3 6 9

　　C)1

　　2 4

　　3 6 9

　　D)1 2 3

　　4 6

　　17.在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，編寫(xiě)如下程序：

　　Private Sub Command1_Click()

　　Print pl(3,7)

　　End Sub

　　Public Function pl(x As Single,n As Integer) As Single

　　If n=0 Then

　　pl=1

　　Else

　　If n Mod 2=1 Then

　　pl=x*x+n

　　Else

　　P1=x*x-n

　　End If

　　End Function

　　程序運(yùn)行后，單擊該命令按鈕，屏幕上顯示的結(jié)果是(D)

　　A)2

　　B)1

　　C)0

　　D)16

　　18.以下屬性和方法中，可重定義坐標(biāo)系的是(C)

　　A)DrawStyle屬性

　　B)DrawWidth屬性

　　C)Scale方法

　　D)ScaleMode屬性

　　19.在窗體上畫(huà)一個(gè)文本框，然后編寫(xiě)如下事件過(guò)程：

　　Private Sub Form_Load()

　　Text1.Text = ""

　　Text1.SetFocus

　　For i = 1 To 5

　　Sum = Sum +i

　　Next i

　　Text1.text = Sum

　　End Sub

　　上述程序的運(yùn)行結(jié)果是(D)

　　A)在文本框中輸出15

　　B)在文本框中輸出0

　　C)在文本框中輸出不定值

　　D)出錯(cuò)

　　20.已知x代表某個(gè)百分制成績(jī)，下列程序段用于顯示對(duì)應(yīng)的五級(jí)制成績(jī)，正確的是(C)

　　A)If x > = 60 Then

　　Print "及格"

　　ElseIf x > = 70 Then

　　Print "中"

　　ElseIf x > = 80 Then

　　Print "良"

　　ElseIf x > = 90 Then

　　Print "優(yōu)"

　　Else

　　Print "不及格"

　　End If

　　B)If x < 90 Then

　　Print "良"

　　ElseIf x < 80 Then

　　Print "中"

　　ElseIf x < 70 Then

　　Print "及格"

　　ElseIf x < 60 Then

　　Print "不及格"

　　Else

　　Print "優(yōu)"

　　End If

　　C)If x > = 90 Then

　　Print "優(yōu)"

　　ElseIf x > = 80 Then

　　Print "良"

　　ElseIf x > = 70 Then

　　Print "中"

　　ElseIf x > = 60 Then

　　Print "及格"

　　Else

　　Print "不及格"

　　End If

　　D)Select Case x

　　Case x > = 90

　　Print "優(yōu)"

　　Case x > = 80

　　Print "良"

　　Case x > = 70

　　Print "中"

　　Case x > = 60

　　Print "及格"

　　Case Else

　　Print "不及格"

　　End Select

　　21.下面說(shuō)法不正確的是(D)

　　A)滾動(dòng)條的重要事件是Change和Scroll

　　B)框架的主要作用是將控件進(jìn)行分組，以完成各自相對(duì)獨(dú)立的功能

　　C)組合框是組合了文本框和列表框的特性而形成的一種控件

　　D)計(jì)時(shí)器控件可以通過(guò)對(duì)Visible屬性的設(shè)置，在程序運(yùn)行期間顯示在窗體上

　　22.在窗體上畫(huà)一個(gè)名稱(chēng)為Check1復(fù)選框，在程序運(yùn)行的過(guò)程中，若選中復(fù)選框，則Check1.value的值是(D)

　　A)True

　　B)2

　　C)0

　　D)1

　　23.在下列關(guān)于菜單的說(shuō)法中，錯(cuò)誤的是(B)

　　A)每一個(gè)菜單項(xiàng)都是一個(gè)控件，與其他控件一樣都有自己的屬性和事件

　　B)除了Click事件之外，菜單項(xiàng)還能響應(yīng)其他的如 DblClick等事件過(guò)程

　　C)菜單項(xiàng)的快捷鍵不可以任意設(shè)置

　　D)在程序執(zhí)行時(shí)，如果菜單項(xiàng)的Enabled屬性為False，則該菜單項(xiàng)變成灰色，不能被用戶(hù)選擇

　　24.下面關(guān)于多重窗體的敘述中，正確的是(B)

　　A)作為啟動(dòng)對(duì)象的Main 子過(guò)程只能放在窗體模塊內(nèi)

　　B)如果啟動(dòng)對(duì)象是Main 子過(guò)程，則程序啟動(dòng)時(shí)不加載任何窗體，以后由該過(guò)程根據(jù)不同情況決定是否加載窗體或加載哪一個(gè)窗體

　　C)沒(méi)有啟動(dòng)窗體，程序不能執(zhí)行

　　D)以上都不對(duì)

　　25.與鍵盤(pán)操作有關(guān)的事件有KeyPress、KeyUp和KeyDown事件，當(dāng)用戶(hù)按上并且釋放一個(gè)鍵后，這三個(gè)事件發(fā)生的順序是(A)

　　A)KeyDown、KeyPress、KeyUp

　　B)KeyDown、KeyUp、KeyPress

　　C)KeyPress、KeyDown、、KeyUp

　　D)沒(méi)有規(guī)律

　　26.要從磁盤(pán)上讀入一個(gè)文件名為“c:\filel.txt”的順序文件，下面程序段正確的是(A)

　　A)F="c:\filel.txt"

　　Open F For Input As # 1

　　B)F="c:\filel.txt"

　　Open "F" For Input As # 2

　　C)Open "c:\filel.txt" For Output As # 2

　　D)Open c:\filel.txt For Input As # 1

　　27.下列關(guān)于過(guò)程敘述不正確的是(D)

　　A)過(guò)程的傳值調(diào)用是將實(shí)參的具體值傳值遞給形參

　　B)過(guò)程的傳址調(diào)用是將實(shí)參在內(nèi)存的地址傳遞給形參

　　C)過(guò)程的傳值調(diào)用參數(shù)是單向傳遞的，過(guò)程的傳址調(diào)用參數(shù)是雙向傳遞的

　　D)無(wú)論過(guò)程傳值調(diào)用還是過(guò)程傳址調(diào)用，參數(shù)傳遞都是雙向的

　　28.執(zhí)行了下面程序后，組合框中數(shù)據(jù)項(xiàng)的值是(D)

　　Private Sub Form_Click()

　　For i=1 to 6

　　Combo1.AddItem i

　　Next i

　　For i= 1 to 3

　　Combo1.RemoveItem i

　　Next i

　　End Sub

　　A)1 5 6

　　B)1 3 5

　　C)4 5 6

　　D)2 4 6

　　29.若在Shape 控件內(nèi)以FillStyle屬性所指定的圖案填充區(qū)域，而填充圖案的線條顏色由FillColor屬性指定，非線條的區(qū)域由Back Color屬性填充，則應(yīng)(A)

　　A)將Shape控件的FillSte屬性設(shè)置為2至7間的某個(gè)值，BackStyle屬性設(shè)置為1

　　B)將Shape控件的FillSte屬性設(shè)置為0或1，BackStyle屬性設(shè)置為1

　　C)將Shape控件的FillSte屬性設(shè)置為2至7間的某個(gè)值，BackStyle屬性設(shè)置為0

　　D)將Shape控件的FillSte屬性設(shè)置為0或1，BackStyle屬性設(shè)置為0

　　30.下列程序的執(zhí)行結(jié)果是(A)

　　Private Sub Form_Activate()

　　Dim score(3) As Integer, total As Integer

　　Dim aa_score As Variant

　　score(1)=50: score(2) =14：score(3)=36

　　tota=0: i=0

　　For Each aa_score In score

　　i=i+1

　　total=tota + aa+_score

　　Print i,aa_score,total

　　End Sub

　　A)1 0 0

　　2 50 50

　　3 14 64

　　4 36 100

　　B)1 50 50

　　2 14 64

　　3 36 100

　　C)0 50 50

　　1 14 64

　　2 36 100

　　D)0 0 0

　　1 50 50

　　2 14 64

　　3 36 100

　　31.在Activate 事件過(guò)程中，寫(xiě)入下面的程序：

　　Option Base 1

　　Private Sub Form_Activate()

　　Dim t As Integer

　　Dim a( ) As Variant

　　a=Array (2,4,6,8,10,1,3,5,7,9)

　　For i=1 to 10\2

　　t= a(i)

　　a(i)=a(10 - i + 1)

　　a(10 - i + 1)=t

　　Next i

　　For j= 1 to 10

　　Print a(j);

　　Next j

　　End Sub

　　運(yùn)行程序后，顯示的結(jié)果是(C)

　　A)2 4 6 8 10 1 3 5 7 9

　　B)1 3 5 7 9 2 4 6 8 10

　　C)9 7 5 3 1 10 8 6 4 2

　　D)10 8 6 4 2 9 7 5 3 1

　　32.在Activate 事件過(guò)程中，寫(xiě)入下面的程序：

　　Private Sub Form _Activate()

　　Dim S As String, a As String, b As String

　　a= "*" : b =" $"

　　For i= 1 to 4

　　If i / 2= Int(i / 2) Then

　　S=String(Len (a)+i , b)

　　Else

　　S=String(Len(a) + i, a)

　　End If

　　Print S;

　　Next i

　　End Sub

　　運(yùn)行程序后，顯示結(jié)果是(C)

　　A)$$ ***$$$$*****

　　B)*$$**$$***$$$****$$$$

　　C)**$$$****$$$$$

　　D)$*$$**$$$***$$$$****

　　33.在窗體上設(shè)置相應(yīng)的控件，并在代碼窗口編寫(xiě)下列程序：

　　Printe Sub Form_Click()

　　Dim a As Long ,b As Long

　　a=InputBox("請(qǐng)輸入若干個(gè)整數(shù)")

　　Call P(a,b)

　　Print b

　　End Sub

　　Private Sub P(x As Long, y As Long)

　　Dim n As Integer, j As String*1, s As String

　　k=Len(Trim(Str(x)))

　　s=""

　　For i= K To 1 Step -1

　　j=Mid(x,i,1)

　　s=s+j

　　Next i

　　y=Val(s)

　　End Sub

　　運(yùn)行程序，在InputBox框中輸入123456,然后單擊"確定"按鈕，則輸出結(jié)果是(B)

　　A)123456

　　B)654321

　　C)135246

　　D)246135

　　34.設(shè)定文本框內(nèi)的文字內(nèi)容是否允許修改的屬性是(B)

　　A)Text

　　B)Locked

　　C)PasswordChar

　　D)Multiline

　　35.要建立一個(gè)學(xué)生成績(jī)的隨機(jī)文件，如下定義了學(xué)生的記錄類(lèi)型，由學(xué)號(hào)、姓名、三門(mén)課程成績(jī)(百分制)組成，下列程序段正確的是(C)

　　A)Type studl

　　no As Integer

　　name AS String

　　score(1 to 3) As Single

　　End Type

　　B)Type studl

　　no As Integer

　　name As String *10

　　score() As Single

　　End Type

　　C)Type studl

　　no As Integer

　　name As String *10

　　score(1 to 3) As Stngle

　　End Type

　　D)Type studl

　　no As Integer

　　name As String

　　score(1 to 3) As String

　　End Type

　　二、填空：每空2分，共30分。

　　1.有一圖書(shū)查詢(xún)系統(tǒng)，當(dāng)在組合框中選擇書(shū)名后，則在兩個(gè)文本框中顯示出作者和出版社，程序運(yùn)行后的界面如圖2-1所示，當(dāng)單擊“結(jié)束”按鈕時(shí)，結(jié)束程序。程序中有一個(gè)組合框、兩個(gè)文本框、三個(gè)標(biāo)簽及一個(gè)命令按鈕。請(qǐng)__[1]__、_[2]__和__[3]__處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。

　　Dim k As Integer

　　dim author(),b_concern

　　Privage Sub Combol_Click()

　　Dim n As Integer

　　n=Combol.ListIndex

　　Text(1)=[1]

　　Text(2)=[2]

　　End Sub

　　Private Sub Combol_Click()

　　[3]

　　End Sub

　　Private Sub Form_Load()

　　Combol.AddItem"哭泣的駱駝"

　　Combol.AddItem"雙城記"

　　Combol.AddItem"窗外"

　　Combol.AddItem"紅與黑"

　　Combol.AddItem"廢都"

　　author()=Array("三毛"，"荻更斯"，"瓊瑤"，"司湯達(dá)、"賈平凹")

　　b_concern()=Array("作家"，"商務(wù)"，"香江文藝"，"外國(guó)文學(xué)"、"上海")

　　End Sub

　　答案: author(n) ;b_concerm(n) ;End

　　2.在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)imer1的計(jì)時(shí)器和一個(gè)名稱(chēng)為L(zhǎng)abel1的標(biāo)簽。當(dāng)運(yùn)行程序后，將在標(biāo)簽中顯示當(dāng)前時(shí)間的數(shù)字時(shí)鐘(包括時(shí)：分：秒)。程序運(yùn)行后的結(jié)果如圖2-2所示。請(qǐng)?jiān)赺_[4]__處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。

　　Private Sub Form_Load()

　　Timer1.Interval=1000

　　End Sub

　　Private Sub Timer1_timer()

　　__[4]__

　　End Sub

　　答案: Labell.Caption=Time

　　3.在剛建立工程時(shí)，使窗體上的所有控件具有區(qū)別于默認(rèn)值的相同的字體格式，應(yīng)對(duì)__[5]__的__[6]__屬性進(jìn)行設(shè)置。

　　答案: Form窗體、 Font

　　4.整形變量M中存放了一個(gè)兩位數(shù)，要將兩位數(shù)交換位置，例如24變成42，實(shí)現(xiàn)的表達(dá)式為_(kāi)_[7]__

　　答案:((M mod 10)*10 + M\10)

　　5.下列程序運(yùn)行時(shí)，當(dāng)單擊窗體后，從鍵盤(pán)輸入一個(gè)字符，判斷該字符是字母字符、數(shù)字字符還是其他字符，并做相應(yīng)的顯示。窗體上無(wú)任何控件，并禁用Asc和Chr函數(shù)，Select Case 語(yǔ)句中禁用枚舉值。請(qǐng)?jiān)赺_[8]__、__[9]__、__[10]和__[11]__ 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。

　　Private Sub Form_Load()

　　Dim x As String*1

　　X=__[8]__(“請(qǐng)輸入單個(gè)字符”，“字符”)

　　Select Case UCase(__[9]__)

　　Case __[10]__

　　Print X+“是字母字符”

　　Case __[11]__

　　Print X+“是數(shù)字字符”

　　Case Else

　　Print X+“是其他字符”

　　End Select

　　End Sub

　　答案: InputBox; X"A"To"z" "0"To"9"

　　6.下列程序?yàn)榍骃n=a+aa+aaa+……+aa…a(n個(gè)a)，其中a為一個(gè)隨機(jī)數(shù)產(chǎn)生的1~9(包括1、9)中的一個(gè)正整數(shù)，n是一個(gè)隨機(jī)數(shù)產(chǎn)生的5~10(包括5、10)中的一個(gè)正整數(shù)，請(qǐng)?jiān)赺_[12]__和__[13]__處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。

　　Private Sub Form_Load()

　　Dim a As Integer,n As Integer, S As Double,Sn As Double

　　a=Fix(9*Rnd)+1

　　n=Fix(6*Rnd)+5

　　Sn=0

　　S=0

　　For i=1 to __[12]__

　　S=S+a*10^(i-1)

　　__[13]__

　　print Sn

　　Next i

　　End Sub