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

1、Visual Basic程序设计一、单项选择题 14. 、/、Mod、*四个算术运算符中，优先级别最低的是（ C ）。CModA58. ADO控件属于ActiveX控件，使用之前必须加载Microsoft ADO Data Conctrol 6.0（OLE DB），将ADO控件添加到工具箱中。添加ADO控件的菜单为（ B ）。B“工程”“部件”B17. 表达式4+5 6 * 7 / 8 Mod 9 的值是 （ B ）。B5C4. 以下控件中，（ A ）控件不会影响到界面设计效果。A计时器C9. （ C ）控件不具有Caption属性。CTextBoxC33. 菜单编辑器中，同层次的（ B ）属

2、性值设置为相同，才可以设置索引值。BNameC44. 程序运行时，驱动器列表框下列（ A ）属性能返回磁盘驱动器的名称。ADriveD37. 当单击工具栏上的按钮，会触发的事件是（ A ）。AButtonClickD64. 多媒体控件（MMControl）具有一组执行MCI命令的下压式按钮。其中Record按钮表示为（ B ）。B录制G10. 改变控件在窗体中的上下位置，应设置控件的（ A ）属性。ATopG46. 改变驱动器列表框的Drive属性值将激活其（ A ）事件。AChangeH18. 函数Int(Rnd*10)是在（ C ）范围内的整数。 C0, 10）J13. 假设已定义Inte

3、ger变量x、y，则以下赋值语句正确的是（ C ）。Cy = x + yJ40. 检测文件是否结束的函数是（ C ）。CEOF()J57. 键盘事件的执行顺序是（ B ）。BKeyDown，KeyPress，KeyUpJ62. 决定系统是否自动检测多媒体控件（MMControl）各按钮的状态的属性是（ B ）。BAutoEnableJ63. 将多媒体控件（MMControl）的Frames属性设为3，则以下叙述正确的是（ A ）。A指定Back或Step命令后退或前进的帧数都为3K26. 可通过（ C ）属性判断ListBox列表框控件的项目总数目。CListcountL25. ListBox

4、中若没有任何条目选中，其ListIndex属性值为（ A ）。A-1L27. 列表框的（ B ）属性用于返回或设置列表框中各列表项的文本。BListL54. Line（100，100）-Step（400，400）将在窗体中的（ C ）画一条直线。C（100，100）到（500，500）L59. 利用ADO访问数据库，首先要创建一个（ A ）对象，用于建立和数据库的连接。AConnection对象M34. 每创建一个顶级菜单，它的下面最多可以有（ C ）级子菜单。C5N24. 能通过（ D ）来删除列表框中的选择项。DRemoveItem方法R1. 如果要设置窗体的标题栏，应选择（ B ）属性。

5、BCaptionR30. 若要把“XXX”添加到列表框List1中的第三项，则可执行语句（B）。BList1.AddItem XXX, 2R36. 如果要在程序中显示一个弹出菜单，需调用（ D ）方法。DPopupMenuR55. RGB函数通过红、绿、蓝三基色混合产生某种颜色，若使用三个滚动条分别输入三种基色，为保证输入数值有效，则应设置滚动条的（ A ）属性。AMax和MinR56. 如果在图片框上使用绘图方法绘制一个圆，则图片框的（B）属性决定了该圆的颜色。BForeColorS2. 要使命令按钮不响应用户生成的事件，应设置命令按钮的（ D ）属性。DEnabledS3. 要使标签能透出

6、窗体的背景，应设置标签的（ A ）属性。ABackStyleS28. 设List1为列表框控件，List1.Clear中的Clear是（ A ）。A方法S41. 要读出C盘根目录下顺序文件stud.txt内容，下列打开方式（C）。COpen C:stud.txt For Input As #1S42. 随机文件使用（ C ）语句写数据。CPutS43. 随机文件使用（ D ）语句读数据。DGetS47. 使用目录列表框的（ B ）属性可以返回或设置当前工作目录的完整路径（包括驱动器盘符）。BPathS51. 要向图片框picP中加载“d:hainanzhiwu.bmp”图像文件，应使用语句（

