2022年电大VisualBasic程序设计作业答案.docx

《2022年电大VisualBasic程序设计作业答案.docx》由会员分享，可在线阅读，更多相关《2022年电大VisualBasic程序设计作业答案.docx（21页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精品学习资源Visual Basic程序设计作业 1一、挑选题1 D2 B3 C 4 C5 B6 D7 A8 B 9 A10 C11 C12 C13 B 14 D15. A二、填空题1. 视图 工具箱2. 对象 大事3. .vbp.frm 4窗体 控件 菜单5. 完成某种特定的功能对象名 .方法名Form1.Show6. Multiline True 7 40008. AutoSizeTrue9. 窗体布局窗口10. txtshow.text=GOOD WORK！11. Click 、frm1.show12. 单击 双击 装载 多响应某个大事后所执行的程序代玛cmd1Click13. 完成某种

2、特定的功能对象名 .方法名Form1.Show14. 工具 选项 选项 自动语法检测15. Timer Interval ms三、问答题1. 参考答案答：可视化编程是目前最直观的一种编程方法，人们一般用Visual 一词表示它；之所以叫做“可视”，是指你无需编程，仅通过直观的操作方式即可完成界面的设计工作；因此，可视化语言是目前最好的 Windows 应用程序开发工具；在这种语言中引入了控件的概念，每个控件都有如干方法和大事，并通过一系列的属性来掌握控件的外观；利用这些控件，编程过程就犹如画画，随便点几下鼠标，一个按钮就完成了，这些工作在使用传统编程语言的情形下，需要编写大量复杂的程序代码才能

3、实现；可视化编程主要用到了大事驱动机制，其原理是：当应用程序运行后，程序处于等待状态，当某个大事发生后，程序就去执行此大事的大事过程，当这个大事过程执行完后，应用程序又处于等待另一个大事发生的状态；2. 参考答案答： 对象是代码和数据的封装体，在VB 中，“数据”表现为属性，“代码”就表现为大事和方法；建立一个对象后，其操作通过与该对象的有关属性、大事和方法来描述；属性是一个对象的基本特性，每个对象都有它自己的属性；通过修改对象的属性，可以转变对象的外观和功能；方法就是要对象执行的动作，一般可以将它懂得为VB 供应的一种特殊的过程和函数；其特殊性在于，这些过程和函数是封装在对象内部的，是在对象

4、上实施的某种操作功能；大事就是在对象上所发生的事情；对象的大事是由VB 预先设置好的、能被对象识别的动作；用户不能建立新的大事，但可以依据需要对大事进行编程；从非严格意义上讲，可以将大事懂得为一种特殊的方法；欢迎下载精品学习资源3. 参考答案答：传统的面对过程的应用程序中，应用程序自身掌握了执行哪一部分代码和按何种次序执行代码，程序从第一行代码开头执行并按应用程序中预定的路径执行，用户无法转变程序的执行流程；在大事驱动的应用程序中，程序的执行发生了根本的变化，代码不是依据预定的路径执行，而是在响应不同的大事时执行不同的代码片段；每个对象都有一个相应的大事集，每个大事发生都要执行一段程序代码；大

5、事可以由用户操作触发，也可以由操作系统或其它应用程序的消息触发，甚至可由应用程序本身的消息触发；这些大事的次序打算了代码执行的次序，因此，应用程序每次运行所经过的代码路径是不确定的，它的执行流程由用户来打算；在程序设计时，不需要指出先执行哪部分代码，或按什么次序执行代码，只需编写针对某个大事的程序代码即可；4. 参考答案答：大事驱动是 VB 应用程序的基本机制，其基本过程是：（ 1）启动应用程序，装载和显示窗体；（ 2）窗体或窗体上的控件等待大事的发生；大事可由用户引发（例如键盘操作或鼠标点击）、可由系统引发（例如定时器控件）、也可由代码间接引发（例如当代码装载其他窗体时产生的Load 大事）

6、；（ 3）当某个大事发生后，执行其对应的大事过程代码；（ 4）重复执行第2 和第 3 步；直到遇到 End 语句或单击“终止”按钮停止程序的运行；四、程序设计题1Private Sub Form_Load Text1.Text = VB 程序设计 Text1.FontSize = 16End SubPrivate Sub Command1_Click Text1.Visible = FalseEnd SubPrivate Sub Command2_Click Text1.Visible = TrueEnd Sub2Private Sub Command1_Click Text1.Text =

