vb期末自測(cè)卷卷答案

2017-03-27

6220

答案僅供參考期末自測(cè)題（A 卷）一、單選題（每題1分，共25分）1、211.66.160.1 是Internet 上的( )。(A) IP地址 (B)域名 (

答案僅供參考

期末自測(cè)題（A 卷）

一、單選題（每題1分，共25分）

1、211.66.160.1 是Internet 上的( )。

(A) IP地址 (B)域名 (C)密碼 (D)軟件編號(hào)

2、在以下四個(gè)www 網(wǎng)址中，（）網(wǎng)址不符合www 網(wǎng)址書寫規(guī)則。

(A) www.163.com (B) www.gdpu.cn.edu

3、下列字符中，其ASCII 碼值最小的一個(gè)是（）。

(A) A (B) a (C) Z (D) X

4、下列軟件中屬于瀏覽器的是（）。

(A) Excel (B) Internet Explorer (C) QQ (D) Visual Basic

5、電子郵件(E-mail)地址的正確形式是（）。

(A)用戶名@域名 (B)用戶名#域名 (C)用戶名/域名 (D)用戶名. 域名

6、下面變量名不合法的是（）。

(A) a2 (B) abcd (C) a$x (D) Cd_E

7、下列表達(dá)式中，正確的Visual Basic表達(dá)式是（）。

(A) 2sin45° (B) ∏*R2 (C) x÷y×5 (D) （x 1）/（x^2 1）/2

8、下面邏輯表達(dá)式的值為真的是（）。

(A) "A"> "a" (B) "abc"> "bc"

9、下列過程定義語句說明不合法的是（）。

(A) Sub f1(ByRef n() As Integer) (B) Sub f1(ByRef n As Integer)

10、執(zhí)行下面的4個(gè)打印語句，將出錯(cuò)的是（）。

(A) Print a = 3 5 (B) Print "a="; 3 5

11、語句 For i = -3 To 20 Step 4 的循環(huán)次數(shù)為（）。

(A) 5 (B) 6 (C) 7 (D) 8

12、下列敘述中錯(cuò)誤的是（）。

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

13、窗體Form1里有兩個(gè)對(duì)象，分別是圖片框P1和標(biāo)簽L1。那么下面關(guān)于Print 方法的使用中，錯(cuò)誤的語句為（）。

(A) P1.Print 147 (B) Print 147

14、通過設(shè)置圖像框Image 的（）屬性，可以自動(dòng)調(diào)整圖形的大小，以適應(yīng)圖像框Image 的尺寸。

(A) Autosize (B) Stretch (C) AutoRedraw (D) Appearance

15、執(zhí)行語句 Print Left( "VisualBasic" , 3 ) ，在窗體上顯示的內(nèi)容是（）。

(A)VVV (B)Vis (C)s (D) sualBasic

16、以下敘述中正確的是（）。

(A) 窗體的Name 屬性指定窗體的名稱，用來標(biāo)識(shí)一個(gè)窗體

(B) 窗體的Name 屬性的值是顯示在窗體標(biāo)題欄中的文本

(D) 對(duì)象的Name 屬性值可以為空

17、設(shè)x 是整型變量，與函數(shù)IIf( x > 0 , -x , x ) 有相同結(jié)果的代數(shù)式是（）。

(A)|x| (B)-|x| (C) x (D )-x

18、將組合框Combo1當(dāng)前選中的項(xiàng)目?jī)?nèi)容賦值給變量S ，正確的語句是（）。

(A) S= Combo1.Text (B) S = Combo1.Value

19、建立一個(gè)圖書資料管理輸入界面，要求選擇圖書的借閱情況(借出/未借) 、語種（中文/英文/日文/其他）及分類（8類，存在重復(fù)分類，一本圖書既屬于1類，也同時(shí)屬于2類）。應(yīng)如何在窗體中利用單選鈕和復(fù)選框?qū)崿F(xiàn)（）。

(A) 用一組14個(gè)復(fù)選框來實(shí)現(xiàn)

(B) 將8種分類用一組8個(gè)復(fù)選框、借閱情況和語種用一組6個(gè)單選鈕實(shí)現(xiàn)

