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

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

2、次的（ B ）属性值设置为相同，才可以设置索引值。B. NameC 44.程序运行时，驱动器列表框下列（ A ）属性能返回磁盘驱动器的名称。A . DriveD 37.当单击工具栏上的按钮，会触发的事件是（A ）o A . ButtonClickD 64.多媒体控件（MMControl ）具有一组执行 MCI命令的下压式按钮。其中Record按钮表示为（ BG 10.改变控件在窗体中的上下位置，应设置控件的（A ）属性。A . TopG 46.改变驱动器列表框的 Drive属性值将激活其（A ）事件。A . ChangeH 18.函数Int（Rnd*10）是在（ C）范围内的整数。C. 0,

3、10）J 13.假设已定义Integer变量x、y，则以下赋值语句正确的是（ C ）。C. y = x + yJ 40.检测文件是否结束的函数是（ C ）o C. EOF（）J 57.键盘事件的执行顺序是（B ） o B . KeyDown , KeyPress, KeyUpJ 62.决定系统是否自动检测多媒体控件（MMControl ）各按钮的状态的属性是（B ）。B . AutoEnabJ 63.将多媒体控件（MMControl ）的Frames属性设为3,则以下叙述正确的是（ A ）。A .指定Back 后退或前进的帧数都为3K 26.可通过（ C ）属性判断ListBox列表框控件的项

4、目总数目。C . ListcountL 25. ListBox中若没有任何条目选中，其List In dex属性值为（A ）。A . -1L27.列表框的（ B）属性用于返回或设置列表框中各列表项的文本。B . ListL54.Line （ 100,100）-Step （400, 400）将在窗体中的（ C ）画一条直线。 C.（ 100, 100）至（ 500,L 59.利用ADO访问数据库，首先要创建一个（ M 34.每创建一个顶级菜单，它的下面最多可以有（ N 24.能通过（ D ）来删除列表框中的选择项。 R 1.如果要设置窗体的标题栏，应选择（BA ）对象，用于建立和数据库的连接。A

5、 . Conn ectionC ）级子菜单。C . 5D . Removeitem 方法）属性。B . Capti onR 30.若要把“ XXX ”添加到列表框 List1中的第三项，则可执行语句（B）。B . Listl.Addltem "XXX", 2R 36.如果要在程序中显示一个弹出菜单，需调用（D ）方法。D . PopupMe nuR 55. RGB函数通过红、绿、蓝三基色混合产生某种颜色，若使用三个滚动条分别输入三种基色，为保证输则应设置滚动条的（A ）属性。A . Max和MinR 56.如果在图片框上使用绘图方法绘制一个圆，则图片框的（B）属性决定了该圆

6、的颜色。B . ForeCoS 2.要使命令按钮不响应用户生成的事件，应设置命令按钮的（D ）属性。D . En abledS 3.要使标签能透出窗体的背景，应设置标签的（A ）属性。A . BackStyleS 28.设List1为列表框控件，List1.Clear中的Clear是（ A ）。A.方法S 41.要读出C盘根目录下顺序文件 stud.txt内容，下列打开方式（C ）o C . Ope n "C:stud.txt" For In put AsS42.随机文件使用（C）语句写数据。C. PutS43.随机文件使用（D）语句读数据。D. GetS 47.使用目录列

7、表框的（ B ）属性可以返回或设置当前工作目录的完整路径（包括驱动器盘符）。S 51.要向图片框picP中加载"d:hainanzhiwu.bmp ”图像文件，应使用语句（ C ）。c. picP.Picture=LoadPicture（"d:hainanzhiwu.bmp"）S 60. SQL语言的Select语句中，用于分组的语句为（ B ）。B . group byW 7.某计时器控件的interval属性为0时，表示（ A ）。A .计时器关闭计时W 11.文本框中选定的内容，由下列（C ）属性反映。C. SeltextW 65.为了使多媒体控件（MMCo