7、Text2. Text = Text3.Text = End SubPrivate Sub Command2_ClickIf Text1 Text = Or Text2.Text = Or Text3.Text = Then MsgBox 成果输入不全！ ElseText4.Text = ValText1.Text + ValText2.Text + ValText3.Text /3 End IfSub End欢迎下载精品学习资源Private Sub Command3_Click Unload MeEnd Sub3Private Sub Command1_Click If Text1.Tex

8、t = ThenMsgBox 至少要输出单价！ Text1.SetFocusExit Sub End IfIf Text2.Text = Then Text2.Text = 1If Text3.Text = Then Text3.Text = 1Text4.Text = Text1.Text * Text2.Text * Text3.Text End Sub电大天堂【 Visual Basic程序设计】 作业 2一、挑选题1 B2 C3 D 4 B 5 D6 A7 B 8 C9 A10 D11 C12 B13 D 14 C15 A16 B 17 C18B19 D20 B二、填空题1. 下拉式菜

9、单弹出式菜单2. 打开 另存为 颜色 字体 打印3. 文本框列表框4. Option Base 15. Call 语句6. 工程工程属性通用Form1.Show7 08. Sub 过程的过程名不能返回值，而Function 过程能通过过程名返回值9. 窗体模块标准模块类模块10. 移出内存无效状态11（ 1）2*Cos*Sin/2*2 Sqrs*s-a*s-b*s-c 3 Sin45*3.14/18012（ 1） x=1 And x=C Or a-c0 And b0 Ora0 And b013. False14. ForWhileDo15 3欢迎下载精品学习资源三、阅读以下程序，给出程序运行结

10、果；1程序运行后，单击窗体，输出结果为：5050；2343.435*四、程序设计题1Private Sub Command1_ClickDim x As Single, y As Single x = V alText1.TextIf x 100 Then y = xElseIf x 200 Then y = 9.5 * xElseIf x 300 Then y = 0.9 * xElseIf x 200If x Mod 3 0 ThenText1.Text = Text1.Text & Strx & Chr13 & Chr10End Ifx = x + 1 LoopEnd Sub3Priva

11、te Sub Form_ClickPrint * ；Tab9；3,Tab18；6；Tab27 ；9；Tab36； 12 PrintFor I=15 to 18Print I ；For j=3 to 12 Step 3Print Tab3*j ；j*I ；Next j PrintNext I End sub4Private Sub Command1_Click Unload MeEnd SubPrivate Sub Option1_Click Text1.Text = 10 * 2End SubPrivate Sub Option2_Click Text1.Text = 10 / 2End Su

12、bPrivate Sub Option3_Click Text1.Text = 10 + 2End Sub欢迎下载精品学习资源Private Sub Option4_Click Text1.Text = 10 - 2End Sub5Private Function Dayn As Integer Select Case nCase 0Day = 星期日 & Chr13 & Sunday Case 1Day = 星期一 & Chr13 & Monday Case 2Day = 星期二 & Chr13 & TuesdayCase 3Day = 星期三 & Chr13 & Wednesday Cas

13、e 4Day = 星期四 & Chr13 & Thursday Case 5Day = 星期五 & Chr13 & Friday Case 6Day = 星期六 & Chr13 & Saturday End SelectEnd FunctionPrivate Sub Text1_KeyPressKeyAscii As IntegerDim n As Integern = ValText1.TextIf KeyAscii = 13 ThenIf n = 0 And n 7 Then Label1.Caption = Dayn ElseMsgBox 请输入 06 之间的整数！ End IfEnd

14、If Text1.SelStart = 0Text1.SelLength = LenText1.TextEnd Sub6新建一个工程，在默认的窗体Form1 上放置一个 Picture 控件，然后编写如下代码；Private Sub Picture1_MouseDownButton As Integer, Shift As Integer, X As Single, Y As Single If Button = 2 ThenMsgBox You pressed right Button Picture1.MousePointer = vbArrowEnd If End SubPrivate

