陜西師范大學(xué)

內(nèi)
部
題
庫(kù)

教育
（yuyueshool）
編制
《VB程序設(shè)計(jì)》作業(yè)
一．選擇題
1．在Visual Basic中，稱對(duì)象的數(shù)據(jù)為_(kāi)____。
(A) 屬性 (B) 方法 ? 事件 (D) 封裝
2．下列選項(xiàng)中為字符串常量的是_____。
(A) .(B)“6/12/2001” ? #6,12,2001# (D) 6,12,2001#
3．若要將某命令按鈕設(shè)置為默認(rèn)命令按鈕, 則應(yīng)設(shè)置為True的屬性為_(kāi)____。
(A) Value (B) Cancel ? Default (D) Enabled
4．設(shè)置命令按鈕的標(biāo)題文字時(shí), 應(yīng)改變的屬性是_____。
(A) Text 　 (B) Name ? Caption (D) (名稱)
5．若要獲得滾動(dòng)條的當(dāng)前值, 可訪問(wèn)的屬性是_____。
(A) Text 　 (B) Value ? Max .(D) Min
6．若要設(shè)置文本框中所顯示的文本顏色, 使用的屬性為_(kāi)____。
(A) BackColor .(B) FillColor ? ForeColor . . (D) BackStyle
7．能對(duì)順序文件進(jìn)行輸出的語(yǔ)句是_____。
(A) Put (B) Get ? Write (D) Read
8．有如下程序, 該程序執(zhí)行后, 在輸入框中輸入數(shù)字15.875, 則執(zhí)行結(jié)果為_(kāi)____。
I = InputBox(“請(qǐng)輸入一個(gè)數(shù)據(jù)”)
j = InStr(I,“.”)
Print j
(A) 3 (B) 15 ? 0.275 (D) 16
9．有如下程序, 該程序執(zhí)行的結(jié)果為_(kāi)____。
Private Sub Form_Click( )
Dim I As Integer, j As Integer, a As Integer, b As Integer
I = 1472.25: j = 1472.55: a = Clnt(I): b = Clnt(j)
Print a,b
End Sub
(A) 1472.25 1473.25 (B) 1472 1473
? 1473 1473 (D) 1472 1472
10．有如下程序, 該程序執(zhí)行的結(jié)果為_(kāi)____。
Private Sub Command1_Click( )
Dim k As Integer
n = 5: m = 1: k = 1
Do While k<= n
m = m * 2
k = k + 1
Loop
Print m
End Sub
(A) 1 (B) 5 ? 32 (D) 40
11．以下程序輸出的結(jié)果為_(kāi)____。
Private Sub Command1_Click( )
X = 1: Y = 4
Do Until Y>4
X=XY
Y=Y+1
Loop
Print X
End Sub
(A) 4 (B) 8 ? 12 (D) 16
12．以下列程序段執(zhí)行后, 整形變量n的值為_(kāi)____。
n = 0
For I = 1 to 20 step 5
n = n + 1
Next I
(A) 50 (B) 4 ? 15 (D) 210
13．下列程序在執(zhí)行時(shí), 在輸入框中輸入15, 則運(yùn)行結(jié)果是_____。
Private Sub Command1_Click( )
Dim Number As Single
Number = InputBox(“請(qǐng)輸入一個(gè)數(shù)字”)
Select Case Number
Case 1 To 5
Form1.Print“你使用了to關(guān)鍵字”
Case 6，7，8，9，10
Form1.Print“你使用了列表的方式”
Case Is>10
Form1.Print“你使用了Is關(guān)鍵字”
Case Else
Form1.Print“其他數(shù)值顯示”
End Select
End Sub
(A) 你使用了to關(guān)鍵字 (B) 你使用了列表的方式
? 你使用了Is關(guān)鍵字 (D) 其他數(shù)值顯示
14．在窗體上添加一個(gè)命令按鈕, 其名為Command1, 然后編寫(xiě)代碼如下：
Private Sub Command1_Click( )
Dim arr(5 ) As Integer, arr1(5 ) As Integer
n = 3
For I = 1 To 5
arr(I ) = I
arr1(n ) = 2n+i
Next I
Print arr1(n)；arr(n)
End Sub
程序運(yùn)行結(jié)果為_(kāi)____。
(A) 3 11 (B) 3 13 ? 13 3 (D) 11 3
15．有如下函數(shù)過(guò)程：
Function gys(ByVal x As Integer, ByVal y As Integer) As Integer
Do While y<>0
reminder = x Mod y
x = y: y = reminder
Loop
gys = x
End Function
以下是調(diào)用該函數(shù)的事件過(guò)程, 該程序的運(yùn)行結(jié)果為_(kāi)____。
Private Sub Command1_Click( )
Dim a As Integer
Dim b As Integer
a = 100: b = 25
x = gys(a, b)
Print x
End Sub
(A) 0 (B) 25 ? 50 (D) 100
16．下列操作不能打開(kāi)屬性窗口的是_____。
(A) 執(zhí)行【視圖】菜單中的【屬性窗口】命令 (B) 按F4鍵
? 按Ctrl+T 　　　　　　　(D) 單擊工具攔上的屬性窗口按鈕
17． 下列敘述不正確的是_____。
（A）一個(gè)目標(biāo)程序所需的所有文件的集合稱為工程
（B）VB的工程文件的擴(kuò)展名為.vbp
（C）工程文件中可包括窗體文件．標(biāo)準(zhǔn)模塊文件
（D）工程文件中除了窗體文件是可選的外，其他文件都是必須的
18．下列各組變量聲明正確的是_____。
(A) Dim abx as integer, num as single (B) Dim I%，n$ as integer
? Dim a%，b%，c%，a$ .(D) Public dim n%
19．如果想在程序中反復(fù)使用一個(gè)數(shù)據(jù)“”，為了避免在編寫(xiě)程序時(shí)反復(fù)輸入這個(gè)數(shù)據(jù)，也為了一次能夠修改程序中所有用到這個(gè)數(shù)據(jù)的語(yǔ)句，可以采用_____。
(A) 將這個(gè)數(shù)據(jù)聲明為字符串常量, 用一個(gè)常量標(biāo)志符代表它
(B) 將這個(gè)數(shù)據(jù)聲明為字符串變量, 用一個(gè)常量標(biāo)志符代表它
? 將這個(gè)數(shù)據(jù)聲明為日期型常量, 用一個(gè)常量標(biāo)志符代表它
(D) 將這個(gè)數(shù)據(jù)聲明為日期型變量, 用一個(gè)常量標(biāo)志符代表它
20．要求設(shè)置定時(shí)器時(shí)間間隔為0.5秒, 那么它的Interval屬性值應(yīng)該等于_____。
(A) 5000 (B) 500 ? 50 (D) 5
21．在Select Case結(jié)構(gòu)中, 使用“to表達(dá)式”來(lái)指定一個(gè)范圍時(shí)，寫(xiě)在前面的值.必須是_____的。
（A）隨便 （B）0 （C）較大 （D）較小
22．圖像框中的Stretch屬性為True時(shí), 其作用是_____。
( A) 只能自動(dòng)設(shè)置圖像框長(zhǎng)度 (B) 圖形自動(dòng)調(diào)整大小以適應(yīng)圖像框控件
? 只能自動(dòng)縮小圖像 (D) 只能自動(dòng)擴(kuò)大圖像
23．圖像框(Image)和圖片框(PictureBox)有所不同, 以下敘述中正確的是_____。
(A) 圖片框比圖像框占內(nèi)存少 (B) 圖像框內(nèi)還可以包括其他控件
? 圖片框有Stretch屬性而圖像框沒(méi)有 (D) 圖像框有Stretch屬性而圖片框沒(méi)有
24．當(dāng)條件為5<x<10時(shí), x = x + 1, 則以下語(yǔ)句正確的是_____。
(A) If 5<x<10 Then x = x + 1 (B) If 5<x or x<10 Then x = x + 1
? If 5<x and x<10 Then x = x + 1 (D) If 5<x xor x<10 Then x = x + 1
25．“x是小于100的非負(fù)數(shù)”，用VB表達(dá)式表示正確的是_____。
(A) 0≤x<100 (B) 0<=x<100 ? x>=0 and x<100 (D) 0<=x or x<100
26．在 Sub過(guò)程與Function過(guò)程的描述中正確的是_____。
(A) Sub過(guò)程可以使用Call語(yǔ)句或直接使用過(guò)程名調(diào)用, 而Function過(guò)程不能
(B) Function過(guò)程可以有參數(shù), 而Sub過(guò)程沒(méi)有
? 兩種過(guò)程的參數(shù)傳遞及返回方式相同
(D) Sub過(guò)程不能直接返回值， 而Function過(guò)程可以通過(guò)過(guò)程名直接返回值
27．下列程序的執(zhí)行結(jié)果為_(kāi)____。
Private Sub Command1_Click( )
k = 0
For I = 1 To 3
a = I ^ I ^ k
Print a；
Next I
End Sub
（A）111 （B）123 （C）000 （D）149
28．有如下函數(shù)：
Private Function firstfunc(x As Integer, y As Integer) As Integer
Dim n As Integer
Do While n<= 4
x = x + y : n = n + 1
Loop
firstfunc = x
End Function
調(diào)用該函數(shù)的事件過(guò)程如下：
Private Sub Command1_Click( )
Dim x As Integer, y As Integer, n As Integer, z As Integer
x = 1: y = 1
For n = 1 To 3
z = firstfunc(x, y)
Next n
Print z
End Sub
該事件過(guò)程的執(zhí)行結(jié)果為_(kāi)____。
（A）1 （B）3 （C）16 （D）9
29．有如下語(yǔ)句, 執(zhí)行后該段語(yǔ)句的循環(huán)次數(shù)是_____。
Private Sub Command1_Click( )
Dim s As Integer, I As Integer, j As Integer
For I = 1 To 3
For j = 3 To 1 Step－1
s = s + 1
Next j
Next I
Print s
End Sub
（A）9 （B）10 （C）3 （D）4
30．在窗體上畫(huà)一個(gè)命令按鈕(Commdna1)和一個(gè)文本框(Text1), 然后編寫(xiě)如下程序：
Function fun (ByVal x As Integer, ByVal y As Integer) As Integer
fun = Iif (x<y, x, y)
End Function
Private Sub Command1_Click( )
　　 a = 5 : b = 10
Text1.Text = Str(fun(a, b))
End Sub
（A）5 （B）10 （C）20 （D）15
31．在Visual Basic 6.0集成開(kāi)發(fā)環(huán)境中, 功能鍵F5的功能是_____.
(A) 進(jìn)入幫助窗口 (B) 進(jìn)入編輯狀態(tài)
? 進(jìn)行上下窗口的切換 (D) 運(yùn)行程序
32．MsgBox函數(shù)返回值的類型是_____.
(A) 數(shù)值 (B) 字符串
? 變體 (D) 數(shù)值或字符串(視輸入的數(shù)據(jù)而定)
33．表達(dá)式FIX(-23.87)+INT(24.56)的值為_(kāi)____.
(A) -1 　　 (B) 0 　　　　　? 1 　　　　 (D) 2
34．m , n是整數(shù), 且n>m, 在以下四個(gè)語(yǔ)句中, 能將y賦值為一個(gè)m～n之間(含m, n)任意整數(shù)即滿足m≤y≤n的是_____.
(A) y = INT(RND*(n-m+1))+m (B) y = INT(RNDn)+m
? y = INT(RNDm)+n (D) y = INT(RND*(n-m))+m
35．確定復(fù)選框是否選中，可訪問(wèn)的屬性是_____.
(A) Checked (B) Selected 　　? Caption 　 (D) Value
36．下列關(guān)于KeyDown事件的參數(shù)的說(shuō)法錯(cuò)誤的是_____.
(A) Shift參數(shù)是KeyDown事件發(fā)生時(shí), Shift, Ctrl和Alt三個(gè)鍵的狀態(tài)
(B) 參數(shù)KeyCode與KeyPress事件的參數(shù)KeyAscii是一樣的
? KeyDown事件的參數(shù)與KeyUp事件的參數(shù)一致
(D) KeyDown事件的參數(shù)不能省略
37．下面敘述中不正確的是_____.
(A) 對(duì)順序文件中的數(shù)據(jù)操作只能按一定的順序執(zhí)行
(B) 順序文件結(jié)構(gòu)簡(jiǎn)單
? 能同時(shí)對(duì)順序文件進(jìn)行讀寫(xiě)操作
(D) 順序文件的數(shù)據(jù)是以字符(ASCII碼)的形式存儲(chǔ)的
38．設(shè)置組合框的風(fēng)格, 重要的屬性是_____.
(A) Backstyle (B) Borderstyle ? Style 　 (D) Sorted
39．下列程序：
Private Sub Form_Click( )
For j = 10 To 6 Step -1
k = j
Next j
Print k；j
End Sub
運(yùn)行時(shí)輸出的結(jié)果是_____.
(A) 5 5 　 (B) 5 6 　 ? 6 5 　　 (D) 6 6
40．下列程序：
Private Sub Form_Click( )
a = 100
Do
s = s + a
a = a + 1
Loop While a>111
Print a
End Sub
運(yùn)行時(shí)輸出的結(jié)果是_____.
(A) 100 　　 (B) 120 　　 ? 201 　　 (D) 101
41．下列程序：
Private Sub Form_Click( )
a$ =“等級(jí)考試”
b$ =“＋ － * /”
For j = 1 To 4
c$ = c$+Mid$(a$,j,1)+Right$(b$,1)NextjPrintc$
End Sub
運(yùn)行時(shí)輸出的結(jié)果是_____.
(A) 等-級(jí)-考-試- (B) 等級(jí)考試- 　? 等/級(jí)/考/試/ 　(D) 出錯(cuò)
42．下列程序：
Private Sub Form_Click( )
x = Val(InputBox(“x=”))
Print fny（x）
End Sub
Private Function fny（x）
If x>0 Then
fny = 1
Else
fny = -1
End If
End Function
運(yùn)行時(shí)從鍵盤(pán)為變量x輸入數(shù)據(jù)5，輸出的結(jié)果是_____.
(A) -1 　　　　　　 (B) 0 　　　　 ? 1 　　　 (D) 5
43．下列程序：
Private Sub Form_Click( )
Dim a As Integer
For i = 1 To 10
Call abcd(a)
Next i
Print a
End Sub
Sub abcd(x)
x = x + 1
End Sub
運(yùn)行后輸出的結(jié)果是_____.
(A) 1 (B) 1 2 3 4 5 6 7 8 9 10
? 10 (D) 顯示出錯(cuò)信息
44．下列程序：
Private Sub Form_Click( )
Dim a As String, b As String, c As String, d As String
a$ =“124”：b =“123”
b$ =“123”：d =“123”
Print a + b$ + c +d$
End Sub
運(yùn)行時(shí)輸出的結(jié)果是_____.
(A) 124123123 (B) 4123
? 492 (D) 顯示出錯(cuò)信息
45．下列程序：
Dim b
Private Sub Form_Click( )
a = 1：b = 1
Print“A=”；a；“,B=”；b
Call mult（a）
Print“A=”；a；“,B=”；b
End Sub
Sub mult（x）
x = 2 * x
b = 3 * b
End Sub
運(yùn)行后輸出的結(jié)果是_____.
(A) A=1, B=1 (B) A=1, B=1 ? A=1, B=1 (D) A=1, B=1
A=2, B=3 A=2, B=1 . A=1, B=1 A=1, B=3
46．以下選項(xiàng)中, 不是Visual Basic 6.0默認(rèn)控件名稱的是_____。
(A) Command1 (B) Text1 　　? Labell 　　 (D) Change
47．復(fù)選框的Value取值不包括_____。
(A) 0 　…(B) 1 ? 2 . (D) 3
48．獲得隨機(jī)文件記錄長(zhǎng)度, 應(yīng)使用_____進(jìn)行計(jì)算。
(A) FileLen函數(shù)和FrreFile函數(shù) 　　　 (B) Lof函數(shù)和Len函數(shù)
? Eof函數(shù)和Len函數(shù) 　　　 (D) Eof函數(shù)和Lof函數(shù)
49．計(jì)算a的自然對(duì)數(shù)使用的Visual Basic表達(dá)式是_____。
(A) Log (a) 　　. (B) Lg (a) 　 ? Ln (a) 　　 (D) Lge (a)
50．假定Bln1是列表框, 給列表框增加一個(gè)列表項(xiàng)正確的方法是_____。
(A) Bln1 = Add“計(jì)算機(jī)” .(B) Bln1.Add“計(jì)算機(jī)”
? Bln1 = Additem“計(jì)算機(jī)” (D) Bln1.Additem“計(jì)算機(jī)”
51．設(shè)有數(shù)組聲明語(yǔ)句
Option Base 1
Dim A（-3 to -1，2）As Integer
則數(shù)組A中定義的數(shù)組元素有_____。
(A) 6個(gè) 　 (B) 9個(gè) 　 ? 12個(gè) (D) 15個(gè)
52．決定窗體標(biāo)題條顯示內(nèi)容的屬性是_____。
(A) Name 　　　 (B) Text . ? Caption 　　 (D) Top
53．下列程序：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Print Ucase (Chr (KeyAscii))
End Sub
運(yùn)行后在文本框中輸入a不按回車鍵, 窗體上的輸出結(jié)果是_____。
(A) A 　　　　　 (B) a 　　 ? 65 　　　　 (D) 沒(méi)有輸出
54．下列程序：
Private Sub Form_Click( )
a = 3：b = 4
For i = 1 To 1
y = cacl（a，b）
Next i
End Sub
Public Static Function cacl（x，y）
a = a + 1
cacl = x * y * a
End Function
單擊窗體后，輸出的結(jié)果是_____。
(A) 10 　　　(B) 11 　　? 12 　　　 (D) 13
55．下列程序：
Private Sub Form_Click( )
score = Val (InputBox (“40”，“60”，“80”))
Select Case score
Case Is< 60：a$ =“F”
Case 60 To 69：a$ =“D”
Case 70 To 79：a$ =“C”
Case 80 To 89：a$ =“B”
Case Else：a$ =“A”
End Select
Print a$
End Sub
運(yùn)行時(shí)單擊窗體后，按回車鍵，輸出的結(jié)果是_____。
(A) 錯(cuò)誤信息 　　　 (B) D ? C 　　 (D) B
56．下列程序：
Private Sub Form_Click( )
s = 0 : i = 1
Do While i <= 10
If ( i \ 5 ) 5 = i Then
s = s + i
i = i + 1
Else
i = i + 1
End If
Loop
Print s
End Sub
運(yùn)行后輸出的結(jié)果是_____。
(A) 10 (B) 15 ? 20 (D) 25
57．下列程序：
Private Sub Form_Click( )
For i = 1 To 5
For j = i To 5
k = k + 1
Next j
Next i
Print k
End Sub
運(yùn)行后輸出的結(jié)果是_____。
(A) 5 (B) 10 ? 15 (D) 25
58．下列程序：
Private Sub Form_Click( )
t = Val (InputBox (“請(qǐng)輸入一個(gè)數(shù)：”))
x = t – 1
Select Case t
Case 1, 3, 5, 7, 9
y = t ^ 2
Case 2, 4, 6, 8, 10
y = t ^ 3
Case Else
y = 2 * t
End Select
Print x；y
End Sub
運(yùn)行時(shí)從鍵盤(pán)輸入5.5, 輸出的結(jié)果是_____.
(A) 4.5 11 　　　 (B) 4.5 25 　　　　 ? 3.5 11 　 (D) 3.5 25
59．下列程序：
Private Sub Form_Click( )
Dim str1 As String * 1, str2 As String
str1 =“A”
For i = Asc (str1) To Asc (str1) +3
Str2 = Str2 + Chr( i )
Next i
Print Str2
End Sub
運(yùn)行后輸出的結(jié)果是_____。
(A) DCBA (B) ABC ? CBA (D) ABCD
60．下列程序：
Private Sub Form_Click( )
x = 3：y = 5
For k = 3 To 5
Call ab (a:=y, b:=x)
Next k
Print x, y
End Sub
Private Sub ab (a, ByVal b)
w = a: a = b: b = w
End Sub
運(yùn)行程序后, 輸出的結(jié)果是_____。
(A) 3 3 (B) 3 5 ? 5 3 (D) 5 5
61．在設(shè)計(jì)菜單時(shí), 如果要在菜單中加入一個(gè)菜單分隔項(xiàng), 則菜單分隔項(xiàng)的標(biāo)題必須設(shè)置為_(kāi)____。
(A) 加號(hào)(＋) (B) 減號(hào)(－) ? 星號(hào)() (D) 嘆號(hào)(! )
62．以下敘述正確的是_____。
(A) 組合框包含了列表框的功能 (B) 列表框包含了組合框的功能
? 列表框和組合框的功能無(wú)相近之處 (D) 列表框和組合框的功能完全相同
63．可決定窗體的左上角是否有控制菜單的屬性是_____。
(A) ControlBox 　 (B) MinButton ? MaxButton (D) BorderStyle
64．使圖形能自動(dòng)按控件大小而改變的控件是____。
（A）框架 　　 (B) 圖像框 ? 標(biāo)簽框 (D) 圖片框
65．用下面的語(yǔ)句在窗體上建立一個(gè)名為CommonDialog1的通用對(duì)話框，語(yǔ)句為：
CommonDialog1.Action = 2 則以下語(yǔ)句與之等價(jià)的是_____。
(A) CommonDialog1.ShowOpen (B) CommonDialog1.ShowSave
? CommonDialog1.ShowColor (D) CommonDialog1.ShowFont
66．對(duì)以下過(guò)程不正確的調(diào)用語(yǔ)句是_____。
Public Sub add( )
……
End Sub
(A) Call add (B) Call add( ) ? add (D) add( )
67．下列程序執(zhí)行的結(jié)果為_(kāi)____。
Private Sub Form_Click( )
x = Int(Rnd + 4)
Select Case x
Case 5
Print“優(yōu)秀”
Case 4
Print“良好”
Case 3
Print“通過(guò)”
Case Else
Print“沒(méi)有通過(guò)”
End Select
End Sub
(A) 優(yōu)秀 (B) 良好 ? 通過(guò) (D) 沒(méi)有通過(guò)
68．窗體中有如下事件過(guò)程:
Private Sub Form_MouseDown(Button as Integer,Shift as Integer,X as Single,Y as Single)
If Button = 2 then
Print“XXXXX”
End If
End Sub
Private Sub Form_MouseUp(Button as Integer,Shift as Integer,X as Single, Y as Single)
Print“YYYYY”
End Sub
程序運(yùn)行后，如果在窗體上按下并放開(kāi)鼠標(biāo)，則窗體上輸出的結(jié)果是_____。
(A) XXXXX (B) XXXXX，YYYYY
? 沒(méi)有任何輸出 (D) YYYYY
69．“按相同大小制作”多個(gè)控件時(shí)，是制作的基準(zhǔn)。
(A) 被鎖定的控件 　 (B) 第一個(gè)控件　 ? 最后一個(gè)控件 　 (D) 主控件
70． 如果想在程序中反復(fù)使用一個(gè)數(shù)據(jù)“”，為了避免在編寫(xiě)程序時(shí)反復(fù)輸入這個(gè)數(shù)據(jù)，也為了一次能夠修改程序中所有用到這個(gè)數(shù)據(jù)的語(yǔ)句，可以采用。
(A) 將這個(gè)數(shù)據(jù)聲明為字符串常量, 用一個(gè)常量標(biāo)志符代表它
(B) 將這個(gè)數(shù)據(jù)聲明為字符串變量, 用一個(gè)常量標(biāo)志符代表它
? 將這個(gè)數(shù)據(jù)聲明為日期型常量, 用一個(gè)常量標(biāo)志符代表它
(D) 將這個(gè)數(shù)據(jù)聲明為日期型變量, 用一個(gè)常量標(biāo)志符代表它
71．使窗體、圖片框或圖像框裝入圖形所使用的函數(shù)是_____。
(A) Pictureload (B) LoadPicture
? LoadImage (D) ImageLoad
72．列程序：
Private Sub Form_Click( )
Dim load As Integer
load = InputBox（“請(qǐng)輸入一個(gè)整數(shù)：”）
fee = wei（load）: Print fee
End Sub
Function wei（load）
If load<20 Then
Money = load / 2
Else
Money = 20 + load
End If
Wei = Money
End Function
運(yùn)行時(shí)從鍵盤(pán)為變量load提供的數(shù)據(jù)為20, 輸出的結(jié)果為_(kāi)____.
(A) 10 　　　 (B) 40 　　　 ? 20 　　　 (D) 顯示出錯(cuò)信息
73. 在下列文件擴(kuò)展名中,不屬于VB程序文件的是
A) .bas B) .vb C) .frm D) .cls
74.設(shè)有下圖，則Form1中的文本框的文本內(nèi)容屬性是

