2023年电大《Visual Basic程序设计》考试复习最全面精品资料已整理排.pdf

《2023年电大《Visual Basic程序设计》考试复习最全面精品资料已整理排.pdf》由会员分享，可在线阅读，更多相关《2023年电大《Visual Basic程序设计》考试复习最全面精品资料已整理排.pdf（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Visual Basic程序设计 一、单项选择题 14.、/、Mod、*四个算术运算符中，优先级别最低的是（C ）。C Mod 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 属性。C TextBox C 33.菜单编辑器中，同层次的（B

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

3、定义 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列表框控件的项目总数目。CListcount L

4、 25.ListBox中若没有任何条目选中，其 ListIndex属性值为（A ）。A-1 L 27.列表框的（B ）属性用于返回或设置列表框中各列表项的文本。BList L 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.如果要设置窗体的标题

5、栏，应选择（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 ）属性。DEn

6、abled S 3.要使标签能透出窗体的背景，应设置标签的（A ）属性。ABackStyle 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:hai

7、nanzhiwu.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 W 65.为了使多媒体控件（MMControl）中的录制按钮不显示，应添加代码（C ）。CMMControl1.RecordVisible=False W 67.Windows Media Player

8、控件的 UiMode属性，表示播放器界面模式，以下选项是播放器模式的属性值是（D）。D以上都是 X 15.下列哪组语句可以将变量 A、B值互换（B ）。BA=A+B:B=AB:A=AB X 19.下面（A ）运算符是算术运算符。AMod X 38.下列可以用来存储图像可以供其它控件使用的控件是（C ）。C ImageList X 50.下面对象中不能作为容器的是（B）。BImage 控件 X 53.下列图形中不能使用Shape 控件绘制的是（B ）。B三角形 X 21.下面程序段运行后，显示的结果是（B ）。B1 Dim intX As Integer If intX Then Print i

9、ntX Else Print intX+1 End If Y 22.以下程序的输出结果是（C ）。C10 Dim 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 中的最后一项。DList

10、1.RemoveItem List1.ListCount-1 Y 31.用户可以通过设置菜单项的（C ）属性值为 False 来使该菜单项失效。CEnabled Y 32.用户可以通过设置菜单项的（B ）属性值设置为 False 来使该菜单项不可见。BVisible Y 45.要用通用对话框控件显示标准的“字体”对话框，应调用其（C ）方法。CShowFont Y 61.以下四个控件，不属于数据绑定控件的是（C ）。COption 控件 Z 5.在 Visual Basic中，一般（B ）属性用来设置字体的颜色。BForeColor Z 6.在 VB中断模式下，可用调试窗口监视表达式和变量的值

11、，其中在（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

12、.在设计菜单时，为了创建分隔栏，要在（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.在多媒体控件（MMContr

13、ol）中，DeviceType 属性用于设置多媒体设备的类型，如果将要播放的文件是CD歌曲，应将 DeviceType 属性设置为（D）。DCDAudio Z 68.在 Windows Media Player控件中，决定播放文件是否全屏的属性是（A ）。AFullScreen 二、填空题 A 33.按文件的存取方式，可将文件分为顺序文件、随机文件 和 二进制文件 。A 34.ADO 模型中一般可通过 Connection对象的 Execute 方法执行增加、删除、修改操作。使用 ADO 模型时，建立 Recordset和 Connection对象连接的属性是 ActiveConnection

14、 。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 的

15、值是 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的元素共有

16、36 个。Z 12.在 Visual Basic中，参数通过 按值传递 和 按地址传递 两种方式传送。Z 15.在 Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以事先确定，可使用For 循环；若要求先判断循环进行的条件，可使用 While 循环或 Do 循环。Z 21.在 Visual Basic中将多重窗体程序中第一个被装载内存的窗体称为 启动窗体 。Z 24.在 Visual Basic中，每个菜单项都是一个图形控件对象，所以它们也有一些与其他控件类似的属性，标题 就相当于其他控件的Caption 属性，而 名称 就相当于 Name属性。Z 25.在 Visua

17、l 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 阅读以下程序，写出其功能。Priv

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

19、VB是国内外最流行的程序设计语言之一，也是学习开发 Windows应用程序首选的程序设计语言。Y 阅读以下程序，写出其功能。Private Sub cmdWhat_Click()cmdWat 为命令按钮，lblHelloVB 为标签，txtHelloVB为文本框 lblHelloVB.Caption=VB能干什么 txtHelloVB=VB能快速实现用户界面的设计、_+文字和图形图像的处理以及数据库的使用，能开发多媒体、数据库、_+网络和图形等多方面的应用程序；可以开发个人使用或小组 _+使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序。End Sub 该程序功能：单击 cmdWha

20、t按钮，在 lblHelloVB 标签显示“VB能干什么”，在 txtHelloVB 文本框显示以下内容：VB能快速实现用户界面的设计、文字和图形图像的处理以及数据库的使用，能开发多媒体、数据库网络和图形等多方面的应用程序；可以开发个人使用或小组使用的小工具、大型企业应用系统以及遍及全球的分布式应用程序。Y 阅读以下程序，写出其功能。Private Sub cmdHow_Click()cmdHow 为命令按钮，lblHelloVB 为标签，txtHelloVB为文本框 lblHelloVB.Caption=如何学好 VB txtHelloVB=（1）从实际应用程序的开发过程中学习 VB程序设计

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