7、C ）。cpicP.Picture=LoadPicture(d:hainanzhiwu.bmp)S60. SQL语言的Select语句中，用于分组的语句为（ B ）。Bgroup byW7. 某计时器控件的interval属性为0时，表示（ A ）。A计时器关闭计时W11. 文本框中选定的内容，由下列（ C ）属性反映。CSeltextW65. 为了使多媒体控件（MMControl）中的录制按钮不显示，应添加代码（ C ）。CMMControl1.RecordVisible= FalseW67. Windows Media Player控件的UiMode属性，表示播放器界面模式，以下选项是播放

8、器模式的属性值是（D）。D以上都是 X15. 下列哪组语句可以将变量A、B值互换（ B ）。BA=A+B : B=AB: A=ABX19. 下面（ A ）运算符是算术运算符。 AModX38. 下列可以用来存储图像可以供其它控件使用的控件是（ C ）。C ImageListX50. 下面对象中不能作为容器的是（B）。BImage控件X53. 下列图形中不能使用Shape控件绘制的是（ B ）。B三角形X21. 下面程序段运行后，显示的结果是（ B ）。B1Dim intX As Integer If intX ThenPrint intX ElsePrint intX + 1End IfY22

9、. 以下程序的输出结果是（ C ）。C10Dim a, i%, sum%a = Array(4, 3, 2, 1)For i = 0 To 3sum = sum + a(i)Next iPrint sumY16. 以下语句的输出结果是（ C ）。Print Format (32548.5,“000,000.00”)C032,548.50Y20. 已知三个变量A、B、C，判断A、B、C能否构成三角形的逻辑表达式为（ B ）。BA + C = B And A + B = C And B + C = AY29. 以下（ D ）语句将删除列表框List1中的最后一项。DList1.RemoveItem

10、 List1.ListCount-1Y31. 用户可以通过设置菜单项的（ C ）属性值为False来使该菜单项失效。CEnabledY32. 用户可以通过设置菜单项的（ B ）属性值设置为False来使该菜单项不可见。BVisibleY45. 要用通用对话框控件显示标准的“字体”对话框，应调用其（ C ）方法。CShowFontY61. 以下四个控件，不属于数据绑定控件的是（ C ）。COption控件Z5. 在Visual Basic中，一般（ B ）属性用来设置字体的颜色。BForeColorZ6. 在VB中断模式下，可用调试窗口监视表达式和变量的值，其中在（ A ）窗口中可以直接键入命令

11、以显示命令所请求的信息。A立即Z8. 在窗体Form1的Click事件过程中有以下语句：Label1.Caption=Visual Basic若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为（ B ）。 BLabel1和Label1Z12. 在Visual Basic中，变量的默认类型是（ D ）。DVariantZ23. 在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（ D ）关键字在过程中定义局部变量。DStaticZ35. 在设计菜单时，为了创建分隔栏，要在（ B ）中输入字符（

12、-）。B标题栏Z39. 在Visual Basic中按文件的访问方式不同，可以将文件分为（B）。B顺序文件、随机文件和二进制文件Z48. 在随机文件中（ D ）。D可以通过记录号随机读取记录Z49. 执行语句Open C：Stud.txt For Input As #2后，系统（C）。C打开C盘当前文件夹下名为Stud.txt的文件，用来读取文件内容Z52. 执行Form1.Scale（0, 10）-（10, -10）语句，Form1窗体坐标系x轴和y轴的正方向是（A）A向右和向Z66. 在多媒体控件（MMControl）中，DeviceType属性用于设置多媒体设备的类型，如果将要播放的文件