A) text B) name C) text1 D) 考試
75.下列不屬于VB控件的是
A) DriveListBox B) DirListBox
C) FileListBox D) pathListBox
76．窗體已保存了1個(gè)名為 “my.vbp”的工程文件及所屬的2個(gè)分別取默認(rèn)名的窗體文件、
和1個(gè)標(biāo)準(zhǔn)模塊文件“module1.bas”。下列描述正確的是
A) 裝入文件“my.vbp”后，還需分別裝入及所屬的所有窗體文件與標(biāo)準(zhǔn)模塊文件
B) 先裝入與該工程文件有關(guān)的所有窗體文件，再裝入標(biāo)準(zhǔn)模塊文件，最后裝入文件“my.vbp”
C) 裝入文件“my.vbp”，即，裝入了該文件中所有窗體文件與標(biāo)準(zhǔn)模塊文件
D) 先裝入與該工程文件有關(guān)的標(biāo)準(zhǔn)模塊文件，再裝入所有窗體文件，最后裝入文件“my.vbp”
77. 要在磁盤(pán)上新建一個(gè)名為“c:\t1.txt”的順序文件,正確的寫(xiě)法是
A）F=“c:\tl.txt”
Open F For Append As #2
B）F=“c:\tl.txt”
Open “F” For Output As #2
C）Open c:\tl.txt For Output As #2
D）Open “c:\tl.txt” For Output As #2
78．在VB中，下列不合法的變量名是
A）a$x B) abcd C) a2(2, 4) D) CdE
79. 下述表達(dá)式中，語(yǔ)法正確的是
A) a ?? ,a>-3 B) a>b AND b<>c C) a>b >c D) a>b≠c
80. 以下關(guān)于Inputbox的敘述中，錯(cuò)誤的是
A）Inputbox函數(shù)的功能是，等待用戶輸入數(shù)據(jù)，并返回輸入的內(nèi)容
B）Inputbox函數(shù)可以產(chǎn)生一個(gè)對(duì)話框，作為輸入數(shù)據(jù)的界面
C）Inputbox函數(shù)產(chǎn)生的對(duì)話框，在屏幕上的位置只能是默認(rèn)的
D）Inputbox函數(shù)產(chǎn)生一個(gè)對(duì)話框，并可以在對(duì)話框中顯示提示信息
81．以下不屬于VB標(biāo)準(zhǔn)控件的是
A）通用對(duì)話框 B）標(biāo)簽
C）文本框 D）圖象框
82．以下描述不正確的是
A) 文本框即可以顯示文本又可以進(jìn)行編輯
B）標(biāo)簽既可以顯示文本又可以進(jìn)行編輯
C）標(biāo)簽中的Caption屬性主要用于設(shè)置與修改
D）文本框即為一個(gè)簡(jiǎn)單的文本編輯器
83. 使文本框獲得焦點(diǎn)的方法是
A）Change B）GotFocus C）SetFocus D）LostFocus
84. 假定在圖片框Picturel中裝入了一個(gè)圖形，為了清除該圖形（注意：清除圖形，而不是
刪除圖片框），應(yīng)采用的正確方法是
A）選擇圖片框，然后按Del鍵
B）執(zhí)行語(yǔ)句Picturel . Picture = “”
C）選擇圖片框，在屬性窗口中選擇Picture屬性條，然后按回車鍵
D）執(zhí)行語(yǔ)句Picturel . Picture = LoadPicture(“”)
85.不屬于對(duì)象常見(jiàn)的屬性有
A) caption B) visible C) button D) enabled
86.窗體上有一個(gè)文本框，名稱為text1,程序運(yùn)行后，要求該文本框不能接受鍵盤(pán)輸入，但能輸出信息，以下屬性設(shè)置正確的是：
A) text1.maxlength=0 B) text1.enabled=flase
C) text1.visible=flase D) text1.width=0
87．設(shè)有下圖，則命令按紐的標(biāo)題屬性是