15、Sub Picture1_MouseMoveButton As Integer, Shift As Integer, X As Single, Y As Single欢迎下载精品学习资源Picture1.MousePointer = vbUpArrow End Sub7Private Sub Form_Load List1.AddItem 李敏 List1.AddItem 张华 List1.AddItem 吕晓烨 List1.AddItem 赵巍 List1.AddItem 袁莉 List1.AddItem 王津 List1.AddItem 何小渴 List1.AddItem 崔宁 List1

16、.AddItem 陈曦 List1.AddItem 刘伟楠 End SubPrivate Sub Command1_Click If Text1.Text Then List1.AddItem Text1.Text Text1.Text = ElseMsgBox 请在文本框中输入信息！ End IfEnd SubPrivate Sub Command2_Click List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command3_ClickIf Command3.Caption = 修改 Then Text1.Text = List1.Te

17、xt Text1.SetFocusCommand1.Enabled = False Command2.Enabled = False Command3.Caption = 修改确认 ElseList1.ListList1.ListIndex = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = Command3.Caption = 修改End If End SubPrivate Sub List1_ClickIf List1.ListIndex -1 Then Command2.Enabled = T

18、rue Command3.Enabled = True欢迎下载精品学习资源End If End Sub电大天堂【 Visual Basic程序设计】 作业 3一、挑选题1 B 2 B3 B 4 A5 C6 C7 D8 C9 C10 C11 B12 B13 A14 B15 C16 C17 B18 A19 C 20 B 21 A二、填空题1. Output欢迎下载精品学习资源2. FileCopy ” cc: ” , ”codm:3. Kill ” dt:em.tmp ”欢迎下载精品学习资源4. Open” SEQNEW.DAT” For Output As # 15. Open” SEQOLD

19、.DAT” For Input As # 2 6右 上7 False8 Picture1.Line500,500-1000,1000,RGB255,0,0,BF9 52010 ActiveConnection 11外部数据库、远程数据库12. ADOrs 学号 13. 增加、删除、修改（或者Select、Delete、Update）14. Select * from Table1 Where学号= 001 15本地数据库、远程数据库三、程序设计题1Private Sub Form_Load Drive1.Drive = c:File1.Pattern = *.bmp ；*.gif ； *.jp

20、gEnd SubPrivate Sub Drive1_change Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change File1.Path = Dir1.PathEnd SubPrivate Sub File1_clickIf RightFile1.Path, 1 = Thenf$ = Form1.File1.Path + Form1.File1.FileName Elsef$ = Form1.File1.Path + + Form1.File1.FileNameEnd IfPicture1.Picture = LoadPicture

21、f$ Picture1.AutoSize = TrueEnd Sub欢迎下载精品学习资源2Private Sub Form_ClickDim i As Single, twopie As Singletwopie = 8 * Atn1求 piDrawWidth = 2 设置点的大小Scale -twopie, 1-twopie, -1设置坐标系For i = -twopie To twopie Step twopie / 360画 x 轴PSet i, 0Next i 标 x 轴CurrentY = 0 CurrentX = -twopie Print -2pi ；CurrentX = -tw

22、opie / 2 Print -pi ；CurrentX = twopie / 2 Print pi ；CurrentX = twopie - 0.6Print 2pi ；Print pFor i = -1 To 1 Step 0.01 画 y 轴PSet 0, i Next iCurrentX = 0 标 y 轴刻度For i = -1 To 1 Step 0.5 CurrentY = iPrint iNext iFor i = -twopie To twopie Step 0.1 画余弦曲线PSet i, Cosi Next iEnd Sub 3Private Sub Check1_Cli

23、ck If Check1.Value = 1 Then Line1.BorderWidth = 4 ElseLine1.BorderWidth = 1 End IfEnd SubPrivate Sub Option1_ClickIndex As Integer Line1.BorderWidth = 1欢迎下载精品学习资源Check1.Value = 0 Select Case Index Case 1Line1.BorderStyle = 1Case 2Line1.BorderStyle = 2Case 3Line1.BorderStyle = 3 End SelectEnd Sub4Pri

24、vate Sub Option1_ClickIndex As Integer Select Case IndexCase 0Shape1.Shape = 0Case 1Shape1.Shape = 1Case 2Shape1.Shape = 3Case 3Shape1.Shape = 4 End SelectEnd SubPrivate Sub Option2_ClickIndex As Integer Select Case IndexCase 0Shape1.FillStyle = 1Case 1Shape1.FillStyle = 3Case 2Shape1.FillStyle = 2C

