2022年电大Visual_Basic程序设计考试资料已整理排版 .pdf

1 / 13 Visual Basic程序设计一、单项选择题14.、/、Mod 、*四个算术运算符中，优先级别最低的是（ C ）。 CMod A 58.ADO 控件属于ActiveX 控件，使用之前必须加载Microsoft ADO Data Conctrol 6.0（OLE DB ），将 ADO 控件添加到工具箱中。添加ADO 控件的菜单为（ B ）。 B“工程”“部件”B 17.表达式 4+5 6 * 7 / 8 Mod 9 的值是（ B ）。B5 C 4.以下控件中，（ A ）控件不会影响到界面设计效果。A计时器C 9.（ C ）控件不具有Caption 属性。 CTextBox C 33.菜单编辑器中，同层次的（ B ）属性值设置为相同，才可以设置索引值。BName C 44.程序运行时，驱动器列表框下列（ A ）属性能返回磁盘驱动器的名称。ADrive D 37.当单击工具栏上的按钮，会触发的事件是（ A ）。 AButtonClick D 64.多媒体控件（ MMControl ）具有一组执行MCI 命令的下压式按钮。其中Record 按钮表示为（ B ）。 B录制G 10.改变控件在窗体中的上下位置，应设置控件的（ A ）属性。 ATop G 46.改变驱动器列表框的Drive 属性值将激活其（ A ）事件。 AChange H 18.函数 Int(Rnd*10) 是在（ C ）范围内的整数。 C0, 10）J 13.假设已定义Integer 变量 x、y，则以下赋值语句正确的是（ C ）。 Cy = x + y J 40.检测文件是否结束的函数是（ C ）。 CEOF() J 57.键盘事件的执行顺序是（ B ）。 BKeyDown ，KeyPress，KeyUp J 62.决定系统是否自动检测多媒体控件（MMControl ）各按钮的状态的属性是（ B ）。 BAutoEnable J 63.将多媒体控件（MMControl ）的 Frames属性设为3，则以下叙述正确的是（ A ）。 A指定 Back 或 Step命令后退或前进的帧数都为3 K 26.可通过（ C ）属性判断ListBox 列表框控件的工程总数目。CListcountL 25.ListBox 中若没有任何条目选中，其ListIndex 属性值为（ A ）。 A-1L 27.列表框的（ B ）属性用于返回或设置列表框中各列表项的文本。B ListL 54.Line（100，100）-Step（400，400）将在窗体中的（ C ）画一条直线。C（ 100，100）到（ 500，500）L 59.利用 ADO 访问数据库，首先要创建一个（ A ）对象，用于建立和数据库的连接。AConnection 对象M 34.每创建一个顶级菜单，它的下面最多可以有（ C ）级子菜单。C5 N 24.能通过（ D ）来删除列表框中的选择项。DRemoveItem 方法R 1.如果要设置窗体的标题栏，应选择（ B ）属性。BCaption R 30.若要把“ XXX ”添加到列表框List1 中的第三项，则可执行语句（B）。 BList1.AddItem XXX, 2 R 36.如果要在程序中显示一个弹出菜单，需调用（ D ）方法。 DPopupMenu R 55.RGB 函数通过红、绿、蓝三基色混合产生某种颜色，若使用三个滚动条分别输入三种基色，为保证输入数值有效，则应设置滚动条的（ A ）属性。 AMax 和 Min R 56.如果在图片框上使用绘图方法绘制一个圆，则图片框的（B）属性决定了该圆的颜色。BForeColor S 2.要使命令按钮不响应用户生成的事件，应设置命令按钮的（ D ）属性。 DEnabled S 3.要使标签能透出窗体的背景，应设置标签的（ A ）属性。 A BackStyle S 28.设 List1 为列表框控件，List1.Clear 中的 Clear 是（ A ）。 A方法S 41.要读出 C 盘根目录下顺序文件stud.txt 内容，下列打开方式（C）。 COpen C:stud.txt For Input As #1 S 42.随机文件使用（ C ）语句写数据。CPut S 43.随机文件使用（ D ）语句读数据。DGet S 47.使用目录列表框的（ B ）属性可以返回或设置当前工作目录的完整路径（包括驱动器盘符）。BPath S 51.要向图片框picP 中加载“ d:hainanzhiwu.bmp ”图像文件，应使用语句（ C ）。cpicP.Picture=LoadPicture(d:hainanzhiwu.bmp) S 60.SQL 语言的 Select 语句中，用于分组的语句为（ B ）。 Bgroup by W 7.某计时器控件的interval 属性为 0时，表示（ A ）。 A计时器关闭计时W 11.文本框中选定的内容，由下列（ C ）属性反映。 CSeltext 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 1 页，共 13 页2 / 13 W 65.为了使多媒体控件（MMControl ）中的录制按钮不显示，应添加代码（ C ）。 CMMControl1.RecordVisible= False W 67.Windows Media Player 控件的 UiMode 属性，表示播放器界面模式，以下选项是播放器模式的属性值是（D）。D以上都是X 15.下列哪组语句可以将变量A、B 值互换（ B ）。 BA=A+B : B=AB: A=A B X 19.下面（ A ）运算符是算术运算符。 AMod X 38.下列可以用来存储图像可以供其它控件使用的控件是（ C ）。 C ImageList X 50.下面对象中不能作为容器的是（B）。 B Image 控件X 53.下列图形中不能使用Shape控件绘制的是（ B ）。 B三角形X 21.下面程序段运行后，显示的结果是（ B ）。 B1Dim intX As Integer If intX Then Print intX Else Print intX + 1 End If Y 22.以下程序的输出结果是（ C ）。 C 10Dim a, i%, sum% a = Array(4, 3, 2, 1) For i = 0 To 3 sum = sum + a(i) Next i Print sum Y 16.以下语句的输出结果是（ C ）。 Print Format (32548.5, “000,000.00” )C032,548.50 Y 20.已知三个变量A、B、 C，判断 A、B、C 能否构成三角形的逻辑表达式为（ B ）。 BA + C = B And A + B = C And B + C = A Y 29.以下（ D ）语句将删除列表框List1 中的最后一项。DList1.RemoveItem List1.ListCount-1 Y 31.用户可以通过设置菜单项的（ C ）属性值为False来使该菜单项失效。C Enabled Y 32.用户可以通过设置菜单项的（ B ）属性值设置为False来使该菜单项不可见。BVisible Y 45.要用通用对话框控件显示标准的“字体”对话框，应调用其（ C ）方法。 CShowFont Y 61.以下四个控件，不属于数据绑定控件的是（ C ）。 COption 控件Z 5.在 Visual Basic 中，一般（ B ）属性用来设置字体的颜色。BForeColor Z 6.在 VB 中断模式下，可用调试窗口监视表达式和变量的值，其中在（ A ）窗口中可以直接键入命令以显示命令所请求的信息。A立即Z 8.在窗体 Form1 的 Click 事件过程中有以下语句：Label1.Caption=Visual Basic 若本语句执行之前，标签控件的Caption 属性为默认值，则标签控件的Name 属性和 Caption 属性在执行本语句之前的值分别为（ B ）。 BLabel1和 Label1 Z 12.在 Visual Basic 中，变量的默认类型是（ D ）。DVariant Z 23.在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（ D ）关键字在过程中定义局部变量。DStatic Z 35.在设计菜单时，为了创建分隔栏，要在（ B ）中输入字符（-）。 B标题栏Z 39.在 Visual Basic 中按文件的访问方式不同，可以将文件分为（B）。 B顺序文件、随机文件和二进制文件Z 48.在随机文件中（ D ）。 D可以通过记录号随机读取记录Z 49.执行语句 Open C： Stud.txt For Input As #2 后，系统（ C）。 C打开 C 盘当前文件夹下名为Stud.txt 的文件，用来读取文件内容Z 52.执行 Form1.Scale（0, 10）-（10, -10）语句， Form1 窗体坐标系x 轴和 y 轴的正方向是（A）A向右和向Z 66.在多媒体控件（MMControl ）中， DeviceType 属性用于设置多媒体设备的类型，如果将要播放的文件是CD 歌曲，应将DeviceType 属性设置为（ D ）。DCDAudio Z 68.在 Windows Media Player 控件中，决定播放文件是否全屏的属性是（ A ）。 AFullScreen 二、填空题A 33.按文件的存取方式，可将文件分为顺序文件、随机文件和二进制文件。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 2 页，共 13 页3 / 13 A 34. ADO 模型中一般可通过Connection 对象的 Execute 方法执行增加、删除、修改操作。使用ADO 模型时，建立Recordset和 Connection 对象连接的属性是 ActiveConnection 。A 35. ADO 数据模型中一般可通过Connection 对象的 Execute 方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。C 22. 创建第一个按钮控件对象时，系统自动为其“Name”属性分配一个名字，该名字为 Command1 。D 28. 对驱动器列表框来说，每次重新设置驱动器列表框的 Drive 属性时，将引发Change事件；对目录列表框来说，当Path 属性值改变时，将引发Change事件；对于文件列表框，重新设置的 Path 属性，将引发Change 事件。J 4. 将 1 x =1 And xb and Not ca Or cb And ca+b 的值是 True 。Y 8.有变量定义语句“Dim Str1,Str2 As String *10 ”，其中Str1 变量的类型应为变体型，其中Str2 变量的类型应为字符串型。Z 7.在 Visual Basic 的转换函数中将数值转换为字符串的函数是 Str(x) ；将数字字符串转换为数值的函数是Val(x) ；将字符转换为相应的ASCII 码的函数是 Asc(x) 。Z 10.在 Visual Basic 中，数组默认的下标下界是0 ，如果希望从1开始，可以使用 Option Base n 语句语句来设置。Z 11.在缺省情况下，用Dim A(5,5) 语句声明二维数组后，数组A 的元素共有 36 个。Z 12.在 Visual Basic 中，参数通过按值传递和按地址传递两种方式传送。Z 15.在 Visual Basic 语言中有三种形式的循环结构。其中，若循环的次数可以事先确定，可使用For 循环；若要求先判断循环进行的条件，可使用 While 循环或 Do 循环。Z 21.在 Visual Basic 中将多重窗体程序中第一个被装载内存的窗体称为启动窗体。050cos102221yx精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 3 页，共 13 页4 / 13 Z 24.在 Visual Basic 中，每个菜单项都是一个图形控件对象，所以它们也有一些与其他控件类似的属性，标题就相当于其他控件的Caption 属性，而名称就相当于Name 属性。Z 25.在 Visual Basic 菜单中设置显示一条分割线的操作是在【菜单编辑器】的标题栏中，输入一个“ -” 。Z 26.在 Visual Basic 中，文件系统控件包括驱动器列表框（DriveListBox ）、目录列表框（DirListBox ）和文件列表框（ FileListBox ）。三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。Z 29.执行指令“ Line (200,200) Step (500,500)”后， CurrentX 700 。Z 30.执行指令“ Line (200,200) (500,500)”后， CurrentX 500 。三、 程序阅读题Y 阅读以下程序，写出其功能。Private Sub cmdWhy_Click() cmdWhy 为命令按钮，lblHelloVB为标签， txtHelloVB为文本框lblHelloVB.Caption = 为什么学 VB txtHelloVB = （ 1）VB 简单易学，开发效率高，通用性强，用途广泛。 _ + vbCrLf + vbCrLf + （2）VB 是国内外最流行的程序设计语言之一， _ + 也是学习开发Windows 应用程序首选的程序设计语言。 End Sub 该程序功能：单击cmdWhy 按钮，在lblHelloVB标签显示“为什么学VB”，在 txtHelloVB文本框显示以下内容：1VB 简单易学，开发效率高，通用性强，用途广泛。2 VB 是国内外最流行的程序设计语言之一，也是学习开发Windows 应用程序首选的程序设计语言。Y 阅读以下程序，写出其功能。Private Sub cmdWhat_Click() cmdWat 为命令按钮， lblHelloVB为标签， txtHelloVB 为文本框lblHelloVB .Caption = VB能干什么 txtHelloVB = VB能快速实现用户界面的设计、 _ + 文字和图形图像的处理以及数据库的使用，能开发多媒体、数据库、 _ + 网络和图形等多方面的应用程序；可以开发个人使用或小组 _ + 使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序。 End Sub 该程序功能：单击cmdWhat 按钮，在lblHelloVB标签显示“ VB 能干什么”，在txtHelloVB 文本框显示以下内容：VB 能快速实现用户界面的设计、文字和图形图像的处理以及数据库的使用，能开发多媒体、数据库网络和图形等多方面的应用程序；可以开发个人使用或小组使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序。Y 阅读以下程序，写出其功能。Private Sub cmdHow_Click() cmdHow 为命令按钮，lblHelloVB为标签， txtHelloVB为文本框lblHelloVB .Caption = 如何学好 VB txtHelloVB = （ 1）从实际应用程序的开发过程中学习VB 程序设计。 _ + vbCrLf + vbCrLf + （2）学会分析问题和解决问题的思路、 _ + 算法设计和实现方法。 + vbCrLf + vbCrLf _ 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 4 页，共 13 页5 / 13 + （3）学会利用MSDN 资源。 + vbCrLf + vbCrLf _ + （4）养成良好的编程习惯。 End Sub 该程序功能：单击cmdHow 按钮，在lblHelloVB 标签显示“如何学好VB”，在 txtHelloVB文本框显示以下内容：（1）从实际应用程序的开发过程中学习VB 程序设计。（2）学会分析问题和解决问题的思路算法设计和实现方法。（3）学会利用MSDN 资源。（4）养成良好的编程习惯。Y 阅读以下程序，写出其功能。Sub newQuestion() Dim intOp1 As Integer, intOp2 As Integer,intTemp As Integer Dim strOprator As String Dim intOpratorNum As Integer Randomize intOp1 = Int(10 * Rnd + 1) intOp2 = Int(10 * Rnd + 1) intOpratorNum = Int(4 * Rnd + 1) Select Case intOpratorNum Case 1 strOprator = +: intAnswer = intOp1 + intOp2 Case 2 strOprator = : If intOp1 intOp2 Then intTemp = intOp1: intOp1 = intOp2: intOp2 = intTemp End If intAnswer = intOp1 - intOp2 Case 3 strOprator = : intAnswer = intOp1 * intOp2 Case 4 strOprator = If intOp1 intOp2 Then intTemp = intOp1: intOp1 = intOp2: intOp2 = intTemp End If If intOp1 Mod intOp2 0 Then intOp1 = intOp1 - intOp1 Mod intOp2 End If End Select lblQuestion 为标签lblQuestion.Caption = intOp1 & & strOprator & & intOp2 & = End Sub 该程序是一个随机出题的过程。随机产生两个10 以内的操作数，随机产生一个操作符（+、 、 ）。如果是减法和除法时，第一操作数小于第二操作数时交换两个操作数，且如果是除法则同时减去两数相除所得的余数。最后在标签lblQuestion 上显示题目。Y 阅读以下程序，写出其功能。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 5 页，共 13 页6 / 13 Public Function Avg_mark(MarkArray() As Single) As Single Dim sngSum As Single, i As Integer , nAs Integer sngSum = 0 n = UBound(MarkArray) For i = 0 To n sngSum = sngSum + MarkArray(i) Next i Avg_mark = sngSum / n End Function 该程序是一个求平均值的函数。以一个单精度的数组作为参数，先求出数组元素的个数，接着求出数组所有元素的和，最后得出该数组的平均值。Y 阅读以下程序，写出其功能。Public Function Max_Mark(MarkArray() As Single) As Single Dim sngMax As Single ,i As Integer , nAs Integer sngMax = 0 n = UBound(MarkArray) For i = 0 To n If MarkArray(i) sngMax Then sngMax = MarkArray(i) Next i Max_Mark = sngMax End Function 该程序是一个求最大值的函数。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素的最大值。Y 阅读以下程序，写出其功能。Public Function Pass_Mark(MarkArray() As Single) As Single Dim intCount As Integer, i As Integer , nAs Integer intCount = 0 n = UBound(MarkArray) For i = 0 To n if MarkArray(i) = 60 Then intCount = intCount + 1 Next i Pass_Mark = intCount / n End Function 该函数的功能是求一组数中大于等于60 的数的比例。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中大于等于60 的数的个数，最后求出其比例。Y 阅读以下程序，写出其功能。Private Sub Sort_Mark(MarkArray() As Single) Dim sngMtemp As Single Dim i As Integer , nAs Integer , k As Integer,j As Integer n = UBound(MarkArray) For i = 0 To n 1 k = i For j = i + 1 To n If MarkArray(j) MarkArray(k) Then k = j Next j 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 6 页，共 13 页7 / 13 sngMtemp = MarkArray(k) MarkArray(k) = MarkArray(i) MarkArray(i) = sngMtemp Next i End Sub 该过程的功能是把一组数按从大到小排序。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中的最大值和第一个元素交换位置；求出次大值和第二个元素交换位置；依次类推，完成从大到小排序。Y 阅读以下程序，写出其功能。Private Sub changecolor() Dim r As Integer, g As Integer,b As Integer Dim x As Long hsbRed、hsbGreen 和 hsbBlue为水平滚动条hsbRed.Min=0: hsbGreen.Min=0 : hsbBlue.Min=0 hsbRed.Max=255: hsbGreen.Max=255 : hsbBlue.Max=255 r = hsbRed.Value g = hsbGreen.Value b = hsbBlue.Value x = RGB(r, g, b) frmMain.BackColor = x End Sub 该过程的功能是用红色、绿色、蓝色三个滚动条调节窗体底色。先把红色、绿色、蓝色三个滚动条的Min 属性设置为0、Max 属性设置为255，接着用取出三个滚动条的Value 属性值，用RGB 函数产生一个由红、绿、蓝三个 Value 属性值混合而成的新颜色，并作为窗体底色。Y 阅读以下程序，写出其功能。Public ADOcn As Connection Public Sub Main() Dim strAccess As String strAccess=Provider=Microsoft.Jet.OLEDB.4.0。 Data Source=d:xs.mdb If ADOcn Is Nothing Then Set ADOcn = New Connection ADOcn.Open strAccess End If frmMain.Show frmMain为窗体End Sub 该段程序的功能是建立数据库的连接。实现与D 盘根目录下的文件名为xs.mdb 的 Access数据库的连接，同时显示 frmMain 窗体。Y 阅读以下程序，写出其功能。Public ADOcn As Connection Public ADOrs As New Recordset Private Sub cmdAdd_Click() Dim strSQL As String 文本框 txtNo 、txtName 和组合框cboSex、 cboClass 分别用来输入学号、姓名、性别和班级精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 7 页，共 13 页8 / 13 strSQL = select * from 学生表 where 学号 = + txtNo.Text + ADOrs.Open strSQL, ADOcn If Not ADOrs.EOF Then MsgBox 该记录已经存在，不能继续增加！, vbCritical + vbOKOnly ADOrs.Close Exit Sub End If strSQL = insert into 学生表 (学号 ,姓名 ,性别 ,班级 ) strSQL = strSQL + values( + txtNo.Text + , + txtName.Text + , strSQL = strSQL + + cboSex.Text + ,txtClass.Text + ) ADOcn.Execute strSQL End Sub 该段程序的功能是把一个学生记录插入到学生表中。首先查找数据表中是否存在文本框txtNo 中输入的学号，如果存在则不增加；如果不存在，则把该学生的信息记录插入学生表中。四、 程序设计题B 编写一个程序。程序初始界面如图1 左图所示，设“学习目的”、“学习方法”和“退出”命令按钮的名称定义为cmdAim 、cmdWay 和 cmdExit ，标签控件的名称定义为lblContent 。单击“学习目的”按钮，显示如图1 的中图所示；单击“学习方法”命令按钮，显示如图1的右图所示；单击“退出”按钮时，退出程序。图 1 Private Sub cmdAim_Click() lblContent.Caption = 开发 Windows 应用程序 End Sub Private Sub cmdWay_Click() lblContent.Caption = 从实际应用程序的开发过程中学习VB End Sub Private Sub cmdExit_Click() End End Sub B 编写一个数制转换程序，运行界面如图3 所示。设三个文本框的名称框定义分别为TxtDec 、TxtHex 和 TxtOct 。实现在第一个文本框中输入十进制数后，第二个文本框自动显示该数对应的十六进制数，第三个文本框自动显示该数对应的八进制数。提示：利用文本框的Change事件和转换函数Hex、Oct。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 8 页，共 13 页9 / 13 Private Sub TxtDec_Change() TxtHex.Text = Hex(Val(TxtDec.Text) TxtOct.Text = Oct(Val(TxtDec.Text) End Sub B 编写一个猜数字程序。程序产生一个随机数，由用户来猜这个数，并提示用户猜的数是否太大或太小，程序运行界面如 4 所示，设输入文本框的名称框定义为TxtAnswer ，神秘的数、评价标签控件的名称框定义为lblComment 和 lblNum ，“确定”命令按钮的名称定义为cmdOk 。Dim intNum As Integer 用于存放“神秘的数”Dim intCount As Integer 用于猜数计数Private Sub cmdOk_Click() intCount = intCount + 1 计数 If Val(txtAnswer.Text) = intNum Then 猜对lblComment.Caption = 猜对了！你一共猜了 & intCount & 次 lblNum.Caption = intNum ElseIf Val(txtAnswer.Text) intNum Then lblComment.Caption = 太大了！ Else lblComment.Caption = 太小了！ End If End Sub Private Sub Form_Load() Randomize intNum = Int(Rnd * 1000 + 1) End Sub B 编写一个判断闰年的程序。判断平年、闰年方法：凡是能被4 整除但不能被100 整除的年份为闰年，如1980 年；凡是能被 400整除的年份为闰年，如2000 年；除以上两种情况以外的其余年份都是平年。Private Sub Command1_Click() Dim intYear As Integer 用于存放年份 intYear = InputBox( 请输入年份 ) If intYear Mod 400 = 0 Or (intYear Mod 4 = 0 And intYear Mod 100 0) Then MsgBox intYear & 年是闰年 Else 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 9 页，共 13 页10 / 13 MsgBox intYear & 年是平年 End If End Sub B 编写一个列表框应用程序，程序界面如图5 所示。设“添加”、“删除”和“修改”按钮的名称定义为cmdAdd、cmdDel 和 cmdUpdate，列表框和文本框的名称为默认。要求从文本框输入姓名，然后按“添加”按钮把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。Private Sub cmdAdd_Click() List1.AddItem Text1.Text Text1.Text = End Sub Private Sub cmdDel_Click() List1.RemoveItem List1.ListIndex Text1.Text = End Sub Private Sub cmdUpdate_Click() If cmdUpdate.Caption = 修改 Then Text1.Text = List1.List(List1.ListIndex) cmdUpdate.Caption = 确认修改 Else List1.List(List1.ListIndex) = Text1.Text cmdUpdate.Caption = 修改 Text1.Text = End If End Sub B 编写一个函数图形程序。用Pset方法在图形框Picture1 内绘制 y=Cosx 在- 到 之间的图形，运行结果图7 所示。设所有控件使用默认名称。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 10 页，共 13 页11 / 13 Const pi = 3.1415926 Dim x As Single Private Sub Command1_Click() Picture1.DrawWidth = 2 For x = -pi To pi Step 0.001 Picture1.PSet (x, Cos(x) Next x End Sub Private Sub Form_Load() Picture1.Scale (-4, 2)-(4, -2) Picture1.Line (0, 2)-(0, -2) Picture1.Line (-4, 0)-(4, 0) Picture1.Line (-pi, 0.1)-(-pi, 0) CurrentX = -pi: CurrentY = -0.2: Picture1.Print -Picture1.Line (-pi / 2, 0.1)-(-pi / 2, 0) Picture1.Line (pi / 2, 0.1)-(pi / 2, 0) Picture1.Line (pi, 0.1)-(pi, 0) CurrentX = pi: CurrentY = - 0.2: Picture1.Print Picture1.Line (0, 1)-(0.1, 1) CurrentX = 0.3: CurrentY = 1: Picture1.Print 1 Picture1.Line (0, -1)-(0.1, -1) CurrentX = 0.3: CurrentY = -1: Picture1.Print -1 End Sub Private Sub Command2_Click() End End Sub B 编写一个键盘按键程序。对窗体的KeyDown 和 KeyPress事件编程，显示按下、放开一个键时的事件发生经过，如当按下了 A 键时程序运行界面如图8所示。Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode 0 Then Print KeyDown事件： KeyCode 。 KeyCode, Shift ：。 Shift End If End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyPress 事件： KeyAscii 。 KeyAscii 。 按下了： 。 Chr(KeyAscii) End Sub B 编写使用 ADO 对象中的Connection 对象连接 SQL Server 数据库的代码。Public ADOcn As Connection Public Sub Main() Dim strSqlServer As String 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 11 页，共 13 页12 / 13 strSqlServer=Provider=SQLOLEDB。Server=(local) 。User ID=sa。 _ Password=sa。 Database=XS If ADOcn Is Nothing Then Set ADOcn = New Connection ADOcn.Open strSqlServer 连接 SQL Server 数据库End If End Sub S 设计一个简单的加法程序，程序界面设计如图2所示。设第一操作数、第二操作数和计算结果文本框的名称分别定义为txtFirstNum 、txtSecondNum 和 txtSum，“计算”命令按钮的名称定义为cmdSum。Private Sub cmdSum_Click() txtSum.Text = Val(txtFirstNum.Text) + Val(txtSecondNum.Text) End Sub J 假设在 D 盘驱动器上已建立了一个通信录文件（Txl.txt ），文件中的每个记录包括编号、用户名、电话号码和地址等4项内容。试编写一个程序，实现能按用户名查找，并在文本框中显示查找结果，如图6 所示。设“查找”按钮的名称定义为 cmdFindname，查找输入名称和结果文本框的名称分别定义为txtName 和 txtCount ，记录条数标签的名称定义为lblCount 。设在标准模块中已输入以下代码：Type Lxr intBh As Integer 编号 strXm As String * 8 姓名 str