A) caption B) 關(guān)閉 C) name D) command1
88．如圖所示：在窗體上畫(huà)一個(gè)名為Text1的文本框，然后畫(huà)一個(gè)名為HScroll1的滾動(dòng)條，其Min和Max屬性分別為0和100。運(yùn)行程序后，如果移動(dòng)滾動(dòng)框，則在文本框中顯示滾動(dòng)條的當(dāng)前值，

以下能實(shí)現(xiàn)上述操作的程序段是
A) Private Sub HScroll_Change()
Text1.Text=HScroll1.Value
End Sub
B) Private Sub HScroll_Click()
Text1.Text=HScroll1.Value
End Sub
C) Private Sub HScroll_Change()
Text1.Text=HScroll.Caption
End Sub
D) Private Sub HScroll_Click()
Text1.Text=HScroll.Caption
End Sub
89．在窗體上畫(huà)一個(gè)名為Timer1的計(jì)時(shí)器控件，要求每隔0.5秒發(fā)生一次計(jì)時(shí)器事件，則以下正確的屬性設(shè)置語(yǔ)句是
A）Timer1.InterVal=0.5 B) Timer1.Interval=5
C) Timer.Interval=50 D) Timer1.Interval=500
90．下列不屬于VB控件的是

A) DriveListBox B) DirListBox
C) FileListBox D) pathListBox
91．進(jìn)入程序代碼窗口后，下面敘述正確的是
A) 事件的過(guò)程名，可以通過(guò)函數(shù)的命名方式來(lái)確定
B) 事件的過(guò)程名，可以通過(guò)子程序的命名方式來(lái)確定
C) 事件的過(guò)程名，可以通過(guò)系統(tǒng)提供的對(duì)象名與事件名的不同組合來(lái)確定
D) 事件的過(guò)程名，可以通過(guò)系統(tǒng)提供的對(duì)象的說(shuō)明語(yǔ)句來(lái)確定
92. 表達(dá)式NOT (0.5+3\2<2) OR 7 MOD 3<4 AND 1<-2的運(yùn)算結(jié)果為
A）true B）false C）0 D）其它
93．在VB中，下列不合法的變量名是
A）c2$(2)B)input$ C) a$ D) CdC
94．以下關(guān)于多重窗體程序的敘述中，錯(cuò)誤的是
A) 用Hide方法不但可以隱藏窗體，而且能清除內(nèi)存中的窗體
B）在多重窗體程序中，各窗體的菜單是彼此獨(dú)立的
C）在多重窗體程序中，可以根據(jù)需要指定啟動(dòng)窗體
D）對(duì)于多重窗體程序中，而且單獨(dú)保存每個(gè)窗體
95．在窗體上畫(huà)一個(gè)名稱為CommandDialog1的通用對(duì)話框，一個(gè)名稱為Command1的命令按鈕。然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
CommonDialog1.FileName =""
CommonDialog1.Filter=“All file|.|(.Doc)|.Doc|(.Txt)|.Txt”
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle=“VBTest”
CommonDialog1.Action=1
End Sub
對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是
A）該對(duì)話框被設(shè)置為“打開(kāi)”對(duì)話框
B）在該對(duì)話框中指定的默認(rèn)文件名為空
C）該對(duì)話框的標(biāo)題為VBTest
D）在該對(duì)話框中指定的默認(rèn)文件類型為文本文件(*.Txt)
96．以下關(guān)于Inputbox的敘述中，錯(cuò)誤的是
A）默認(rèn)情況下，Inputbox函數(shù)返回的值是一個(gè)字符串
B）執(zhí)行Inputbox函數(shù)產(chǎn)生的對(duì)話框時(shí)，不允許返回空字符串
C）Inputbox函數(shù)常與循環(huán)語(yǔ)句、數(shù)組結(jié)合使用
D）Inputbox函數(shù)與Inputbox$ 函數(shù)等價(jià)