13、是CD歌曲，应将DeviceType属性设置为（ D ）。DCDAudioZ68. 在Windows Media Player控件中，决定播放文件是否全屏的属性是（ A ）。AFullScreen二、填空题A33.按文件的存取方式，可将文件分为顺序文件、 随机文件 和 二进制文件 。A34. ADO模型中一般可通过Connection对象的 Execute 方法执行增加、删除、修改操作。使用ADO模型时，建立Recordset和Connection对象连接的属性是 ActiveConnection 。A35. ADO数据模型中一般可通过Connection对象的 Execute 方法对数据库中

14、的基本表进行增加、删除、修改等不返回结果集的操作。C22. 创建第一个按钮控件对象时，系统自动为其“Name”属性分配一个名字，该名字为 Command1 。D28. 对驱动器列表框来说，每次重新设置驱动器列表框的 Drive 属性时，将引发Change事件；对目录列表框来说，当 Path 属性值改变时，将引发Change事件；对于文件列表框，重新设置的 Path 属性，将引发Change事件。J4.将1 x =1 And xb and Not ca Or cb And ca+b的值是 True 。Y8. 有变量定义语句“Dim Str1,Str2 As String *10”，其中Str1变

15、量的类型应为变体型，其中Str2变量的类型应为 字符串型。Z7. 在Visual Basic的转换函数中将数值转换为字符串的函数是 Str(x) ；将数字字符串转换为数值的函数是 Val(x) ；将字符转换为相应的ASCII码的函数是 Asc(x) 。Z10. 在Visual Basic中，数组默认的下标下界是0 ，如果希望从1开始，可以使用 Option Base n语句语句来设置。Z11. 在缺省情况下，用Dim A(5,5)语句声明二维数组后，数组A的元素共有 36 个。Z12. 在Visual Basic中，参数通过 按值传递 和 按地址传递 两种方式传送。Z15. 在Visual B

16、asic语言中有三种形式的循环结构。其中，若循环的次数可以事先确定，可使用For循环；若要求先判断循环进行的条件，可使用 While 循环或 Do 循环。 Z21. 在Visual Basic中将多重窗体程序中第一个被装载内存的窗体称为 启动窗体 。Z24. 在Visual Basic中，每个菜单项都是一个图形控件对象，所以它们也有一些与其他控件类似的属性， 标题 就相当于其他控件的Caption属性，而 名称 就相当于Name属性。Z25. 在Visual Basic菜单中设置显示一条分割线的操作是 在【菜单编辑器】的标题栏中，输入一个“-” 。Z26. 在Visual Basic中，文件系

17、统控件包括 驱动器列表框（DriveListBox）、 目录列表框（DirListBox）和文件列表框（FileListBox）。三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。Z29. 执行指令“Line (200,200) Step (500,500)”后，CurrentX 700 。Z30. 执行指令“Line (200,200) (500,500)”后，CurrentX 500 。程序阅读题Y 阅读以下程序，写出其功能。Private Sub cmdWhy_Click() cmdWhy为命令按钮，lblHelloVB为标签，txtHelloVB为文本框lblH

18、elloVB .Caption = 为什么学VB txtHelloVB = （1）VB简单易学，开发效率高，通用性强，用途广泛。 _+ vbCrLf + vbCrLf + （2）VB是国内外最流行的程序设计语言之一， _+ 也是学习开发Windows应用程序首选的程序设计语言。End Sub该程序功能：单击cmdWhy按钮，在lblHelloVB标签显示“为什么学VB”，在txtHelloVB文本框显示以下内容：1VB简单易学，开发效率高，通用性强，用途广泛。VB是国内外最流行的程序设计语言之一，也是学习开发Windows应用程序首选的程序设计语言。Y 阅读以下程序，写出其功能。Private

19、 Sub cmdWhat_Click() cmdWat为命令按钮，lblHelloVB为标签，txtHelloVB为文本框lblHelloVB .Caption = VB能干什么txtHelloVB = VB能快速实现用户界面的设计、 _+ 文字和图形图像的处理以及数据库的使用，能开发多媒体、数据库、 _+ 网络和图形等多方面的应用程序；可以开发个人使用或小组 _+ 使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序。End Sub该程序功能：单击cmdWhat按钮，在lblHelloVB标签显示“VB能干什么”，在txtHelloVB文本框显示以下内容：VB能快速实现用户界面的设计、

