VB程序设计学习与实验指导书答案(包含实验答案)
VB学习与实验指导测试题 参考答案 第一章 一、选择题 1 A 2 B 3 D 4 D 5 B 6 B 7 C 8 A 9 C 10 A 11 A 12 C 13 C 14 D 15 C 16 A 17 B 18 D 二、填空题 1 事件 2 对象按钮 3 工程 4 视图 属性窗口 5 窗体编辑器
第二章 一、选择题 1 A 2 C 3 C 4 D 5 C 6 D 7 A 二、填空题 1 类 2 事件 3 4 5 6 Name（名称）
第三章 一、选择题 1 A 2 A 3 CD 4 C 5 A 6 C 7 C 8 A 9 D 10 D 11 C 12 C 13 A 14 D 15 D 16 A 17 C 18 B 19 B 20 D 21 B 22 D 23 A 24 B 25 C 26 C 27 B 28 D 29 B 二、填空题 1 (a*sin(30*3.14/180)+c*log(b))/((abs(d)+1)*(e+f))+1 2 mod 3 x*y>0 and x=fix(x) and y=fix(y) 4 y mod 4=0 and y mod 100<>0 or y mod 400=0 5 int(rnd*90)+10 6 0 “” 7 空格 8 6,845.30 9 (1) 8 (2) 1 (3) abcd (4) 出错（类型不匹配） (5) false (6) 29/06/2008 (7) I like VB (8) 4 (9) 4 4 (10) 3 4 (11) 10 -10 (12) -1 (13) aa (14) 3 (15) 0 (16) 1 (17) C (18) 5 (19) 4 (20) 34.54 (21) 中国 (22) 上海 (23) VISUAL BASIC (24) visual basic
10 (1) x<-100 or x>100 (2) a=int(a) and b=int(b) and a*b>0 (3) x<=y or x>=z (4) a>0 and fix(a)<>a (5) a = 0 Xor b = 0 (6) len(s)<10 (7) UCase(s) = s (8) Left(s, 1) = "a" And Right(s, 1) = "a" (9) instr(s,"a")<>0 (10) Trim(s) = s (11) Date() = #8/8/2008# (12) Weekday(date) = 2
第四章 一、简单填空 1 Randomize 2 N=int(rnd*90)+10 3 M=(int(rnd*91)+10)/10 4 Exit for 5 Exit do 二、读程序写结果 1 150 12 2 22 23 -1 3 5 3 0 4 20 40 60 三、程序填空 1 Len(s) Mid(s,I,1) c>=”A” and c<=”Z” c>=”a” and c<=”z” c>=”0” and c<=”9”
2 1 2 n\2 n mod i=0 sum+i n=sum
3 1000 Cstr(n) Cstr(m) Right(s2,len(s1))=s1
4 100 200 2 n-1 exit for count+1 cound mod 5=0 print
5 Sum=1 A*x*x/((2*n-1)*(2*n)) Sum+a Abs(a)<=1e-7
第五章 一、选择题 1 B 2 C 3 C 4 A 5 C 6 A 7 D 8 B 9 C 10 A 11 B 12 D 13 A 二、读程序写结果 1 120 36 2 10 31 7 3 26 14 26 三、程序填空
1 A(I,j); Picture1.print A(I,1) 1 A(I,j) J “第” & I & “行最大数是” & maxdata & “,第” maxj & “列”
2 Text1.text & a(i) K Preserve b(k) B(k)=a(i)
3 Sqr(n-m)=int(sqr(n-m)) Redim preserve b(k) N A(m) & b(m)
4 Int(rnd*51)+50 1 B(i)+1
第六章 一、判断题 1 √ 2 √ 3 × 4 × 5 √ 6 √ 7 √ 8 √ 9 √ 10 √ 11 × 12 √ 13 √ 14 × 15 √ 16 √ 17 √ 18 √ 19 √ 20 √ 二、选择题 1 A 2 C 3 A 4 A 5 A 6 D 7 B 8 A 四、读程序写结果
1 x=2 y=2 m=2
2 9 4 5 9 27
3 50 26
4 5 64 5
5 7 14 11 22 15 30
6 29 29 3
7 12 25 第七章 一、选择题 1 B 2 B 3 D 4 C 5 B 6 D 7 A 8 D 9 B 10 B 11 C 12 A 13 B 14 C 15 D 16 C 17 A 18 A 19 B 20 C 21 B 22 C 23 B 24 B 25 B 二、简单填空 1 LargeChange 2 Timer.Enabled = False 3 AddItem 4 格式 5 Picture 6 Enabled 7 Load 8 SetFocus 9 MultiLine 10 ms 三、程序填空
1 Inputbox Timer1_timer Text2.text Label3.caption=””
2 Form_load List1_dblclick List1.listindex List2_dblclick List2.listindex
3 (3) Text List1.text Removeitem 10-2*i-1
第八章 一、选择题 1 D 2 B 3 C 4 5 C 二、简单填空 1 popupmenu 2 3 visible 4 连接符- 5
第九章 一、选择题 1 C 2 C 3 B 4 B 5 B 6 B 7 C 8 B 二、简单填空 1 Eof 2 记录 字节 3 大小 4 复制 5 Drive 三、程序填空
1 For input Do until eof(1) Line input #1,data
2 Input as #1 #1,str Close #1
综合测试题一 一、选择题 1 A 2 C 3 D 4 B 5 D 6 A 7 A 8 C 9 A 10 C 二、填空 1 Int(x)=x and int(y)=y and x*y<0
2 YAW oureelcome
3 5 15 151
4 11 19 13
5 4 12 19 6 n nn onn
7 until abs(t)< =eps (-1)^n t*x*x/n
8 K=1 c(k)=p P=”” List1.additem c(i)
9 (Byval a as integer) as boolean i>int(a/2) judge(p)
10 False Text1.text=text1.text & “(“ & m & “,” & n & ”)” & vbcrlf M=k N mod i=0
综合测试题二 一、选择题 1 A 2 B 3 C 4 A 5 C 6 C 7 C 8 B 9 C 10 A 二、填空 1 (Int(51*rnd)+100)/100
2 2 3 4 5 6 6 7 8 10
3 W WW 8
4 2 3 3 7 4 4 12
5 GCD(21,3)=3 GCD(45,24)=3
6 47 23 11
7 Instr(s,”,”) Mid(s,n+1) A(3)=val(s) 8 m+val(mid(cstr(n),i,1))
VB实验指导书_理论综合练习题_答案(完结版).doc
第二部分综合练习理论练习一一单选1-5 CDCCB 640ABDCD 11-15 CCBBD 16-20 DBCBA二多选1 ABCE 2CE 3 BCE 4 ADE 5 ABCD6ABCDE 7ACD8ABCDE 9 ABC 10ABCDE三判断1-5 X V X V V6-10 V X V V V四填空1 x=int(Rnd*101)End If avg=s/82 i=l to 10Right(str(i),l)或Right(str(i mod 10))3 m*n/GCD(m,n)GCD(b, a mod b)4 Exit For i & “是素数”Next i五阅读程序1-4 DDCB六程序设计1Option Base 1Private Sub Form_click()Dim a( 10)Ciscreatedata a()sort a()Fori= ITo 10Print a(i);Next iEnd SubSub createdata(a())Fori = ITo 10a(i) = Int(Rnd * 101)Next iEnd SubSub sort(a())For i = 1 To 9Forj = 1 To 10-iIf a(j) > a(j + l)Thent = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext jNext iEnd Sub2Private Type ksno As String * 8Bscj As IntegerSjcj As IntegerEnd TypeDim student As ksPrivate Sub Form_Load()Open "c:\ksxx.dat" For Random As#l Len = Len(student)End SubPrivate Sub cmdadd_Click()student.no = Text 1.Textstudent.Bscj = Val(Text2.Text)student.Sjcj = Vai (Tex t3.Text)lastrecord = LOF( 1) / Len(student) + 1Put # 1, lastrecord, studentTextl.Text =Text2.Text = ””Text3.Text ="End SubPrivate Sub cmdquit_Click()Close #1EndEnd Sub1-5 CABCD理论练习二6-10 ABCCD 11-15 BBBAB1 CD2 AD3CE4BC6BCDE7CDE8ABCDE9 ABD三判断二多选1-5 X X X X V 6-10 V V V X X 16-20 DBAAC5 AD10ACDE1n-l 或者Sqr (n)02X y3 1 to 102*i-14Button=2start=True 五阅读程序1-5DBDAB六程序设计1Private Sub Form_click()四填空japan = 47528china = 22257n = 0 True — (x, y)Do While china <= japanchina = china * 1.098japan = japan * 1.028 n= n + 1LoopPrint n & ”年之后，中国GDP将超过日本”End Sub•VB6中的Split函数，其功能足将一字符巾用分界符分割为一字符串数组。
VB程序设计教程(第3版)课后实验答案
'Caption = "窗体大小不变"
'Form1.Width = 260 * 16
' 260 是 Tongji-2.bmp 图的宽度，象素单位
'Form1.Height = 260 * 16 + 200 ' 260 是图的高度，象素单位，200 是窗体的标题栏高度
End Sub
A．5
Sub Command1_Click() Text1.FontName = "隶书" Text1.FontSize = 25
对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料电试力卷保相护互装作置用调与试相技互术关，系电，力根保通据护过生高管产中线工资敷艺料设高试技中卷术资配0料不置试仅技卷可术要以是求解指，决机对吊组电顶在气层进设配行备置继进不电行规保空范护载高高与中中带资资负料料荷试试下卷卷高问总中题体资，配料而置试且时卷可，调保需控障要试各在验类最；管大对路限设习度备题内进到来行位确调。保整在机使管组其路高在敷中正设资常过料工程试况中卷下，安与要全过加，度强并工看且作护尽下关可都于能可管地以路缩正高小常中故工资障作料高；试中对卷资于连料继接试电管卷保口破护处坏进理范行高围整中，核资或对料者定试对值卷某，弯些审扁异核度常与固高校定中对盒资图位料纸置试，.卷保编工护写况层复进防杂行腐设自跨备动接与处地装理线置，弯高尤曲中其半资要径料避标试免高卷错等调误，试高要方中求案资技，料术编试交写5、卷底重电保。要气护管设设装线备备置敷4高、调动设中电试作技资气高，术料课中并中3试、件资且包卷管中料拒含试路调试绝线验敷试卷动槽方设技作、案技术，管以术来架及避等系免多统不项启必方动要式方高，案中为；资解对料决整试高套卷中启突语动然文过停电程机气中。课高因件中此中资，管料电壁试力薄卷高、电中接气资口设料不备试严进卷等行保问调护题试装，工置合作调理并试利且技用进术管行，线过要敷关求设运电技行力术高保。中护线资装缆料置敷试做设卷到原技准则术确：指灵在导活分。。线对对盒于于处调差，试动当过保不程护同中装电高置压中高回资中路料资交试料叉卷试时技卷，术调应问试采题技用，术金作是属为指隔调发板试电进人机行员一隔，变开需压处要器理在组；事在同前发一掌生线握内槽图部内纸故，资障强料时电、，回设需路备要须制进同造行时厂外切家部断出电习具源题高高电中中源资资，料料线试试缆卷卷敷试切设验除完报从毕告而，与采要相用进关高行技中检术资查资料和料试检，卷测并主处且要理了保。解护现装场置设。备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。
vb程序设计书习题和参考答案
vb程序设计书习题和参考答案练习题习题⼀⼀、判断题1．Visual Basic是以结构化的Basic语⾔为基础、以事件驱动作为运⾏机制的可视化程序设计语⾔。
2．⾯向对象的程序设计是⼀种以对象为基础，由事件驱动对象的编程技术。
3．事件是由Visual Basic预先定义的对象能够识别的动作。
4．新建⼯程时系统会⾃动将窗体标题设置为Form1。
5．控件的属性值不可以在程序运⾏时动态地修改。
6．决定对象是否可见的属性为Visible属性，决定对象可⽤性的属性是Enabled属性。
7．保存Visual Basic⽂件时，若⼀个⼯程包含多个窗体或模块，则系统先保存⼯程⽂件，再分别保存窗体或模块⽂件。
8．单击“启动”菜单项将窗体装⼊内存时，⼀定触发窗体的Load事件。
9．“事件过程”是⽤来完成事件发⽣后所要执⾏的程序代码。
10．在打开某窗体时，初始化该窗体中的各控件，应选⽤Load事件。
⼆、选择题1．⼯程⽂件的扩展名为。
A、.frxB、.basC、.vbpD、.frm2．下列不属于对象的基本特征是。
A、属性B、⽅法C、事件D、函数3．在设计模式双击窗体将显⽰的窗⼝是A、⼯程窗⼝B、⼯具箱C、代码窗⼝D、属性窗⼝4．VB中运⾏程序的快捷键是A、F2B、F5C、Alt+F35．改变控件在窗体中的上下位置应修改该控件的属性。
A、TopB、LeftC、WidthD、Right6.窗体模块的⽂件扩展名是A、.exeB、.basC、.frxD、frm7．设置窗体的字体⽤属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic8.设置窗体的字号⽤属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic9．下列选项中不属于事件的是。
A、DblclickB、LoadC、ShowD、KeyUp10．VB编制的程序保存在磁盘上，⾄少会产⽣何种⽂件。
A、.doc与.txtB、.com与.exe.C、.bat与.frmD、.vbp与.frm三、程序设计题1．新建⼀个⼯程，单击窗体时，在窗体上显⽰“欢迎使⽤Visual Basic程序”。
VB实验指导书课后习题答案2016版
VB实验指导书课后习题答案2016版VB作业参考答案(xx年3月)第1次习题 VB程序设计概述一、选择题 1 A 2 A 3 D4 C5 A6 C7 C8 B9 B 二、1、在设计阶段利用属性窗口直接设置对象的属性值，程序运行时不能改变；2、在程序运行阶段通过赋值语句实现，即通过事件触发修改属性。
对象名.属性名=属性值第2次习题 VB可视化编程基础一、选择题 1 A 2 D 3B 4C 5 A 6 B 7 C 8 B 9 A 10 C 二、填空1 2 3第3次习题 VB语言基础一、选择题 1 BH 二、 1 231AutoSize MultiLine PasswordChar 2 B 3 C 4 B 5 A 6B 7 B 8C 9 B 10 C 11 C Abs(x+y)+Z^5 /(x*y) /(2*+EXP(X+Y))三、1 2 3 4 四、1 2 3 4 5 6第4次习题 VB控制结构一、选择chr(int(rnd*4)+65) int(rnd*90)+10 x mod 5=0 or x mod 7=0 10*(x mod 10)+x\\10 或 StrReverse(x) 188 30306 876554 ；8819 VISUAL C++ Programming 1 B 11 D 21 A2 D 12 A 22 C3 A 13 A 23 C4 B 14 B5 D 15 A6 B16 D 7 B 17 B 8 C 18 D 9 A 19 B 10 B 20 A 二、填空1 2 3270 Result * x m ; t ; m 三、程序设计题1. 求函数的值。
Dim y As Long, x As Integer, i%x = InputBox(\输入X的值：\ 或者 x=val() If x ElseIf x ElseIf x y = x * x 'or y=x^2 Elsey = 25 - x End IfPrint \2. 计算机：1+3+5+……+99的值。
VB程序设计教程 实验2答案
41011066付乾峰资源1103实验2 自测练习1，程序Private Sub Command1_Click()Dim ss = Text1.TextLabel1.Caption = Left(s, 2)End SubPrivate Sub Command2_Click()Dim ss = Text1.TextLabel2.Caption = Right(s, 2)End SubPrivate Sub Command3_Click()Dim ss = Text1.TextText1.Text = Label1.Caption & Label2.CaptionEnd Sub截图自测练习2，程序Private Sub Command1_Click() Dim m%, a%, b%, c%, d%m = V al(Text1.Text)a = m Mod 10b = m \ 10 Mod 10c = m \ 100 Mod 10d = m \ 1000a = (a + 7) Mod 10b = (b + 7) Mod 10c = (c + 7) Mod 10d = (d + 7) Mod 10Print "加密前的4位整数是" & mPrint "加密后的结果是" & a & b & c & dEnd SubPrivate Sub Command2_Click()EndEnd Sub截图“我和校庆合张影，我给校庆送祝福”——北京科技大学学生公寓九斋活动策划一、活动名称“我和校庆合张影，我给校庆送祝福”——北京科技大学学生公寓九斋活动二、活动意义1.在校庆前，表达九斋学员对北科60年校庆的祝福2.展现九斋学子积极向上的精神风貌3.加深学生与楼层长之间的友谊便于以后的管理4.调动大家对校庆的热情与关注欲望5.增进同学与同学之间的联系活动地点及时间地点：九斋一楼大厅校篮球场时间：2011年3月20日-25日三、活动对象北京科技大学九斋公寓所有学生四、内容：1.活动时间推进表时间任务3月19日-3月24日①成立策划小组，完成活动策划，确定活动主题、模式、流程等基本情况；②成立出题组、宣传组、财务组、后勤保障组进行前期的活动准备3月24日-3月29日①向九斋全体学员征集照片；②给每个宿舍成员一张祝福卡片，征集好的祝愿词；③采购奖品；④做好前期活动宣传3月29日~4月6日①将收集的照片编辑，美化，用计算机软件做成照片墙展布；②安排工作人员及明确分工；③派层长去照一些反应九斋成员精神风貌的特写照片④继续做好宣传，让同学们多多配合4月6日-4月15 ①找到展布打印店，将做成的照片打印成展布；②购置合适大小的展板用来贴祝愿词4月15日-4月22日①将做成的展布挂在篮球场边的围栏；②将写上祝愿词的展板放在九斋宿舍内。
VisualBasic程序设计教程第版实验答案
※声明：1.实验所属课本原件为《Visual Basic程序设计教程（第4版）（□主编龚沛曾□编者杨志强陆慰民谢步瀛）》；2.实验答案代码采用红色字体突出；3.仅提供课本前七个实验的代码，之后的实验上课考试均不涉及故不作；4.教学平台上机实验、课本篇后实验，两者题目操作略有差异，作业以前者要求为准，故以下答案代码为前者代码，如对后者代码有所需求请私信；5.本文为作者原创，复制转载请注明出处；6.如果对代码有所疑问，或者略感繁琐想直接要已完成实验，请私信；7.浏览、复制、下载后请给作者一个合理的评价，感激不尽。
实验1-1编制简单的欢迎界面程序。
要求：在屏幕上显示“欢迎学习Visual Basic”；在文本框Text1中输入姓名；单击命令按钮“你输入的姓名是”，在Label3标签显示在文本框中输入的姓名。
“学号-1-1.frm”和“学号-1-1.vbp”文件名保存。
以后每个实验项目的命名规则都是如此，即“学号-实验号-实验题目”“”和“”）图2.1.1 实验1.1运行界面Private Sub Command1_Click()Label3.Caption = Text1.TextEnd Sub实验1-2模仿教学篇例1.1，将事件过程中的自上而下移动改为自右向左移动，同时考虑If Label1.Left < 0 Then Label1.Left = Form1.Width End SubSub MyMove()Label1.Move Label1.Left - 50, Label1.TopIf Label1.Left < 0 Then Label1.Left = Form1.WidthEnd SubPrivate Sub Command1_Click()Timer1.Interval = 200End SubPrivate Sub Command2_Click()Timer1.Interval = 0Call MyMoveEnd SubPrivate Sub Form_Load()Timer1.Interval = 0End SubPrivate Sub Timer1_Timer()Call MyMoveEnd Sub实验1-3“学号-1-3”为项目名保存。
VB实验报告答案-推荐下载
VB程序设计教程(第3版)课后实验答案
习题二1.对象指现实世界中的实体。
每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。
类是对同一种对象的集合与抽象。
类包含所创建对象的属性数据，以及对这些数据进行操作的方法。
封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。
VB工具箱中的可视图标是VB系统设计好的标准控件类。
通过将控件类实例化，得到真正的控件对象。
在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。
VB中常用的对象是控件。
此外，VB还提供了系统对象。
窗体是个特例，它既是类也是对象。
当向一个工程添加一个新窗体时，实质就由窗体类创建了一个窗体对象。
对象的三要素：属性、事件和方法。
属性：存放对象的数据(决定对象外观及功能)对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句[对象名.]属性名=属性值。
若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。
事件：发生在对象上的事情。
同一事件，对不同的对象，会引发不同的反应。
事件过程：应用程序处理事件的步骤。
应用程序设计的主要工作就是为对象编写事件过程的代码。
方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。
方法是面向对象的，调用时一定要指明对象。
2.窗体和控件具有的基本属性“(1) Name属性：名称所创建的对象名称,在程序中引用。
(2) Caption属性：标题该属性决定了对象上显示的内容。
(3) Height、Width、Top和Left属性决定对象的大小和位置。
(4) Enabled 属性：对象是否允许操作(5) Visible 属性：对象是否可见(6) Font 属性组：文本的外观FontName字体、FontSize大小FontBold粗体、FontItalic 斜体FontStrikethru 删除线FontUnderline 下划线(7) ForeColor属性：前景颜色(8) BackColor属性：背景颜色(9) MousePointer属性：鼠标指针类型, 设置值范围0～15，由系统指定。
vb实验指导后题目-参考答案
期末自测题（A卷）文件部分的选择题要做，其它类型的题目不用做，不作考察选择题其它部分还没有时间做一、单选题（每题1分，共25分）1、211.66.160.1 是Internet上的( )。
(A) IP地址 (B)域名 (C)密码 (D)软件编号2、在以下四个www网址中，（）网址不符合www网址书写规则。
(A) (B) (C) (D) 3、下列字符中，其ASCII码值最小的一个是（）。
(A) A (B) a (C) Z (D) X4、下列软件中属于浏览器的是（）。
(A) Excel (B) Internet Explorer (C) QQ (D) Visual Basic5、电子邮件(E-mail)地址的正确形式是（）。
(A)用户名@域名 (B)用户名#域名 (C)用户名/域名 (D)用户名.域名6、下面变量名不合法的是（）。
(A) a2 (B) abcd (C) a$x (D) Cd_E7、下列表达式中，正确的Visual Basic表达式是（）。
(A) 2sin45° (B) ∏*R2 (C) x÷y×5 (D) （x+1）/（x^2+1）/28、下面逻辑表达式的值为真的是（）。
(A) "A"> "a" (B) "abc"> "bc"(C) "That"> "Thank" (D) 12> 12.19、下列过程定义语句说明不合法的是（）。
(A) Sub f1(ByRef n() As Integer) (B) Sub f1(ByRef n As Integer)(C) Sub f1(ByVal n() As Integer) (D) Sub f1(ByVal n As Integer)10、执行下面的4个打印语句，将出错的是（）。
VB实验参考答案
VB实验参考答案VB实验参考答案VB（Visual Basic）是一种常用的编程语言，广泛应用于软件开发领域。
在学习VB的过程中，进行实验是非常重要的一部分。
本文将为大家提供一些VB实验的参考答案，帮助大家更好地理解和掌握VB编程。
实验一：简单的计算器程序要求：编写一个简单的计算器程序，能够实现基本的加减乘除运算。
参考答案：```vbPrivate Sub btnCalculate_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If rbAdd.Checked Thenresult = num1 + num2ElseIf rbSubtract.Checked Thenresult = num1 - num2ElseIf rbMultiply.Checked Thenresult = num1 * num2ElseIf rbDivide.Checked ThenIf num2 <> 0 Thenresult = num1 / num2ElseMsgBox("Error: Division by zero!")End IfEnd IftxtResult.Text = resultEnd Sub```实验二：学生成绩管理系统要求：编写一个学生成绩管理系统，能够实现学生信息的录入、查询和统计功能。
参考答案：```vbPrivate Sub btnAdd_Click()Dim name As StringDim score As Integername = txtName.Textscore = CInt(txtScore.Text)lstStudents.Items.Add(name & " - " & score)End SubPrivate Sub btnSearch_Click()Dim searchName As StringDim index As IntegersearchName = txtSearch.Textindex = lstStudents.FindString(searchName)If index <> -1 ThenlstStudents.SelectedIndex = indexElseMsgBox("Student not found!")End IfEnd SubPrivate Sub btnStatistics_Click()Dim totalScore As IntegerDim averageScore As DoubleDim count As IntegerFor Each item As String In lstStudents.ItemsDim score As Integer = CInt(item.Split("-")(1).Trim()) totalScore += scorecount += 1NextaverageScore = totalScore / counttxtTotalScore.Text = totalScoretxtAverageScore.Text = averageScore```实验三：简单的图书管理系统要求：编写一个简单的图书管理系统，能够实现图书信息的录入、查询和删除功能。