二．填空題
1．雙精度數(shù)用字母____將尾數(shù)與指數(shù)分開(kāi)。
2．窗體的屬性可在屬性窗口中設(shè)置, 也可在程序中用______語(yǔ)句動(dòng)態(tài)設(shè)置。
3．窗體中有兩個(gè)命令按鈕, “顯示”（Name為CmdDisplay）和“測(cè)試”（Name為CmdTest）。單擊“測(cè)試” 按鈕時(shí)，執(zhí)行如下事件過(guò)程，此事件過(guò)程的功能是：當(dāng)在窗體中出現(xiàn)消息框并選中“確定”按鈕時(shí)，隱藏“顯示” 按鈕，否則退出，請(qǐng)?jiān)诳瞻滋幯a(bǔ)充完整。
Private Sub CmdTest Click( )
answer = Msgbox（“隱藏按鈕”,65）
If answer = vbok then
______
Else
_____
End If
End Sub
4．以下程序代碼實(shí)現(xiàn)單擊命令按鈕Command1時(shí)生成10個(gè)0～100之間的隨機(jī)整數(shù).存于數(shù)組arr中, 打印數(shù)組arr中大于50的數(shù)并求這些數(shù)的和。
Private Sub Command1_Click( )
Dim arr( 1 To 10 )
For i = 1 To 10
arr( i ) = _____
Next i
Sum = 0
For Each x In _____
If x>50 Then
Print x :
Sum = Sum+x
End If
Next x
Print
Print“Sum=”；Sum
End Sub
5． 參與邏輯運(yùn)算的兩個(gè)量都是False時(shí), 結(jié)果才為False的邏輯運(yùn)算是____運(yùn)算.
6．用Line Input語(yǔ)句從順序文件中讀出數(shù)據(jù)時(shí), 每次讀出一行數(shù)據(jù), 所謂一行是指遇到____分隔符, 即
一行的結(jié)束。
7．下列過(guò)程的功能是：在對(duì)多個(gè)文本框進(jìn)行輸入時(shí)，對(duì)第一個(gè)文本框(Text1)輸入完畢后用回車鍵使焦點(diǎn)跳到第二個(gè)文本框(Text2)而不是用TAB鍵來(lái)切換. 請(qǐng)?zhí)羁铡?br /> Private Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
______
End If
End Sub
8．下列程序段的運(yùn)行結(jié)果為_(kāi)___。
Sub sele( )
Dim n As Integer
I = 21：n = 3
Do While I>n
I = I－n
Loop
Print I
End sub
Private Sub Command1_Click( )
Call sele
End Sub
9．下列程序的作用是將三個(gè)數(shù)按從大到小進(jìn)行排序，請(qǐng)補(bǔ)充完整。
Private Sub Command1_Click( )
a = 4：b = 5：c= 2
If a<b Then
d = a：a = b：b = d
End If
If a<c Then
d = a：a = c：c = d
End If
If b<c Then
_____
End If
Print a,b,c
End Sub
10．建立一個(gè)通訊錄的隨機(jī)文件phonBook.txt, 內(nèi)容包括姓名．電話．地址及郵編，用文本框輸入數(shù)據(jù). 單擊“添加記錄”按鈕Command1時(shí)，將文本框數(shù)據(jù)寫(xiě)入文件，單擊“顯示”按鈕Command2時(shí)，將文件中所有記錄內(nèi)容顯示在立即窗口。
Type PersData
Name As String
Phon As String
Address As String
PostCd As String
End Type
Dim xData As PersData
Private Sub Form_Load( )
Open“C:\phonBook.txt”For_____ As # 1
End Sub
Private Sub Command1_Click( )
xData.Name = Text1.Text
xData.Phon = Text2.Text
xData. Address = Text3.Text
xData.PostCd = Text4.Text
_____
Text1.Text =“”：Text2.Text =“”
Text3.Text =“”：Text4.Text =“”
End Sub
Private Sub Command2_Click( )
reno = LOF( 1 )/Len( xData)
I = 1
Do While I<= reno

