《VB程序設計(?？?》自測題三-答案

1、姓名_ 專業(yè)名稱_班號_學號_教學中心_ 密 封 線 電子科技大學網絡教育考卷（B卷）(20 年至20 學年度第 學期)考試時間 年 月 日(120分鐘) 課程 VB程序設計 教師簽名_ 大題號一二三四五六七八九十合 計得 分一、 填空題（每空1分，共10分）1、 10+(20-math.sqrt(25) * 2 ) / 4 的運算結果為 12.5 ；2、 if b > a then max= b else max =a 用iif函數替代實現的寫法為 max=iif(b>a,b,a) ；3、 2008年8月8日的日期常量表示為 #2008-08-08# ；4、 Do循環(huán)有兩類語法形

2、式，即 前測型 循環(huán)和 后測型 循環(huán)。5、 數組必須先聲明后使用，主要聲明 數組名 、 類型 、 維數 和 大小 。6、 程序事件可以由動作引發(fā)， 程序本身 也可以引發(fā)事件。二、 單項選擇題（每題2分，共20分）1、 后綴為.bas的文件表示VB的( D )A、類模塊文件B、窗體文件C、工程文件D、標準類模塊文件2、 下列變量名合法的是( C )A、2xyB、a-bC、a_2D、float3、 表達式1 + 25 6 * 2 / 3 mod 4 的值是( B )A、0B、1C、2D、34、 表達式 “A” Like “A-Z” 的結果為：( C )A、AB、ZC、TrueD、False5、 下

3、列語句是二維數組引用的是：( C )A、g2,3B、g23C、g(2,3) D、g(2)(3)6、 窗體Caption屬性的含義為( A )A、決定窗體標題欄顯示的內容B、決定是否顯示窗體的控制菜單圖標C、設置窗體的邊框樣式D、設置窗體的大小7、 語句format(1234.5678 , ”#.00” )的結果為：( B )A、“1234.56”B、“1234.57”C、1234.56 D、1234.578、 引用對象的屬性和方法使用的符號為：( C )A、減號( - )B、箭頭（->）C、小數點( . ) D、冒號( : )9、 獲取當前系統(tǒng)日期和時間的函數名為：( B )A、NowB

4、、DateC、IsDate D、TimeOfDate10、 Timer控件只有一個事件，該事件的名稱是( B )A、LoadB、TimerC、ClickD、Run三、 簡答題（每題5分，共30分）1、 簡述創(chuàng)建應用程序的工程包括哪些內容。答：窗體是應用程序的基本構件。應用程序至少擁有一個窗體。窗體用于輸入和輸出。此外，作為VB的工程應該包括以下內容：工程文件，工程組文件：用于工程管理；窗體文件：一個窗體對應一個文件；模塊文件：標準模塊文件，主要有代碼組成，聲明一些全局變量和過程。類模塊文件：用戶定義的類相關文件；數據文件：是一個二進制文件。2、 簡述Visual Basic 6.0標識符的命名

5、規(guī)則。答：必須以字母開頭不能包含嵌入的（英文）句號或者嵌入的類型聲明字符不能超過255個字符在同一個范圍內必須是唯一的。3、 試給出控件的5個常用屬性，并簡單說明；答：name：控件的名稱enabled：指定屬性是否可以操作visible：決定屬性是否可見font：指定控件文本字體ForeColor：指定控件文本字體的前景色4、 說明如何使用可選參數，并設定參數默認值？答：在過程的參數表中輸入Optional關鍵字，就可以指定過程的參數為可選的。要求可選參數后面的參數也必須是可選的，并用Optional關鍵字聲明?？蛇x參數通過以下形式指定默認值：Optional 參數= 值5、 試說明控件數組

6、的建立和使用。答：控件數組中每一個元素都是控件，可以通過以下兩種方法建立控件數組：給控件設置相同的名稱，即修改若干控件的name屬性，使之相同，相同名稱的控件構成了控件數組采用控件復制的方法，多次粘貼到其他位置上，所有被粘貼的控件和原控件一起構成了控件數組。6、 簡述實現隨機文件讀寫的一般過程答：對隨機文件的操作實際上是對文件中的記錄進行操作，每個記錄都有記錄號并且記錄長度相同。基本操作如下：打開文件open 文件名 for random as #文件號 【len = 記錄長度】寫入數據put 【#】文件號，【記錄號】，記錄變量讀取數據get 【#】文件號，【記錄號】，記錄變量關閉文件clos

7、e四、 應用題 （共40分）1、 設計一個函數，參數不定，類型為整數，返回最大值；（10分）答：Public Function get_max(ParamArray intnums() As Integer Dim n As Integer, maxnum As Integer maxnum = 0 For n = 0 To UBound(intnums) If maxnum < intnums(n) Then maxnum = intnums(n) End If Next get_max = maxnum End Function2、 定義一個學生結構類型，包含姓名，學號，性別和年齡信

8、息；設計一個過程，實現10個學生信息的錄入，并輸出年齡最大的男生信息；（15分）答：Public Type stud sno As String * 5 sname As String * 20 ssex As String * 2 sage As IntegerEnd TypePublic Sub find_stud() Dim st1(9) As stud, maxi As Integer Dim i As Integer maxi = 0 For i = 0 To 9 st1(i).sno = InputBox("輸入" + str(i) + "學號：&qu

9、ot;) st1(i).sname = InputBox("輸入" + str(i) + "姓名：") st1(i).ssex = InputBox("輸入" + str(i) + "性別：") st1(i).sage = Val(InputBox("輸入" + str(i) + "年齡") If st1(i).ssex = "男" And st1(i).sage > st1(i).sage Then maxi = i End If Next Pri

10、nt "年齡最大男生信息：" Print st1(maxi).sno + "," + st1(maxi).sname + "," + st1(maxi).ssex + "," + str(st1(maxi).sage)End Sub3、 設計一個過程，輸入3×3整數矩陣，求取其轉置矩陣（15分）答：Public Sub trans()Dim a(1 To 3, 1 To 3) As Integer a(1, 1) = 1: a(1, 2) = 2: a(1, 3) = 3 a(2, 1) = 4: a(2, 2) = 5: a(2, 3) = 6 a(3, 1) = 7: a(3, 2) = 8: a(3, 3) = 9 Dim tmp As Integer For i = 1 To 3 For j = 1 To i tmp = a(i, j): a(i, j) = a(j, i): a(j, i) = tmp Next j Next i For i =