第1題 （1.0分） 題號:255
Shape控件和Line控件可以在窗體中移動(dòng),因此它們具有Move方法.
答案：N
第2題 （1.0分） 題號:225
Visual Basic程序的運行可以從Main()過(guò)程啟動(dòng),也可以從某
個(gè)窗體啟動(dòng).
答案：Y
第3題 （1.0分） 題號:316
圖片框的屬性Enabled設置為FALSE, 圖片框上的控件仍可響
應用戶(hù)操作.
答案：N
第4題 （1.0分） 題號:302
若已在窗體中加入了一個(gè)通用對話(huà)框:要求在運行時(shí),通過(guò)
ShowOpen打開(kāi)對話(huà)框時(shí),只顯示擴展名為 DOC 的文件,則
對通用對話(huà)框的 Filter的屬性設置應該是:" (*.DOC)| ( .DOC)" .
答案：N
第5題 （1.0分） 題號:304
設計菜單中每一個(gè)菜單項分別是一個(gè)控件,每個(gè)控件都有自己的名字.
答案：Y
第6題 （1.0分） 題號:298
清除list1列表框對象的內容的語(yǔ)句是list1.cls.
答案：N
第7題 （1.0分） 題號:314
圖片框的Move方法不僅可以移動(dòng)圖片框,而且還可以改變該圖
片框的大小,同時(shí)也會(huì )改變該圖片框有關(guān)屬性的值.
答案：N
第8題 （1.0分） 題號:270
當窗體的ScaleTop=0,ScaleLeft=0時(shí),這個(gè)窗體Top和Left值也是0.
答案：N
第9題 （1.0分） 題號:289
框架控件和形狀控件都不能響應用戶(hù)的鼠標的單擊事件.
答案：Y
第10題 （1.0分） 題號:312
通用對話(huà)框只能用SHOW方法進(jìn)行調用.
答案：N
第1題 （1.0分） 題號:837
用戶(hù)可以通過(guò)設置菜單項的()屬性值為FALSE來(lái)使該菜單項不可見(jiàn).
A:Hide
B:Checked
C:Visible
D:Enabled
答案：C
第2題 （1.0分） 題號:291
定時(shí)器的Interval屬性以()為單位指定Timer事件之間的時(shí)間間隔.
A:分
B:秒
C:毫秒
D:微秒
答案：C
第3題 （1.0分） 題號:278
要在圖片框P1中打印字符串" HowAreYou" ,應使用語(yǔ)句().
A:Picture1.Print=" HowAreYou"
B:P1.Picture=LoadPicture(" HowAreYou" )
C:P1.Print" HowAreYou"
D:Print" HowAreYou"
答案：C
第4題 （1.0分） 題號:371
下列關(guān)于設置控件屬性的敘述正確的是().
A:用戶(hù)必須設置屬性值
B:所有的屬性值都可以由用戶(hù)隨意設定
C:屬性值不必一一重新設置
D:不同控件的屬性項都完全一樣
答案：C
第5題 （1.0分） 題號:320
啟動(dòng)VisualBasic后,系統為用戶(hù)新建的工程起一個(gè)名為()的
臨時(shí)名稱(chēng).
A:工程1
B:窗體1
C:工程
D:窗體
答案：A
第6題 （1.0分） 題號:336
設a=10,b=5,c=1,執行語(yǔ)句Printa>b>c后,窗體上顯示的是().
A:True
B:False
C:1
D:出錯信息
答案：B
第7題 （1.0分） 題號:277
MSGBOX函數中有4個(gè)參數,其中必須寫(xiě)明的參數是().
A:指定對話(huà)框中顯示按鈕的數目
B:設置對話(huà)框標題
C:提示信息
D:所有參數都是可選的
答案：C
第8題 （1.0分） 題號:835
應用程序設計完成后,應將程序保存,保存的過(guò)程是().
A:只保存窗體文件即可
B:只保存工程文件即可
C:先保存工程文件,之后保存窗體文件
D:先保存窗體文件(或標準模塊文件),之后還要保存工程文件
答案：D
第9題 （1.0分） 題號:294
改變控件在窗體中的左右位置應修改該控件的()屬性.
A:Top
B:Left
C:Width
D:Right
答案：B
第10題 （1.0分） 題號:233
VB認為下面()組變量是同一個(gè)變量.
A:A1和a1
B:SUM和SUMMARY
C:AVER和AVERAGE
D:A1和A_1
答案：A
第1題 （10.0分） 題號:36
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：以下程序的功能如(圖1)。
'-------------------------------------------------------
Private Sub Form_Click()
Dim a%, b%, c%, d!
Dim x1, x2
Dim p, q, r
a = InputBox(" 請輸入a的值" )
b = InputBox(" 請輸入b的值" )
c = InputBox(" 請輸入c的值" )
d = b * b - 4 * a * c
p = -b / (2 * a)
If d >= 0 Then
'**********SPACE**********
If 【?】 Then
r = Sqr(d) / (2 * a)
x1 = p + r
x2 = p - r
Else
x1 = p
x2 = p
'**********SPACE**********
【?】
Print " x1=" ; x1, " x2=" ; x2
'**********SPACE**********
【?】
q = Sqr(-d) / (2 * a)
Print " x1=" ; p; " +" ; q; " i" , " x2=" ; p; " -" ; q; " i"
End If
End Sub
答案：
1). d > 0 或 0 < d
2). End If
3). Else
第2題 （10.0分） 題號:520
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：完成程序，使程序輸出值為 15
'-------------------------------------------------------
Private Sub Command1_Click()
'**********SPACE**********
Dim i, j, x,【?】 As Integer
For i = 1 To 4
x = 4
For j = 1 To 3
x = 3
'**********SPACE**********
For 【?】 = 1 To 2
'**********SPACE**********
x = x + 【?】
Next k
Next j
Next i
Print x
End Sub
答案：
1). k
2). k
3). 6
第3題 （10.0分） 題號:502
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：用輸入對話(huà)框輸入x，根據如圖公式計算對應的y，
' 在窗體上輸出y的值。
'-------------------------------------------------------
'
Private Sub Command1_Click()
'**********SPACE**********
Dim x As Single, 【?】 As Single
'**********SPACE**********
x = Val(【?】(" Please input x :" , " 輸入X的值" ))
If x = 10 Then
'**********SPACE**********
【?】
ElseIf x > 10 Then
'**********SPACE**********
y = Sqr(x) 【?】
Else
y = 2 * x ^ 3 + 6
End If
Print y
End Sub
答案：
1). y
2). InputBox
3). y = 0
4). + Sin(x)
第1題 （10.0分） 題號:487
'------------------------------------------------
'【程序改錯】
'------------------------------------------------
'題目:設窗體中有圖片框Pic1，現要求在其中繪制10個(gè)同心圓，
' 然后將此圖以Test.BMP作文件名存入磁盤(pán)。
'------------------------------------------------
Option Explicit
Private Sub Command1_Click()
Dim X As Integer
Dim Y As Integer
Dim I As Integer
Dim rad(9) As Integer
X = Pic1.ScaleWidth / 2
Y = Pic1.ScaleHeight / 2
'**********FOUND**********
For I = 1 To 9
rad(I) = 500 * Rnd
Next I
I = 9
'**********FOUND**********
Do Until I < 1
Pic1.Circle (X, Y), rad(I), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)
'**********FOUND**********
I = I + 1
SavePicture Pic1.Image, " Test.BMP"
End Sub
答案：
1). for i=0 to 9 或 for i=0 to 9 step 1
2). Do Until I < 0 或 do until 0>i
3). I = I - 1 或 i=-1+i
第2題 （10.0分） 題號:467
'------------------------------------------------
'【程序改錯】
'------------------------------------------------
'題目：從計算機輸入三個(gè)數 , 找出中間數
'------------------------------------------------
Option Explicit
Private Sub FindMidNum()
Dim x As Integer, y As Integer, z As Integer, A As Integer
x = InputBox(" PLEASE INPUT THE FIRST NUMBER" )
y = InputBox(" PLEASE INPUT THE SECOND NUMBER" )
z = InputBox(" PLESSE INPUT THE THIRD NUMBER" )
'**********FOUND**********
If x > y Then
A = x
x = y
y = A
End If
'**********FOUND**********
If y = z Then
Print y
'**********FOUND**********
ElseIf x = z Then
Print z
Else
Print x
End If
End Sub
Private Sub Form_Click()
FindMidNum
End Sub
答案：
1). If x < y Then 或 If y > x Then
2). If y >= z Then 或 If z <= y Then
3). ElseIf x >= z Then 或 ElseIf z <= x Then
第3題 （10.0分） 題號:141
'------------------------------------------------
'【程序改錯】
'------------------------------------------------
'題目：輸出40以?xún)饶軌虮?span lang="EN-US">3整除的數，要求輸出結果為5
' 個(gè)數一行。
'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Cls
Dim x As Integer
Dim i As Integer
'**********FOUND**********
i = 1
For x = 1 To 40
If (x / 3) = (x \ 3) Then
'**********FOUND**********
Print x
i = i + 1
End If
'**********FOUND**********
If i Mod 3 = 0 Then
Print
End If
Next x
End Sub
答案：
1). i = 0
2). Print x;
3). if i mod 5=0 then
第1題 （10.0分） 題號:480
'-------------------------------------------------
'【程序設計】
'-------------------------------------------------
'題目：編寫(xiě)函數fun其功能是：根據整型形參m，
' 計算如下公式的值:
' y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)
' 例如：若m=9，則應輸出：1.168229
'要求：函數中用到的中間變量必須聲明為Single類(lèi)型。
'-------------------------------------------------
答案：----------------------
Dim y As Double
Dim i As Integer
For i = 0 To m
y = y + 1 / (i + 5)
Next
Fun = y
----------------------
第2題 （10.0分） 題號:488
'-------------------------------------------------
'【程序設計】
'-------------------------------------------------
'題目： (事件)單擊窗體。
' (響應)已知sum=1/2!-1/4!+1/6!-1/8!+1/10!,
' 請將sum結果值輸出到窗體上。
' 使用do while...loop語(yǔ)句完成程序
'-------------------------------------------------
答案：----------------------
Dim i As Integer
Dim n As Integer
i = 1
p = 1
Do While i <= 10
p = p * i
If i Mod 2 = 0 Then
n = n + 1
sum = sum + (-1) ^ (n - 1) / p
End If
i = i + 1
Print sum
----------------------
一、判斷 共10題 （共計10分）
第1題 （1.0分） 題號:309
所有的對象都有caption 屬性.
答案：N
第2題 （1.0分） 題號:307
事件過(guò)程由某個(gè)用戶(hù)事件或系統事件觸發(fā)執行,它不能被其它
過(guò)程調用.
答案：N
第3題 （1.0分） 題號:271
當定時(shí)器控件的interval屬性值設置為0時(shí),會(huì )連續不斷地激發(fā)
Timer事件.
答案：N
第4題 （1.0分） 題號:272
當需要在同一窗體中建立幾組相互獨立的單選鈕時(shí),就要用框
架將每一組單選鈕框起來(lái).
答案：Y
第5題 （1.0分） 題號:350
在窗體模塊的聲明部分中用Private聲明的變量的有效范圍是其
所在的工程.
答案：N
第6題 （1.0分） 題號:225
Visual Basic程序的運行可以從Main()過(guò)程啟動(dòng),也可以從某
個(gè)窗體啟動(dòng).
答案：Y
第7題 （1.0分） 題號:261
VB允許設計和使用用戶(hù)自己設計的控件.
答案：Y
第8題 （1.0分） 題號:342
在VB中,可以將在Picture控件中繪制的圖形以文件的形式保存
在磁盤(pán)上.
答案：Y
第9題 （1.0分） 題號:249
Function函數有參數傳遞,并且一定有返回值.
答案：N
第10題 （1.0分） 題號:338
在VB的工具欄中包括了所有的VB控件,我們不能再加載其他的
控件.
答案：N
二、單項選擇 共10題 （共計10分）
第1題 （1.0分） 題號:260
代數式x1-|a|+ln10+sin(x2+2л)/cos(57o)對應的VisualBasic
表達式是().
A:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/
B:X1-Abs(A)+Log(10)+Sin(X2+2*л)/
C:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/
D:X1-Abs(A)+Log(10)+Sin(X2+2*л)/
答案：A
第2題 （1.0分） 題號:337
設計動(dòng)畫(huà)通常使用時(shí)鐘控件()來(lái)控制動(dòng)畫(huà)速度.
A:Enabled
B:Interval
C:Timer
D:Move
答案：B
第3題 （1.0分） 題號:796
要把一個(gè)命令按鈕設置成無(wú)效,應設置其哪一屬性值().
A:Visible
B:Enabled
C:Default
D:Cancel
答案：B
第4題 （1.0分） 題號:336
設a=10,b=5,c=1,執行語(yǔ)句Printa>b>c后,窗體上顯示的是().
A:True
B:False
C:1
D:出錯信息
答案：B
第5題 （1.0分） 題號:322
任何控件都具有的屬性是().
A:TEXT
B:CAPTION
C:NAME
D:FORECOLOR
答案：C
第6題 （1.0分） 題號:289
當事件能被觸發(fā)時(shí),()就會(huì )對該事件作出響應.
A:對象
B:程序
C:控件
D:窗體
答案：A
第7題 （1.0分） 題號:382
下列敘述正確的是().
A:對象是包含數據又包含對象數據進(jìn)行操作的方法的物理實(shí)體
B:對象的屬性只能在屬性窗口中設置
C:不同的對象能識別不同的事件
D:事件過(guò)程都要由用戶(hù)點(diǎn)擊對象來(lái)觸發(fā)
答案：C
第8題 （1.0分） 題號:371
下列關(guān)于設置控件屬性的敘述正確的是().
A:用戶(hù)必須設置屬性值
B:所有的屬性值都可以由用戶(hù)隨意設定
C:屬性值不必一一重新設置
D:不同控件的屬性項都完全一樣
答案：C
第9題 （1.0分） 題號:250
表達式2+3*4^5-SIN(X+1)/2中最先進(jìn)行的運算是().
A:4^5
B:3*4
C:x+1
D:SIN
答案：C
第10題 （1.0分） 題號:819
一個(gè)對象可以執行的動(dòng)作和可被對象識別的動(dòng)作分別稱(chēng)為().
A:事件、方法
B:方法、事件
C:屬性、方法
D:過(guò)程、事件
答案：A
三、程序填空 共3題 （共計30分）
第1題 （10.0分） 題號:41
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'下面過(guò)程max()用于求3個(gè)數中最大值，利用這個(gè)過(guò)程求5個(gè)數中最大值。
'-------------------------------------------------------
Private Sub Form_Click()
Print " 5個(gè)數34、124、68、73、352的最大值是："
max1 = max(34, 124, 68)
'**********SPACE**********
max1 =【?】
Print max1
End Sub
Public Function max(ByVal a%, ByVal b%, ByVal c%)
'**********SPACE**********
If 【?】 Then
m = a
Else
m = b
End If
'**********SPACE**********
If 【?】 Then
max = m
Else
max = c
End If
End Function
答案：
1). max(max1, 73, 352)
2). a>b 或 b<a
3). m > c 或 c < m
第2題 （10.0分） 題號:56
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：輸入數字1-7,顯示其對應是星期幾(例:輸入 1,顯示星期日,
' 如果輸入其它內容，一律顯示" 輸入錯誤" )
'-------------------------------------------------------
Private Sub Command1_Click()
dim x as integer
dim y as string
x=val(text1.text)
'**********SPACE**********
【?】
case 1
y=" 今天是星期日"
case 2
y=" 星期一"
case 3
y=" 星期二"
case 4
y= " 星期三"
case 5
y=" 星期四"
case 6
'**********SPACE**********
【?】
case 7
y= " 星期六"
'**********SPACE**********
【?】
y = " 輸入錯誤"
end select
Text2.Text = y
End Sub
答案：
1). select case x
2). y=" 星期五"
3). Case Else
第3題 （10.0分） 題號:49
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：以下程序段用于求∑n!
'-------------------------------------------------------
Private Sub Form_Click()
Dim sum As Integer, n As Integer
n = InputBox(" 請輸入一個(gè)正整數" )
sum = 0
For i = 1 To n
'**********SPACE**********
sum =【?】
Next i
Print sum
End Sub
Private Function mul(ByVal x As Integer)
Dim s As Integer, i As Integer
s = 1
'**********SPACE**********
For i = 1 To 【?】
s = s * i
Next i
'**********SPACE**********
【?】
End Function
答案：
1). sum + mul(i)
2). x
3). mul = s
四、程序改錯 共3題 （共計30分）
第1題 （10.0分） 題號:138
'------------------------------------------------
'【程序改錯】
'------------------------------------------------
'題目：輸出40以?xún)饶軌虮?span lang="EN-US">3整除的數，要求輸出結果為
' 5個(gè)數一行。
'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Cls
Dim x As Integer
Dim i As Integer
'**********FOUND**********
i = 1
For x = 1 To 40
If (x / 3) = (x \ 3) Then
'**********FOUND**********
Print x
i = i + 1
End If
If i Mod 5 = 0 Then
Print
End If
'**********FOUND**********
step i
End Sub
答案：
1). i = 0
2). Print x ; 或 ? x ;
3). Next x 或 Next
第2題 （10.0分） 題號:474
'------------------------------------------------
'【程序改錯】
'------------------------------------------------
'題目:程序功能為求解一元二次方程的實(shí)根，請修正程序中錯誤。
'------------------------------------------------
Option Explicit
Private Sub Form_Load()
Dim a!, b!, c!, root1#, root2#, work As Double
a = Val(InputBox(" 請輸入系數a的值" ))
b = Val(InputBox(" 請輸入系數b的值" ))
c = Val(InputBox(" 請輸入系數c的值" ))
'**********FOUND**********
work = b * 2 - 4 * a * c
If work >= 0 And a <> 0 Then
'**********FOUND**********
root1 = (Sqr(work)) / (2 * a)
'**********FOUND**********
root2 = (Sqr(work)) / (2 * a)
Debug.Print " 有二個(gè)實(shí)根" + Str$(root1) + " ," + Str$(root2)
Else
Debug.Print " 無(wú)實(shí)根!"
End If
End Sub
答案：
1). work = b ^ 2 - 4 * a * c 或 work = b *b - 4 * a * c
2). root1 = (-b + Sqr(work)) / (2 * a) 或 root1 = ( Sqr(work) -b ) / (2 * a) 或 root1 = (-b + Sqr(work)) / ( a*2)
3). root2 = (-b - Sqr(work)) / (2 * a) 或 root2 = (- Sqr(work) - b) / (2 * a) 或 root2 = (-b - Sqr(work)) / ( a*2)
第3題 （10.0分） 題號:475
'------------------------------------------------
'【程序改錯】
'------------------------------------------------
'題目:本程序求3~100之間的所有素數（質(zhì)數）并統計個(gè)數；
' 同時(shí)將這些素數從小到大依次寫(xiě)入順序文件c:\dataout.txt；
' 素數的個(gè)數顯示在窗體Form1上。
'------------------------------------------------
Option Explicit
Private Sub Command1_Click()
Dim Count As Integer, Flag As Boolean
Dim t1 As Integer, t2 As Integer
'**********FOUND**********
Open " dataout.txt" For Input As #1
Count = 0
For t1 = 3 To 100
Flag = True
For t2 = 2 To Int(Sqr(t1))
If t1 Mod t2 = 0 Then Flag = False
Next t2
'**********FOUND**********
If Flag = False Then
Count = Count + 1
'**********FOUND**********
Write #1, t2
End If
Next t1
Form1.Print " 素數個(gè)數" ; Count
Close #1
End Sub
答案：
1). Open " dataout.txt" For Output As #1 或 Open " dataout.txt" For Output As 1
2). If Flag Then 或 If Flag=true Then
3). Write #1, t1 或 Write 1, t1
五、程序設計 共2題 （共計20分）
第1題 （10.0分） 題號:134
'-------------------------------------------------
'【程序設計】
'-------------------------------------------------
'題目：(事件)雙擊窗體。
' (響應)s=20+21+22+…+263，求s的值，并將結果
' 存儲到變量S中。
'-------------------------------------------------
答案：----------------------
Dim i As Integer
i = 20
While i <= 263
s = s + i
i = i + 1
Wend
Print (CStr(s))
----------------------
第2題 （10.0分） 題號:142
'-------------------------------------------------
'【程序設計】
'-------------------------------------------------
'題目：(事件)單擊窗體。
' (響應)編寫(xiě)程序求10×11×12+11×12×13+…+15×16×17的結果，
' 并將結果輸出到窗體上。
' 將結果存入變量M中
'-------------------------------------------------
答案：----------------------
Dim i, j As Integer
Dim s As Long
For i = 10 To 15
s = 1
For j = i To i + 2
s = s * j
Next
m = m + s
Next
Print (CStr(m))
----------------------
聯(lián)系客服