20、文字和图形图像的处理以及数据库的使用，能开发多媒体、数据库网络和图形等多方面的应用程序；可以开发个人使用或小组使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序。Y 阅读以下程序，写出其功能。Private Sub cmdHow_Click() cmdHow为命令按钮，lblHelloVB为标签，txtHelloVB为文本框lblHelloVB .Caption = 如何学好VBtxtHelloVB = （1）从实际应用程序的开发过程中学习VB程序设计。 _+ vbCrLf + vbCrLf + （2）学会分析问题和解决问题的思路、 _+ 算法设计和实现方法。 + vbCrLf + v

21、bCrLf _+ （3）学会利用MSDN资源。 + vbCrLf + vbCrLf _+ （4）养成良好的编程习惯。End Sub该程序功能：单击cmdHow按钮，在lblHelloVB标签显示“如何学好VB”，在txtHelloVB文本框显示以下内容：（1）从实际应用程序的开发过程中学习VB程序设计。（2）学会分析问题和解决问题的思路算法设计和实现方法。（3）学会利用MSDN资源。养成良好的编程习惯。Y 阅读以下程序，写出其功能。Sub newQuestion() Dim intOp1 As Integer, intOp2 As Integer, intTemp As IntegerDim

22、strOprator As StringDim intOpratorNum As IntegerRandomizeintOp1 = Int(10 * Rnd + 1) intOp2 = Int(10 * Rnd + 1) intOpratorNum = Int(4 * Rnd + 1) Select Case intOpratorNum Case 1strOprator = +: intAnswer = intOp1 + intOp2Case 2strOprator = :If intOp1 intOp2 Then intTemp = intOp1: intOp1 = intOp2: intO

23、p2 = intTempEnd IfintAnswer = intOp1 - intOp2Case 3strOprator = : intAnswer = intOp1 * intOp2Case 4strOprator = If intOp1 intOp2 Then intTemp = intOp1: intOp1 = intOp2: intOp2 = intTempEnd IfIf intOp1 Mod intOp2 0 ThenintOp1 = intOp1 - intOp1 Mod intOp2End IfEnd Select lblQuestion为标签lblQuestion.Capt

24、ion = intOp1 & & strOprator & & intOp2 & = End Sub该程序是一个随机出题的过程。随机产生两个10以内的操作数，随机产生一个操作符（+、）。如果是减法和除法时，第一操作数小于第二操作数时交换两个操作数，且如果是除法则同时减去两数相除所得的余数。最后在标签lblQuestion上显示题目。Y 阅读以下程序，写出其功能。Public Function Avg_mark(MarkArray() As Single) As Single Dim sngSum As Single, i As Integer , n As IntegersngSum = 0n

25、 = UBound(MarkArray) For i = 0 To nsngSum = sngSum + MarkArray(i) Next iAvg_mark = sngSum / n End Function该程序是一个求平均值的函数。以一个单精度的数组作为参数，先求出数组元素的个数，接着求出数组所有元素的和，最后得出该数组的平均值。Y 阅读以下程序，写出其功能。Public Function Max_Mark(MarkArray() As Single) As Single Dim sngMax As Single , i As Integer , n As IntegersngMax

26、= 0n = UBound(MarkArray) For i = 0 To nIf MarkArray(i) sngMax Then sngMax = MarkArray(i) Next iMax_Mark = sngMax End Function该程序是一个求最大值的函数。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素的最大值。Y 阅读以下程序，写出其功能。Public Function Pass_Mark(MarkArray() As Single) As SingleDim intCount As Integer, i As Integer , n As

27、IntegerintCount = 0n = UBound(MarkArray) For i = 0 To nif MarkArray(i) = 60 Then intCount = intCount + 1 Next iPass_Mark = intCount / nEnd Function该函数的功能是求一组数中大于等于60的数的比例。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中大于等于60的数的个数，最后求出其比例。Y 阅读以下程序，写出其功能。Private Sub Sort_Mark(MarkArray() As Single)Dim sngMtem

