电大Visual_Basic程序设计作业答案

1VisualBasic程序设计作业1一、选择题1．D2．B3．C4．C5．B6．D7．A8．B9．A10．C11．C12．C13．B14．D15．A二、填空题1．视图工具箱2．对象事件3．.vbp.frm4．窗体控件菜单5．完成某种特定的功能对象名.方法名Form1.Show6．MultilineTrue7．40008．AutoSizeTrue9．窗体布局窗口10．txtshow.text=GOODWORK！11．Click()、frm1.show12．单击双击装载多响应某个事件后所执行的程序代玛cmd1Click13．完成某种特定的功能对象名.方法名Form1.Show14．工具选项选项自动语法检测15．TimerIntervalms三、问答题1．参考答案答：可视化编程是目前最直观的一种编程方法，人们一般用Visual一词表示它。之所以叫做“可视”，是指你无需编程，仅通过直观的操作方式即可完成界面的设计工作。因此，可视化语言是目前最好的Windows应用程序开发工具。在这种语言中引入了控件的概念，每个控件都有若干方法和事件，并通过一系列的属性来控制控件的外观。利用这些控件，编程过程就如同画画，随意点几下鼠标，一个按钮就完成了，这些工作在使用传统编程语言的情况下，需要编写大量复杂的程序代码才能实现。可视化编程主要用到了事件驱动机制，其原理是：当应用程序运行后，程序处于等待状态，当某个事件发生后，程序就去执行此事件的事件过程，当这个事件过程执行完后，应用程序又处于等待另一个事件发生的状态。2．参考答案答：对象是代码和数据的封装体，在VB中，“数据”表现为属性，“代码”则表现为事件和方法。建立一个对象后，其操作通过与该对象的有关属性、事件和方法来描述。属性是一个对象的基本特性，每个对象都有它自己的属性。通过修改对象的属性，可以改变对象的外观和功能。方法就是要对象执行的动作，一般可以将它理解为VB提供的一种特殊的过程和函数。其特殊性在于，这些过程和函数是封装在对象内部的，是在对象上实施的某种操作功能。事件就是在对象上所发生的事情。对象的事件是由VB预先设置好的、能被对象识别的动作。用户不能建立新的事件，但可以根据需要对事件进行编程。从非严格意义上讲，可以将事件理解为一种特殊的方法。23．参考答案答：传统的面向过程的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码，程序从第一行代码开始执行并按应用程序中预定的路径执行，用户无法改变程序的执行流程。在事件驱动的应用程序中，程序的执行发生了根本的变化，代码不是按照预定的路径执行，而是在响应不同的事件时执行不同的代码片段。每个对象都有一个相应的事件集，每个事件发生都要执行一段程序代码。事件可以由用户操作触发，也可以由操作系统或其它应用程序的消息触发，甚至可由应用程序本身的消息触发。这些事件的顺序决定了代码执行的顺序，因此，应用程序每次运行所经过的代码路径是不确定的，它的执行流程由用户来决定。在程序设计时，不需要指出先执行哪部分代码，或按什么顺序执行代码，只需编写针对某个事件的程序代码即可。4．参考答案答：事件驱动是VB应用程序的基本机制，其基本过程是：（1）启动应用程序，装载和显示窗体。（2）窗体或窗体上的控件等待事件的发生。事件可由用户引发（例如键盘操作或鼠标点击）、可由系统引发（例如定时器控件）、也可由代码间接引发（例如当代码装载其他窗体时产生的Load事件）。（3）当某个事件发生后，执行其对应的事件过程代码。（4）重复执行第2和第3步。直到遇到End语句或单击“结束”按钮停止程序的运行。四、程序设计题1．PrivateSubForm_Load()Text1.Text=VB程序设计Text1.FontSize=16EndSubPrivateSubCommand1_Click()Text1.Visible=FalseEndSubPrivateSubCommand2_Click()Text1.Visible=TrueEndSub2．PrivateSubCommand1_Click()Text1.Text=Text2.Text=[Text3.Text=EndSubPrivateSubCommand2_Click()IfText1Text=OrText2.Text=OrText3.Text=ThenMsgBox成绩输入不全！ElseText4.Text=(Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text))/3EndIfSubEnd3PrivateSubCommand3_Click()UnloadMeEndSub3．PrivateSubCommand1_Click()IfText1.Text=ThenMsgBox至少要输出单价！Text1.SetFocusExitSubEndIfIfText2.Text=ThenText2.Text=1IfText3.Text=ThenText3.Text=1Text4.Text=Text1.Text*Text2.Text*Text3.TextEndSub电大天堂【VisualBasic程序设计】作业2一、选择题1．B2．C3．D4．B5．D6．A7．B8．C9．A10．D11．C12．B13．D14．C15．A16．B17．C18．B19．D20．B二、填空题1．下拉式菜单弹出式菜单2．打开另存为颜色字体打印3．文本框列表框4．OptionBase15．Call语句6．工程工程属性通用Form1.Show7．08．Sub过程的过程名不能返回值，而Function过程能通过过程名返回值9．窗体模块标准模块类模块10．移出内存无效状态11．（1）2*Cos*Sin/(2*)(2)Sqr(s*(s-a)*(s-b)*(s-c))(3)Sin(45*3.14/180)12．（1）x=1Andx12(2)A+B=COra-c=c(3)a0Andb0Or(a0Andb0)13．False14．ForWhileDo15．3三、阅读下列程序，给出程序运行结果。41．程序运行后，单击窗体，输出结果为：5050。2．3．4．3.435．*************************四、程序设计题1．PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx100Theny=xElseIfx200Theny=9.5*xElseIfx300Theny=0.9*xElseIfx500Theny=0.8*xElsey=0.7*xEndIfEndIfEndIfEndIfText2.Text=yEndSub52．PrivateSubForm_Load()DimxAsIntegerx=100DoUntilx200IfxMod30ThenText1.Text=Text1.Text&Str(x)&Chr(13)&Chr(10)EndIfx=x+1LoopEndSub3．PrivateSubForm_Click()Print*;Tab(9);3,Tab(18);6;Tab(27);9;Tab(36);12PrintForI=15to18PrintI;Forj=3to12Step3PrintTab(3*j);j*I;NextjPrintNextIEndsub4．PrivateSubCommand1_Click()UnloadMeEndSubPrivateSubOption1_Click()Text1.Text=10*2EndSubPrivateSubOption2_Click()Text1.Text=10/2EndSubPrivateSubOption3_Click()Text1.Text=10+2EndSubPrivateSubOption4_Click()Text1.Text=10-26EndSub5．PrivateFunctionDay(nAsInteger)SelectCasenCase0Day=星期日&Chr(13)&(Sunday)Case1Day=星期一&Chr(13)&(Monday)Case2Day=星期二&Chr(13)&(Tuesday)Case3Day=星期三&Chr(13)&(Wednesday)Case4Day=星期四&Chr(13)&(Thursday)Case5Day=星期五&Chr(13)&(Friday)Case6Day=星期六&Chr(13)&(Saturday)EndSelectEndFunctionPrivateSubText1_KeyPress(KeyAsciiAsInteger)DimnAsIntegern=Val(Text1.Text)IfKeyAscii=13ThenIfn=0Andn7ThenLabel1.Caption=Day(n)ElseMsgBox请输入0~6之间的整数！EndIfEndIfText1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub6．新建一个工程，在默认的窗体Form1上放置一个Picture控件，然后编写如下代码。PrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenMsgBoxYoupressedrightButtonPicture1.MousePointer=vbArrowEndIfEndSubPrivateSubPicture1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Picture1.MousePointer=vbUpArrowEndSub77．PrivateSubForm_Load()List1.AddItem李敏List1.AddItem张华List1.AddItem吕晓烨List1.AddItem赵巍List1.AddItem袁莉List1.AddItem王津List1.AddItem何小渴List1.AddItem崔宁List1.AddItem陈曦List1.AddItem刘伟楠EndSubPrivateSubCommand1_Click()IfText1.TextThenList1.AddItemText1.TextText1.Text=ElseMsgBox请在文本框中输入信息！EndIfEndSubPrivateSubCommand2_Click()List1.RemoveItemList1.ListIndexEndSubPrivateSubCommand3_Click()IfCommand3.Caption=修改ThenText1.Text=List1.TextText1.SetFocusCommand1.Enabled=FalseCommand2.Enabled=FalseCommand3.Caption=修改确认ElseList1.List(List1.ListIndex)=Text1.TextCommand1.Enabled=TrueCommand2.Enabled=TrueText1.Text=Command3.Caption=修改EndIfEndSubPrivateSubList1_Click()IfList1.ListIndex-1ThenCommand2.Enabled=TrueCommand3.Enabled=TrueEndIfEndSub8电大天堂【VisualBasic程序设计】作业3一、选择题1．B2．B3．B4．A5．C6．C7．D8．C9．C10．C11．B12．B13．A14．B15．C16．C17．B18．A19．C20．B21．A二、填空题1．Output2．FileCopy”c:\command.com