---

Debug.Print xData.Name, xData.Phon, xData.Address, xData.PostCd
I = I + 1
Loop
End Sub
11．由Visual Basic系統(tǒng)事先設(shè)定的, 能被對(duì)象識(shí)別和響應(yīng)的動(dòng)作稱為_(kāi)__。
12．通用對(duì)話框CommonDialog1,　若屬性賦值CommonDialog1.Action = 1,　執(zhí)行后將彈出____.
13．下列程序：
Private Sub Form_Click( )
For k = 1 To 3
　　If k<=1 Then a=2 * k
If k<=2 Then a=2 * k +1
If k<=3 Then a=k
Next k
Print a
End Sub
運(yùn)行后輸出的結(jié)果是____
14．下列程序的功能是交換兩個(gè)列表框中的項(xiàng)目。運(yùn)行程序后，當(dāng)雙擊某個(gè)項(xiàng)目時(shí)，該項(xiàng)目從一個(gè)列表框中消失，并出現(xiàn)在另一個(gè)列表框中，列表1的名稱為L(zhǎng)1，列表2的名稱為L(zhǎng)2，請(qǐng)?zhí)羁?#xff1a;
Private Sub L1_DblClick( )
L2. AddItem_____
L1.RemoveItem L1.ListIndex
End Sub
Private Sub L2_DblClick( )
L1. AddItem_________
L2.RemoveItem L2.ListIndex
End Sub
Private Sub Form_Activate( )
L1. AddItem“IBM”
L1. AddItem“Compaq”
L1. AddItem“AST”
L1. AddItem“Intel”
End Sub
15．VB 6.0的對(duì)象是____和____的總稱.
16．在隨機(jī)文件中, 增加一條記錄所使用的語(yǔ)句是_______。
17．a=20,b=80,c=70,d=30,表達(dá)式a+b>160 Or (b*c>200 And Not d>60)的值是________。
18．運(yùn)行下列程序, 單擊窗體后, 在窗體上顯示的第2行輸出結(jié)果是________。
Private Function digit (n As Integer, k As Integer) As Integer
digit = 0
Do While k>0
digit = n Mod 10
n = n \ 10
k = k -1
Loop
End Function
Private Sub Form_Click( )
Print digit (1234, 2 )
Print digit (1234, 3 )
End Sub
19．對(duì)于任意一個(gè)自然數(shù), 若為偶數(shù), 把它除以2; 若為奇數(shù), 把它乘以3后加1, 如此經(jīng)
過(guò)有限次運(yùn)算后, 最終得到自然數(shù)1, 請(qǐng)將程序補(bǔ)充完整。
Private Sub Form_Click( )
Dim II As Boolean
Dim n As Integer, n1 As Integer, i As Integer
n = InputBox (“驗(yàn)證角谷猜想，請(qǐng)輸入一個(gè)數(shù)”)
II = True
i = 0
Do While II
If _______ Then
n1= n: n = n / 2
Print n1；“/ 2=”，n
If n = 1 Then ________
________
n1= n: n= 3 * n +1
Print n1； “3 * n +1=”，n
End If
i = i + 1
Loop
Print“共計(jì)算”；i；“次”
End Sub
20．以下程序代碼實(shí)現(xiàn)單擊命令按鈕Command1時(shí)生成10個(gè)0～100之間的隨機(jī)整數(shù).存于數(shù)組arr中, 打印數(shù)組arr中大于50的數(shù)并求這些數(shù)的和。
Private Sub Command1_Click( )
Dim arr( 1 To 10 )
For i = 1 To 10
arr( i ) = (10)
Next i
Sum = 0
For Each x In (11)
If x>50 Then
Print x :
Sum = Sum+x
End If
Next x
Print
Print“Sum=”；Sum
End Sub
21．在C盤(pán)當(dāng)前文件夾下建立一個(gè)名為StuData.txt的順序文件，要求用InputBox函數(shù)輸入5名學(xué)生的學(xué)號(hào)（StuNo）、姓名（StuName）和英語(yǔ)成績(jī)（StuEng）。
Private Sub Form_Click( )
Open“C：StuData.txt”For__(12)___ as #1
For i = 1 To 5
StuNo = InputBox(“請(qǐng)輸入學(xué)號(hào)”)
StuName = InputBox（“請(qǐng)輸入姓名”）
StuEng = InputBox（“請(qǐng)輸入英語(yǔ)成績(jī)”）
(13)
Next i
Close #1
End Sub
22. 輸出下列程序代碼的運(yùn)行結(jié)果
Private Sub Form_Click()
Dim M(10)
For K = 1 To 6
M(K) = 12 - K
Next K
X = 2
Print M(M(X) - 8)
End Sub
23．輸出下列程序代碼的運(yùn)行結(jié)果
Private Sub Form_Click()
X = 2: J = 2 * X: y = X + 4
Select Case y
Case 1, 2
J = J + 1
Case 3 To 5
J = J + 2
Case Is > 6
J = J + 3
End Select
Print J
End Sub
24．根據(jù)文件的存取方式和結(jié)構(gòu)，文件可分為 文件和 文件。
25．在順序文件中，OPEN語(yǔ)句的輸入輸出方式有 、 、 。
26．程序代碼窗口的字符過(guò)大或過(guò)小，可以通過(guò)（工具→ → →大小）去改變。
27. 屬性窗口主要是針對(duì) 和 設(shè)置的.它們被通稱為 。
28．工具箱主要用于應(yīng)用程序的 。
29．一個(gè)工程通常包含兩部分內(nèi)容，即 和 。
30. 一般來(lái)說(shuō)，一個(gè)應(yīng)用程序包括4類文件，它們是 文件、 文件、
文件、 文件。
31．Print 方法的一般格式是[對(duì)象名稱.]Print[表達(dá)式表][,|;],其中對(duì)象名稱只能
是 、 、 、 中的一種。
32．在窗體上畫(huà)一個(gè)列表框，然后編寫(xiě)如下兩個(gè)事件過(guò)程, 運(yùn)行上面的程序，然后單擊窗體，列表框中所顯示的項(xiàng)目為
Private Sub Form_Click ( )
List1.RemoveItem 1
List1.RemoveItem 3
List1.RemoveItem 1
End Sub
Private Sub Form_Load ( )
List1.AddItem “ItemE”
List1.AddItem “ItemB”
List1.AddItem “ItemA”
List1.AddItem “ItemD”
List1.AddItem “ItemC”
End Sub
33．輸出下列程序代碼的運(yùn)行結(jié)果.
Private Sub Form_Click() （其中: u=3，v=4）
Dim u As Integer, v As Integer
u = InputBox(“u=”)
v = InputBox(“v=”)
z = 1
Do While v > 0
Do While v Mod 2 = 0
v = v / 2
u = u * u