8、ntrol ）中的录制按钮不显示，应添加代码（ C ）。C. MMControl1.R FalseW 67. Windows Media Player控件的UiMode属性，表示播放器界面模式，以下选项是播放器模式的属性值是上都是X 15.下列哪组语句可以将变量A、B值互换（ B ）。B. A=A+B : B=A - B: A=A - BX 19.下面（ A）运算符是算术运算符。A. ModX 38.下列可以用来存储图像可以供其它控件使用的控件是（C ）。C. ImageListX 50.下面对象中不能作为容器的是（B ）。B . Image控件X 53.下列图形中不能使用Shape控件绘制的

9、是（ B ）。B.三角形X 21.下面程序段运行后，显示的结果是（B ）。B . 1Dim intX As In tegerIf in tXThe nPrint intXElsePrint intX + 1End IfY 22.以下程序的输出结果是（C ）o C . 10Dim a, i%, sum%a = Array（4, 3, 2, 1）Fori = 0 To 3sum = sum + a（i）Next iPrint sumY 16.以下语句的输出结果是（C ）o Print Format （32548.5, “ 000,000.00” ）C . 032,548.50Y 20.已知三个变量

10、 A、B、C,判断A、B、C能否构成三角形的逻辑表达式为（ B ）。B . A + C >= EB >= C And B + C >= AY 29. 以下（ D ）语句将删除列表框List1 中的最后一项。D . Listl.Removeltem List1.ListCount-1Y 31.用户可以通过设置菜单项的（C ）属性值为False来使该菜单项失效。 C . EnabledY 32.用户可以通过设置菜单项的（B ）属性值设置为 False来使该菜单项不可见。B . VisibleY 45.要用通用对话框控件显示标准的"字体”对话框，应调用其（C ）方法。C

11、. ShowFo ntY 61.以下四个控件，不属于数据绑定控件的是（C ）o C . Option控件Z 5. 在Visual Basic中，一般（ B ）属性用来设置字体的颜色。B . ForeColorZ 6. 在VB中断模式下，可用调试窗口监视表达式和变量的值，其中在（A）窗口中可以直接键入命令所请求的信息。A .立即Z 8. 在窗体Form1的Click事件过程中有以下语句：Label1.Caption="Visual Basic"若本语句执行之前，标签Caption属性为默认值，则标签控件的 Name属性和Caption属性在执行本语句之前的值分别为(B )。和

12、 LabellZ 12.在Visual Basic中，变量的默认类型是( D )。D. VariantZ 23.在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变D. Static量的值，则应使用( D )关键字在过程中定义局部变量。Z 35.在设计菜单时，为了创建分隔栏，要在(B )中输入字符(-)。B .标题栏Z 39.在Visual Basic中按文件的访问方式不同，可以将文件分为( B)。B .顺序文件、随机文件和二进制Z 48.在随机文件中( D )。D .可以通过记录号随机读取记录Z 49.执行语句 Ope n "C : Stud.txt" For

13、In put As #2后，系统(C)。C .打开C盘当前文件夹下名为Stud.tx来读取文件内容Z 52.执行Forml.Scale (0, 10) - (10,-10)语句，Forml窗体坐标系 x轴和y轴的正方向是(A) A .向右Z 66.在多媒体控件(MMControl )中，DeviceType属性用于设置多媒体设备的类型， 如果将要播放的文件是CD歌曲，应将DeviceType属性设置为(D ) o D. CDAudioZ 68. 在 Windows Media Player控件中，决定播放文件是否全屏的属性是(A )。A. FullScreen二、填空题A33.按文件的存取方式

