1、一、填空題（每題1分，共10分）1.把數學式子：寫成VB的數值表達式為（ Sqr(1+3.14159/2*Sin(25*3.14159/180) ）。2設A=5，B=6，C=7，D=8，表達式3>2*B OR A=C AND B<>C OR C>D的值是（ True ）。3若Case子句中的表達式表列具有形式：<表達式1> To <表達式2>，則它的含義是：當測試表達式的值等于（ 指定范圍內的值 ）時，執行該Case子句相應的語句塊。4執行下面的程序段后，x的值為（ 12 ）。x=0For i=1 To 8 Step 3x=x+iNext i5在

2、圖片框上放置的控件稱為圖片框的（ 子 ）對象，而窗體是圖片框的（ 父 ）對象。6將命令按鈕Command1的Caption屬性值賦給文本框Text1的Text屬性使用的語句為( Text1.Text=Command1.Caption)7復選框的Value屬性為（ 1 ）時，表示復選框被選中。 8. 使用滾動條可以獲取某一范圍內的數值輸入。為使垂直滾動條的Value屬性值從下往上遞增變化，應設置滾動條Min屬性值大于( Max )屬性值。9語句：Dim A(-3 to 4) as Integer定義的一維數組A的元素個數是（ 8 ）。10給定如下子過程： Function fun(ByVal n

3、um As Long) As LongDim k As Long,i As Integerk=1For i=1 To numk=k*iNext iEnd Function執行語句Print fun(5) 后在窗體上顯示的結果為（ 0 ）。 二、單項選擇題（每題1.5分，共30分）1.裝載窗體是窗體的（ C ）。A) 對象 B) 屬性 C) 事件 D) 方法2.設a="Visual Basic"，下面使b的值為"Basic"的賦值語句正確的是( B )。A) b=Left(a,8,12) B) b=Mid(a,8,5)C) b=Right(a,5,5) D

4、) b=Left(a,8,5)3設X為整型變量,不能正確表達1< X < 5的邏輯表達式是( A )。A) 1< X <5 B) X=2 or X=3 or X=4C) 1<X And X <5 D) Not (X<=1) And Not (X>=5) 4InputBox函數返回值的類型為( B )。A) 數值型 B) 字符串型 C) 邏輯型 D) 貨幣型5執行語句：Print 4+56*8/8 Mod 9 輸出的值是( A )。A) 4 B) 5 C) 6 D) 76.下列循環語句能正常結束循環的是（ C ）。A)i=5 B) i=1Do Do

5、 i=i+1 i=i+2Loop Until i< 0 Loop Until i=10C)i=10 D) i=6Do Do i=i+1 i=i-2Loop Until i> 0 Loop Until i=1 7以下敘述中正確的是 （ A ）。A) 窗體的Name屬性指定窗體的名稱 ，用來標識一個窗體B) 窗體的Name屬性的值是顯示在窗體標題欄中的文本 C) 可以在運行期間改變窗體的Name屬性的值 D) 窗體的Name屬性值可以為空8VB為命令按鈕提供的Cancel屬性（ A ）。A) 用來指定命令按鈕是否為窗體的“取消”按鈕 B) 用來指定命令按鈕的功能是停止一個程序的運行C)

6、 用來指定命令按鈕的功能是關閉一個運行程序D) 用來指定命令按鈕的功能是中斷一個程序的運行9若使命令按鈕失效，要對（ A ）屬性設置為False。 A) Enabled B) Visible C) BackColor D)Caption10在窗體中添加兩個文本框（其Name屬性分別為Text1和Text2）和一個命令按鈕（Name屬性為Command1），然后編寫如下兩個事件過程：Private Sub Command1_Click()a = UCase(Text1.Text) + Left(Text2.Text, 3)Print aEnd SubPrivate Sub Form_Load()