v = v - 1
z = u * z

Print Str$(z)
End Sub
34.根據(jù)數(shù)據(jù)性質(zhì)，文件可分為 文件和 文件。
35. 屬性窗口主要是針對(duì) 和 設(shè)置的.它們被通稱為 。
36．一個(gè)工程通常包含兩部分內(nèi)容，即 和 。
37．Print 方法的一般格式是[對(duì)象名稱.]Print[表達(dá)式表][,|;],其中對(duì)象名稱只能
是 、 、 、 中的一種。
38. 如下圖，每個(gè)窗體模塊分為兩部分，一部分是作為 ，另一部分是作為 。

圖形文件可以在設(shè)計(jì)階段用以下兩種方法裝入，①用屬性窗口的 裝入，
②利用 到窗體、圖片框或圖象框中去。

三．編程題

給定三角形的邊長(zhǎng), ,計(jì)算三角形的面積. 編寫(xiě)程序,首先判斷給出的三條邊能否構(gòu)成三角形,如可以構(gòu)成,則計(jì)算并輸出該三角形的面積,否則要求重新輸入.當(dāng)輸入-1時(shí)結(jié)束程序。
2.設(shè)有如下兩組數(shù)據(jù)　　　　　　　　
A：2，　8，　7，　6， 4，28，70，25
B：79，27， 32， 41，57，66，78，80
編寫(xiě)一個(gè)程序,把上面兩組數(shù)據(jù)分別讀入兩個(gè)數(shù)組中,然后把兩個(gè)數(shù)組中對(duì)應(yīng)下標(biāo)的元素相加,即2+79,8+27……25+80,并把相應(yīng)的結(jié)果放入第三個(gè)數(shù)組中,最后輸出第三個(gè)數(shù)組的數(shù)據(jù)。
3.編寫(xiě)一個(gè)程序, 當(dāng)按下某個(gè)鍵時(shí), 程序以十六進(jìn)制和八進(jìn)制形式輸出該鍵的KeyCode.
4.編寫(xiě)程序, 求S=A!+B!+C!,階乘的計(jì)算分別用Sub過(guò)程和Function過(guò)程兩種方法來(lái)實(shí)現(xiàn)。
5.如下圖，在窗體上畫(huà)一個(gè)圖片框，一個(gè)文本框，再畫(huà)兩個(gè)標(biāo)簽。(8+8=16分)
填寫(xiě)下表 （8分）
程序中使用的對(duì)象