28、p As SingleDim i As Integer , n As Integer , k As Integer,j As Integern = UBound(MarkArray) For i = 0 To n 1 k = iFor j = i + 1 To nIf MarkArray(j) MarkArray(k) Then k = jNext jsngMtemp = MarkArray(k)MarkArray(k) = MarkArray(i)MarkArray(i) = sngMtempNext iEnd Sub该过程的功能是把一组数按从大到小排序。以一个单精度的数组作为参数，先求出数

29、组元素的个数，接着逐个比较，求出数组元素中的最大值和第一个元素交换位置；求出次大值和第二个元素交换位置；依次类推，完成从大到小排序。Y 阅读以下程序，写出其功能。Private Sub changecolor()Dim r As Integer , g As Integer, b As IntegerDim 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

30、.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 ConnectionPublic Sub Main()Dim strAccess As String

31、strAccess=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d: xs.mdbIf ADOcn Is Nothing ThenSet ADOcn = New ConnectionADOcn.Open strAccess End IffrmMain.Show frmMain为窗体End Sub该段程序的功能是建立数据库的连接。实现与D盘根目录下的文件名为xs.mdb 的Access数据库的连接，同时显示frmMain窗体。Y 阅读以下程序，写出其功能。Public ADOcn As ConnectionPublic ADOrs As New Re

32、cordsetPrivate Sub cmdAdd_Click()Dim strSQL As String 文本框txtNo、txtName和组合框cboSex、cboClass分别用来输入学号、姓名、性别和班级strSQL = select * from 学生表 where 学号= + txtNo.Text + ADOrs.Open strSQL, ADOcn If Not ADOrs.EOF ThenMsgBox 该记录已经存在，不能继续增加！, vbCritical + vbOKOnlyADOrs.CloseExit SubEnd IfstrSQL = insert into 学生表(学

33、号,姓名,性别,班级)strSQL = strSQL + values( + txtNo.Text + , + txtName.Text + , strSQL = strSQL + + cboSex.Text + , txtClass.Text + )ADOcn.Execute strSQL End Sub该段程序的功能是把一个学生记录插入到学生表中。首先查找数据表中是否存在文本框txtNo中输入的学号，如果存在则不增加；如果不存在，则把该学生的信息记录插入学生表中。程序设计题B 编写一个程序。程序初始界面如图1左图所示，设“学习目的”、“学习方法”和“退出”命令按钮的名称定义为cmdAim、

34、cmdWay和cmdExit，标签控件的名称定义为lblContent。单击“学习目的”按钮，显示如图1的中图所示；单击“学习方法”命令按钮，显示如图1的右图所示；单击“退出”按钮时，退出程序。 图1Private Sub cmdAim_Click() lblContent.Caption = 开发Windows应用程序End SubPrivate Sub cmdWay_Click() lblContent.Caption = 从实际应用程序的开发过程中学习VBEnd SubPrivate Sub cmdExit_Click() EndEnd SubB 编写一个数制转换程序，运行界面如图3所示