7、Text1.Text = "abcDEF"Text2.Text = "123456"End Sub程序啟動后，單擊命令按鈕，輸出結果為（ C ）A）abcDEF123456 B）abcDEF123C）ABCDEF123 D）ab12345611在運行程序時，要使文本框獲得焦點，則需使用（ B ）方法。 A) Change B) SetFocus C) GotFocus D) Move12下列語句中不能把圖片框Picture1中的圖形清除的是（ A ）。 A) Picture1.Del B) Picture1. Picture=LoadPicture(&q

8、uot;") C) Picture1. Picture= LoadPicture( ) D) Picture1. Picture=Nothing13要刪除列表框中的某一個項目，需要使用（ D ）方法。 A) Clear B) ReMove C) Move D) ReMoveItem14在組合框中選擇某一項目內容，在程序中可以通過（ D ）屬性獲得。 A) List B) ListIndexC) ListCount D) Text15若有數組說明語句：Dim a()AS Integer，則a被定義為（B ）。A) 定長數組 B) 可調數組 C) 靜態數組 D) 可變類型數組16有如下語

9、句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu.Name = "李強".Age = 21.Sex = "男"End With執行語句Print Stu.Age后在窗體上顯示的結果是（ B ）。A)李強 B)21 C)“男” D)Age17.要使子過程f1調用后能用形式參數返回兩個結果，下面子過程定義正確的是( C )。 A）Sub f1(ByVal n%,ByVal m%) B）Sub f1(n%,ByVal m%) <

10、;子過程體> <子過程體> End Sub End SubC）Sub f1(n%,m%) D）Sub f1(ByVal n%,m%)<子過程體> <子過程體>End Sub End Sub18.以下敘述中錯誤的是( D )。A) 一個工程中可以包含多個窗體文件B) 在一個窗體文件中用Private定義的子過程或函數過程不能被其他窗體文件調用C) 在設計VB程序時，窗體模塊和標準模塊需要分別保存為不同類型的文件D) 全局變量必須在標準模塊中定義 19從磁盤上打開順序文件"c:t1.txt"為讀入數據做好準備，如下語句（ A ）是正確的

11、。 A） F="c:t1.txt" B）F="c:t1.txt"Open F For Input As #1 Open "F" For Input As #2C）Open "c:t1.txt" For Output As #1 D）Open c:t1.txt For Input As #220.以下敘述中正確的是( B )。A) 一個記錄中所包含的各個元素的數據類型必須相同B) 隨機文件中每個記錄的長度是固定的C) Open命令的作用是打開一個已經存在的文件D) 使用Input#語句可以從隨機文件中讀取數據三、程序

12、閱讀題(第1題3分，第2題5分，其余題各4分，共24分)1當x的輸入值分別為4、8和12時，寫出執行下列事件過程的輸出結果。Private Sub Command1_Click()Dim x%, y%x = InputBox("請輸入x的值：")Select Case xCase 1, 3, 5 ,7y = x + 10Case 8 To 10y = x + 2Case 2, 4, 6y = 5 * xCase Is > 10y = x * x + 1End SelectPrint "x=" x, "y=" yEnd Subx=

13、4 y=20x=8 y=10x=12 y=1452. 寫出執行下列事件過程的輸出結果。Private Sub Command1_Click() Const n = 3 Dim i As Integer, k As Integer For i = 1 To n Print Tab(n - i) * 2 + 1); For k = 1 To i Print Str(k); Next k For k = i - 1 To 1 Step -1 Print Str(k); Next k Print Next i End Sub 1 1 2 1 1 2 3 2 1 3.設在一個窗體（如圖所示）中已設置了一

14、個組合框Combo1和文本框Text 1，且有下列程序，試寫出事件過程Combo1_Click的功能。Dim str As StringPrivate Sub Form_Load() str = " "Combo1.AddItem "北京"Combo1.AddItem "天津"Combo1.AddItem "西安"Combo1.AddItem "上海"Combo1.AddItem "武漢"Combo1.AddItem "廣州"Combo1.AddItem