22、im 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 i

23、ntTemp=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为标签

24、 lblQuestion.Caption=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 Integer sngSum=

25、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,n As Integer sngMax=0 n=UBound(Ma

26、rkArray)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,n As Integer intCount=0 n=UBoun

27、d(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,n As

28、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 sngMtemp=MarkArray(k)MarkArray(k)=MarkArray(i)MarkArray(i)=sngMtemp Next i End Sub 该过程的功能是把一组数按从大到小排序。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中的最大值和第一个元素交换位置；求出次大值和第二个元素交换位

29、置；依次类推，完成从大到小排序。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)frmMa

30、in.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:

31、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

32、 String 文本框 txtNo、txtName 和组合框 cboSex、cboClass 分别用来输入学号、姓名、性别和班级 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+,+txtN

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

34、方法”命令按钮，显示如图 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。实现在第一个文本框中输入十进制数后，第

35、二个文本框自动显示该数对应的十六进制数，第三个文本框自动显示该数对应的八进制数。提示：利用文本框的 Change 事件和转换函数 Hex、Oct。Private Sub TxtDec_Change()TxtHex.Text=Hex(Val(TxtDec.Text)TxtOct.Text=Oct(Val(TxtDec.Text)End Sub B 编写一个猜数字程序。程序产生一个随机数，由用户来猜这个数，并提示用户猜的数是否太大或太小，程序运行界面如 4 所示，设输入文本框的名称框定义为TxtAnswer，神秘的数、评价标签控件的名称框定义为 lblComment 和 lblNum，“确定”命令

36、按钮的名称定义为 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 lblComme

37、nt.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 O

38、r(intYear Mod 4=0 And intYear Mod 100 0)Then MsgBox intYear&年是闰年 Else MsgBox intYear&年是平年 End If End Sub B 编写一个列表框应用程序，程序界面如图 5 所示。设“添加”、“删除”和“修改”按钮的名称定义为 cmdAdd、cmdDel 和cmdUpdate，列表框和文本框的名称为默认。要求从文本框输入姓名，然后按“添加”按钮把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确

39、认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。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

40、)cmdUpdate.Caption=确认修改 Else List1.List(List1.ListIndex)=Text1.Text cmdUpdate.Caption=修改 Text1.Text=End If End Sub B 编写一个函数图形程序。用 Pset 方法在图形框 Picture1内绘制 y=Cosx 在-到之间的图形，运行结果图 7 所示。设所有控件使用默认名称。Const pi=3.1415926 Dim x As Single Private Sub Command1_Click()Picture1.DrawWidth=2 For x=-pi To pi Step 0.

41、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)

42、-(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键时

43、程序运行界面如图 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 Serve

44、r数据库的代码。Public ADOcn As Connection Public Sub Main()Dim strSqlServer As String 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 所示。设第一操

45、作数、第二操作数和计算结果文本框的名称分别定义为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，

46、查找输入名称和结果文本框的名称分别定义为 txtName 和 txtCount，记录条数标签的名称定义为 lblCount。设在标准模块中已输入以下代码：Type Lxr intBh As Integer 编号 strXm As String*8 姓名 strDh As String*11 电话 strDz As String*30 地址 End Type Public user As Lxr 写出查询命令按钮 cmdFindname 的Click 事件代码。Private Sub cmdFindname_Click()Dim i As Integer,intCount As Integer,

47、intRecordNum As Integer Dim strComp1 As String,strComp2 As String txtCount.Text=编号 姓名 电话 地址 +vbCrLf intCount=0 Open d:txl.txt For Random As#1 Len=Len(user)intRecordNum=LOF(1)/Len(user)For i=1 To intRecordNum Get#1,i,user strComp1=Trim(txtName.Text)strComp2=Trim(Replace(user.strXm,Chr(0),)比较输入的姓名和文本中

48、的姓名是否一致 If StrComp(strComp1,strComp2)=0 Then intCount=intCount+1 Get#1,i,user msg=Str(user.intBh)+user.strXm+user.strDh+user.strDz msg=Replace(msg,Chr(0),)txtCount.Text=txtCount.Text+msg+Chr(13)+Chr(10)End If Next i Close#1 lblCount.Caption=一共找到+Str(intCount)+条记录 If intCount=0 Then MsgBox 没有该记录,vbIn

49、formation,提示 End If End Sub Y 有以下 3 个数据表：学生表：student_info(student_id,student_name,student_sex,student_class)，分别表示学号、姓名、性别、班级，各字段数据类型都是文本。课程表：course_info(course_ID,course_name,course_credit)，分别表示课程号、课程名、学分，课程号、课程名为文本类型，学分为数字类型。成绩表：mark_info(student_ID,course_ID,mark)，分别表示学号、课程号、成绩，其中学号、课程号为文本类型，mark为

50、数字类型。写出下列功能的 SQL语句：插入一个新课程记录（课程号：A001；课程名：英语 1；学分：5）修改学号为“95020”，课程号为“A001”的成绩为 85 查询所有学生的基本信息，使用中文作为查询结果的各字段的名称 统计出各个班级的人数 查询出学号为“95020”所选修的课程名和成绩，以及姓名 Insert into course_info values(A001,英语,5)Update mark_info set mark=85 where student_ID=95020 and course_ID=A001 Select student_id as 学号,student_nam