35、。设三个文本框的名称框定义分别为TxtDec、TxtHex和TxtOct。实现在第一个文本框中输入十进制数后，第二个文本框自动显示该数对应的十六进制数，第三个文本框自动显示该数对应的八进制数。提示：利用文本框的Change事件和转换函数Hex、Oct。Private Sub TxtDec_Change() TxtHex.Text = Hex(Val(TxtDec.Text) TxtOct.Text = Oct(Val(TxtDec.Text)End SubB 编写一个猜数字程序。程序产生一个随机数，由用户来猜这个数，并提示用户猜的数是否太大或太小，程序运行界面如4所示，设输入文本框的名称框定义

36、为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

37、Val(txtAnswer.Text) intNum Then lblComment.Caption = 太大了！ Else lblComment.Caption = 太小了！ End IfEnd SubPrivate Sub Form_Load() Randomize intNum = Int(Rnd * 1000 + 1)End SubB 编写一个判断闰年的程序。判断平年、闰年方法：凡是能被4整除但不能被100整除的年份为闰年，如1980年；凡是能被400整除的年份为闰年，如2000年；除以上两种情况以外的其余年份都是平年。Private Sub Command1_Click() Dim

38、intYear As Integer 用于存放年份 intYear = InputBox(请输入年份) If intYear Mod 400 = 0 Or (intYear Mod 4 = 0 And intYear Mod 100 0) Then MsgBox intYear & 年是闰年 Else MsgBox intYear & 年是平年 End IfEnd SubB 编写一个列表框应用程序，程序界面如图5所示。设“添加”、“删除”和“修改”按钮的名称定义为cmdAdd、cmdDel和cmdUpdate，列表框和文本框的名称为默认。要求从文本框输入姓名，然后按“添加”按钮把姓名添加到列表

39、框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。Private Sub cmdAdd_Click() List1.AddItem Text1.Text Text1.Text = End SubPrivate Sub cmdDel_Click() List1.RemoveItem List1.ListIndex Text1.Text = End SubPrivate Sub c

40、mdUpdate_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 IfEnd SubB 编写一个函数图形程序。用Pset方法在图形框Picture1内绘制y=Cosx在-到之间的图形，运行结果图7所示。设所有控件使用默认名称。Const pi = 3.1415926

41、Dim x As SinglePrivate Sub Command1_Click() Picture1.DrawWidth = 2 For x = -pi To pi Step 0.001 Picture1.PSet (x, Cos(x) Next xEnd SubPrivate 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: Cur

42、rentY = -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)

43、 CurrentX = 0.3: CurrentY = -1: Picture1.Print -1End SubPrivate Sub Command2_Click() EndEnd SubB 编写一个键盘按键程序。对窗体的KeyDown和KeyPress事件编程，显示按下、放开一个键时的事件发生经过，如当按下了A键时程序运行界面如图8所示。Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode 0 Then Print KeyDown事件：KeyCode ; KeyCode, Shift：; Shif

44、t End IfEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer) Print KeyPress事件：KeyAscii ; KeyAscii; 按下了：; Chr(KeyAscii)End SubB 编写使用ADO对象中的Connection对象连接SQL Server数据库的代码。Public ADOcn As ConnectionPublic Sub Main()Dim strSqlServer As StringstrSqlServer=Provider=SQLOLEDB;Server=(local);User ID=sa; _ P

45、assword=sa; Database=XSIf ADOcn Is Nothing ThenSet ADOcn = New ConnectionADOcn.Open strSqlServer 连接SQL Server数据库End IfEnd SubS 设计一个简单的加法程序，程序界面设计如图2所示。设第一操作数、第二操作数和计算结果文本框的名称分别定义为txtFirstNum、txtSecondNum和txtSum，“计算”命令按钮的名称定义为cmdSum。 Private Sub cmdSum_Click() txtSum.Text = Val(txtFirstNum.Text) + Va

46、l(txtSecondNum.Text)End SubJ 假设在D盘驱动器上已建立了一个通信录文件（Txl.txt），文件中的每个记录包括编号、用户名、电话号码和地址等4项内容。试编写一个程序，实现能按用户名查找，并在文本框中显示查找结果，如图6所示。设“查找”按钮的名称定义为cmdFindname，查找输入名称和结果文本框的名称分别定义为txtName和txtCount，记录条数标签的名称定义为lblCount。设在标准模块中已输入以下代码：Type Lxr intBh As Integer 编号 strXm As String * 8 姓名 strDh As String * 11 电话 strDz As String * 30 地址End TypePublic user As Lxr写出查询命令按钮cmdFindname的Click事件代码。Private Sub cmdFindname_Click() Dim i As Integer, intCount As Integer, intRecordNum As Integer Dim strComp1 As String, strComp2 As String txtCount.Text = 编号 姓名 电话 地址 + vbCrLf intCount = 0 Open d:txl.txt For