(D) 將8種分類用一組8個(gè)復(fù)選框、借閱情況用一組2個(gè)單選鈕、語種用一組4個(gè)單選鈕實(shí)現(xiàn)

20、已知A 、B 、C 中C 最小，則判斷A 、B 、C 可否構(gòu)成三角形三條邊長(zhǎng)的邏輯表達(dá)式是（）。

(A) A>=B And B>=C And C>0 (B) A C>B And B C >A And C>0

(C)(A B)>=C And A-B <=C) And C>0 (D) A B>C And A-B>C And C>0

21、執(zhí)行（）后，會(huì)彈出如下圖所示的窗口。

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

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

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

22、窗體有Text1文本框和Command1命令按鈕，并有

以下代碼：

Private Sub Command1_Click()

Dim n

If Text1.Text <> "123456" Then

n = n 1

Print "口令輸入錯(cuò)誤" & n & "次！"

End If

End Sub

希望程序運(yùn)行時(shí)若輸入口令不正確，顯示出錯(cuò)的次數(shù)（如下面

圖），但實(shí)際運(yùn)行時(shí)沒有出現(xiàn)預(yù)期效果（如上面圖）。修改方案中正

確的是（）。

(A)在Dim n后添加一句：

n=0

(B)將 Dim n改為Dim n

(C)將Dim n放到“通用”-“聲明”處

(D)將Print "口令輸入錯(cuò)誤" & n & "次！" 改為Print "口令輸入錯(cuò)誤" n "次！"

23、剛建立一個(gè)新的標(biāo)準(zhǔn)EXE 工程后，不在工具箱中出現(xiàn)的控件是（）。

(A)單選按鈕 (B) 圖片框 (C) 通用對(duì)話框 (D) 文本框

24、設(shè)有語句Open "c:Test.Dat" For Output As #1，則以下錯(cuò)誤的敘述是（）。

(A) 該語句打開C 盤根目錄下一個(gè)已存在的文件Test.Dat

(B) 該語句在C 盤根目錄下建立一個(gè)名為Test.Dat 的文件

(D) 執(zhí)行該語句后，就可以通過Print #語句向文件Test.Dat 中寫入信息

25、滾動(dòng)條產(chǎn)生Change 事件是因?yàn)椋? ）值改變了。

(A) Max (B) Min (C) Value (D) Caption

二、程序閱讀題（每題3分，共15分）

1、執(zhí)行下面的程序段后，列表框List1中余下的兩項(xiàng)為 1,3 。

For i = 1 To 4

List1.AddItem i

Next i

For i = 1 To 2

List1.RemoveItem i

Next i

2、執(zhí)行下面的程序段后，輸出結(jié)果為 25,21 。

x = 5

For I = 1 To 20 Step 2

x = x I 5

Next I

Print x, I

3、執(zhí)行下面的程序段后，則在Text1中顯示的值為 24 。

Dim A(10, 10), i, j

For i = 1 To 10

For j = 1 To 10

A(i, j) = i j

Text1.Text = A(5, A(2, 3)) A(7, A(3, 4))

4、執(zhí)行下面的程序段后，在輸入對(duì)話框中分別輸入321和456，則窗體上的輸出結(jié)果為 321456 。

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

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

Print a b

5、程序運(yùn)行后，單擊命令按鈕，則兩個(gè)標(biāo)簽中顯示的內(nèi)容分別為 5,18 。

Private Sub Command1_Click()

Dim x, y

x = 5: y = 3

Call proc(x, y)

Label1.Caption = x

Label2.Caption = y

End Sub

Private Sub proc(ByVal a As Integer, b As Integer)

a = a * b

b = a b

End Sub

三、填空題（每空2分, 共40 分）

1、請(qǐng)完善程序，功能是：隨機(jī)生成一個(gè)8位數(shù)的整數(shù)，統(tǒng)計(jì)0～9這10個(gè)數(shù)字在生成的8位整數(shù)中出現(xiàn)的次數(shù)，并顯示統(tǒng)計(jì)結(jié)果。

Dim i, s&, j, a(0 To 9) As Integer

s = _INT(RND*9000000000) 10000000

Print "這個(gè)八位數(shù)是";s

Print "其中"

For j = 1 To 8

c = Val(Mid(s, j, 1))

a(c) = _a(c) 1__ _____

Next J