25、ase 3Shape1.FillStyle = 6 End SelectEnd SubPrivate Sub Option3_ClickIndex As Integer Shape1.BorderWidth = 1Select Case Index Case 0Shape1.BorderStyle = 0Case 1Shape1.BorderStyle = 1欢迎下载精品学习资源Case 2Shape1.BorderStyle = 4Case 3Shape1.BorderStyle = 2Case 4Shape1.BorderStyle = 3 End SelectEnd Sub5 以 SQL

26、 Server 数据库为例 声明对象变量 ADOcn ，用于创建与数据库的连接Private ADOcn As ConnectionPrivate Sub ReadFromTable Dim strtmp As StringDim ADOrs As New RecordsetADOrs.ActiveConnection = ADOcnADOrs.Open select * from students order by学号 MSFlexGrid1.Clear MSFlexGrid1.Rows = 0MSFlexGrid1.Cols = 3strtmp = 学号 + vbTab + 姓名 + vb

27、Tab + 专业 MSFlexGrid1.AddItem strtmpDo While Not ADOrs.EOFstrtmp = ADOrs 学号 + vbTab + ADOrs 姓名 + vbTab + ADOrs 专业 MSFlexGrid1.AddItem strtmpADOrs.MoveNext LoopMSFlexGrid1.FixedCols = 0MSFlexGrid1.FixedRows = 1 End SubPrivate Sub Command1_Click Unload MeEnd SubPrivate Sub Form_Load定义数据库连接字符串Dim strDB

28、As String用于连接 SQL Server 数据库，其中 : Server 为服务器名称User ID 为登录账号欢迎下载精品学习资源Password 为登录口令Database为详细的数据库名strDB = Provider=SQLOLEDB；LSF ；User ID=sa；Password=； Database =同学 假如仍没有建立与数据库的连接，就用以下代码创建；If ADOcn Is Nothing ThenSet ADOcn = New ConnectionADOcn.Open strDB 连接 SQL Server 数据库End IfReadFromTable调用过程显示

29、students 表中的记录End Sub行结果及代码请参考主教材和试验教材相关内容；电大天堂【 Visual Basic程序设计】 作业 4一、挑选题1 A2 B3A4 D5 B6 C7A8B二、填空题1. A DataArrival 大事、 SendData 方法2. TCP/IP（或者回答 TCP 协议）3. EXE 4用户自定义接口、标准接口5. LocalIp 方法6. GetData 方法7使用服务程序处于侦听状态；8. Winsock9. 实时错误、规律错误10. On Error Goto 0三、问答题1. 参考答案答： Socket 是 TCP/IP 网络中最为通用的API

30、（应用程序接口），也是在Internet 上进行应用程序开发最为通用的API ；它为网络中的每台运算机中供应了一个通信端口，通过这个端口，任何两台具有Socket 接口应用程序就可进行信息收发通信了；程序员只需要对Socket 接口进行数据的读写操作，根本不必关心两台运算机间的通信细节就能够完成数据的发送和接收工作；基于Socket 的通信过程如图 1 所示；欢迎下载精品学习资源图 12. 参考答案答： VB 中一般可按以下步骤设计错误处理程序： 第 1 步：捕捉错误，并强制程序跳转即在错误发生时，捕捉并告知应用转向哪段代码进行错误处理；VB 中通常可采纳 On ErrorGoTo 语句启用错

31、误捕捉机制；第 2 步：编写错误处理程序，对全部可预见的错误做出反应编写错误处理程序的第一步是添加一个行标识符，比如“CheckError: ”，以标志错误处理程序的开头；行标识符的名称最好具有良好的可读性，并且后面必需跟一个冒号；常规错误处理程序通常放在过程的终止处，紧跟Exit Sub 或 Exit Function 的行标识符之后；这样在没有错误发生时，过程就不会执行错误处理程序了；第 3 步：退出错误处理程序通常情形下，只有当错误处理程序位于过程中间位置时，才需要用到特地的错误处理程序退出语句；一般可使用Resume 或 Resume Next 语句退出错误处理程序；Resume 语句

