1、Visual Basic程序設計作業題解作 業 3一、選擇題1Visual Basic根據計算機訪問文件的方式將文件分成三類，其中不包括（ ）。A順序文件BUnix文件C二進制文件D隨機文件答案：B2隨機文件進行文件讀寫的單位是（ ）。A字節B記錄C整個文件D字符答案：B3為了使目錄路徑列表Dir1的內容符合驅動器列表框Drive1的選擇，應當（ ）。A在Dir1_Click事件中加入Dir1.Path=Drive1.DriveB在Drive1_Click事件中加入Dir1.Path=Drive1.DriveC在Dir1_Click事件中加入Drive1.Path=.Drive.PathD在D

2、ir1_Click事件中加入Drive1.Path=.Dir1.Path答案：A4為了使Drive1驅動器列表框、Dir1目錄路徑列表框和File1文件列表框能同步協調工作，需要在（ ）。ADrive1的Change事件過程中加入Drive1.Drive=Dir1.Path,在Dir1的Change事件過程中加入Dir1.Path=File1.Path代碼。BDrive1的Change事件過程中加入Dir1.Path=Drive1.Drive,在Dir1的Change事件過程中加入File1.Path=Dir1.Path代碼。CDir1的Change事件過程中加入Dir1.Path=Drive

3、1.Drive,在File1的Click事件過程中加入File1.Path=File1.FileName代碼。DDir1的Change事件過程中加入Dir1.Path=Drive1.Drive,在File1的Click事件過程中加入File1.Path=Dir1.FileName代碼。答案：C5下面關于順序文件的描述正確的是（ ）。A每條記錄的長度必須相同B可通過編程對文件中的某條記錄方便地修改C數據只能以ASCII碼形式存放在文件中，所以可通過文本編輯軟件顯示D文件的組織結構復雜答案：C6KILL語句在VB語言中的功能是（ ）。A清內存B清病毒C刪除在磁盤上的文件D清屏幕答案：C7可用來改變

4、坐標度量單位的是（ ）。ADrawstyle屬性 BDrawWidth屬性CScale屬性DScaleMode屬性答案：D8以下的屬性和方法中，可重定義坐標系的是（ ）。ADrawstyle屬性BDrawWidth屬性CScale屬性DScaleMode屬答案：B9當使用Line方法畫直線后，當前坐標在（ ）。A（0，0）B直線起點C直線終點D容器的中心答案：A10Line（200，200） Step（500，500）將在窗體（ ）畫一直線。A（200，200）到（500，500）B（200，200）到（300，300）C（200，200）到（700，700）D（300，300）到（500，5

5、00）答案：C11設置對象的邊框類型的屬性是（ ）。ADrawstyleBBorderstyleCDrawWidthDScaleMode答案：B12為了清除圖片框Picture1中的圖形，應采用的正確方法是（ ）。A選擇圖片框，然后按Del鍵B執行語句Picture1.Pictyre=LoadPicture (“”)C執行語句Picture1.Pictyre=”D選擇圖片框，在窗口屬性中選擇Picture屬性條，然后按回車鍵答案：B13要繪制多種形狀的圖形，需要設置Shape控件的（ ）屬性。AShapeBBordrestyleCFillStyleDStyle答案：A14要繪制多種式樣的直線，

6、需要設置Linee控件的（ ）屬性。AShapeBBordrestyleCFillStyleDStyle答案：B15如果準備讀文件，打開順序文件“text.dat”的正確語句是（ ）。Aopen ”text.dat” For write As # 1Bopen ”text.dat” For Binary As # 1Copen ”text.dat” For Input As # 1Dopen ”text.dat” For Random As # 1答案：C16如果準備向隨機文件寫入數據，正確的語句是（ ）。APrint # 1,recBWrite # 1,recCPut # 1,recDGet

7、 # 1,rec答案：C 17下列“CommonDialog1”控件程序代碼，Commondialog1.Action=1 ,代表（ ）。A文件另存為B打開文件C色彩D打印答案：B 18FileFiles.Pattern=”*.bat”程序代碼執行后，會顯示（ ）。A只包含擴展文件名為“*.bat”的文件B第一個bat文件C包含所有文件D會顯示磁盤的路徑答案：A 19下列數據對象數據模型中采用OLE DB訪問數據庫的是（ ）。ADAOBRDOCADODRDO 或 ADO答案：C 20設ADOrs為Recordset對象，從“學生基本情況表”中獲取所有記錄的語句是（ ）。AADOrs.Open

