Visual Basic程序设计期末复习答案.docVIP

Visual Basic程序设计期末复习答案 一、单项选择题 1.B 2.C 3.A 4.D 5.A 6.B 7.C 8.A 9.D 10.A 11.C 12.B 13.A 14.A 15.D 16.A 17．B 18．A 19.B 20.C 21.B 22. C 23.D 24.D 25.C 26.C 27.B 28.D 29.C 30.D 31.D 32.B 33.D 34.B 35.B 36.D 37.C 38.D 39．D 40.C 41.B 42.D 43.A 44.C 45.A 46.A 47. B 48.B 49.C 二、填空题 1．工具箱 2．Timer 3．ab 4．600 5．style 6．右 上 7．使服务程序处于侦听状态，等待客户访问 8．用于向远程主机发出链接请求 9．UDP 10．逻辑错误 11．SendKeys “{Enter}” 12．数据库引擎 13. 随机文件 二进制文件 14.ADOrs.Open 15. (或空字符串) Variant(或变体型) 16．显示 变体型(或写成Variant型) 17．三角形 18．1 19．Connection 20．Public 21．直线终点 22．F1 23．.cab 24．10000 25．启动窗体 26．Name Index 27. 15=x AND x45 28．Circle(ScaleWidth/2,ScaleHeight/2),300 29．ADOrs Open”Select * From Table1” 30．外部数据库 本地数据库 远程数据库 31．Dim A(1To 4,-1To 4) As String 32．右 上 33. Public 34．0 35. TCP/IP UDP 36.数据库引擎 37.False 38. 一直存在 过程执行期间 三、阅读程序题 1．6 3 2．AAA B 3．3 42 9 4．0 4 5．5 14 6．4 6 7．20 10 10 20 8. 15 9． 7 4 10．29 11．15 12．10 12 14 13．15 四、完善程序题 1. [1] Set ADOcn = New Connection [2]ADOcn.Open [3] New [4] ADOcn [5] ADOrs.Open strSQL [6 Not ADOrs.EOF [7]Text1.SetFocus 2. [1]Not EOF(1) [2] strtxt [3] Close #1 [4] Open G:\VB\aa.Txt For Output As #1 [5] Text1 3. [1] KeyAscii As Intege [2]13 [3] Text1 [4]0 [5] List1.RemoveItem List1.ListIndex 4. [1]List1.AddItem Text1.Text [2]List1.RemoveItem List1.ListIndex [3 List1.Text [4] 修改确认 [5]List1.List(List1.ListIndex) = Text1.Text [6] 5. [1] Drive1.Drive =D:\ [2] Drive1.Drive [3] Text1.Text [4] File1.Path = Dir1.Path [5] Dir1.Path [6] Picture [7] FileName 6. [1]学生 [2]New Connection [3] ADOcn.Open [4]New Recordset [5] ADOrs.ActiveConnection=ADOcn [6] ADOrs.Execute str SQL 五、编写程序题 1. Private Sub Command1_Click() Dim i As Integer For i = 200 To 400 If i Mod 2 = 0 Then List1.AddItem i End If Next i End Sub Private Sub Command2_Click() List1.Clear End Sub 2． Private Sub Command1_Click() Dim x As Int