32、会连续执行引发错误的那句代码，而 Resume Next 语句就会跳过该语句，执行引发错误代码的下一句代码；假如通过错误处理程序能够修正错误，就可以使用Resume 语句，否就就使用Resume Next 语句，或者直接使用Exit Sub 或 Exit Function 语句直接退出过程；3. 参考答案答：调试程序是一件复杂的工程，不但要求程序员对系统设计结果特别熟识，思路清楚，更需要不断地在实践中积存体会；以下技巧可供参考：第一，应事先做好备份：尽管 VB 供应了众多的调试工具，但要利用这些工具查找、定位程序中的错误并非易事，对于一些规模较大的程序，即使是有体会的程序员也经常要缺失好几小时

33、甚至几天的时间来查找错误；在调试过程中，很简单意外地修改、掩盖或删除掉必要的代码部分；因此事先做好备份特别重要；其次，尽可能地分别受怀疑的程序： 对于那些代码规模较大，窗口众多的程序而言，假如能将错误的范畴定位于某个窗体或某段代码，就可以使用分别程序的调试方法；基本思路是：试着找到出错的代码行（块）或窗体，挑选并复制这些代码到一个新的工程中，然后运行新工程，看一看是否仍会显现同样的错误；这样就可以尽可能地排除程序其他部分的干扰，提高调试的效率；第三，缩小搜寻范畴：假如有可能的话，可删除工程中任何第三方控件和自定义控件，或者任何看来与问题无关的代码，逐步缩小搜寻范畴；或者采纳相反的策略，先调试某

34、一段代码或窗体，再象搭积 木似的逐步扩大调试的范畴；这种方法与“分别受怀疑的程序”方法相结合，对复杂大系统的调试特别 有效；最终，使用MsgBox 语句： 假如怀疑程序的错误是由于执行路径或者变量的值不正确等缘由造成的，除了采纳设置断点的方式进行调试外，仍可以借助于MsgBox语句；即在程序运行路径的关键点上插入一系列的 MsgBox 语句，用来展现程序运行的路径和重要变量的值；4. 参考答案欢迎下载精品学习资源答：利用 Winsock 控件开发网络通信系统时，通常要涉及服务器和客户机两类应用程序；一般过程是：（ 1）服务器程序的开发模式服务器程序必需设置好LocalPort 属性，作为侦听端

35、口；该值可设置成任意一个整数，只要其他应用程序没有使用过的值均可，但习惯上应大于1000；使用 Listen 方法使服务器进入侦听状态，等待客户机程序的连接恳求；客户机程序发出连接恳求后，将触发服务器程序的ConnectionRequest 大事，该大事得到一个参数 requestID ；服务器程序使用Accept 方法接受客户机程序的requestID 恳求；至此，服务器程序就可以使用SendData 方法向客户机发送数据了；此时应特殊留意两点：一是Accept 方法必需用到上一步得到的 requestID 作为其参数；二是在执行Accept 方法前，服务器仍处于侦听状态，此时应第一使用 C

36、lose 方法关闭服务器，然后再调用Accept 方法；当服务器程序接收到数据时，会产生DataArrival 大事；在该大事中可以使用GetData 方法接收数据；（ 2）客户机程序的开发模式客户程序第一应设置好RemoteHost 属性，用来指向运行服务器程序的主机名或IP 地址；设置 RemotePort 属性，用来指向服务器程序的侦听端口号；使用 Connect 方法向服务器提出连接恳求；假如服务器接受了上述连接恳求，客户机程序会产生Connect 大事；可以依据需要，在此大事中编写程序，比如使用MsgBox 函数向用户提示“连接已胜利”之类的信息；连接胜利后，就可以依据需要使用SendData 方法向服务器发送数据了；当客户机程序接收到数据时，会产生DataArrival 大事，可以用GetData 方法接收数据；四、程序题1. 共有两处错误，改正如下： 错误 1： 排序For c=1 To 20For j=c+1 To 20IF AcAj Then T=Aj Aj=Ac Ac=TEndIfNextNext错误 2： 在窗体上输出结果ClsFor c=1 To 20Print Ac Next c2. 程序运行结果及代码请参考主教材和试验教材相关内容；欢迎下载