下载

1下载券

加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 vb程序设计教程课后答案与实验题答案_(第三版)

vb程序设计教程课后答案与实验题答案_(第三版).doc

vb程序设计教程课后答案与实验题答案_(第三版)

森林
2012-09-04 0人阅读 举报 0 0 暂无简介

简介:本文档为《vb程序设计教程课后答案与实验题答案_(第三版)doc》,可适用于考试题库领域

习题一答案在教材上找。习题二对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。类是对同一种对象的集合与抽象。类包含所创建对象的属性数据以及对这些数据进行操作的方法。封装和隐藏是类的重要特性将数据结构和对数据的操作封装在一起类的内部实现细节对用户来说是透明的。VB工具箱中的可视图标是VB系统设计好的标准控件类。通过将控件类实例化得到真正的控件对象。在窗体上画一个控件就将类转换为对象创建了一个控件对象。VB中常用的对象是控件。此外VB还提供了系统对象。窗体是个特例它既是类也是对象。当向一个工程添加一个新窗体时实质就由窗体类创建了一个窗体对象。对象的三要素:属性、事件和方法。属性:存放对象的数据(决定对象外观及功能)对象属性的设置方法:在设计阶段利用属性窗口直接设置属性值程序运行时通过语句对象名属性名=属性值。若属性只能在设计阶段设置在程序运行阶段不可改变称为只读属性。事件:发生在对象上的事情。同一事件对不同的对象会引发不同的反应。事件过程:应用程序处理事件的步骤。应用程序设计的主要工作就是为对象编写事件过程的代码。方法:面向对象的程序设计语言为程序设计人员提供了一种特殊的过程和函数。方法是面向对象的调用时一定要指明对象。窗体和控件具有的基本属性“()Name属性:名称所创建的对象名称,在程序中引用。()Caption属性:标题该属性决定了对象上显示的内容。()Height、Width、Top和Left属性决定对象的大小和位置。()Enabled属性:对象是否允许操作()Visible属性:对象是否可见()Font属性组:文本的外观FontName字体、FontSize大小FontBold粗体、FontItalic斜体FontStrikethru删除线FontUnderline下划线()ForeColor属性:前景颜色()BackColor属性:背景颜色()MousePointer属性:鼠标指针类型,设置值范围~由系统指定。若为由用户提供的图形文件定义鼠标指针形状。()MouseIcon属性:在MousePointer属性值为时存放自定义的鼠标图标文件(ico或cur)。图标库在Graphics目录下。窗体的事件:Load事件是在窗体被装入工作区时触发的事件。当应用程序启动自动执行该事件该事件通常用来在启动应用程序时对属性和变量进行初始化。窗体的方法:()Print方法用来显示文本内容格式:对象print表达式()Cls方法清除运行时在窗体或图形框中产生的文本或图形,Cls方法不能清除窗体在设计时的文本和图形。格式:对象cls()Move方法可移动窗体或控件并可改变其大小。语法格式如下:对象Move左边距离,上边距离,宽度,高度标签作用:用于显示文本(输出)信息不能作为输入信息的界面。其内容只能通过Caption属性设置或修改不能直接编辑。文本框是一个文本编辑区域可以在该区域输入、编辑、修改和显示正文内容。在VB中字符长度以字为单位也就是一个西文字符与一个汉字都是一个字长度为。重要属性()Text显示或输入的正文内容。()Maxlength设置文本框可输入的文字最大长度。默认值为表示可以输入任意长字符串。()MultiLine多行属性设置为True时文本框可以输入或显示多行正文同时具有文字处理器的自动换行功能按Enter键可插入一空行。()ScrollBars滚动条属性None无滚动条Horizontal水平滚动条Vertical垂直滚动条Both同时加水平和垂直滚动条注意:当MultiLine为True时ScrollBars才有效()PassWordChar设置显示文本的替代符。例如当设置为“*”则在文本框输入的内容均以“*”显示而存储的值是用户输入的原文。一般用于设置口令的输入。当MultiLine为True时该属性不起作用密码不允许多行。()Locked指定文本控件是否可被编辑默认值为False(可编辑)当设置为True时文本控件相当于标签控件的作用。注意:Locked与Enabled的区别。()文本内容进行选择操作的三个属性SelStart选定的正文开始位置SelLength选定的正文长度SelText选定的正文内容这个属性互相关联,例如设置SelStart、SelLength后SelText自动存放指定的文本。注意:属性窗口中没有这三个属性只能在程序代码中使用。文本框的事件:()Change事件:当Text属性值发生改变时引发该事件()KeyPress事件:按下并且释放键盘上的一个键时引发焦点所在控件的KeyPress事件所按键的值存放在参数KeyAscii中。对回车的判断KeyAscii=文本框最有用的方法是SetFocus把光标移到指定的文本框中。命令按钮Picture属性:按钮可显示图片文件(bmp和Ico)当Style为时有效。启动窗体时将命令按钮定位在窗体中央的代码PrivateSubFormLoad()CommandLeft=FormScaleWidthCommandWidthCommandTop=FormScaleHeightCommandHeightEndSub.vb图片文件在C:ProgramFilesMicrosoftVisualStudioCommonGraphics文件夹。安装VB时可选择是否安装这些图片文件。习题三合法常量:()Double()错误()Double()Double()错误()Integer()String()String()Date()Double()错误(汉字字符)()Integer(八进制)()错误(八进制无数码)()Integer()Boolean()错误()错误(十六进制无数码g)()Single说明:浮点型变量默认为Double类型而非Single。合法变量名:()√()√()误:数字开头()误:含空格()误:关键字()√()误:关键字()误:有括号()√()√()√()√(汉字字符可作为变量名但不常用且此名称易误解)变量命名规则见P。字母(汉字)开头字母(汉字)、数字、下划线组成长度为个字符关键字不可作为变量名但可在变量名中嵌入关键字不区分大小写。常量、数组、类型、函数、过程、对象命名规则与此相同。常量名通常全用大写。写VB表达式()Abs(xy)z^()(x*y)^()(*xSqr(*y))(x*y)()(bSqr(b^*a*c))(*a)()(rrr)()Sin(*)(Exp()Log())Sqr(xy)根据条件写表达式()随机产生大写字母Chr(Int(Rnd*(Asc("L")Asc("C"))Asc("C")))(),内的随机数Int(Rnd*)()点(x,y)位于第一或第三象限x>Andy>Orx<Andy<或x*y>()x是或的整数倍xMod=OrInt(x)=x()将两位整数x的个位与十位对换x(xMod)*()四舍五入取两位小数Round(x,)()字符变量C是字母字符(不区分大小写)准确地说是:字符变量C的第一个字符是字母C>="A"AndC<="Z"OrC>="a"AndC<"z"或UCase(C)>="A"AndUCase(C)<="Z"或LCase(C)>="a"AndLCase(C)<="z"()字符变量S第个字符起取个字符Mid(S,,)()≤x<<=xAndx<()xy至少有一个小于zx<zOry<z()xy都大于zx>zAndy>z写表达式的值()注意运算的优先级顺序以及整除运算“”的计算()计算""时由于两个操作数类型不同在可能的情况下自动采用精度较高的类型即把字符型转换为数值型得到然后进行字符串连接运算再自动将两个数值转换为字符串得。()在四舍五入函数产生之前这就是四舍五入的计算方法()先进行字符串的“”运算再转换成数值。在变量名和函数名后可加上类型符以强调其类型但不是必须的。()().Shell函数调用i=Shell("mspaintexe",)'启动画图i=Shell("C:ProgramFilesMicrosoftOfficeOFFICEwinwordexe",)'启动Word说明:“画图”是Windows本身提供的程序可以省略路径。答:单精度浮点型第题答案在教材中找。习题四第题答案在教材中找。赋值语句的错误()x不能做变量名。上机验证结果:VB将识别为行号x=Sin(x)y是为变量x赋值。故无语法错误。()Sqr函数的参数为负数。上机验证结果:“无效的过程调用或参数”()赋值号左边不是变量名。上机验证结果:“缺少子程序、函数或属性”()除数为上机验证结果:“溢出”。答案略说明:小数位可以使用四舍五入函数Round或输出格式函数Format。例如Round(x,)和Format(x,“”)均可使结果只保留两位小数。但如果四舍五入后要进行数值运算则使用Round函数例如z=Round(x,)Round(y,)。而Format函数通常只用于输出格式设置。.指出错误()“≥”应改为“>=”前者是中文字符不具有运算功能。()“<x<”应改为“<xAndx<”否则运行结果错误。.写条件语句()DimcAsStringc=InputBox("c=")IfMid(c,,)="C"ThenMsgBox"Yes"ElseMsgBox"No"EndIf()#使用If语句DimxAsSingle,yAsSinglex=Val(InputBox("x="))Ifx>Theny=x^*xElseIfx>=Theny=Sqr(*x)ElseIfx>Theny=xAbs(x)EndIfPrint"y="y#使用SelectCase语句DimxAsSingle,yAsSinglex=Val(InputBox("x="))SelectCasexCaseIs>y=x^*xCaseIs>=y=Sqr(*x)CaseIs>y=xAbs(x)EndSelectPrint"y="y()#使用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="Max计算循环次数()()()()死循环直至溢出号语句执行次第号语句执行次执行第号语句输出的结果是:说明:该程序为嵌套循环其中外循环由j值变化()控制执行次当j值为时结束循环内循环由k值变化()控制执行次当k值为时结束循环。第行是外循环的循环体故执行次第行是内循环的循环体故执行*=次。可以定一个较大的循环次数在循环体中根据条件用ExitFor退出。但这种情况通常用DoWhile循环控制。编程(并非唯一正确答案)()DimiAsInteger,sAsIntegerFori=Tos=s(i)*(*i)NextiPrint"s="s()DimiAsInteger,nAsInteger,nAsIntegerFori=ToIfiMod=Thenn=nIfInt(i)=iThenn=nNextiPrint"中的倍数有"n"个"Print"中的倍数有"n"个"()DimsAsString,sAsString,iAsIntegers=InputBox("InputString")s=""Fori=ToLen(s)s=Mid(s,i,)sNextiPrint"原序:"sPrint"反序:"s或Fori=Len(s)ToSteps=sMid(s,i,)Nexti输出字符串“”。该程序功能是将十进制数转化为二进制。说明:要理解该程序需要了解数制转换的计算方法(有兴趣者参看百度百科http:baikebaiducomviewhtm)。是字符""的ASCII码。运行时输出该程序功能是求x和y最大公约数和最小公倍数。说明:此算法称为“辗转相减法”。可对照例的辗转相除(辗转求余)法。.间的个随机数求最大值、最小值、平均值。DimxAsInteger,sumAsInteger,averAsSingleDimn,i,max,minRandomizemax=:min=:n=Fori=Tonx=Int(Rnd*)ListAddItemxsum=sumxIfx>maxThenmax=xIfx<minThenmin=xNextiaver=sumnPrint"最大值:"max,"最小值:"min,"平均值:"aver习题五指定数组的默认下界OptionBase.合理的数组声明()错。定义数组不可用变量(教材页)。()正确。该数组下标为。()错。VB中数组下标用圆括号。()正确。三维数组三个下标分别为共个元素。()错误。非动态数组不可重定义。()错误。动态数组重定义时不可改变数据类型。()正确。二维数组两个下标分别为共个元素。()语法错误二维数组定义中漏写逗号可能是印刷错误加上此逗号则正确。.当引用数组元素时下标值小于定义的最小下标或大于最大下标时会发生“下标越界”错误。.数组名:a数组类型:Single(单精度浮点型)维数:二维各维的上下界:第一维下界(最小下标)为上界(最大下标)为第二维下界(最小下标)为上界(最大下标)为数组的大小:行列共个元素以矩阵的格式输出二维数组:Fori=ToForj=ToPrinta(i,j)NextjPrintNexti或写成更加通用的代码形式:Fori=LBound(a,)ToUBound(a,)Forj=LBound(a,)ToUBound(a,)PrintTab(j*)a(i,j)NextjPrintNexti.一维字符数组Dima(To)AsStringPrivateSubCommandClick()'()随机产生字符串DimiAsInteger,jAsInteger,nAsInteger,cAsString*RandomizeFori=Toa(i)=""'将第i个元素清空n=Int(Rnd*)'产生,的随机数Forj=Ton'a(i)中有n个字符c=Chr(Int(Rnd*))'随机产生字母是字母a的ASCII码a(i)=a(i)cNextjNextiEndSubPrivateSubCommandClick()'()输出字符串DimiAsIntegerFori=ToPrintTab(((i)Mod)*)a(i)IfiMod=ThenPrintNextiEndSubPrivateSubCommandClick()'()最长的字符串DimiAsInteger,imaxAsIntegerimax=Fori=ToIfLen(a(i))>Len(a(imax))Thenimax=iEndIfNextiPrint"最长的字符串:"a(imax)EndSub第题答案在教材中找。第题“自定义变量”含义不明暂时无法回答。第题暂略习题六第题答案可在教材中找到。.指出过程说明中的错误()Sub子过程不应该定义类型()函数与形式参数不应该同名()数组作为形式参数时应使用传地址方式不可使用传值(ByVal)()形式参数应该是变量或数组名不可以是一个数组元素.指出调用过程语句的错误()无语法错误但因形参sum所对应的实参是常量故计算结果无法传递给主调程序。()实参变量c与形参sum的类型不一致。()类似于()形参sum所对应的实参是表达式ab故计算结果无法传递给主调程序。()类似于()和()形参sum所对应的实参是表达式Sqr(c)故计算结果无法传递给主调程序。另外srq(a)存在语法错误(拼写错)。()与()相同实参c与形参sum的类型不一致。.迭代法求平方根()自定义函数的定义及调用FunctionFSqr(aAsSingle)AsSingleDimxAsSingle,xAsSinglex=aDox=xx=(xax)LoopWhileAbs(xx)>FSqr=xEndFunctionPrivateSubCommandClick()Dimx!,y!x=Val(InputBox("x="))Ifx>=Theny=FSqr(x)PrintyEndIfEndSub()自定义子过程的定义及调用SubFSqr(aAsSingle,xAsSingle)DimxAsSinglex=aDox=xx=(xax)LoopWhileAbs(xx)>EndSubPrivateSubCommandClick()Dimx!,y!x=Val(InputBox("x="))Ifx>=ThenCallFSqr(x,y)PrintyEndIfEndSub()递归函数及调用略习题七第题答案在教材上找第题略。.检测Ctrl和F同时按下的代码:PrivateSubTextKeyDown(KeyCodeAsInteger,ShiftAsInteger)IfShift=AndKeyCode=ThenMsgBox"HAHA"EndSub习题八第题答案可阅读教材找到。.写Open语句()Open"Seqnewdat"ForOutputAs#'重写或Open"Seqnewdat"ForAppendAs#'添加()Open"Seqolddat"ForInputAs#()Open"Seqappenddat"ForAppendAsFreeFile.编程将文件Textdat读入变量strTest。DimstrTestAsStringOpen"Textdat"ForInputAs#DoWhileNotEOF()strTest=strTestInput(,#)Loop.本课程不涉及二进制文件。故此处以顺序文件读写方式编程。另外合并的结果可以是合并到其中某一个文件也可以是合并到一个新的文件此处代码是合并到其中一个文件Ftxt。'方法一在号文件一次读一个字符并写入号文件DimstrTempAsString*Open"d:Ftxt"ForAppendAs#Open"d:Ftxt"ForInputAs#DoWhileNotEOF()strTemp=Input(,#)Print#,strTemp'注意结尾有分号否则每个字符一行LoopClose'方法二在号文件一次读一个字符并累加最后将累加结果写入号文件DimstrTempAsString'注意方法一变量定义的区别Open"d:Ftxt"ForAppendAs#Open"d:Ftxt"ForInputAs#strTemp=""DoWhileNotEOF()strTemp=strTempInput(,#)LoopPrint#,strTempClose习题九答案在教材上找。习题十答案在教材上找A.PrivateSubCommandClick()Label=TextEndSubA.PrivateSubFormLoad()TimerInterval=EndSubPrivateSubCommandClick()'自动TimerInterval=EndSubPrivateSubCommandClick()'手动TimerInterval=CallMyMoveEndSubPrivateSubTimerTimer()CallMyMoveEndSubSubMyMove()LabelMoveLabelLeftIfLabelLeft<ThenLabelLeft=FormWidthEndSubA.PrivateSubFormClick()Text=Val(Text)EndSubPrivateSubFormLoad()Text=EndSubA.PrivateSubFormClick()Caption="单击窗体改变图片"Picture=LoadPicture(AppPath"nbmp")Print"欢迎使用VB"EndSubPrivateSubFormDblClick()ClsCaption="双击窗体卸去图片"Picture=LoadPicture("")'EndSubPrivateSubFormLoad()Caption="装入窗体"Picture=LoadPicture(AppPath"nbmp")Print"装入图"EndSubPrivateSubFormResize()'该事件的作用窗体始终与图一样大'Caption="窗体大小不变"'FormWidth=*'是Tongjibmp图的宽度象素单位'FormHeight=*'是图的高度象素单位是窗体的标题栏高度EndSubA.SubCommandClick()TextFontName="隶书"TextFontSize=EndSubSubCommandClick()TextText=TextSelTextTextFontName=TextFontNameTextFontSize=TextFontSizeEndSubB.PrivateSubCommandClick()Text=Format(*(Val(Text)),"")EndSubPrivateSubCommandClick()Text=Format(*Val(Text),"")EndSub或PrivateSubCommandClick()Dimf!,c!'声明两个变量f=Val(Text)c=*(f)Text=Format(c,"")'保留两位小数EndSubPrivateSubCommandClick()Dimff!,cc!'声明两个变量cc=Val(Text)ff=*ccText=Format(ff,"")'保留两位小数EndSubB.PrivateSubCommandClick()Label=Format(Val(Text)*Val(Text)*,"")EndSubPrivateSubCommandClick()Label=Format(Val(Text)**,"")EndSubPrivateSubTextLostFocus()IfNotIsNumeric(TextText)ThenMsgBox"输入有非数字字符请重新输入",,"警告"TextText=""TextSetFocusEndIfEndSub或PrivateSubCommandClick()Label=Format(Val(Text)*Val(Text)*,"")EndSubPrivateSubCommandClick()Label=Format(Val(Text)**,"")EndSubPrivateSubTextKeyPress(KeyAsciiAsInteger)IfKeyAscii=ThenIfNotIsNumeric(TextText)ThenTextText=""EndIfEndIfEndSubB.PrivateSubCommandClick()n=Int(Log()Log())Label=n"年后人数超过亿"EndSubB.PrivateSubCommandClick()Dimx,dx,cdx=TextTextdx=UCase(x)cd=Len(x)Print"大写字母为:"dxPrint"字符串长度为:"cdEndSubB.PrivateSubCommandClick()Text=Int(Rnd*)EndSubPrivateSubCommandClick()Dimx,x,x,xx=Val(Text)x=xMod'分离出的个位数x=(xMod)'分离出的十位数x=x'分离出的百位数Label=x*x*xEndSubB.PrivateSubFormClick()Label=Left(Text,)Label=Mid(Text,,)Label=Right(Text,)EndSubB.PrivateSubCommandClick()PrintFori=ToPrintTab(i*)String(*i,"★")Spc(*(i))String(*i,"★")NextiEndSubPrivateSubCommandClick()ClsEndSub进一步要求:PrivateSubCommandClick()PrintFori=ToPrintTab(i*)String(*i,"★")String((*i),"☆")String(*i,"★")NextiEndSubPrivateSubCommandClick()ClsEndSubB.PrivateSubFormClick()x=Val(InputBox("输入一正实数","计算",))pf=Format(x*x,"")pfg=Format(Sqr(x),"")lf=Format(x*x*x,"")lfg=Format(x^(),"")Print"平方为:"pfSpace()"平方根为:"pfgSpace()"立方为:"lfSpace()"立方根为:"lfgEndSubC.PrivateSubFormClick()Dimx!,y!x=Val(InputBox("输入x的值"))Ifx<Theny=xElseIfx<Theny=*xElseIfx<Theny=*xElsey=*xEndIfPrintyEndSubC.PrivateSubFormClick()Dimx!,y!x=Val(InputBox("输入上网时间"))Ifx<Theny=ElseIfx<Theny=*(x)Elsey=**(x)EndIfIfy>Theny=EndIfPrintyEndSubC.PrivateSubCommandClick()Dimx!,y!,z!x=InputBox("inputx")y=InputBox("inputy")z=InputBox("inputz")Print"xyz"Print"排序前"x""y""zIfx<yThent=x:x=y:y=tIfx<zThent=x:x=z:z=tIfy<zThent=y:y=z:z=tPrint"排序后"x""y""zEndSubPrivateSubCommandClick()Dimx!,y!,z!x=InputBox("inputx")y=InputBox("inputy")z=InputBox("inputz")Print"xyz"Print"排序前"x""y""zIfx<yThent=x:x=y:y=tIfy<zThent=y:y=z:z=tIfx<yThent=x:x=y:y=tEndIfEndIfPrint"排序后"x""y""zEndSubC.Dima()AsIntegerPrivateSubCommandClick()PictureClsFori=Toa(i)=Int(Rnd*)PicturePrinta(i)NextiEndSubPrivateSubCommandClick()PictureClsDimzAsIntegerFori=ToIfa(i)>a(i)Thenz=a(i)a(i)=a(i)a(i)=zEndIfNextiPicturePrinta()PicturePrinta()PicturePrinta()EndSubC.PrivateSubTextLostFocus()Dimm,n,ym=Val(Text)n=Val(Text)IfnMod<>ThenMsgBox("脚数必定为偶数")Text=""TextSetFocusElsey=nmIfy<ThenMsgBox("脚数必须≥倍的头数请重新输入")Text=""TextSetFocusElsex=nmLabel=yLabel=myEndIfEndIfEndSubC.PrivateSubCommandClick()Dima!,b!,c!,x!,x!,de!a=Textb=Textc=Textde=b*b*a*ct=*aIfde=ThenText=Format(bt,"")Text=Format(bt,"")ElseIfde>ThenText=Format((bSqr(de))t,"")Text=Format((bSqr(de))t,"")ElseText=Format(bt,"")""Format(Sqr(Abs(de))t,"")"i"Text=Format(bt,"")""Format(Sqr(Abs(de))t,"")"i"EndIfEndSubPrivateSubCommandClick()Text=""Text=""Text=""Text=""Text=""EndSubC.PrivateSubTextLostFocus()SelectCaseTrim(Text)Case""Text=Val(Text)Val(Text)Case""Text=Val(Text)Val(Text)Case"*"Text=Val(Text)*Val(Text)Case""IfVal(Text)=ThenMsgBox"分母为零重新输入"Text=""TextSetFocusElseText=Val(Text)Val(Text)EndIfEndSelectEndSubC.PrivateSubTextLostFocus()SelectCaseTrim(Text)CaseText="Monday"CaseText="Tuesday"CaseText="Wednesday"CaseText="Thursday"CaseText="Friday"CaseText="Saturday"CaseText="Sunday"CaseIs>,Is<MsgBox"数字为~重新输入"Text=""TextSetFocusEndSelectEndSub或者PrivateSubTextLostFocus()IfText>OrText<ThenMsgBox"数字为~重新输入"Text=""TextSetFocusElseText=Choose(Text,"Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday")EndIfEndSubD.PrivateSubFormClick()Fori=ToPrintTab(i)String(*i,Trim(Str(i)))NextiEndSubD.PrivateSubFormClick()Fori=ToStepPrintTab(i)String((*i),Chr(i))NextiEndSubD.PrivateSubCommandClick()Dims!,t!,is=t=Fori=Tot=tis=stIft<ThenExitForNextiPrint"For结构"s,i"项"EndSubD.PrivateSubCommandClick()Dimn,pi#,in=InputBox("输入n值")pi=Fori=

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/53

vb程序设计教程课后答案与实验题答案_(第三版)

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利