For i = 0 To 9

If a(i) <> 0 Then

Print i; "出現(xiàn)的次數(shù)";___ a(1) _____

___ end if _____

Next i

2、窗體上有一個(gè)名為L(zhǎng)ist1的列表框，一個(gè)名稱為Text1的文本框，一個(gè)命令按鈕，標(biāo)題分別為“計(jì)算”。編寫代碼實(shí)現(xiàn)：

1）程序啟動(dòng)時(shí)，將所有的3位素?cái)?shù)添加到列表框中。函數(shù)Prime 用于判斷一個(gè)數(shù)是否為素?cái)?shù)。請(qǐng)完善程序。

2）單擊“計(jì)算”按鈕，則對(duì)List1中的數(shù)進(jìn)行累加求和，并在文本框中顯示計(jì)算結(jié)果。請(qǐng)完善程序。

Function Prime( n ) As Boolean '判斷素?cái)?shù)函數(shù)

Dim i

Prime = true

For i = 2 To Sqr(n)

If n mod i=0 Then Prime = False

End Function

Private Sub Form_ load ()

Dim i, j, t As Boolean

For i = 100 To 999

If prime(i)=true

Then List1.AddItem i

Next i

End Sub

Private Sub Command1_Click() ‘計(jì)算

Dim i，sum

For i = 0 To list1.listcount-1

Sum = sum list1.list(i)

Text1.Text = Sum

End Sub

3、將“ABC ” 添加到列表框List1中第三項(xiàng)的語句為： list1.additem “ABC”,2 。

?1 x

4、求分段函數(shù) y =?2?x 2x (x ≥0) (x <0) 的值，可用y = IIf(x>0,1 x,x^2 ︱2x ︱) 。

5、設(shè)置文本框Text1中的文本字體顏色為紅色的語句為： text1.forecolor=vbred 。

6、命令按鈕Command1左移200，實(shí)現(xiàn)語句是 command1.left=command1.left-200 。

7、將D:根目錄下的順序文件t1.txt 內(nèi)容讀入變量S ，并顯示在文本框Text1中；繼而將其中的字母（包括大小寫）、數(shù)字及其它字符的分別串成不同的字符串，最后將結(jié)果顯示在圖形框P1中。請(qǐng)完善程序段。

Dim s$, i, c$, n1$, n2$, n3$

Open "D:t1.txt" For input As #1

Do While Not Eof(1)

s = Input(1,1) '文件的內(nèi)容逐個(gè)讀入變量s

Text1.Text = Text1.Text & s

Loop

Close #1

For i = 1 To Len(s)

c = Mid( s,i,1 )

Select Case c

Case “A ” to ”Z ”, ”a ” to ”z ”

n1 = n1 & c

Case "0" To "9"

n2 = n2 & c

case else

n3 = n3 & c

End Select

P1.Print "字母串為："; n1

P1.Print "數(shù)字串為："; n2

P1.Print "其它字符串為："; n3

四、程序設(shè)計(jì)題（每題10分，共20分）

1、編程計(jì)算圓周率 Pi的近似值。計(jì)算公式如下，一直到 1/i 小于0.0000001為止。

2、編寫程序，形成數(shù)列1，1，1，3，5，9，17，……的前N 項(xiàng)（該數(shù)列的規(guī)律是從第四項(xiàng)開始，每一項(xiàng)是前三項(xiàng)之和），直到某項(xiàng)的值超過50000。

期末自測(cè)題（B 卷）

一、單選題（每題1分，共25分）

1、211.66.160.1 是Internet 上的( A )。

(A) IP地址 (B)域名 (C)密碼 (D)軟件編號(hào)

2、www.gdpu.edu.cn 是Internet 上的( B )。

(A) IP地址 (B)域名 (C)密碼 (D)軟件編號(hào)

3、計(jì)算機(jī)病毒是（D ）。

(A) 一種令人生畏的傳染病 (B) 一種使硬盤無法工作的細(xì)菌

4、下列表示存儲(chǔ)容量的數(shù)據(jù)中，（）是最大的。

(A) 1.44MB (B) 20480KB (C) 1 GB (D)48657 Byte

5、下列設(shè)備中，不能作為計(jì)算機(jī)輸出設(shè)備的是（）。