14、，可将文件分为顺序文件、随机文件 和 二进制文件。A 34. ADO模型中一般可通过 Conn ection对象的 Execute方法执行增加、删除、修改操作。使用ADO 模Recordset 和 Connection 对象连接的属性是ActiveConnection。A 35. ADO数据模型中一般可通过Connection对象的 Execute方法对数据库中的基本表进行增加、删不返回结果集的操作。C 22.创建第一个按钮控件对象时，系统自动为其"Name”属性分配一个名字，该名字为Command1D 28.对驱动器列表框来说，每次重新设置驱动器列表框的Drive属性时，将引发 C

15、ha nge事件；对目录列当 Path属性值改变时，将引发Change事件；对于文件列表框，重新设置的Path 属性，将事件。J 4.将 1 £x <12 写成 Visual Basic 逻辑表达式x>=1 And x<12。J 14基本程序控制结构可以分为顺序结构、选择 结构和 循环 结构3种。J 31.将图片框PictureBox的AutoSize属性设置成 Ture 时，图片框能自动调整大小，以适应其中的图片。L 6. Left ("abcd",2)函数的返回值是ab ; Right("abcd",2)函数的返回值是cd

16、 。L 32.Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用件；若允许用户输入文本，则应使用TextBox 控件。M 27.每次重新设置驱动器列表框的Drive属性时，都将引发Change事件。可在该事件过程中编写代码表框的路径，使目录列表框内容随之发生改变。S 9.数组的类型可以是基本数据类型，也可以是用户自定义的记录类型。如果省略类型说明，数组会被设置为 类型(Variant )。数组中各个元素在定义时如果是数值类型就被默认初始化为0，如果是字符串类型就被字符串 。1、丄 Jx2 - V2S 1. 数学表达式 cox2x+ 2写成等价的