② 如圖編寫(xiě)程序代碼，要求鍵盤(pán)輸入42，顯示在文本框內(nèi)；并將該整數(shù)范圍內(nèi)的偶數(shù)顯示在圖片框內(nèi)。（每行打印7個(gè)數(shù)） （8分）

如圖，在窗體上畫(huà)兩個(gè)命令按鈕和一個(gè)文本框，要求單擊第一個(gè)命令按鈕時(shí)，文本框消失，單擊第二個(gè)命令按鈕時(shí)，文本框復(fù)出，并在文本框中顯示“編寫(xiě)程序樂(lè)趣無(wú)限”。
（10分）

如下圖，在窗體上畫(huà)一個(gè)圖片框，一個(gè)文本框，再畫(huà)兩個(gè)標(biāo)簽。
填寫(xiě)下表（8分）
程序中使用的對(duì)象

編寫(xiě)程序代碼，如圖，要求鍵盤(pán)輸入任意一個(gè)正整數(shù)作上限，顯示在文本框內(nèi)；并將該正整數(shù)范圍內(nèi)能同時(shí)被3和5整除的正整數(shù)，顯示在圖片框內(nèi)。 （10分）

輸入任意一個(gè)字符串，檢查字符串是否是“回文”.當(dāng)一個(gè)字符串順讀倒讀是一樣的,則這樣的字符串就是“回文”,如“LEVEL”, “MADAM”, “等都是“回文”. （10分）

總結(jié)

以上是生活随笔為你收集整理的【渝粤题库】陕西师范大学202831 程序设计 作业（专升本）的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。