(A)顯示器 (B)繪圖儀 (C)掃描儀 (D)打印機(jī)

6、下列字符序列中，可以作為變量名的是（）。

(A) a24 (B) ab*d (C) a$x (D) Cd E

7、表達(dá)式 5 Mod 3 35*2的值是（）。

(A) 0 (B) 2 (C) 4 (D) 6

8、改變控件在窗體中的上下位置，應(yīng)修改控件的（）屬性。

(A) Top (B) Left (C) Width (D) Right

9、下列語句錯(cuò)誤的是（）。

(A) Exit For (B) Exit If (C) Exit Do (D) Exit Sub

10、在默認(rèn)情況下，InputBox 函數(shù)返回值的類型為（）。

(A) 數(shù)值 (B)字符串 (C) 變體 (D) 數(shù)值或字符串(視輸入的數(shù)據(jù)而定)

11、窗體上有一水平滾動(dòng)條，其Max 為1，Min 為100。以下敘述中正確的是（）。

(A) 程序運(yùn)行時(shí)，若使?jié)L動(dòng)塊向左移動(dòng)，滾動(dòng)條的Value 屬性值會(huì)增大

(B) 程序運(yùn)行時(shí)，若使?jié)L動(dòng)塊向左移動(dòng)，滾動(dòng)條的Value 屬性值會(huì)減小

(D) 由于滾動(dòng)條的Max 值小于Min 值，程序運(yùn)行時(shí)滾動(dòng)條的長(zhǎng)度會(huì)縮為一點(diǎn)，滑塊無法移動(dòng)

12、在窗體上有兩個(gè)名分別為Op1、Op2的單選按鈕，一個(gè)名稱為Ck1的復(fù)選框。程序運(yùn)行后，要求Op1和Ck1被選中，以下能實(shí)現(xiàn)上述操作的程序段是（）。

(A) Op1.Value = True (B) Op1.Value = True Ck1.Value = True Ck1.Value = 1

Ck1.Value = 0 (D) Op1.Value = True Ck1.Value = 2 13、設(shè)x=30,執(zhí)行語句y = IIf(x > 10, x 10, IIf(x < 0, x ^ 2, x ^ 3))后，y 值是（）。

(A) 30 (B) 40 (C) 900 (D) 2700

14、以下定義數(shù)組或給數(shù)組元素賦值的語句中，正確的是（）。

（A ）Dim a As Variant （B ）Dim a(10) As Integer

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

（C ）Dim a(10)

a(1)="ABCDE" （D ）Dim a(3),b(3) As Integer a(0)=0:a(1)=1:a(2)=2:b=a

15、下列語句中錯(cuò)誤的是（）。

(A) Text1.Text = List1.Text (B) Label1.Caption = List1.Text

16、下列敘述中錯(cuò)誤的是（）。

(A) 列表框與組合框都有List 屬性 (B) 列表框有Selected 屬性，而組合框沒有

17、如果要在菜單中添加一個(gè)分隔線，則應(yīng)將其Caption 屬性設(shè)置為（）。

(A) = (B) * (C) & (D) -

18、將組合框Combo1當(dāng)前選中的項(xiàng)目下標(biāo)賦值給變量S ，正確的語句是（）。

(A) S= Combo1.Text (B) S = Combo1.ListIndex

19、要向文件t1.txt 添加數(shù)據(jù)，正確的文件打開命令是（）。

(A) Open "t1.txt" For Write As #1 (B) Open "t1.txt" For Append As #1

20、表達(dá)式Abs(-5) Len("ABCDE")的值是（）。

(A) -5ABCDE (B) 5ABCDE (C) 0 (D) 10

21、執(zhí)行語句 Print Mid( "VisualBasic" , 3 ) ，在窗體上顯示的內(nèi)容是（）。

(A)s (B)Vis (C)sua (D) sualBasic

22、VB 中窗體、圖片框或圖像框裝入圖形可使用（）函數(shù)。

(A) LoadPicture (B) PictureLoad (C) LoadImage (D) Imageload

23、有如下聲明語句：Dim str1 As String*5，則執(zhí)行語句Str1= "Visual Basic " 后，str1的值是（）。

(A) Visual (B) Visua (C) Visual Basic (D) V