17、Visual Basic 表达式为 cos(x)A2+Sqr(xA2-yA2)/2S 2. 数学表达式 10COS500写成等价的 Visual Basic 表达式为 10A(1/2)*cos(50*3.14/180)或者 Sqr(10)*cos(50*3.14/180)S 3.数学式子.s(s-a)(s-b)(sC)对应的 Visual Basic 运算表达式是：Sqr(s*(s-a)*(s-b)*(s-c)V 13. Visual Basic中变量依据其作用域不同可以分为过程级变量(局部变量)、模块级变量和全局变量3级变量就是指在事件过程或通用过程内定义的变量，它的作用域就是其所在的过程。

18、模块级变量包模块变量和标准模块级变量。窗体模块变量的作用域是窗体内的所有过程，标准模块变量的作用域块内的所有过程。全局变量的作用域是整个工程中所有的模块和所有的过程。16. Visual Basic 一般用4种类型的文件保存，分别是扩展名为 .frm的窗体文件，扩展名为bas准模块文件，扩展名为 _.cls的类模块文件和扩展名为 .vbp_的工程文件。V 17. Visual Basic程序开发有三种模式，即设计 模式、 运行 模式和 中断 模式。V 18. Visual Basic中设置断点的按键是 F9，逐语句调试的语句是F8 。V 19. Visual Basic中的程序错误类型主要有编

19、译错误、实时错误 和逻辑错误三种20. Visual Basic应用程序即工程文件通常由三类模块组成，即窗体模块、标准模块和类模块。窗体模块包V 体和 代码两部分。标准模块完全由代码组成，这些代码不与具体的对象相关联，一般义全局变量和公用过程和函数。类模块用于自定义类。W 23.为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为Picture = LoadPrcture(“ picturefile.jpg” )Y 5. 已知 a=3,b=4,c=5,表达式 a>b and Not c>a Or c>b And c<

20、a+b 的值是True 。8.有变量定义语句“ Dim Str1,Str2 As String *10 ”，其中Str1变量的类型应为变体型，其中字符串型。Str2变量的ZZZZZZZZZZZ7. 在Visual Basic的转换函数中将数值转换为字符串的函数是Str(x);将数字字符串转换为数是Val(x) ;将字符转换为相应的ASCII码的函数是Asc(x) 。10. 在Visual Basic中，数组默认的下标下界是0_，如果希望从1开始，可以使用Option Base n语句语句11. 在缺省情况下，用 Dim A(5,5)语句声明二维数组后，数组A的元素共有36个。12. 在Visu

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

22、个-26. 在 Visual Basic 中，文件系统控件包括驱动器歹II表框( DriveListBox )、目录歹II表框( DirListB件列表框(FileListBox )。三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管29. 执行指令“ Line (200,200) -Step (500,500)”后，CurrentX =700 。30. 执行指令“ Line (200,200) -(500,500)”后，CurrentX =500 。三、程序阅读题Y 阅读以下程序，写出其功能。Private Sub cmdWhy_Click()'cmdWhy为命令

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

24、广泛。2. VB是国内外最流行的程序设计语言之一，也是学习开发 Windows应用程序 首选的程序设计语言。Y 阅读以下程序，写出其功能。Private Sub cmdWhat_Click()'cmdWat为命令按钮，IbIHelloVB为标签，txtHelloVB为文本框 lblHelloVB .Caption = "VB能干什么”txtHelloVB = " VB能快速实现用户界面的设计、” _+ "文字和图形图像的处理以及数据库的使用，能开发多媒体、数据库、” _+ "网络和图形等多方面的应用程序；可以开发个人使用或小组”_+ "

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

26、VB .Caption ="如何学好 VB"txtHelloVB = " (1)从实际应用程序的开发过程中学习VB程序设计。” _+ vbCrLf + vbCrLf + "(2)学会分析问题和解决问题的思路、” _+ "算法设计和实现方法。” + vbCrLf + vbCrLf _+ " (3)学会利用 MSDN 资源。"+ vbCrLf + vbCrLf _+ " (4)养成良好的编程习惯。”End Sub该程序功能：单击 cmdHow按钮，在IbIHelloVB标签显示“如何学好 VB ”，在 txtHello

27、VB文本框显示以下内容：(1) 从实际应用程序的开发过程中学习VB程序设计。(2) 学会分析问题和解决问题的思路算法设计和实现方法。(3) 学会利用 MSDN资源。(4) 养成良好的编程习惯。Y 阅读以下程序，写出其功能。Sub n ewQuesti on()Dim in tOp1 As In teger, i ntOp2 As In teger, i ntTemp As In tegerDim strOprator As Stri ngDim in tOpratorNum As In tegerRan domizein tOp1 = In t(10 * Rnd + 1)in tOp2 = I

28、n t(10 * Rnd + 1)in tOpratorNum = Int(4 * Rnd + 1) Select Case in tOpratorNumCase 1strOprator = "+": in tA nswer = in tOp1 + in tOp2 Case 2strOprator ="":If intOp1 < intOp2 Thenin tTemp = in tOp1: in tOp1 = in tOp2: in tOp2 = in tTemp End IfintAn swer = in tOp1 - i ntOp2Case 3

29、strOprator = " ": intAnswer = intOp1 * intOp2 Case 4strOprator ="" 十 If intOp1 < intOp2 Thenin tTemp = in tOp1: in tOp1 = in tOp2: in tOp2 = in tTemp End IfIf in tOp1 Mod in tOp2 <> 0 The n in tOp1 = in tOp1 - i ntOp1 Mod in tOp2End IfEnd Select'IblQuestion 为标签IblQue

30、stion.Caption = intOp1 & "" & strOprator & "" & intOp2 & "=" End Sub该程序是一个随机出题的过程。随机产生两个10以内的操作数，随机产生一个操作符(+、x -) °如果是减法和除法时，第一操作数小于第二操作数时交换 两个操作数，且如果是除法则同时减去两数相除所得的余数。最后在标签IblQuestion上显示题目。Y阅读以下程序，写出其功能。Public Fu nction Avg_mark(MarkArray() As

31、Sin gle) As Si ngleDim sn gSum As Sin gle, i As In teger , n As In tegersngSum = 0n = UBou nd(MarkArray)For i = 0 To nsn gSum = sn gSum + MarkArray(i) Next iAvg_mark = sn gSum / nEnd Function该程序是一个求平均值的函数。以一个单精度的数组作为参数，先求出数组元 素的个数，接着求出数组所有元素的和，最后得出该数组的平均值。Y 阅读以下程序，写出其功能。Public Fu nction Max_Mark(Mar

32、kArray() As Sin gle) As Si ngleDim sn gMax As Sin gle , i As In teger , n As In tegersn gMax = 0n = UBou nd(MarkArray)For i = 0 To nIf MarkArray(i) > sn gMax The n sn gMax = MarkArray(i) Next iMax_Mark = sn gMaxEnd Function该程序是一个求最大值的函数。以一个单精度的数组作为参数，先求出数组元 素的个数，接着逐个比较，求出数组元素的最大值。Y 阅读以下程序，写出其功能。P

33、ublic Fun ction Pass_Mark(MarkArray() As Sin gle) As Sin gleDim in tCo unt As In teger, i As In teger , n As In tegerin tCou nt = 0n = UBou nd(MarkArray)For i = 0 To nif MarkArray(i) >= 60 Then in tCou nt = in tCou nt + 1 Next iPass_Mark = in tCou nt / nEnd Function该函数的功能是求一组数中大于等于60的数的比例。以一个单精度的

34、数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中大于等于60的数的个数，最后求出其比例。Y 阅读以下程序，写出其功能。Private Sub Sort_Mark(MarkArray() As Sin gle)Dim sn gMtemp As Si ngleDim i As In teger , n As In teger , k As In teger,j As In tegern = UBou nd(MarkArray) For i = 0 To n -1k = iFor j = i + 1 To nIf MarkArray(j) > MarkArray(k) The

35、n k = j Next jsn gMtemp = MarkArray(k) MarkArray(k) = MarkArray(i) MarkArray(i) = sn gMtempNext iEnd Sub该过程的功能是把一组数按从大到小排序。以一个单精度的数组作为参数，先 求出数组元素的个数，接着逐个比较，求出数组元素中的最大值和第一个元素交换 位置；求出次大值和第二个元素交换位置；依次类推，完成从大到小排序。Y 阅读以下程序，写出其功能。Private Sub cha ngecolor()Dim r As In teger , g As In teger, b As In tegerDi

36、m x As Long'hsbRed、hsbGreen 和 hsbBlue 为水平滚动条 hsbRed.Mi n=0: hsbGree n.Mi n=0 : hsbBlue.Mi n=0 hsbRed.Max=255: hsbGree n.Max=255 : hsbBlue.Max=255 r = hsbRed.Valueg = hsbGree n. Valueb = hsbBlue.Valuex = RGB(r, g, b)frmMai n.BackColor = xEnd Sub该过程的功能是用红色、绿色、蓝色三个滚动条调节窗体底色。先把红色、绿色、蓝色三个滚动条的 Min属性设置

37、为0、Max属性设置为255，接着用取出三个滚 动条的Value属性值，用 RGB函数产生一个由红、绿、蓝三个 Value属性值混合而 成的新颜色，并作为窗体底色。Y阅读以下程序，写出其功能。Public ADOc n As Co nn ectionPublic Sub Mai n()Dim strAccess As Stri ng strAccess="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d: xs.mdb" If ADOcn Is Nothing ThenSet ADOc n = New Conn ectionADO

38、c n. Ope n strAccessEnd IffrmMain .Show' frmMain 为窗体End Sub该段程序的功能是建立数据库的连接。实现与D盘根目录下的文件名为xs.mdb的Access数据库的连接，同时显示frmMain窗体。Y阅读以下程序，写出其功能。Public ADOc n As Co nn ectionPublic ADOrs As New RecordsetPrivate Sub cmdAdd_Click()Dim strSQL As Stri ng'文本框 txtNo、txtName 和组合框 cboSex、cboClass'分别用来输

39、入学号、姓名、性别和班级strSQL = "select * from 学生表 where 学号="+ txtNo.Text + ""' ADOrs.Ope n strSQL, ADOc nIf Not ADOrs.EOF The nMsgBox "该记录已经存在，不能继续增加！", vbCritical + vbOKOnlyADOrs.CloseExit SubEnd IfstrSQL = "insert into 学生表(学号，姓名性别，班级)"strSQL = strSQL + " valu

40、es('" + txtNo.Text + "','" + txtName.Text + "',"strSQL = strSQL +"”' + cboSex.Text + "','" txtClass.Text + "')" ADOcn.Execute strSQLEnd Sub该段程序的功能是把一个学生记录插入到学生表中。首先查找数据表中是否存 在文本框txtNo中输入的学号，如果存在则不增加；如果不存在，则把该学生的信息 记录插入

41、学生表中。四、程序设计题B 编写一个程序。程序初始界面如图1左图所示，设“学习目的”、“学习方法”和“退出”命令按钮的名称定义为 cmdAim、cmdWay和cmdExit，标签控件的名称定义为lblContent。单击“学习目的”按钮，显示如图1的中图所示；单击“学习方法”命令按钮，显示如图1的右图所示；单击“退出”按钮时，退出程序。图1Private Sub cmdAim_Click()lblContent.Caption ="开发 Windows 应用程序"End SubPrivate Sub cmdWay_Click()lblContent.Caption =&qu

42、ot;从实际应用程序的开发过程中学习VB"End SubPrivate Sub cmdExit_Click()End-End SubB 编写一个数制转换程序，运行界面如图 3所示。设三个文本框的名称框定义分别为 TxtDec、TxtHex和TxtOct。实现在第一个文本框中输入十进制数后，第二个文本框自动显示该数对应的十六进制数，第三个文本框自动显示该数对应的八进制数。提示：利用文本框 的Change事件和转换函数 Hex、Oct。Private Sub TxtDec_Cha nge()TxtHex.Text = Hex(Val(TxtDec.Text) TxtOct.Text =

43、Oct(Val(TxtDec.Text)End SubB编写一个猜数字程序。程序产生一个随机数，由用户来猜这个数，并提示用户猜的数是否太大或太小，程序运行界面如4所示，设输入文本框的名称框定义为TxtAnswer，神秘的数、评价标签控件的名称框定义为IbIComment和IblNum，"确定”命令按钮的名称定义为cmdOk。"& intCount & "次"4整除但不能被100整除的Dim in tNum As In teger'用于存放"神秘的数”Dim in tCou nt As In teger'用于猜数计

44、数Private Sub cmdOk_Click()in tCou nt = in tCou nt + 1'计数If Val(txtA nswer.Text) = in tNum The n'猜对lblComment.Caption ="猜对了！你一共猜了 lblNum.Capti on = in tNumElseIf Val(txtAnswer.Text) > intNum Then lblComment.Caption = ” 太大了！ ”ElselblComment.Caption = ” 太小了！ ”End IfEnd SubPrivate Sub Fo

45、rm_Load()Ran domizeintNum = Int(Rnd * 1000 + 1) End SubB编写一个判断闰年的程序。判断平年、闰年方法：凡是能被年份为闰年，如1980年；凡是能被400整除的年份为闰年，如2000年；除以上两种情况以外的其余年份都是平年。Private Sub Comma nd1_Click()Dim in tYear As In teger'用于存放年份intYear = InputBox("请输入年份")If in tYear Mod 400 = 0 Or (in tYear Mod 4 = 0 And in tYear Mo

46、d 100 <> 0) The nMsgBox intYear & "年是闰年"ElseMsgBox intYear & "年是平年"End IfEnd SubB 编写一个列表框应用程序，程序界面如图5所示。设“添加”、“删除”和“修改”按钮的名称定义为 cmdAdd、cmdDel和cmdUpdate，列表框和文本框的名称为默认。要求从文本 框输入姓名，然后按“添加”按钮把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取 的项送往文本框且“修改”

47、按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。列吾抠的应用口回冈1Private Sub cmdAdd_Click()List1.Addltem Text1.TextText1.Text =""End SubPrivate Sub cmdDel_Click()List1.Removeltem List1.ListI ndexText1.Text =""End SubPrivate Sub cmdUpdate_Click()If cmdUpdate.Caption =&qu

48、ot;修改"Then Text1.Text = List1. List(List1.ListI ndex) cmdUpdate.Caption = ” 确认修改”ElseList1 .L ist(List1. ListI ndex) = Text1.Text cmdUpdate.Caption = ” 修改” Text1.Text =""End IfEnd SubB编写一个函数图形程序。用Pset方法在图形框Picturel内绘制y=Cosx在-n到n之间的图形，运行结果图7所示。设所有控件使用默认名称。Con st pi = 3.1415926Dim x As

49、Si nglePrivate Sub Comma nd1_Click()Picture1.DrawWidth = 2For x = -pi To pi Step 0.001Picture1.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)Curre ntX = -pi: Curre ntY = -0.2:

50、Picture1.Pri nt "- n"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 "n"Picture1.Line (0, 1)-(0.1, 1)Curre ntX = 0.3: Curre ntY = 1: Picture1.Pri nt "1"Picture

51、1.Li ne (0, -1)-(0.1, -1)Curre ntX = 0.3: Curre ntY = -1: Picture1.Pri nt "-1"End SubPrivate Sub Comma nd2_Click()EndEnd SubB编写一个键盘按键程序。对窗体的KeyDown和KeyPress事件编程，显示按下、放开个键时的事件发生经过，如当按下了A键时程序运行界面如图8所示。Private Sub Form_KeyDow n(KeyCode As In teger. Shift As In teger)If KeyCode <> 0 The

52、nPrint "KeyDown 事件：KeyCode " KeyCode, " Shift: " ShiftEnd IfEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print "KeyPress 事件：KeyAscii " KeyAscii;"按下了： " Chr(KeyAscii)End SubB 编写使用 ADO对象中的Conn ection对象连接SQL Server数据库的代码。Public ADOc n As Co nn ectionPubli

53、c Sub Mai n()Dim strSqlServer As Stri ngstrSqlServer="Provider=SQLOLEDB;Server=(local);User ID=sa; _Password=sa; Database=XS"If ADOcn Is Nothing ThenSet ADOc n = New Conn ectionADOcn.Open strSqlServer连接 SQL Server 数据库End IfEnd SubS设计一个简单的加法程序，程序界面设计如图2所示。设第一操作数、第二操作数和计算结果文本框的名称分别定义为 txtFir

54、stNum、txtSecondNum和txtSum，"计算”命令按钮的名 称定义为cmdSum。Private Sub cmdSum_Click()txtSum.Text = Val(txtFirstNum.Text) + Val(txtSeco ndNum.Text)End SubJ假设在D盘驱动器上已建立了一个通信录文件（Txl.txt），文件中的每个记录包括编号、用户名、电话号码和地址等4项内容。试编写一个程序，实现能按用户名查找，并在文本框中显示查找结果，如图 6所示。设“查找”按钮的名称定义为cmdFindname，查找输入名称设在标准模块中已输入以下代码:Type Lxrin tBh As In teger编号strXm As Stri ng * 8姓名strDh As Stri ng * 11'电话strDz As Stri ng * 30'地址End TypePublic user As Lxr写出查询命令按钮 cmdFindname的Click事件代码。Private Sub cmdFi ndn ame_Click()Dim i As Integer, intCount As Integer, i