15、"海口"Combo1.Text = "北京"End SubPrivate Sub Combo1_Click()str = str & Combo1.Text & "，"Text1.Text = strEnd Sub在文本框中顯示單擊組合框列表項目時該項目的內容，而且以后來添加的方式在文本框中顯示所有選擇項目的內容。4. 寫出執行下列事件過程的輸出結果。Private Sub Form_Click() Dim a(1 To 2, 1 To 2) As Integer Dim i As Integer, j As Inte

16、ger For i = 1 To 2 For j = 1 To 2 a(i, j) = (2 * i - 1) * 4 + j Next j Next i For i = 1 To 2 Print a(i, 3 - i), a(3 - i, i) Next iEnd Sub 6 13 13 65寫出執行下列事件過程的輸出結果。Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3: b = 2 Call f(8, a) Print "a=" a, "b=" b Call f(a,

17、 b) Print "a=" a, "b=" bEnd SubPrivate Sub f(ByVal x As Integer, y As Integer) x = x + 1 y = y - 1End Sub a=2 b=2 a=2 b=16若有如下窗體模塊： Dim a As IntegerPrivate Sub test() Dim b As Integer a = a + 1: b = b + 1 Print "Sub: " a, bEnd SubPrivate Sub Command1_Click() a = 2: b =

18、3 Call test Call testEnd Sub寫出當程序啟動并單擊命令按鈕后，在窗體中顯示的結果。Sub： 3 1 Sub： 4 1 四、程序填空題 (每空2分，共22分) 1. 下面事件過程的功能是：輸入某個學生某門課程的百分制成績，并根據成績輸出評語，若0成績60 時，評語為“差”；若60成績70時，評語為“通過”；若70成績80時，評語為“中等”；若80成績90時，評語為“良好”；若90成績100時，評語為“優秀”，在橫線上填上適當內容。Private Sub Command1_Click() Dim s! s = InputBox("請輸入學生的成績：")

19、 If 0<=s And s<=100 Then Select Case (1) s Case Is >= 90 Print "優秀" Case Is >= 80 Print "良好" Case Is >= 70 Print "中等" Case Is >= 60 Print "通過" (2) Case Else或Is >=0 Print "差" End Select End IfEnd Sub2.下面程序的功能是：計算 f=1 -1/(2×3)

20、+1/(3×4)-1/(4×5)+ +1/(19×20)的值，在橫線上填上適當內容。Private Sub Form_Click() Dim f As Single,i As Integer,sign As Integer （3） sign=-1 f = 1 （4） for i=2 to 19 f = f + sign/(i*(i + 1) （5） sign=sign*(-1) Next i Print " f= " fEnd Sub3.下面窗體模塊的功能是：從鍵盤上輸入x，y和z的值，按如下公式求f (x，y，z)的值的程序，在橫線上填上適當

21、內容。f(x,y,z)=sin(x)/(sin(x-y)*sin(x-z)+sin(y)/(sin(y-z)*sin(y-x)+sin(z)/(sin(z-x)*sin(z-y)其中x、y和z互不相等。Function f(ByVal a As Single,ByVal b As Single,ByVal c As Single) (6) As Single (7) f=Sin(a)/(Sin(b)* Sin(c) End Function Private Sub Command1_Click() Dim x!, y!, z!, s! x = InputBox("x=")

22、y = InputBox("y=") z = InputBox("z=") If x <> y And y <> z And z <> x Thens=f(x,x-y,x-z)+f(y,y-z,y-x)+ (8) f(z,z-x,z-y) Print "s=" s Else Print "數據輸入錯誤！" End IfEnd Sub4.下面事件過程的功能是從學生分數順序文件D: file1.dat中讀取各個學生的分數，并求該班的平均成績，在橫線上填上適當內容。Private Sub command1_Click() Dim n%, score!, s! Open "D:file1.dat" (9) As #3 For Input n = 0: s = 0 While (10) Not EOF(3) Input #3,score s = s + score n = (11) n+1 Wend Print "平均成績為："