8、“select * From 學生基本情況表”BADOrs.Execute “select * From 學生基本情況表”CADOrs.New “select * From 學生基本情況表”DADOrs.Select “select * From 學生基本情況表”答案：A21VB中將變量x1聲明為Excel應用程序對象的方法是（ ）。ADim x1 As Excel.ApplicationBDim x1 As Excel.WorkbookCDim x1 As Excel.WorksheetDDim x1 As Excel.Worksheets答案：A二、填空題1如果要新建一個順序文件，用Ope

9、n語句時，操作方式關鍵詞是 。答案：Output2在Visual Basic程序中實現復制文件”c:”到d:盤根目錄下的語句為 。答案：Filecopy c:,d: 3在Visual Basic程序中實現刪除文件”d:tem.tmp”的語句為 。 答案：Kill “d:tem.tmp 4按文件號為1打開順序文件SQLNEW.DAT，用于寫入數據，語句為 。 答案：Open “SQLNEW.DAT” For Output As #15按文件號為2打開順序文件SQLOLD.DAT，用于從該文件讀出數據，語句為 。答案：Open “SQLOLD.DAT” For Inputt As #26若窗體的左

10、上角坐標為（-200，250），右下角坐標為（300，-150），則x軸的整方向向 ，y軸的整方向向 。答案：右 上 7Stretch屬性設置為 時，圖像框可以改變大小移適應其中的圖像。答案：True 8在圖片框Picture1中畫一個左上角在（500，500），邊長為500的紅色實心正方形的語句為 。答案：Picture1.Line (500, 500)-(1000, 1000), vbRed, BF9設CurrentX=50,CurrentY=100,執行指令”Lint(100,20)-Step(300,500”后，Current= 。答案：(400,520) 10使用ADO模型時，可通過

11、 屬性建立Recordset和Connection對象的連接。 答案：ActiveConnection11VB將數據庫分為本地數據庫、 和 三種類型。答案：外部數據庫 遠程數據庫12采用ADO模型時，當使用Open方法打開一個記錄集后，與ADOrs.Fields（”學號”）等效的語句是 。答案：ADOrs(“學號”)13ADO模型中一般可通過Connection對象的Execute方法執行 、 、 等三種不返回結果集的SQL語句。 答案：增加 刪除 修改 14設StrSQL、Str1為字符串變量，其中Str1的值為”001”，那么執行賦值語句StrSQL=”Select * from Tabl

12、e1 Where 學號=”+Str1+”后，StrSQL的值等于 。答案： Select * from Tabel1 Where 學號=00115在VB中，將Foxpro稱為外部數據庫，Access稱為 ，SQL Server稱為 。 答案：本地數據庫 遠程數據庫 三、程序設計題1 Private Sub Form_Click() Static Sum As Integer For I = 1 To 100 Sum = Sum + I Next I Print SumEnd Sub答案：5050 2 Private Sub Form_Click() A = 10: b = 15: c = 20

13、: d = 25 Print A; Spc(5); b; Spc(7); c Print A; Spc(8); b; Space$(5); c Print c; Spc(3); "+" Spc(3); d; Print Spc(3); "=" Spc(3); c + dEnd Sub 答案：說明：一行中有多個語句時各語句之間需要插入冒號“：”；Spc(n) 用來在輸出中插入空白字符，n為空白字符數；逗號“，”分界符分隔要顯示的多個項目，每個項目之間距離一個制表符（TAB）；分號“；”表示所有的項目并列顯示（盡管下一個Print語句已經換行），中間沒有空格

14、 3 Private Sub Form_Click() For i% = 1 To 3 For j% = 1 To i Print LTrim(Str(i%) + "*" + LTrim(Str(j%) + "=" i% * j%; Next j% Print Next i%End Sub答案： 4 Private Sub Command1_Click() Dim a, b As Integer a = 3.4 b = 3.4 Text1.Text = a Text2.Text = bEnd Sub答案：Text1顯示3.4，Text2顯示3。如下圖所示

15、。 5 Private Sub Form_Click() For i = 1 To 5 Print Tab(11 - i); For J = 1 To i * 2 - 1 Print "*" Next Next iEnd Sub 答案：四、程序設計題答案：程序代碼：Private Sub Form_Load() '設置控件的有效狀態 Drive1.Enabled = True Dir1.Enabled = True File1.Enabled = True '設置過濾器 File1.Pattern = "*.jpg" '設置控件的

16、初始驅動器 Drive1.Drive = "g:" Picture1.AutoSize = TrueEnd SubPrivate Sub Dir1_Change() '改變目錄 File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change() '改變驅動器 Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click() FilePath = File1.Path & "" & File1.FileName Picture1.P

17、icture = LoadPicture(FilePath)End Sub 2余弦曲線的方程為y=cosx,畫出x從-2到2的余弦曲線，并在坐標軸上標出刻度，如圖11所示。 圖11答案：程序代碼：'聲明常量Const pi = 3.141592653Dim x, y As DoublePrivate Sub Form_Load() '自定義坐標 Form1.Scale (-2 * pi, 1#)-(2 * pi, -1#)End SubPrivate Sub form_Click() Form1.Line (-2 * pi, 0)-(2 * pi, 0) '畫X軸 Fo

18、rm1.Line (0, 1.5)-(0, -1.5) '畫Y軸 '標記坐標原點 Form1.CurrentX = 0: Form1.CurrentY = 0: Form1.Print 0 '標記"-2" Form1.CurrentX = -2 * pi: Form1.CurrentY = 0.2: Form1.Print "-2" '標記"-" Form1.CurrentX = -1.08 * pi: Form1.CurrentY = -0.05: Form1.Print "-"

19、'標記"-" Form1.CurrentX = 0.95 * pi: Form1.CurrentY = -0.05: Form1.Print "" '標記"-2" Form1.CurrentX = 1.8 * pi: Form1.CurrentY = 0.2: Form1.Print "2" '標記"1" Form1.CurrentX = 0.02: Form1.CurrentY = 0.5: Form1.Print 0.5 '標記"-1" F

20、orm1.CurrentX = 0.05: Form1.CurrentY = -0.5: Form1.Print -0.5 '畫正弦曲線 For x = -2 * pi To 2 * pi Step pi / 180 y = Cos(x) DrawWidth = 1 '定義點的大小 Form1.PSet (x, y), QBColor(0) '畫點 Next xEnd Sub 3使用Line控件顯示直線，并且可以顯示直線的線寬和線型。運行程序界面如圖12所示。 圖12 答案：程序代碼：Private Sub Form_Load() Option1(0).Value =

21、False Option1(1).Value = False Option1(2).Value = False Check1.Caption = ""End SubPrivate Sub Form_click() ScaleWidth = 100 ScaleHeight = 100 DrawWidth = 4 Line (15, 20)-(35, 60) Option1(0).Value = True Check1.Caption = "線寬為4"End Sub4使用Shape控件顯示幾種圖形，并且可以設置圖形的邊框和填充效果等。程序運行界面如圖13所示

22、。 圖13答案：程序代碼：Private Sub Form_Click() ScaleWidth = 100 ScaleHeight = 100 If Option1(0).Value = True Then Shape1.Shape = 0 ElseIf Option1(1).Value = True Then Shape1.Shape = 1 ElseIf Option1(2).Value = True Then Shape1.Shape = 3 ElseIf Option1(3).Value = True Then Shape1.Shape = 4 End If If Option2(0

23、).Value = True Then Shape1.BorderStyle = 0 ElseIf Option2(1).Value = True Then Shape1.BorderStyle = 2 ElseIf Option2(2).Value = True Then Shape1.BorderStyle = 1 ElseIf Option2(3).Value = True Then Shape1.BorderStyle = 3 ElseIf Option2(3).Value = True Then Shape1.BorderStyle = 4 End If If Option3(0).

24、Value = True Then Shape1.FillStyle = 1 ElseIf Option3(1).Value = True Then Shape1.FillStyle = 2 ElseIf Option3(2).Value = True Then Shape1.FillStyle = 3 ElseIf Option3(3).Value = True Then Shape1.FillStyle = 6 End IfEnd Sub5使用SQL Server或Access建立名稱為“學生”的數據庫，在其中創建“students”的數據表，其結構及初始記錄如表1所示。使用ADO對象和MSFlexGrid控件設計數據庫列表顯示程序。程序的設計界面和運行結果如圖14、圖15所示。表1學 號姓 名專 業2004001張 紅軟件專業2004003朱 強會計專業2004002王 麗軟件專業 圖14 圖15答案：程序代碼標準模塊代碼Public ADOcn As ConnectionPrivate Sub Main() '定義數據連接字符串 Dim strAccess As String