陜西師范大學

內
部
題
庫

教育
（yuyueshool）
編制
《VB程序設計》作業
一．選擇題
1．在Visual Basic中，稱對象的數據為_____。
(A) 屬性 (B) 方法 ? 事件 (D) 封裝
2．下列選項中為字符串常量的是_____。
(A) .(B)“6/12/2001” ? #6,12,2001# (D) 6,12,2001#
3．若要將某命令按鈕設置為默認命令按鈕, 則應設置為True的屬性為_____。
(A) Value (B) Cancel ? Default (D) Enabled
4．設置命令按鈕的標題文字時, 應改變的屬性是_____。
(A) Text 　 (B) Name ? Caption (D) (名稱)
5．若要獲得滾動條的當前值, 可訪問的屬性是_____。
(A) Text 　 (B) Value ? Max .(D) Min
6．若要設置文本框中所顯示的文本顏色, 使用的屬性為_____。
(A) BackColor .(B) FillColor ? ForeColor . . (D) BackStyle
7．能對順序文件進行輸出的語句是_____。
(A) Put (B) Get ? Write (D) Read
8．有如下程序, 該程序執行后, 在輸入框中輸入數字15.875, 則執行結果為_____。
I = InputBox(“請輸入一個數據”)
j = InStr(I,“.”)
Print j
(A) 3 (B) 15 ? 0.275 (D) 16
9．有如下程序, 該程序執行的結果為_____。
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．有如下程序, 該程序執行的結果為_____。
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．以下程序輸出的結果為_____。
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．以下列程序段執行后, 整形變量n的值為_____。
n = 0
For I = 1 to 20 step 5
n = n + 1
Next I
(A) 50 (B) 4 ? 15 (D) 210
13．下列程序在執行時, 在輸入框中輸入15, 則運行結果是_____。
Private Sub Command1_Click( )
Dim Number As Single
Number = InputBox(“請輸入一個數字”)
Select Case Number
Case 1 To 5
Form1.Print“你使用了to關鍵字”
Case 6，7，8，9，10
Form1.Print“你使用了列表的方式”
Case Is>10
Form1.Print“你使用了Is關鍵字”
Case Else
Form1.Print“其他數值顯示”
End Select
End Sub
(A) 你使用了to關鍵字 (B) 你使用了列表的方式
? 你使用了Is關鍵字 (D) 其他數值顯示
14．在窗體上添加一個命令按鈕, 其名為Command1, 然后編寫代碼如下：
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
程序運行結果為_____。
(A) 3 11 (B) 3 13 ? 13 3 (D) 11 3
15．有如下函數過程：
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
以下是調用該函數的事件過程, 該程序的運行結果為_____。
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．下列操作不能打開屬性窗口的是_____。
(A) 執行【視圖】菜單中的【屬性窗口】命令 (B) 按F4鍵
? 按Ctrl+T 　　　　　　　(D) 單擊工具攔上的屬性窗口按鈕
17． 下列敘述不正確的是_____。
（A）一個目標程序所需的所有文件的集合稱為工程
（B）VB的工程文件的擴展名為.vbp
（C）工程文件中可包括窗體文件．標準模塊文件
（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．如果想在程序中反復使用一個數據“”，為了避免在編寫程序時反復輸入這個數據，也為了一次能夠修改程序中所有用到這個數據的語句，可以采用_____。
(A) 將這個數據聲明為字符串常量, 用一個常量標志符代表它
(B) 將這個數據聲明為字符串變量, 用一個常量標志符代表它
? 將這個數據聲明為日期型常量, 用一個常量標志符代表它
(D) 將這個數據聲明為日期型變量, 用一個常量標志符代表它
20．要求設置定時器時間間隔為0.5秒, 那么它的Interval屬性值應該等于_____。
(A) 5000 (B) 500 ? 50 (D) 5
21．在Select Case結構中, 使用“to表達式”來指定一個范圍時，寫在前面的值.必須是_____的。
（A）隨便 （B）0 （C）較大 （D）較小
22．圖像框中的Stretch屬性為True時, 其作用是_____。
( A) 只能自動設置圖像框長度 (B) 圖形自動調整大小以適應圖像框控件
? 只能自動縮小圖像 (D) 只能自動擴大圖像
23．圖像框(Image)和圖片框(PictureBox)有所不同, 以下敘述中正確的是_____。
(A) 圖片框比圖像框占內存少 (B) 圖像框內還可以包括其他控件
? 圖片框有Stretch屬性而圖像框沒有 (D) 圖像框有Stretch屬性而圖片框沒有
24．當條件為5<x<10時, x = x + 1, 則以下語句正確的是_____。
(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的非負數”，用VB表達式表示正確的是_____。
(A) 0≤x<100 (B) 0<=x<100 ? x>=0 and x<100 (D) 0<=x or x<100
26．在 Sub過程與Function過程的描述中正確的是_____。
(A) Sub過程可以使用Call語句或直接使用過程名調用, 而Function過程不能
(B) Function過程可以有參數, 而Sub過程沒有
? 兩種過程的參數傳遞及返回方式相同
(D) Sub過程不能直接返回值， 而Function過程可以通過過程名直接返回值
27．下列程序的執行結果為_____。
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．有如下函數：
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
調用該函數的事件過程如下：
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
該事件過程的執行結果為_____。
（A）1 （B）3 （C）16 （D）9
29．有如下語句, 執行后該段語句的循環次數是_____。
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．在窗體上畫一個命令按鈕(Commdna1)和一個文本框(Text1), 然后編寫如下程序：
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集成開發環境中, 功能鍵F5的功能是_____.
(A) 進入幫助窗口 (B) 進入編輯狀態
? 進行上下窗口的切換 (D) 運行程序
32．MsgBox函數返回值的類型是_____.
(A) 數值 (B) 字符串
? 變體 (D) 數值或字符串(視輸入的數據而定)
33．表達式FIX(-23.87)+INT(24.56)的值為_____.
(A) -1 　　 (B) 0 　　　　　? 1 　　　　 (D) 2
34．m , n是整數, 且n>m, 在以下四個語句中, 能將y賦值為一個m～n之間(含m, n)任意整數即滿足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．確定復選框是否選中，可訪問的屬性是_____.
(A) Checked (B) Selected 　　? Caption 　 (D) Value
36．下列關于KeyDown事件的參數的說法錯誤的是_____.
(A) Shift參數是KeyDown事件發生時, Shift, Ctrl和Alt三個鍵的狀態
(B) 參數KeyCode與KeyPress事件的參數KeyAscii是一樣的
? KeyDown事件的參數與KeyUp事件的參數一致
(D) KeyDown事件的參數不能省略
37．下面敘述中不正確的是_____.
(A) 對順序文件中的數據操作只能按一定的順序執行
(B) 順序文件結構簡單
? 能同時對順序文件進行讀寫操作
(D) 順序文件的數據是以字符(ASCII碼)的形式存儲的
38．設置組合框的風格, 重要的屬性是_____.
(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
運行時輸出的結果是_____.
(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
運行時輸出的結果是_____.
(A) 100 　　 (B) 120 　　 ? 201 　　 (D) 101
41．下列程序：
Private Sub Form_Click( )
a$ =“等級考試”
b$ =“＋ － * /”
For j = 1 To 4
c$ = c$+Mid$(a$,j,1)+Right$(b$,1)NextjPrintc$
End Sub
運行時輸出的結果是_____.
(A) 等-級-考-試- (B) 等級考試- 　? 等/級/考/試/ 　(D) 出錯
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
運行時從鍵盤為變量x輸入數據5，輸出的結果是_____.
(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
運行后輸出的結果是_____.
(A) 1 (B) 1 2 3 4 5 6 7 8 9 10
? 10 (D) 顯示出錯信息
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
運行時輸出的結果是_____.
(A) 124123123 (B) 4123
? 492 (D) 顯示出錯信息
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
運行后輸出的結果是_____.
(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．以下選項中, 不是Visual Basic 6.0默認控件名稱的是_____。
(A) Command1 (B) Text1 　　? Labell 　　 (D) Change
47．復選框的Value取值不包括_____。
(A) 0 　…(B) 1 ? 2 . (D) 3
48．獲得隨機文件記錄長度, 應使用_____進行計算。
(A) FileLen函數和FrreFile函數 　　　 (B) Lof函數和Len函數
? Eof函數和Len函數 　　　 (D) Eof函數和Lof函數
49．計算a的自然對數使用的Visual Basic表達式是_____。
(A) Log (a) 　　. (B) Lg (a) 　 ? Ln (a) 　　 (D) Lge (a)
50．假定Bln1是列表框, 給列表框增加一個列表項正確的方法是_____。
(A) Bln1 = Add“計算機” .(B) Bln1.Add“計算機”
? Bln1 = Additem“計算機” (D) Bln1.Additem“計算機”
51．設有數組聲明語句
Option Base 1
Dim A（-3 to -1，2）As Integer
則數組A中定義的數組元素有_____。
(A) 6個 　 (B) 9個 　 ? 12個 (D) 15個
52．決定窗體標題條顯示內容的屬性是_____。
(A) Name 　　　 (B) Text . ? Caption 　　 (D) Top
53．下列程序：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Print Ucase (Chr (KeyAscii))
End Sub
運行后在文本框中輸入a不按回車鍵, 窗體上的輸出結果是_____。
(A) A 　　　　　 (B) a 　　 ? 65 　　　　 (D) 沒有輸出
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
單擊窗體后，輸出的結果是_____。
(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
運行時單擊窗體后，按回車鍵，輸出的結果是_____。
(A) 錯誤信息 　　　 (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
運行后輸出的結果是_____。
(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
運行后輸出的結果是_____。
(A) 5 (B) 10 ? 15 (D) 25
58．下列程序：
Private Sub Form_Click( )
t = Val (InputBox (“請輸入一個數：”))
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
運行時從鍵盤輸入5.5, 輸出的結果是_____.
(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
運行后輸出的結果是_____。
(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
運行程序后, 輸出的結果是_____。
(A) 3 3 (B) 3 5 ? 5 3 (D) 5 5
61．在設計菜單時, 如果要在菜單中加入一個菜單分隔項, 則菜單分隔項的標題必須設置為_____。
(A) 加號(＋) (B) 減號(－) ? 星號() (D) 嘆號(! )
62．以下敘述正確的是_____。
(A) 組合框包含了列表框的功能 (B) 列表框包含了組合框的功能
? 列表框和組合框的功能無相近之處 (D) 列表框和組合框的功能完全相同
63．可決定窗體的左上角是否有控制菜單的屬性是_____。
(A) ControlBox 　 (B) MinButton ? MaxButton (D) BorderStyle
64．使圖形能自動按控件大小而改變的控件是____。
（A）框架 　　 (B) 圖像框 ? 標簽框 (D) 圖片框
65．用下面的語句在窗體上建立一個名為CommonDialog1的通用對話框，語句為：
CommonDialog1.Action = 2 則以下語句與之等價的是_____。
(A) CommonDialog1.ShowOpen (B) CommonDialog1.ShowSave
? CommonDialog1.ShowColor (D) CommonDialog1.ShowFont
66．對以下過程不正確的調用語句是_____。
Public Sub add( )
……
End Sub
(A) Call add (B) Call add( ) ? add (D) add( )
67．下列程序執行的結果為_____。
Private Sub Form_Click( )
x = Int(Rnd + 4)
Select Case x
Case 5
Print“優秀”
Case 4
Print“良好”
Case 3
Print“通過”
Case Else
Print“沒有通過”
End Select
End Sub
(A) 優秀 (B) 良好 ? 通過 (D) 沒有通過
68．窗體中有如下事件過程:
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
程序運行后，如果在窗體上按下并放開鼠標，則窗體上輸出的結果是_____。
(A) XXXXX (B) XXXXX，YYYYY
? 沒有任何輸出 (D) YYYYY
69．“按相同大小制作”多個控件時，是制作的基準。
(A) 被鎖定的控件 　 (B) 第一個控件　 ? 最后一個控件 　 (D) 主控件
70． 如果想在程序中反復使用一個數據“”，為了避免在編寫程序時反復輸入這個數據，也為了一次能夠修改程序中所有用到這個數據的語句，可以采用。
(A) 將這個數據聲明為字符串常量, 用一個常量標志符代表它
(B) 將這個數據聲明為字符串變量, 用一個常量標志符代表它
? 將這個數據聲明為日期型常量, 用一個常量標志符代表它
(D) 將這個數據聲明為日期型變量, 用一個常量標志符代表它
71．使窗體、圖片框或圖像框裝入圖形所使用的函數是_____。
(A) Pictureload (B) LoadPicture
? LoadImage (D) ImageLoad
72．列程序：
Private Sub Form_Click( )
Dim load As Integer
load = InputBox（“請輸入一個整數：”）
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
運行時從鍵盤為變量load提供的數據為20, 輸出的結果為_____.
(A) 10 　　　 (B) 40 　　　 ? 20 　　　 (D) 顯示出錯信息
73. 在下列文件擴展名中,不屬于VB程序文件的是
A) .bas B) .vb C) .frm D) .cls
74.設有下圖，則Form1中的文本框的文本內容屬性是

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

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

以下能實現上述操作的程序段是
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．在窗體上畫一個名為Timer1的計時器控件，要求每隔0.5秒發生一次計時器事件，則以下正確的屬性設置語句是
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．進入程序代碼窗口后，下面敘述正確的是
A) 事件的過程名，可以通過函數的命名方式來確定
B) 事件的過程名，可以通過子程序的命名方式來確定
C) 事件的過程名，可以通過系統提供的對象名與事件名的不同組合來確定
D) 事件的過程名，可以通過系統提供的對象的說明語句來確定
92. 表達式NOT (0.5+3\2<2) OR 7 MOD 3<4 AND 1<-2的運算結果為
A）true B）false C）0 D）其它
93．在VB中，下列不合法的變量名是
A）c2$(2)B)input$ C) a$ D) CdC
94．以下關于多重窗體程序的敘述中，錯誤的是
A) 用Hide方法不但可以隱藏窗體，而且能清除內存中的窗體
B）在多重窗體程序中，各窗體的菜單是彼此獨立的
C）在多重窗體程序中，可以根據需要指定啟動窗體
D）對于多重窗體程序中，而且單獨保存每個窗體
95．在窗體上畫一個名稱為CommandDialog1的通用對話框，一個名稱為Command1的命令按鈕。然后編寫如下事件過程：
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
對于這個程序，以下敘述中錯誤的是
A）該對話框被設置為“打開”對話框
B）在該對話框中指定的默認文件名為空
C）該對話框的標題為VBTest
D）在該對話框中指定的默認文件類型為文本文件(*.Txt)
96．以下關于Inputbox的敘述中，錯誤的是
A）默認情況下，Inputbox函數返回的值是一個字符串
B）執行Inputbox函數產生的對話框時，不允許返回空字符串
C）Inputbox函數常與循環語句、數組結合使用
D）Inputbox函數與Inputbox$ 函數等價

