vb程序设计教育资料课后答案与实验题'答案(第三版)

''习题一 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 在教材上找。习题二1.对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。类是对同一种对象的集合与抽象。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。VB工具箱中的可视图标是VB系统 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 好的 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 控件类。通过将控件类实例化，得到真正的控件对象。在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。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，由系统指定。若为99，由用户提供的图形文件定义鼠标指针形状。(10)MouseIcon属性：在MousePointer属性值为99时，存放自定义的鼠标图标文件（.ico或.cur）。图标库在Graphics目录下。3.窗体的事件：Load事件是在窗体被装入工作区时触发的事件。当应用程序启动，自动执行该事件，该事件通常用来在启动应用程序时对属性和变量进行初始化。窗体的方法:（1）Print方法用来显示文本内容，格式：[对象.]print 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式（2）Cls方法清除运行时在窗体或图形框中产生的文本或图形,Cls方法不能清除窗体在设计时的文本和图形。格式：[对象.]cls（3）Move方法可移动窗体或控件，并可改变其大小。语法格式如下：[对象.]Move左边距离[,上边距离[,宽度[,高度]]]4.标签作用：用于显示文本(输出)信息，不能作为输入信息的界面。其内容只能通过Caption属性设置或修改，不能直接编辑。5.文本框是一个文本编辑区域，可以在该区域输入、编辑、修改和显示正文内容。在VB中字符长度以字为单位，也就是一个西文字符与一个汉字都是一个字，长度为1。重要属性(1)Text显示或输入的正文内容。(2)Maxlength设置文本框可输入的文字最大长度。默认值为0，表示可以输入任意长字符串。(3)MultiLine多行属性设置为True时，文本框可以输入或显示多行正文，同时具有文字处理器的自动换行功能，按Enter键可插入一空行。(4)ScrollBars滚动条属性0-None无滚动条1-Horizontal水平滚动条2-Vertical垂直滚动条3-Both同时加水平和垂直滚动条注意：当MultiLine为True时，ScrollBars才有效(5)PassWordChar设置显示文本的替代符。例如，当设置为“*”，则在文本框输入的内容均以“*”显示，而存储的值是用户输入的原文。一般用于设置口令的输入。当MultiLine为True时，该属性不起作用，密码不允许多行。(6)Locked指定文本控件是否可被编辑，默认值为False(可编辑)，当设置为True时，文本控件相当于标签控件的作用。注意：Locked与Enabled的区别。(7)文本内容进行选择操作的三个属性SelStart选定的正文开始位置SelLength选定的正文长度SelText选定的正文内容这3个属性互相关联,例如设置SelStart、SelLength后，SelText自动存放指定的文本。注意：属性窗口中没有这三个属性，只能在程序代码中使用。6.文本框的事件：(1)Change事件：当Text属性值发生改变时引发该事件(2)KeyPress事件：按下并且释放键盘上的一个键时，引发焦点所在控件的KeyPress事件，所按键的值存放在参数KeyAscii中。对回车的判断KeyAscii=137.文本框最有用的方法是SetFocus，把光标移到指定的文本框中。8.命令按钮Picture属性：按钮可显示图片文件(.bmp和.Ico)，当Style为1时有效。10.启动窗体时将命令按钮定位在窗体中央的代码PrivateSubForm_Load()Command1.Left=Form1.ScaleWidth/2-Command1.Width/2Command1.Top=Form1.ScaleHeight/2-Command1.Height/2EndSub11．vb图片文件在C:\ProgramFiles\MicrosoftVisualStudio\Common\Graphics文件夹。安装VB时可选择是否安装这些图片文件。习题三1.合法常量：(1)Double(2)错误(3)Double(4)Double(5)错误(6)Integer(7)String(8)String(9)Date(10)Double(11)错误（汉字字符）(12)Integer(八进制)(13)错误（八进制无数码8）(14)Integer(15)Boolean(16)错误(17)错误（十六进制无数码g）(18)Single说明：浮点型变量默认为Double类型而非Single。2.合法变量名：(1)√(2)√(3)误：数字开头(4)误：含空格(5)误：关键字(6)√(7)误：关键字(8)误：有括号(9)√(10)√(11)√(12)√（汉字字符可作为变量名，但不常用，且此名称易误解）变量命名规则见P.41-42。字母（汉字）开头，字母（汉字）、数字、下划线组成，长度为1-255个字符；关键字不可作为变量名，但可在变量名中嵌入关键字；不区分大小写。常量、数组、类型、函数、过程、对象命名规则与此相同。常量名通常全用大写。3.写VB表达式(1)Abs(x+y)+z^5(2)(1+x*y)^6(3)(10*x+Sqr(3*y))/(x*y)(4)(-b+Sqr(b^2-4*a*c))/(2*a)(5)1/(1/r1+1/r2+1/r3)(6)Sin(45*3.14159/180)+(Exp(10)+Log(10))/Sqr(x+y+1)4.根据条件写表达式(1)随机产生大写字母Chr(Int(Rnd*(Asc("L")-Asc("C")+1)+Asc("C")))(2)[100,200]内的随机数Int(Rnd*101)+100(3)点(x,y)位于第一或第三象限x>0Andy>0Orx<0Andy<0或x*y>0(4)x是5或7的整数倍xMod5=0OrInt(x/7)=x/7(5)将两位整数x的个位与十位对换x\10+(xMod10)*10(6)四舍五入取两位小数Round(x,2)(7)字符变量C是字母字符（不区分大小写）——准确地说是：字符变量C的第一个字符是字母C>="A"AndC<="Z"OrC>="a"AndC<"z"或UCase(C)>="A"AndUCase(C)<="Z"或LCase(C)>="a"AndLCase(C)<="z"(8)字符变量S第5个字符起取6个字符Mid(S,5,6)(9)10≤x＜2010<=xAndx<20(10)x，y至少有一个小于zxzAndy>z5.写表达式的值(1)188——注意运算的优先级顺序，以及整除运算“\”的计算(2)200100——计算100+"100"时，由于两个操作数类型不同，在可能的情况下自动采用精度较高的类型，即把字符型转换为数值型，100+100得到200；然后进行字符串连接运算200&100，再自动将两个数值转换为字符串，得200100。(3)68.56——在四舍五入函数产生之前，这就是四舍五入的计算方法(4)876554——先进行字符串的“+”运算，再转换成数值。在变量名和函数名后可加上类型符，以强调其类型，但不是必须的。(5)2000-2-29(6)66．Shell函数调用i=Shell("mspaint.exe",1)'启动画图i=Shell("C:\ProgramFiles\MicrosoftOffice\OFFICE11\winword.exe",1)'启动Word说明：“画图”是Windows本身提供的程序，可以省略路径。8.答：单精度浮点型第7，9题答案在教材中找。习题四第1，3，5，8题答案在教材中找。2.赋值语句的错误（1）10x不能做变量名。上机验证结果：VB将10识别为行号，x=Sin(x)+y是为变量x赋值。故无语法错误。（2）Sqr函数的参数为负数。上机验证结果：“无效的过程调用或参数”（3）赋值号左边不是变量名。上机验证结果：“缺少子程序、函数或属性”（4）除数为0上机验证结果：“溢出”。4.[答案略]说明：小数位可以使用四舍五入函数Round或输出格式函数Format。例如Round(x,2)和Format(x,“0.00”)均可使结果只保留两位小数。但如果四舍五入后要进行数值运算，则使用Round函数，例如z=Round(x,2)+Round(y,2)。而Format函数通常只用于输出格式设置。6．指出错误（1）“≥”应改为“>=”，前者是中文字符，不具有运算功能。（2）“1020Theny=x^2+3*x+2ElseIfx>=10Theny=Sqr(3*x)-2ElseIfx>0Theny=1/x+Abs(x)EndIfPrint"y=";y#使用SelectCase语句DimxAsSingle,yAsSinglex=Val(InputBox("x="))SelectCasexCaseIs>20y=x^2+3*x+2CaseIs>=10y=Sqr(3*x)-2CaseIs>0y=1/x+Abs(x)EndSelectPrint"y=";y（3）#使用If语句DimxAsSingle,yAsSingle,zAsSingle,MaxAsSinglex=Val(InputBox("x="))y=Val(InputBox("y="))z=Val(InputBox("z="))Max=xIfy>MaxThenMax=yIfz>MaxThenMax=zPrint"Max=";Max#使用IIF函数x=Val(InputBox("x="))y=Val(InputBox("y="))z=Val(InputBox("z="))Max=IIf(x>y,x,y)Max=IIf(z>Max,z,Max)Print"Max=";Max9.计算循环次数（1）6（2）19（3）0（4）死循环直至溢出10.40号语句执行4次；第50号语句执行12次；执行第90号语句输出的结果是：13，0，2说明：该程序为嵌套循环，其中外循环由j值变化（1，4，7，10）控制执行4次，当j值为13时结束循环；内循环由k值变化（6，4，2）控制执行3次，当k值为0时结束循环。第40行是外循环的循环体，故执行4次；第50行是内循环的循环体，故执行4*3=12次。11.可以定一个较大的循环次数，在循环体中根据条件用ExitFor退出。但这种情况通常用DoWhile循环控制。12.编程（并非唯一正确答案）（1）DimiAsInteger,sAsIntegerFori=1To10s=s+(i+1)*(2*i+1)NextiPrint"s=";s（2）DimiAsInteger,n3AsInteger,n7AsIntegerFori=1To100IfiMod3=0Thenn3=n3+1IfInt(i/7)=i/7Thenn7=n7+1NextiPrint"1-100中3的倍数有";n3;"个"Print"1-100中7的倍数有";n7;"个"（3）Dims1AsString,s2AsString,iAsIntegers1=InputBox("InputString")s2=""Fori=1ToLen(s1)s2=Mid(s1,i,1)+s2NextiPrint"原序：";s1Print"反序：";s2或Fori=Len(s1)To1Step-1s2=s2+Mid(s1,i,1)Nexti13.输出字符串“10100”。该程序功能是将十进制数转化为二进制。说明：要理解该程序需要了解数制转换的计算方法（有兴趣者参看百度百科HYPERLINK"http://baike.baidu.com/view/1426817.htm"\t"_blank"http://baike.baidu.com/view/1426817.htm）。48是字符"0"的ASCII码。14.运行时输出22484该程序功能是求x和y最大公约数和最小公倍数。说明：此算法称为“辗转相减法”。可对照例4.17的辗转相除（辗转求余）法。15．[50，100]间的20个随机数，求最大值、最小值、平均值。DimxAsInteger,sumAsInteger,averAsSingleDimn%,i%,max%,min%Randomizemax=50:min=100:n=20Fori=1Tonx=Int(Rnd*51+50)List1.AddItemxsum=sum+xIfx>maxThenmax=xIfxLen(a(imax))Thenimax=iEndIfNextiPrint"最长的字符串：";a(imax)EndSub第7，8题答案在教材中找。第9题“自定义变量”含义不明，暂时无法回答。第5，10题[暂略]习题六第1，2，6-8题答案可在教材中找到。3．指出过程说明中的错误（1）Sub子过程不应该定义类型（2）函数与形式参数不应该同名（3）数组作为形式参数时，应使用传地址方式，不可使用传值（ByVal）（4）形式参数应该是变量或数组名，不可以是一个数组元素4．指出调用过程语句的错误（1）无语法错误，但因形参sum所对应的实参是常量3，故计算结果无法传递给主调程序。（2）实参变量c与形参sum的类型不一致。（3）类似于（1），形参sum所对应的实参是表达式a+b，故计算结果无法传递给主调程序。（4）类似于（1）和（2），形参sum所对应的实参是表达式Sqr(c)，故计算结果无法传递给主调程序。另外srq(a)存在语法错误（拼写错）。（5）与（2）相同，实参c与形参sum的类型不一致。5．迭代法求平方根（1）自定义函数的定义及调用FunctionFSqr1(aAsSingle)AsSingleDimx0AsSingle,xAsSinglex=aDox0=xx=(x0+a/x0)/2LoopWhileAbs(x-x0)>0.00001FSqr1=xEndFunctionPrivateSubCommand1_Click()Dimx!,y!x=Val(InputBox("x="))Ifx>=0Theny=FSqr1(x)PrintyEndIfEndSub（2）自定义子过程的定义及调用SubFSqr2(aAsSingle,xAsSingle)Dimx0AsSinglex=aDox0=xx=(x0+a/x0)/2LoopWhileAbs(x-x0)>0.00001EndSubPrivateSubCommand2_Click()Dimx!,y!x=Val(InputBox("x="))Ifx>=0ThenCallFSqr2(x,y)PrintyEndIfEndSub（3）递归函数及调用[略]习题七第1-9题，答案在教材上找；第10，12-14题，略。11． 检测 工程第三方检测合同工程防雷检测合同植筋拉拔检测方案传感器技术课后答案检测机构通用要求培训 Ctrl和F3同时按下的代码：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfShift=2AndKeyCode=114ThenMsgBox"HAHA"EndSub习题八第1，2，6，7，9题答案可阅读教材找到。3．写Open语句（1）Open"Seqnew.dat"ForOutputAs#1'重写或Open"Seqnew.dat"ForAppendAs#1'添加（2）Open"Seqold.dat"ForInputAs#2（3）Open"Seqappend.dat"ForAppendAsFreeFile4．编程，将文件Text.dat读入变量strTest。DimstrTestAsStringOpen"Text.dat"ForInputAs#2DoWhileNotEOF(2)strTest=strTest+Input(1,#2)Loop8．本课程不涉及二进制文件。故此处以顺序文件读写方式编程。另外合并的结果可以是合并到其中某一个文件，也可以是合并到一个新的文件，此处代码是合并到其中一个文件F1.txt。'方法一，在2号文件一次读一个字符并写入1号文件DimstrTempAsString*1Open"d:\F1.txt"ForAppendAs#1Open"d:\F2.txt"ForInputAs#2DoWhileNotEOF(2)strTemp=Input(1,#2)Print#1,strTemp;'注意结尾有分号，否则每个字符一行LoopClose'方法二，在2号文件一次读一个字符并累加，最后将累加结果写入1号文件DimstrTempAsString'注意方法一变量定义的区别Open"d:\F1.txt"ForAppendAs#1Open"d:\F2.txt"ForInputAs#2strTemp=""DoWhileNotEOF(2)strTemp=strTemp+Input(1,#2)LoopPrint#1,strTempClose习题九答案在教材上找。习题十答案在教材上找A．1PrivateSubCommand1_Click()Label3=Text1EndSubA．2PrivateSubForm_Load()Timer1.Interval=0EndSubPrivateSubCommand1_Click()'自动Timer1.Interval=200EndSubPrivateSubCommand2_Click()'手动Timer1.Interval=0CallMyMoveEndSubPrivateSubTimer1_Timer()CallMyMoveEndSubSubMyMove()Label1.MoveLabel1.Left-50IfLabel1.Left<0ThenLabel1.Left=Form1.WidthEndSubA．3PrivateSubForm_Click()Text1=Val(Text1)+1EndSubPrivateSubForm_Load()Text1=0EndSubA．4PrivateSubForm_Click()Caption="单击窗体，改变图片"Picture=LoadPicture(App.Path+"\n_015.bmp")Print"欢迎使用VB"EndSubPrivateSubForm_DblClick()ClsCaption="双击窗体，卸去图片"Picture=LoadPicture("")'EndSubPrivateSubForm_Load()Caption="装入窗体"Picture=LoadPicture(App.Path+"\n_016.bmp")Print"装入图"EndSubPrivateSubForm_Resize()'该事件的作用窗体始终与图一样大'Caption="窗体大小不变"'Form1.Width=260*16'260是Tongji-2.bmp图的宽度，象素单位'Form1.Height=260*16+200'260是图的高度，象素单位，200是窗体的标题栏高度EndSubA．5SubCommand1_Click()Text1.FontName="隶书"Text1.FontSize=25EndSubSubCommand2_Click()Text2.Text=Text1.SelTextText2.FontName=Text1.FontNameText2.FontSize=Text1.FontSizeEndSubB．1PrivateSubCommand1_Click()Text2=Format(5/9*(Val(Text1)-32),"0.00")EndSubPrivateSubCommand2_Click()Text1=Format(9/5*Val(Text2)+32,"0.00")EndSub或PrivateSubCommand1_Click()Dimf!,c!'声明两个变量f=Val(Text1)c=5/9*(f-32)Text2=Format(c,"0.00")'保留两位小数EndSubPrivateSubCommand2_Click()Dimff!,cc!'声明两个变量cc=Val(Text2)ff=9/5*cc+32Text1=Format(ff,"0.00")'保留两位小数EndSubB．2PrivateSubCommand1_Click()Label2=Format(Val(Text1)*Val(Text1)*3.14,"0.00")EndSubPrivateSubCommand2_Click()Label3=Format(Val(Text1)*3.14*2,"0.00")EndSubPrivateSubText1_LostFocus()IfNotIsNumeric(Text1.Text)ThenMsgBox"输入有非数字字符，请重新输入",,"警告"Text1.Text=""Text1.SetFocusEndIfEndSub或PrivateSubCommand1_Click()Label2=Format(Val(Text1)*Val(Text1)*3.14,"0.00")EndSubPrivateSubCommand2_Click()Label3=Format(Val(Text1)*3.14*2,"0.00")EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfNotIsNumeric(Text1.Text)ThenText1.Text=""EndIfEndIfEndSubB．3PrivateSubCommand1_Click()n=Int(Log(2)/Log(1.008)+1)Label1=n&"年后人数超过26亿"EndSubB．4PrivateSubCommand1_Click()Dimx,dx,cdx=Text1.Textdx=UCase(x)cd=Len(x)Print"大写字母为:";dxPrint"字符串长度为:";cdEndSubB．5PrivateSubCommand1_Click()Text1=Int(Rnd*900+100)EndSubPrivateSubCommand2_Click()Dimx%,x1%,x2%,x3%x=Val(Text1)x1=xMod10'分离出的个位数x2=(xMod100)\10'分离出的十位数x3=x\100'分离出的百位数Label1=x1*100+x2*10+x3EndSubB．6PrivateSubForm_Click()Label1=Left(Text1,11)Label2=Mid(Text1,12,6)Label3=Right(Text1,5)EndSubB．7PrivateSubCommand1_Click()PrintFori=1To5PrintTab(15-i*2);String(2*i-1,"★");Spc(18-4*(i-1));String(2*i-1,"★")NextiEndSubPrivateSubCommand2_Click()ClsEndSub进一步要求：PrivateSubCommand1_Click()PrintFori=1To5PrintTab(15-i*2);String(2*i-1,"★");String(10-(2*i-1),"☆");String(2*i-1,"★")NextiEndSubPrivateSubCommand2_Click()ClsEndSubB．8PrivateSubForm_Click()x=Val(InputBox("输入一正实数","计算",0))pf=Format(x*x,"0.000")pfg=Format(Sqr(x),"0.000")lf=Format(x*x*x,"0.000")lfg=Format(x^(1/3),"0.000")Print"平方为:";pf;Space(5);"平方根为:";pfg;Space(5);"立方为:";lf;Space(5);"立方根为:";lfgEndSubC．1PrivateSubForm_Click()Dimx!,y!x=Val(InputBox("输入x的值"))Ifx<1000Theny=xElseIfx<2000Theny=0.9*xElseIfx<3000Theny=0.8*xElsey=0.7*xEndIfPrintyEndSubC．2PrivateSubForm_Click()Dimx!,y!x=Val(InputBox("输入上网时间"))Ifx<10Theny=30ElseIfx<50Theny=30+2.5*(x-10)Elsey=30+2.5*40+2*(x-50)EndIfIfy>150Theny=150EndIfPrintyEndSubC．3PrivateSubCommand1_Click()Dimx!,y!,z!x=InputBox("inputx")y=InputBox("inputy")z=InputBox("inputz")Print"xyz"Print"排序前";x;"";y;"";zIfxa(i+1)Thenz=a(i+1)a(i+1)=a(i)a(i)=zEndIfNextiPicture2.Printa(0)Picture2.Printa(1)Picture2.Printa(2)EndSubC．5PrivateSubText2_LostFocus()Dimm%,n%,y%m=Val(Text1)n=Val(Text2)IfnMod2<>0ThenMsgBox("脚数必定为偶数")Text2=""Text2.SetFocusElsey=n/2-mIfy<0ThenMsgBox("脚数必须≥2倍的头数，请重新输入")Text2=""Text2.SetFocusElsex=n/2-mLabel2=yLabel3=m-yEndIfEndIfEndSubC．6PrivateSubCommand1_Click()Dima!,b!,c!,x1!,x2!,de!a=Text1b=Text2c=Text3de=b*b-4*a*ct=2*aIfde=0ThenText4=Format(-b/t,"0.00")Text5=Format(-b/t,"0.00")ElseIfde>0ThenText4=Format((-b+Sqr(de))/t,"0.00")Text5=Format((-b-Sqr(de))/t,"0.00")ElseText4=Format(-b/t,"0.00")&"+"&Format(Sqr(Abs(de))/t,"0.00")&"i"Text5=Format(-b/t,"0.00")&"-"&Format(Sqr(Abs(de))/t,"0.00")&"i"EndIfEndSubPrivateSubCommand2_Click()Text1=""Text2=""Text3=""Text4=""Text5=""EndSubC．7PrivateSubText3_LostFocus()SelectCaseTrim(Text3)Case"+"Text4=Val(Text1)+Val(Text2)Case"-"Text4=Val(Text1)-Val(Text2)Case"*"Text4=Val(Text1)*Val(Text2)Case"/"IfVal(Text2)=0ThenMsgBox"分母为零，重新输入"Text2=""Text2.SetFocusElseText4=Val(Text1)/Val(Text2)EndIfEndSelectEndSubC．8PrivateSubText1_LostFocus()SelectCaseTrim(Text1)Case1Text2="Monday"Case2Text2="Tuesday"Case3Text2="Wednesday"Case4Text2="Thursday"Case5Text2="Friday"Case6Text2="Saturday"Case7Text2="Sunday"CaseIs>7,Is<1MsgBox"数字为1~7，重新输入"Text1=""Text1.SetFocusEndSelectEndSub或者PrivateSubText1_LostFocus()IfText1>7OrText1<1ThenMsgBox"数字为1~7，重新输入"Text1=""Text1.SetFocusElseText2=Choose(Text1,"Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday")EndIfEndSubD．1PrivateSubForm_Click()Fori=1To9PrintTab(10-i);String(2*i-1,Trim(Str(i)))NextiEndSubD．2PrivateSubForm_Click()Fori=1To10Step1PrintTab(i);String((20-2*i),Chr(64+i))NextiEndSubD．3PrivateSubCommand1_Click()Dims!,t!,i&s=1t=1Fori=1To100000t=t+is=s+1/tIf1/t<0.00001ThenExitForNextiPrint"For结构";s,i;"项"EndSubD．4PrivateSubCommand1_Click()Dimn&,pi#,i&n=InputBox("输入n值")pi=2Fori=1Tonpi=pi*(2*i)/(2*i-1)*(2*i)/(2*i+1)NextiPrint"当n="&n&"时，pi=";piEndSubD．5PrivateSubForm_Click()Dims!,t!,i!,a%,n%a=Int(Rnd*9+1)n=Int(Rnd*6+5)t=0:s=0Print"a=";a,"n=";nFori=1Tont=t*10+as=s+tPrintt;NextiPrintPrint"s=";sEndSubD．6PrivateSubCommand1_Click()DimsAsIntegers=0Fori=1To9Forj=0To9Fork=0To9s=i*100+j*10+kIfs=i^3+j^3+k^3ThenPrintsEndIfNextkNextjNextiEndSubPrivateSubCommand3_Click()formd6.Hidemain.ShowEndSubD．7PrivateSubCommand1_Click()Dima!,x0!,x1!a=27x0=2i=0Doi=i+1x1=2*x0/3+a/(3*x0*x0)IfAbs(x1-x0)<0.00001ThenExitDox0=x1LoopPrintx1,iEndSubD．8PrivateSubCommand1_Click()s=0x0=0.01Fori=1To30s=s+x0x0=x0*2NextiPrintsEndSubD．9PrivateSubCommand4_Click()Picture1.ClsPicture1.Print"x课安排在";"y课安排在";"z课安排在"Picture1.Print""Forz=5To6Forx=1Toz-2ForY=x+1Toz-1X1=Choose(Weekday(x),"周一","周二","周三","周四","周五","周六","周日")Y1=Choose(Weekday(Y),"周一","周二","周三","周四","周五","周六","周日")z1=Choose(Weekday(z),"周一","周二","周三","周四","周五","周六","周日")Picture1.Print"";X1;"";Y1;"";z1NextYNextxNextzEndSubE．1PrivateSubForm_Click()Dima(1To10)AsIntegerFori=1To10a(i)=Int(Rnd*71+30)Printa(i);"";NextiMax=a(1)Min=a(1)Avg=a(1)Fori=2To10Ifa(i)>MaxThenMax=a(i)Ifa(i)0ThenPicture2.Print"s(";i;")的人数有";Format(s(i),"0");"个"NextiEndSubE．4PrivateSubCommand1_Click()Picture1.ClsDimd%(1To10)Fori3=1To10Randomized(i3)=Int(Rnd*91+10)Nexti3Fori=1To10Forj=1To10-iIfd(j)=5ThenMsgBox("超过5门课程，不能再选")ExitSubElseList2.AddItemList1.TextList1.RemoveItemList1.ListIndexEndIfEndSubE．8SubCombo1_KeyPress(KeyAsciiAsInteger)SelectCaseKeyAsciiCase48To57,13CaseElseKeyAscii=0EndSelectIfKeyAscii=13ThenCombo1.AddItemCombo1.TextCombo1.Text=""EndIfEndSubPrivateSubCommand1_Click()Dimmin%,max%min=Val(Combo1.List(0))max=Val(Combo1.List(0))imin=0imax=0Fori=1ToCombo1.ListCount-1IfVal(Combo1.List(i))>maxThenimax=imax=Combo1.List(i)ElseIfVal(Combo1.List(i))=5ThenMsgBox("输入人数超过数组声明的个数")ElseWitha(n).number=Text1.name=Text2.salary=Text3Picture1.Printa(n).number,a(n).name,a(n).salaryPrintEndWithn=n+1Text1=""Text2=""Text3=""EndIfEndSubPrivateSubCommand2_Click()DimtAsclerk,i%,j%Fori=0Ton-1Forj=iTon-1Ifa(i).salary0)m=n:n=r:r=mModnLoopgcd=nEndFunctionF．3Dimx!PrivateSubCommand1_Click()Print"调用标准函数Sin的结果";Sin(x)EndSubPrivateSubCommand2_Click()Print"调用自定义函数MySin的结果";MySin(x)EndSubFunctionMySin(x!)AsDoubleDimi%,t!,s!t=xs=ti=1DoWhileAbs(t)>0.00001t=-1*t*x*x/((i+1)*(i+2))s=s+ti=i+2LoopMySin=sEndFunctionPrivateSubCommand3_Click()x=InputBox("输入要计算正弦函数的角度值x")x=x*3.14/180EndSubF．4PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then