24、窗體上有兩個(gè)列表框List1和List2，List1中有若干項(xiàng)目（如下圖所示），并有下面程序：

Private Sub Command1_Click()

For k = 0 To List1.ListCount - 1

If List1.Selected(k) Then

List2.AddItem List1.List(k)

List1.RemoveItem k

End If

Next k

End Sub

程序運(yùn)行時(shí)若按圖示在List1中選中2個(gè)項(xiàng)目并單擊命令按鈕，則產(chǎn)生的結(jié)果是（）。

(A)在List2中添加了“物理”、“計(jì)算機(jī)”兩項(xiàng)

(B)在List1中刪除了“物理”、“計(jì)算機(jī)”兩項(xiàng)

(C)同時(shí)產(chǎn)生(A) 和(B) 的結(jié)果

(D)出現(xiàn)錯(cuò)誤提示

25、能表示身高H 超于1.7米且體重W 小于62.5千克的邏輯表達(dá)式是（）。

(A) H > 1.7 And W <= 62.5 (B) H <= 1.7 Or W >= 62.5

二、程序閱讀題（每題3分，共15分）

1、程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為 1,3,5 。

Private Sub Command1_Click()

Dim num As Integer

num = 1

Do Until num > 6

Print num;

num = num 2.4

Loop

End Sub

2、以下程序片段運(yùn)行后輸出a 的值是 3 。

a = 0

For i = 1 To 3

For j = 1 To 3

If j < i Then a = a 1

Next j

Next i

Print a

3、程序運(yùn)行后，單擊命令按鈕，則兩個(gè)標(biāo)簽中顯示的內(nèi)容分別為 25,3 。

Private Sub Command1_Click()

Dim x, y

x = 5: y = 3

Call proc(x, y)

Label1.Caption = x

Label2.Caption = y

End Sub

Private Sub proc(a As Integer, ByVal b As Integer)

a = a* a

b = b b

End Sub

4、程序運(yùn)行后，單擊命令按鈕，則變量 a 的值是負(fù) 。

Private Sub Command1_Click()

temp = Int (-0.8)

Select Case temp

Case Is < 0

a = "負(fù)"

Case 0

a = "零"

Case Is > 0

a = "正"

End Select

End Sub

5、執(zhí)行下面的程序段后，輸出結(jié)果為 93 。

Dim A(10, 10), i, j

For i = 1 To 10

For j = 1 To 10

A(i, j) = i * j

Print A(5, A(2, 3)) A(7, A(3, 3))

三、填空題（共40 分，每空2 分）

1、要使用下列For 循環(huán)執(zhí)行20次，請(qǐng)?jiān)谙聞澗€處填入正確的值。

For k= 97 To –2 Step -5

2、命令按鈕Command1右移200，實(shí)現(xiàn)語句是 command1.left=command1.left 200 。

3、設(shè)a 、b 、c 都是整型變量，判斷“a 和b 中有一個(gè)小于c ”的表達(dá)式是 a

4、請(qǐng)完善程序，功能是：在文本框Text1中輸入一串字符，在窗體上輸出其中出現(xiàn)頻率最高的字母（不區(qū)分大小寫）及其出現(xiàn)次數(shù)。例如：輸入“This is a beautiful world. ”則輸出“使用頻率最高的是i ，共出現(xiàn)3次?！?/p>

Private Sub Command1_Click()

Dim s$, a(65 To 90), i, max, n

s = Text1.Text

For i = 1 To Len(s)

n = Asc( mid(s,i,1) )

If n >= 65 And n <= 90 Then

a(n)=a(n) 1

End If

max = 65

For i = 65 to 90

If a(i) > a(max) Then max=i

Print "使用頻率最高的是:" & chr(max) & ",共出現(xiàn)" & a(max) & " 次。"

End Sub

5、窗體上有一個(gè)名為L(zhǎng)ist1的列表框，一個(gè)名稱為Text1的文本框，一個(gè)命令按鈕，標(biāo)題分別為“計(jì)算”。

国产成人毛片视频|星空传媒久草视频|欧美激情草久视频|久久久久女女|久操超碰在线播放|亚洲强奸一区二区|五月天丁香社区在线|色婷婷成人丁香网|午夜欧美6666|纯肉无码91视频

相關(guān)推薦