vb大學考試試題及答案
① vb考試試題
分有點少啊,反正沒事做,幫幫你吧
一、選擇題
1、在VB中，用Sring來表示的數據類型是：（D ）
A．長整型 B．字元型 C．邏輯型 D． 單精度型
2、下面哪一個不是Visual Basic保留的關鍵字？（B ）
（A）Loop（B）More（C）Mod（D）If
3.修改窗體的顏色通過設置窗體的（）屬性：（A）
（A）Backcolor（B）Forecolor（C）Caption（D）Appearance
4、Dim A=9 Dim B=10 Dim C=8 Myvars=Not (A>B and B>C) （ A）
A. True B. False
5、下面4項中合法的字元常數是：（ B）
A. ABC$ B. "ABC" C. 'ABC' D.ABC
6、在Visual Basic中，設置文本框內容的屬性是：（B ）
A、Name B、Text C、Picture D、WindowState
7、在Visual Basic中，表示滑鼠單擊事件的是：（ C）
A、Activate B、DoubleClick C、Click D、MouseDown
8、For – Next 語句屬於程序基本結構中的：（B ）
A、順序結構 B、循環結構 C、分支結構 D、選擇結構
9、保存一個VB程序時需要保存兩個文件：（C ）
這個題目就是有問題的.很明顯是個傻冒出的題.通常情況下會有vbp和frm,但建個DLL就沒有frm了.
A、 工程文件和 .vbp B、窗體文件和 .frm文件
C、.vbp文件和 .frm文件 D、模塊文件和 .bas文件
10、下列程序段的運行結果是：（ A）
Dim A As Integer , B As Integer
A = 15
B = 4
PRINT 4 + A \ B
A、7 B、 -7 C、7.75 D、8
11、下列程序段的運行結果是：（A ）
Dim A As Integer , B As Integer , X As Integer
A = 1 ：B = 2
IF A < B THEN X = A - B ELSE X = B + A
PRINT X
A、-1 B、 1 C、2 D、3
12、下列程序段的運行結果是： （ D）
Dim F As Long , I As Long
F = 0
FOR I = 3 TO -3 STEP –1
F = F + I
NEXT I
PRINT I
A、-5 B、 .5 C、0 D、. –4
13、設A=7,B=3,C=4, 則A MOD 3 + B ^ 3 / C \ 5 的值是（ A）
(A) 2 (B) 3 (C) 4 (D) 5
14、語句PRINT 25*4的輸出結果是：（C ）
A、25*4 B、「25*4」 C、100 D、出現錯誤信息
15．語句Dim x As Integer作用是:將x定義為（ ）變數。（ B ）
(A)單精度型 (B)整型 (C) 布爾型 (D)字元型
二、 完成程序
1、求任意兩個數中的最大值：
Private Sub Command_Click ( )
Dim A As Single , B As Single , MIN As Single
A = Val (Text1 . Text ) 『從文本框Text1接收第1個數
B = Val (Text2 . Text ) 『從文本框Text2接收第2個數
IF A < B THEN
MIN=B
ELSE
MIN=A
END IF
Text3 . Text =MIN 『用文本框Text3輸出最終結果
End Sub
2、按照從大到小的順序輸出100以內能被6整除的正整數
Private Sub Form_Click ( )
Dim I As Integer
Print 「 按照從大到小的順序輸出100以內能被6整除的正整數 「
For I = 1 To 100 Step 1
IF I mod 6 =0 THEN Print I
Next I
End Sub
三、寫出下列循環語句每一次循環中各變數的值及循環次數。
1、y=2
變數 1次 2次 3次 4次 ……
y
Do While y<=8
y=y+y
Loop
2、s＝ 0： t＝ l
變數 1次 2次 3次 4次 ……
k
s
t
For k＝ 1 To 4
s＝s＋k
t=t＊k
Next k
② 求VB試題答案(1)
試試，不知道能答對幾道題 呵呵
2c
4a
5b
6d
7c
8a
9a
11d
12d
13c
14b
17b
18c
19a
20a
22a
24d
25a
③ 歷年計算機二級vb考試試題及答案
我已經發過去了，是[email protected]這個郵箱發的。
希望不要看錯了啊
④ 高分求大學VB(Visual Basic 6.0)的模擬試題,附答案,非常急,[email protected]
一、選擇題（每題2分，共計70分）
1.數據的存儲結構是指____。
A、存儲在外存中的數據
B、數據所佔的存儲空間
C、數據在計算機中的順序存儲方式
D、數據的邏輯結構在計算機中的表示
2.下列關於棧的描述中錯誤的是：____。
A、棧是先進後出的線性表
B、棧只能順序存儲
C、棧具有記憶作用
D、對棧的插入與刪除操作中，不需要改變棧底指針
3.對於長度為n的線性表，在最壞情況下，下列各排序法所對應的比較次數中正確的是____。
A、冒泡排序為n/2
B、冒泡排序為n
C、快速排序為n
D、快速排序為n(n-1)/2
4.對長度為n的線性表進行順序查找，在最壞情況下所需要的比較次數為____。
A、log2n
B、n/2
C、n
D、n+1
5.下列對於線性鏈表的描述中正確的是____。
A、存儲空間不一定是連續，且各元素的存儲順序是任意的
B、存儲空間不一定是連續，且前件元素一定存儲在後件元素的前面
C、存儲空間必須連續，且前件元素一定存儲在後件元素的前面
D、存儲空間必須連續，且各元素的存儲順序是任意的
6.下列對於軟體測試的描述中正確的是____。
A、軟體測試的目的是證明程序是否正確
B、軟體測試的目的是使程序運行結果正確
C、軟體測試的目的是盡可能多地發現程序中的錯誤
D、軟體測試的目的是使程序符合結構化原則
7.為了使模塊盡可能獨立，要求____。
A、模塊的內聚程度要盡量高，且各模塊間的耦合程度要盡量強
B、模塊的內聚程度要盡量高，且各模塊間的耦合程度要盡量弱
C、模塊的內聚程度要盡量低，且各模塊間的耦合程度要盡量弱
D、模塊的內聚程度要盡量低，且各模塊間的耦合程度要盡量強
8.下列描述中正確的是____。
A、程序就是軟體
B、軟體開發不受計算機系統的限制
C、軟體既是邏輯實體，又是物理實體
D、軟體是程序、數據與相關文檔的集合
9.數據獨立性是數據技術的重要特點之一。所謂數據獨立性是指____。
A、數據與程序獨立存放
B、不同的數據被存放在不同的文件中
C、不同的數據只能被對應的應用程序所使用
D、以上三種說法都不對
10.用樹形結構表示實體之間聯系的模型是____。
A、關系模型
B、網狀模型
C、層次模型
D、以上三個都是
11.在窗體（名稱為Form1）上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然後編寫一個事件過程。程序運行後，如果在文本框中輸入一個字元，則把命令按鈕的標題設置為「計算機等級考試」。以下能實現上述操作的事件過程是
A、Private Sub Text1_Change()
Command1.Caption = "計算機等級考試"
End Sub
B、Private Sub Command1_Click()
Caption = "計算機等級考試"
End Sub
C、Private Sub Form_Click()
Text1.Caption = "計算機等級考試"
End Sub
D、Private Sub Command1_Click()
Text1.Text = "計算機等級考試"
End Sub
12.設a=5，b=4，c=3，d=2，下列表達式的值是
3>2*b Or a=c And b<>c Or c>d
A、1
B、True
C、False
D、2
13.設a=」MicrosoftVisualBasic」，則以下使變數的b值為」VisualBasic」的語句是
A、b=Left(a,10)
B、b=Mid(a,10)
C、b=Right(a,10)
D、b=Mid(a,11,10)
14.假定有如下的窗體事件過程：
Private Sub Form_Click()
a$ = "Microsoft VisualBasic"
b$ = Right(a$, 5)
c$ = Mid(a$, 1, 9)
MsgBox a$, 34, b$, c$, 5
End Sub
程序運行後，單擊窗體，則在彈出的信息框的標題欄中顯示的信息是
A、Microsoft Visual
B、Microsoft
C、Basic
D、5
15.設a="a"，b="b"，c="c"，d="d"，執行語句x = IIf((a < b) Or (c > d), "A", "B")後，x的值為
A、"a"
B、"b"
C、"B"
D、"A"
16.為了使命令按鈕（名稱為Command1）右移200，應使用的語句是
A、Command1.Move -200
B、Command1.Move 200
C、Command1.Left = Command1.Left + 200
D、Command1.Left = Command1.Left - 200
17.在窗體上畫一個文本框，然後編寫如下事件過程：
Private Sub Form_Click()
x = InputBox("請輸入一個整數")
Print x + Text1.Text
End Sub
程序運行時，在文本框中輸入456，然後單擊窗體，在輸入對話框中輸入123，單擊「確定」按鈕後，在窗體上顯示的內容為
A、123
B、456
C、579
D、123456
18.在窗體上畫一個文本框和一個計時器控制項，名稱分別為Text1和Timer1，在屬性窗口中把計時器的Interval屬性設置為1000，Enabled屬性設置為False。程序運行後，如果單擊命令按鈕，則每隔一秒中在文本框中顯示一次當前的時間。以下是實現上述操作的程序：
Private Sub Command1_Click()
Timer1._______
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
在_____處應填入的內容是
A、Enabled = True
B、Enabled = False
C、Visible = True
D、Visible = False
19.假定在圖片框Picture1中裝入一個圖形，為了清除該圖形（不刪除圖片框），應採用的正確方法是
A、選擇圖片框，然後按Del鍵
B、執行語句 Picture1.Picture = LoadPicture("")
C、執行語句 Picture1.Picture = ""
D、選擇圖片框，在屬性窗口中選擇Picture屬性條，然後按回車鍵
20.在窗體上畫一個名稱為List1的列表框，一個名稱為Label1的標簽，列表框中顯示若干個項目，當單擊列表框中某個項目時，在標簽中顯示被選中項目的名稱。下列能正確實現上述操作的程序是
A、Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B、Private Sub List1_Click()
Label1.Name= List1.ListIndex
End Sub
C、Private Sub List1_Click()
Label1.Name = List1.Text
End Sub
D、Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub
21.在窗體上畫一個命令按鈕，其名稱為Command1，然後編寫如下事件過程：
Private Sub Command1_Click()
Dim i As Integer, x As Integer
For i = 1 To 6
If i = 1 Then x = i
If i <= 4 Then
x = x + 1
Else
x = x + 2
End If
Next i
Print x
End Sub
程序運行後，單擊命令按鈕，其輸出結果為
A、9
B、6
C、12
D、15
22.在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下事件過程，
Private Sub Command1_Click()
c = "ABCD"
For n = 1 To 4
Print ____
Next
End Sub
程序運行後，單擊命令按鈕，要求在窗體上顯示如下內容：
D
CD
BCD
ABCD
則在____處應填入的內容為
A、Left(c,n)
B、Right(c,n)
C、Mid(c,n,1)
D、Mid(c,n,n)
23.執行以下程序段
Dim x As Integer, i As Integer
x = 0
For i = 20 To 1 Step -2
x = x + i \ 5
Next i
後，x的值為
A、16
B、17
C、18
D、19
24.在Visual Basic工程中，可以作為「啟動對象「的程序是
A、任何窗體或標准模塊
B、任何窗體或過程
C、Sub Main過程或其他任何模塊
D、Sub Main 過程或任何窗體
25.假定建立一個名稱為Command1的命令按鈕數組，則以下說法中錯誤的是
A、數組中每個命令按鈕的名稱（Name屬性）均為Command1
B、數組中每個命令按鈕的標題（Caption屬性）都一樣
C、數組中所有命令按鈕可以使用同一個事件過程
D、用名稱Command1（下標）可以訪問數組中的每一個命令按鈕
26.把窗體的KeyPreview屬性設置程為True，然後編寫如下事件過程
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr(KeyAscii)
KeyAscii = Asc(UCase(ch))
Print Chr(KeyAscii + 2)
End Sub
程序運行後，按鍵盤上的「A「鍵，則在窗體上顯示的內容是
A、A
B、B
C、C
D、D
27.在窗體上畫一個命令按鈕和一個文本框，名稱分別為Command1和Text1，然後編寫如下程序：
Private Sub Command1_Click()
a = InputBox("請輸入日期（1～31）")
t = "旅遊景點：" _
& IIf(a > 0 And a <= 10, "長城", "") _
& IIf(a >10 And a <= 20, "故宮", "") _
& IIf(a >20 And a <= 31, "頤和園", "")
Text1.Text = t
End Sub
程序運行後，如果從鍵盤上輸入16，則在文本框中顯示的內容是
A、旅遊景點：長城故宮
B、旅遊景點：長城頤和園
C、旅遊景點：頤和園
D、旅遊景點：故宮
28.在窗體上畫一個名稱為Label1的標簽，然後編寫如下事件過程：
Private Sub Form_Click()
Dim arr(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 2 To 4
For j = 2 To 4
arr(i, j) = i * j
Next j
Next i
Label1.Caption = Str(arr(2, 2) + arr(3, 3))
End Sub
程序運行後，單擊窗體，在標簽中顯示的內容是
A、12
B、13
C、14
D、15
29.在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下通用過程和命令按鈕的事件過程：
Private Function fun(ByVal m As Integer)
If m Mod 2 = 0 Then
fun = 2
Else
fun = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 5
s = s + fun(i)
Next i
Print s
End Sub
程序運行後，單擊命令按鈕，在窗體上顯示的是
A、6
B、7
C、8
D、9
30.閱讀程序：
Option Base 1
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3, 2)
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4)
For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2) + arr(3, 4)
End Sub
程序運行後，單擊窗體，輸出結果為
A、21
B、13
C、8
D、25
31.在窗體上畫一個名稱為 Command1 的命令按鈕，然後編寫如下程序：
Option Base 1
Private Sub Command1_Click()
Dim c As Integer,d As Integer
d=0
c=6
x=Array(2,4,6,8,10,12)
For i=1 To 6
If x(i)>c Then
d=d+x(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序運行後，如果單擊命令按鈕，則在窗體上輸出的內容為____。
A、10
B、16
C、12
D、20
32.設有如下程序
Private Sub Command1_Click()
Dim c As Integer,d As Integer
c=4
d=InputBox("請輸入一個整數")
Do While d>0
If d>c Then
c=c+1
End If
d=InputBox("請輸入一個整數")
Loop
Print c+d
End Sub
程序運行後，單擊命令按鈕，如果在輸入對話框中依次輸入1、2、3、4、5、6、7、8、9、0，則輸出結果是____。
A、12
B、11
C、10
D、9
33.在窗體上畫一個名稱為 Command1 的命令按鈕和一個名稱為 Text1 的文本框，在文本框中輸入以下字元串：
Microsoft Visual Basic Programming
然後編寫如下事件過程：
Private Sub Command1_Click()
Open "d:\temp\outf.txt" For Output As #1
For i=1 To Len(Text1.Text)
c=Mid(Text1.text,i,1)
If c>="A" And c<="Z" Then
Print #1,LCase(c)
End If
Next i
Close
End Sub
程序運行後，單擊命令按鈕，文件outf.txt中的內容是____。
A、MVBP
B、mvbp
C、M
V
B
P
D、m
v
b
p
A B C D
34.在窗體上畫一個名稱為 Command1 的命令按鈕，然後編寫如下程序：
Dim SW As Boolean
Function func(X As Integer)As Integer
If X<20 Then
Y=X
Else
Y=20+X
End If
func=Y
End Function
Private Sub Form_MouseDown(Button As Integer,_
Shift As Integer,X As Single,Y As Single)
SW=False
End Sub
Private Sub Form_MouseUp(Button As Integer,_
Shift As Integer,X As Single,Y As Single)
SW=True
End Sub
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox("")
If SW Then
Print func(intNum)
End If
End Sub
程序運行後，單擊命令按鈕，將顯示一個輸入對話框，如果在對話框中輸入 25，則程序的執行結果為____。
A、輸出 0
B、輸出 25
C、輸出 45
D、無任何輸出
35.設有如下通用過程：
Public Sub Fun(a() As Integer,x As Integer)
For i=1 To 5
x=x+a(i)
Next
End Sub
窗體上畫一個名稱為 Text1 的文本框和一個名稱為 Command1 的命令按鈕。然後編寫如下的事件過程：
Private Sub Command1_Click()
Dim arr(5) As Integer,n As Integer
For i=1 To 5
arr(i)=i+i
Next
Fun arr,n
Text1.Text=Str(n)
End Sub
程序運行後，單擊命令按鈕，則在文本框中顯示的內容是____。
A、30
B、25
C、20
D、15
二、填空題（每空2分，共計30分）
1.某二叉樹中度為2的結點有18個，則該二叉樹中有____個葉子結點。
輸入答案，中間不含空格:
2.在面向對象方法中，類的實例稱為____。
輸入答案，中間不含空格:
3.診斷和改正程序中錯誤的工作通常稱為____。
輸入答案，中間不含空格:
4.在關系資料庫中，把數據表示成二維表，每一個二維表稱為____。
輸入答案，中間不含空格:
5.問題處理方案的正確而完整的描述稱為____。
輸入答案，中間不含空格:
6.以下語句的輸出結果是____。
Print Int(12345.6789*100+0.5)/100
輸入答案，中間不含空格:
7.在窗體上畫一個文本框和一個圖片框，然後編寫如下兩個事件過程：
Private Sub Form_Click()
Text1.text="VB程序設計"
End Sub
Private Sub Text1_Change()
Picture1.Print"VB Programming"
End Sub
程序運行後，單擊窗體，則在文本框中顯示的內容是____，而在圖片框中顯示的內容是____。
輸入答案，中間不含空格:
8.上一題
輸入答案，中間不含空格:
9.閱讀下面的程序：
Private Sub Form_Click()
Dim Check As Boolean,Counter As Integer
Check=True
Counter=5
Do
Do While Counter < 20
Counter =Counter+1
If Counter=10 Then
Check=False
Exit Do
End If
Loop
Loop Until Check =False
Print Counter
End Sub
程序運行後，單擊窗體，輸出結果為____。
輸入答案，中間不含空格:
10.設有如下程序：
Private Sub Form_Click()
Dim a As Integer,s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是____。程序運行後，單擊窗體，輸出結果為____。
輸入答案，中間不含空格:
11.上一題
輸入答案，中間不含空格:
12.設有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1
Dim Min As Integer,i As Integer
arr1=Array(12,435,76,-24,78,54,866,43)
Min=____
For i=2 To 8
If arr1(i)<Min Then ____
Next i
Print "最小值是：";Min
End Sub
以上程序的功能是：用 Array 函數建立一個含有8個元素的數組，
然後查找並輸出該數組中各元素的最小值。請填空。
輸入答案，中間不含空格:
13.上一題
輸入答案，中間不含空格:
14.在名稱為 Form1 的窗體上畫一個文本框，其名稱為 Text1，在屬性窗口中把該文本框的 MultiLine 屬性設置為 True，然後編寫如下的事件過程：
Private Sub Form_Click()
Open"d:\test\smtext1.txt"For Input As #1
Do While Not ____
Line Input #1,aspect$
whole$=whole$+aspect$+Chr$(13)+Chr&(10)
Loop
Text1.Text=whole$
Chose #1
Open "d:\test\smtext2.txt"For Output As #1
Print #1,____
Close #1
End Sub
上述程序的功能是，把磁碟文件 smtext1.txt 的內容讀到內存並在文本框中顯示出來，
然後把該文本框中的內容存入磁碟文件 smtext2.txt。請填空。
輸入答案，中間不含空格:
15.上一題
輸入答案，中間不含空格:
答案
1 D
2 B
3 D
4 C
5 A
6 C
7 B
8 D
9 D
10 C
11 A
12 B
13 B
14 C
15 D
16 C
17 D
18 A
19 B
20 D
21 A
22 B
23 C
24 D
25 B
26 C
27 D
28 B
29 B
30 A
31 C
32 D
33 D
34 D
35 A
36 19
37 對象
38 程序調試
39 關系
40 演算法
41 12345.68
42 VB程序設計
43 VB Programming
44 10
45 計算1到8的累加 （ 意思相同的語句）
46 36
47 12
48 Min=arr1(i)
49 EOF(1)
50 Text1.text
⑤ VB期末考試題,跪求答案
For i = 0 To 20
For j = 0 To 33
If i * 5 + j * 3 + (100 - i - j) / 3 = 100 Then
Print "公雞:"; i; "只，母雞:"; j; "只，小雞:"; 100 - i - j; "只。"
End If
Next j
Next i
⑥ 大學vb考試的經典例題有沒有啊
VB考試沒有什麼經典不經典的，考了就是經典的，題目到時沒有，但是有點心得，希望對你又幫助：考試其實都是最基本的，包括二級，主要的考點為：變數名的合法性，常量的表達方式（1e-5等），數組，數組下標的越界，你基本最基本的程序應該要記住，排序（冒泡、折半等），插入，查找，這個是最基本的，如果考函數，要寫的話，就是把這些程序單獨的寫出來，沒技術含量，調用也是一句話或者一個表達式，查找數值，字元串的操作等等，但是基本都是以書為前提的，不會太深入，將書看透，把課後的幾個題目做做，考試肯定沒問題的
⑦ 求VB考試題目答案
在窗體上有命令按鈕，有如下事件代碼
private sub command1_click()
static x as integer
dim y as integer
cls
x=x+5
y=y+10
print x,y
end sub
程序運行時，三次單擊命令按鈕後，窗體上顯示的結果是（ c ）
A.5 10 B. 5 30 C.15 10 D.15 30
⑧ 求大一VB期末考試測試題及答案(北京)
??30、形參表中的各個變數之間用( )分隔。（1分）
A、. B、、
C、, D、;
?31、引用列表框（List1）最後一個數據項應使用( )。（1分）
A、List1.List(List.ListCount) B、List1.List(List.ListCount-1)
C、List1.List(ListCount) D、List1.List(ListCount-1)
?32、在下面關於常用的ActiveX控制項的說法中，正確的是( )。（1分）
A、在Animation控制項中，當用Open方法打開AVI文件後直接自動播放 B、Slider控制項有Scroll和Change事件
C、UpDown不能與Slider「捆綁」 D、選項卡只可以出現在控制項的項端
？1、激活Visual Basic集成環境主菜單的按鍵是( )。（1分）
A、Alt 或 F10 B、F1
C、F9 D、F5
15、下列關於聲明變數的說法中，錯誤的是( )。（1分）
A、用顯示聲明變數的關鍵字Dim,Private,Static或Public來聲明變數的類型 B、用類型說明符標記變數類型，類型說明符有：%,&,!,@,$
C、用DefType語句聲明變數的類型，其中Type是類型標志 D、用Type<數據類型名>/End Type語句聲明記錄類型變數
？18、表達式1.5+3\2>2 Or 7 Mod 3<4 And Not 1的運算結果是( )。（1分）
A、-1 B、0
C、1 D、其他
28、關於過程級過程參數的描述中，錯誤的描述是( )。（1分）
A、過程的參數可以是控制項名稱 B、用數組作為過程的參數時，使用的是「傳地址」方式
C、只用函數過程能夠將過程中處理的信息傳回到調用的程序中 D、窗體可以作為過程的參數
30、形參表中的各個變數之間用( )分隔。（1分）
A、. B、、
C、, D、;
31、引用列表框（List1）最後一個數據項應使用( )。（1分）
A、List1.List(List.ListCount) B、List1.List(List.ListCount-1)
C、List1.List(ListCount) D、List1.List(ListCount-1)
32、在下面關於常用的ActiveX控制項的說法中，正確的是( )。（1分）
A、在Animation控制項中，當用Open方法打開AVI文件後直接自動播放 B、Slider控制項有Scroll和Change事件
C、UpDown不能與Slider「捆綁」 D、選項卡只可以出現在控制項的項端
問題補充：36、若菜單項前面沒有內縮符號「...」表示該菜單項是(
A、主菜單項 B、子菜單項
C、下拉式菜單 D、彈出式菜單
37、下列語句向順序文件中寫入數據，不正確的是( )。（1分）
A、print #1 "this is a test" B、print #1,"this is a test"
C、print #1,spc(5),"this is a test" D、print #1,tab(10),"this is a test"
38、line input #1,str1的意思是( )。（1分）
A、將str1寫入打開的1號文件 B、從1號文件中讀出一行數據賦予str1
C、將str1作為一行寫入1號文件 D、從1號文件中讀出一個變數賦予str1
39、在順序文件中，寫入一條記錄的正確語句是( )。（1分）
A、put #1,a B、print #1,a
C、write line #1,a D、print line #1,a
40、打開一個新的順序文件SeqOld.dat，供用戶寫入數據，指定文件號為2，正確的語句為( )。（1分）
A、open "seqNew.dat" for Input as #2 B、open "seqNew.dat" for Output as #2
C、open seqNew.dat for Input as #2 D、open seqNew.dat for Output as #2
答案1.A 15.D 18.A 28.B 30.C 31.B 32.B36.A 37.A 38.C 39.B 40.A
看哈子,看對你有沒有幫助.
⑨ 大學VB練習題
5.1 界面圖：
OptionExplicit
PrivateSubCommand1_Click()
DimiAsInteger
Text1.Text=Trim(Text1.Text)
IfText1.Text=""Then
MsgBox"請輸入單詞！",,"輸入提示"
ExitSub
EndIf
Fori=0ToList1.ListCount-1
IfList1.List(i)=Text1.TextThen
MsgBox"單詞已經存在！",,"添加提示"
ExitSub
EndIf
Nexti
List1.AddItemText1.Text
Text1.Text=""
EndSub
PrivateSubCommand2_Click()
DimiAsInteger
Fori=0ToList1.ListCount-1
IfList1.Selected(i)Then
List1.RemoveItemi
ExitFor
EndIf
Nexti
MsgBox"請選中要刪除的單詞！",,"刪除提示"
EndSub
PrivateSubCommand3_Click()
List1.Clear
EndSub
PrivateSubCommand4_Click()
DimOdAsString
DimiAsInteger
IfText1.Text=""Then
MsgBox"請在文本框里輸入正確的單詞！",,"修改提示"
ExitSub
EndIf
IfList1.SelCount=0Then
MsgBox"請選中欲修改的單詞！",,"修改提示"
ExitSub
EndIf
Fori=0ToList1.ListCount-1
IfList1.List(i)=Text1.TextThen
MsgBox"單詞已經存在！",,"修改提示"
ExitSub
EndIf
Nexti
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
Command5.Enabled=True
EndSub
PrivateSubCommand5_Click()
DimOdAsString
DimiAsInteger
DimMsg,Style,Title,Response
Msg="是否確認修改?"'定義信息。
Style=vbYesNo+vbQuestion+vbDefaultButton2'定義按鈕。
Title="修改確認提示"'定義標題。
Response=MsgBox(Msg,Style,Title)
IfResponse=vbYesThen'用戶按下「是」。
Fori=0ToList1.ListCount-1
IfList1.Selected(i)Then
Od=List1.List(i)
List1.RemoveItemi
List1.AddItemText1.Text,i
MsgBox"完成將"&Od&"修改成："&Text1.Text,,"修改成功！"
Command1.Enabled=True
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=True
Command5.Enabled=False
Text1.Text=""
ExitFor
EndIf
Nexti
EndIf
EndSub
PrivateSubForm_Load()
Form1.Caption="單詞列表管理"
Command1.Caption="添加單詞"
Command2.Caption="刪除單詞"
Command3.Caption="全部刪除"
Command4.Caption="修改單詞"
Command5.Caption="修改確認"
Command6.Caption="退出"
Command5.Enabled=False
EndSub