二．填空題
1．雙精度數用字母____將尾數與指數分開。
2．窗體的屬性可在屬性窗口中設置, 也可在程序中用______語句動態設置。
3．窗體中有兩個命令按鈕, “顯示”（Name為CmdDisplay）和“測試”（Name為CmdTest）。單擊“測試” 按鈕時，執行如下事件過程，此事件過程的功能是：當在窗體中出現消息框并選中“確定”按鈕時，隱藏“顯示” 按鈕，否則退出，請在空白處補充完整。
Private Sub CmdTest Click( )
answer = Msgbox（“隱藏按鈕”,65）
If answer = vbok then
______
Else
_____
End If
End Sub
4．以下程序代碼實現單擊命令按鈕Command1時生成10個0～100之間的隨機整數.存于數組arr中, 打印數組arr中大于50的數并求這些數的和。
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． 參與邏輯運算的兩個量都是False時, 結果才為False的邏輯運算是____運算.
6．用Line Input語句從順序文件中讀出數據時, 每次讀出一行數據, 所謂一行是指遇到____分隔符, 即
一行的結束。
7．下列過程的功能是：在對多個文本框進行輸入時，對第一個文本框(Text1)輸入完畢后用回車鍵使焦點跳到第二個文本框(Text2)而不是用TAB鍵來切換. 請填空。
Private Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
______
End If
End Sub
8．下列程序段的運行結果為____。
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．下列程序的作用是將三個數按從大到小進行排序，請補充完整。
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．建立一個通訊錄的隨機文件phonBook.txt, 內容包括姓名．電話．地址及郵編，用文本框輸入數據. 單擊“添加記錄”按鈕Command1時，將文本框數據寫入文件，單擊“顯示”按鈕Command2時，將文件中所有記錄內容顯示在立即窗口。
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系統事先設定的, 能被對象識別和響應的動作稱為___。
12．通用對話框CommonDialog1,　若屬性賦值CommonDialog1.Action = 1,　執行后將彈出____.
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
運行后輸出的結果是____
14．下列程序的功能是交換兩個列表框中的項目。運行程序后，當雙擊某個項目時，該項目從一個列表框中消失，并出現在另一個列表框中，列表1的名稱為L1，列表2的名稱為L2，請填空：
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的對象是____和____的總稱.
16．在隨機文件中, 增加一條記錄所使用的語句是_______。
17．a=20,b=80,c=70,d=30,表達式a+b>160 Or (b*c>200 And Not d>60)的值是________。
18．運行下列程序, 單擊窗體后, 在窗體上顯示的第2行輸出結果是________。
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．對于任意一個自然數, 若為偶數, 把它除以2; 若為奇數, 把它乘以3后加1, 如此經
過有限次運算后, 最終得到自然數1, 請將程序補充完整。
Private Sub Form_Click( )
Dim II As Boolean
Dim n As Integer, n1 As Integer, i As Integer
n = InputBox (“驗證角谷猜想，請輸入一個數”)
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“共計算”；i；“次”
End Sub
20．以下程序代碼實現單擊命令按鈕Command1時生成10個0～100之間的隨機整數.存于數組arr中, 打印數組arr中大于50的數并求這些數的和。
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盤當前文件夾下建立一個名為StuData.txt的順序文件，要求用InputBox函數輸入5名學生的學號（StuNo）、姓名（StuName）和英語成績（StuEng）。
Private Sub Form_Click( )
Open“C：StuData.txt”For__(12)___ as #1
For i = 1 To 5
StuNo = InputBox(“請輸入學號”)
StuName = InputBox（“請輸入姓名”）
StuEng = InputBox（“請輸入英語成績”）
(13)
Next i
Close #1
End Sub
22. 輸出下列程序代碼的運行結果
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．輸出下列程序代碼的運行結果
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．根據文件的存取方式和結構，文件可分為 文件和 文件。
25．在順序文件中，OPEN語句的輸入輸出方式有 、 、 。
26．程序代碼窗口的字符過大或過小，可以通過（工具→ → →大小）去改變。
27. 屬性窗口主要是針對 和 設置的.它們被通稱為 。
28．工具箱主要用于應用程序的 。
29．一個工程通常包含兩部分內容，即 和 。
30. 一般來說，一個應用程序包括4類文件，它們是 文件、 文件、
文件、 文件。
31．Print 方法的一般格式是[對象名稱.]Print[表達式表][,|;],其中對象名稱只能
是 、 、 、 中的一種。
32．在窗體上畫一個列表框，然后編寫如下兩個事件過程, 運行上面的程序，然后單擊窗體，列表框中所顯示的項目為
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．輸出下列程序代碼的運行結果.
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.根據數據性質，文件可分為 文件和 文件。
35. 屬性窗口主要是針對 和 設置的.它們被通稱為 。
36．一個工程通常包含兩部分內容，即 和 。
37．Print 方法的一般格式是[對象名稱.]Print[表達式表][,|;],其中對象名稱只能
是 、 、 、 中的一種。
38. 如下圖，每個窗體模塊分為兩部分，一部分是作為 ，另一部分是作為 。

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

三．編程題

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

② 如圖編寫程序代碼，要求鍵盤輸入42，顯示在文本框內；并將該整數范圍內的偶數顯示在圖片框內。（每行打印7個數） （8分）

如圖，在窗體上畫兩個命令按鈕和一個文本框，要求單擊第一個命令按鈕時，文本框消失，單擊第二個命令按鈕時，文本框復出，并在文本框中顯示“編寫程序樂趣無限”。
（10分）

如下圖，在窗體上畫一個圖片框，一個文本框，再畫兩個標簽。
填寫下表（8分）
程序中使用的對象

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

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

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。