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

精选学习资料 - - - - - - - - - Visual Basic程序设计作业 1 一、挑选题 1D 2 B 3 C 4C 5 B 6 D 7 A 8 B 9 A 10 C 11 C 12 C 13 B 14D 15A 二、填空题 1视图 工具箱 2对象 大事 3.vbp .frm 4窗体 控件 菜单 5完成某种特定的功能 对象名 .方法名 Form1.Show 6Multiline True 74000 8AutoSize True 9窗体布局窗口 10txtshow.text="GOOD WORK！" 11Click 、frm1.show 12单击双击装载多响应某个大事后所执行的程序代玛 cmd1 Click 13完成某种特定的功能对象名 .方法名 Form1.Show 14工具选项选项自动语法检测15 Timer Interval ms 三、问答题 1参考答案答：可视化编程是目前最直观的一种编程方法,人们一般用Visual 一词表示它；之所以叫做“ 可视” ,是指你无需编程,仅通过直观的操作方式即可完成界面的设计工作；因此,可视化语言是目前最好的 Windows 应用程序开发工具；在这种语言中引入了控件的概念,每个控件都有如干方法和大事,并通过一系列的属性来掌握控件 的外观；利用这些控件,编程过程就犹如画画,随便点几下鼠标,一个按钮就完成了,这些工作在使用 传统编程语言的情形下,需要编写大量复杂的程序代码才能实现；可视化编程主要用到了大事驱动机制,其原理是：当应用程序运行后,程序处于等待状态,当某个 大事发生后,程序就去执行此大事的大事过程,当这个大事过程执行完后,应用程序又处于等待另一个 大事发生的状态；2参考答案答： 对象是代码和数据的封装体,在VB 中,“ 数据” 表现为属性,“ 代码” 就表现为大事和方法；建立一个对象后,其操作通过与该对象的有关属性、大事和方法来描述；属性是一个对象的基本特性,每个对象都有它自己的属性；通过修改对象的属性,可以转变对象的 外观和功能；方法就是要对象执行的动作,一般可以将它懂得为VB 供应的一种特殊的过程和函数；其特殊性在于,这些过程和函数是封装在对象内部的,是在对象上实施的某种操作功能；大事就是在对象上所发生的事情；对象的大事是由VB 预先设置好的、能被对象识别的动作；用户不能建立新的大事,但可以依据需要对大事进行编程；从非严格意义上讲,可以将大事懂得为一种特殊的 方法；1 / 14 名师归纳总结 - - - - - - -第 1 页,共 14 页精选学习资料 - - - - - - - - - 3参考答案 答：传统的面对过程的应用程序中,应用程序自身掌握了执行哪一部分代码和按何种次序执行代 码,程序从第一行代码开头执行并按应用程序中预定的路径执行,用户无法转变程序的执行流程；在大事驱动的应用程序中,程序的执行发生了根本的变化,代码不是依据预定的路径执行,而是在 响应不同的大事时执行不同的代码片段；每个对象都有一个相应的大事集,每个大事发生都要执行一段 程序代码；大事可以由用户操作触发,也可以由操作系统或其它应用程序的消息触发,甚至可由应用程序本身的消息触发；这些大事的次序打算了代码执行的次序,因此,应用程序每次运行所经过的代码路 径是不确定的,它的执行流程由用户来打算；在程序设计时,不需要指出先执行哪部分代码,或按什么次序执行代码,只需编写针对某个大事的程序代码即可；4参考答案 答：大事驱动是 VB 应用程序的基本机制,其基本过程是：（1）启动应用程序,装载和显示窗体；（2）窗体或窗体上的控件等待大事的发生；大事可由用户引发（例如键盘操作或鼠标点击）、可由系统引发（例如定时器控件）、也可由代码间接引发（例如当代码装载其他窗体时产生的Load 事件）；（3）当某个大事发生后,执行其对应的大事过程代码；（4）重复执行第2 和第 3 步；直到遇到End 语句或单击“ 终止” 按钮停止程序的运行；四、程序设计题1Private Sub Form_Load Text1.Text = "VB 程序设计 " Text1.FontSize = 16 End Sub Private Sub Command1_Click Text1.Visible = False End Sub Private Sub Command2_Click Text1.Visible = True End Sub 2Private Sub Command1_Click Text1.Text = "" Text2. Text = "" Text3.Text = "" End Sub Private Sub Command2_Click If Text1 Text = " " Or Text2.Text = "" Or Text3.Text = " " Then MsgBox " 成果输入不全！" Else Text4.Text = ValText1.Text + ValText2.Text + ValText3.Text /3 End If Sub End 2 / 14 名师归纳总结 - - - - - - -第 2 页,共 14 页精选学习资料 - - - - - - - - - Private Sub Command3_Click Unload Me End Sub 3Private Sub Command1_Click If Text1.Text = "" Then MsgBox " 至少要输出单价！" Text1.SetFocus Exit Sub End If If Text2.Text = "" Then Text2.Text = 1 If Text3.Text = "" Then Text3.Text = 1 Text4.Text = Text1.Text * Text2.Text * Text3.Text End Sub 电大天堂【 Visual Basic程序设计】 作业 2一、挑选题1B 2 C 3 D 4 B 5 D 6 A 7 B 8 C 9A 10D 11 C 12B 13 D 14 C 15A 16B 17C 18B 19 D 20B 二、填空题 1下拉式菜单弹出式菜单打印 2打开另存为颜色字体3文本框列表框 4Option Base 1 5Call 语句 6工程工程属性通用 Form1.Show 70 8Sub 过程的过程名不能返回值,而 9窗体模块 标准模块 类模块10移出内存 无效状态11（ 1）2*Cos *Sin /2* 2 Sqrs*s-a*s-b*s-c 3 Sin45*3.14/180 12（ 1）x>=1 And x<12 2 A+B>=C Or a-c<=c 3 a>0 And b>0 Ora<0 And b<0 13False 14For While Do 153 Function 过程能通过过程名返回值3 / 14 名师归纳总结 - - - - - - -第 3 页,共 14 页精选学习资料 - - - - - - - - - 三、阅读以下程序,给出程序运行结果；1程序运行后,单击窗体,输出结果为：5050；2343.4 3 5* * * * * 四、程序设计题1 Private Sub Command1_Click Dim x As Single, y As Single x = ValText1.Text If x < 100 Then y = x Else If x < 200 Then y = 9.5 * x Else If x < 300 Then y = 0.9 * x Else If x < 500 Then y = 0.8 * x Else y = 0.7 * x End If End If End If End If Text2.Text = y 4 / 14 名师归纳总结 - - - - - - -第 4 页,共 14 页精选学习资料 - - - - - - - - - End Sub 2Private Sub Form_Load Dim x As Integer x = 100 Do Until x > 200 If x Mod 3 <> 0 Then Text1.Text = Text1.Text & Strx & Chr13 & Chr10 End If x = x + 1 Loop End Sub 3Private Sub Form_Click Print "*" ；Tab9；3,Tab18；6；Tab27；9；Tab36； 12 Print For I=15 to 18 Print I ；For j=3 to 12 Step 3 Print Tab3*j ；j*I ；Next j Print Next I End sub 4Private Sub Command1_Click Unload Me End Sub Private Sub Option1_Click Text1.Text = 10 * 2 End Sub Private Sub Option2_Click Text1.Text = 10 / 2 End Sub Private Sub Option3_Click Text1.Text = 10 + 2 End Sub 5 / 14 名师归纳总结 - - - - - - -第 5 页,共 14 页精选学习资料 - - - - - - - - - Private Sub Option4_Click Text1.Text = 10 - 2 End Sub 5Private Function Dayn As Integer Select Case n Case 0 Day = " 星期日 " & Chr13 & "Sunday" Case 1 Day = " 星期一 " & Chr13 & "Monday" Case 2 Day = " 星期二 " & Chr13 & "Tuesday" Case 3 Day = " 星期三 " & Chr13 & "Wednesday" Case 4 Day = " 星期四 " & Chr13 & "Thursday" Case 5 Day = " 星期五 " & Chr13 & "Friday" Case 6 Day = " 星期六 " & Chr13 & "Saturday" End Select End Function Private Sub Text1_KeyPressKeyAscii As Integer Dim n As Integer n = ValText1.Text If KeyAscii = 13 Then If n >= 0 And n < 7 Then Label1.Caption = Dayn Else MsgBox " 请输入 06 之间的整数！ " End If End If Text1.SelStart = 0 Text1.SelLength = LenText1.Text End Sub 6新建一个工程,在默认的窗体Form1 上放置一个Picture 控件,然后编写如下代码；Private Sub Picture1_MouseDownButton As Integer, Shift As Integer, X As Single, Y As Single If Button = 2 Then MsgBox "You pressed right Button" Picture1.MousePointer = vbArrow End If End Sub Private Sub Picture1_MouseMoveButton As Integer, Shift As Integer, X As Single, Y As Single 6 / 14 名师归纳总结 - - - - - - -第 6 页,共 14 页精选学习资料 - - - - - - - - - Picture1.MousePointer = vbUpArrow End Sub 7 Private Sub Form_Load List1.AddItem " 李敏 " List1.AddItem " 张华 " List1.AddItem " 吕晓烨 " List1.AddItem " 赵巍 " List1.AddItem " 袁莉 " List1.AddItem " 王津 " List1.AddItem " 何小渴 " List1.AddItem " 崔宁 " List1.AddItem " 陈曦 " List1.AddItem " 刘伟楠 " End Sub Private Sub Command1_Click If Text1.Text <> "" Then List1.AddItem Text1.Text Text1.Text = "" Else MsgBox " 请在文本框中输入信息！" End If End Sub Private Sub Command2_Click List1.RemoveItem List1.ListIndex End Sub Private Sub Command3_Click If Command3.Caption = " 修改 " Then Text1.Text = List1.Text Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Caption = " 修改确认 " Else List1.ListList1.ListIndex = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = "" Command3.Caption = " 修改 " End If End Sub Private Sub List1_Click If List1.ListIndex <> -1 Then Command2.Enabled = True Command3.Enabled = True 7 / 14 名师归纳总结 - - - - - - -第 7 页,共 14 页精选学习资料 - - - - - - - - - End If End Sub 电大天堂【 Visual Basic程序设计】 作业 3一、挑选题1B 2 B 3 B 4 A5 C 6 C 7 D 8 C 9 C 10 C 11 B 12 B 13 A 14 B 15 C 16C 17B 18A 19C 20B 21A 二、填空题1Output 2FileCopy ”c:”, ”3Kill ”d:tem.tmp ”4Open”SEQNEW.DAT”For Output As # 1 5Open”SEQOLD .DAT”For Input As # 2 6右 上7False 8Picture1.Line500,500-1000,1000,RGB255,0,0,BF 9520 10 ActiveConnection 11外部数据库、远程数据库12 ADOrs" 学号 " 13增加、删除、修改（或者 Select、Delete、Update）14 Select * from Table1 Where 学号 =00115本地数据库、远程数据库 三、程序设计题1 Private Sub Form_Load Drive1.Drive = "c:" File1.Pattern = "*.bmp ；*.gif ； *.jpg" End Sub Private Sub Drive1_change Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change File1.Path = Dir1.Path End Sub Private Sub File1_click If RightFile1.Path, 1 = "" Then f$ = Form1.File1.Path + Form1.File1.FileName Else f$ = Form1.File1.Path + "" + Form1.File1.FileName End If Picture1.Picture = LoadPicturef$ Picture1.AutoSize = True End Sub 8 / 14 名师归纳总结 - - - - - - -第 8 页,共 14 页精选学习资料 - - - - - - - - - 2Private Sub Form_Click Dim i As Single, twopie As Single twopie = 8 * Atn1 ' 求 pi DrawWidth = 2 ' 设置点的大小 Scale -twopie, 1-twopie, -1 ' 设置坐标系 For i = -twopie To twopie Step twopie / 360 ' 画 x 轴 PSet i, 0 Next i ' 标 x 轴 CurrentY = 0 CurrentX = -twopie Print "-2pi" ； CurrentX = -twopie / 2 Print "-pi" ； CurrentX = twopie / 2 Print "pi" ；CurrentX = twopie - 0.6 Print "2pi" ； Print "p" For i = -1 To 1 Step 0.01 ' 画 y 轴 PSet 0, i Next i CurrentX = 0 ' 标 y 轴刻度 For i = -1 To 1 Step 0.5 CurrentY = i Print i Next i For i = -twopie To twopie Step 0.1 ' 画余弦曲线 PSet i, Cosi Next i End Sub 3Private Sub Check1_Click If Check1.Value = 1 Then Line1.BorderWidth = 4 Else Line1.BorderWidth = 1 End If End Sub Private Sub Option1_ClickIndex As Integer Line1.BorderWidth = 1 9 / 14 名师归纳总结 - - - - - - -第 9 页,共 14 页精选学习资料 - - - - - - - - - Check1.Value = 0 Select Case Index Case 1 Line1.BorderStyle = 1 Case 2 Line1.BorderStyle = 2 Case 3 Line1.BorderStyle = 3 End Select End Sub 4Private Sub Option1_ClickIndex As Integer Select Case Index Case 0 Shape1.Shape = 0 Case 1 Shape1.Shape = 1 Case 2 Shape1.Shape = 3 Case 3 Shape1.Shape = 4 End Select End Sub Private Sub Option2_ClickIndex As Integer Select Case Index Case 0 Shape1.FillStyle = 1 Case 1 Shape1.FillStyle = 3 Case 2 Shape1.FillStyle = 2 Case 3 Shape1.FillStyle = 6 End Select End Sub Private Sub Option3_ClickIndex As Integer Shape1.BorderWidth = 1 Select Case Index Case 0 Shape1.BorderStyle = 0 Case 1 Shape1.BorderStyle = 1 10 / 14 名师归纳总结 - - - - - - -第 10 页,共 14 页精选学习资料 - - - - - - - - - Case 2 Shape1.BorderStyle = 4 Case 3 Shape1.BorderStyle = 2 Case 4 Shape1.BorderStyle = 3 End Select End Sub 5以 SQL Server 数据库为例 '声明对象变量 ADOcn ,用于创建与数据库的连接 Private ADOcn As Connection Private Sub ReadFromTable Dim strtmp As String Dim ADOrs As New Recordset ADOrs.ActiveConnection = ADOcn ADOrs.Open "select * from students order by 学号 " MSFlexGrid1.Clear MSFlexGrid1.Rows = 0 MSFlexGrid1.Cols = 3 strtmp = " 学号 " + vbTab + " 姓名 " + vbTab + " 专业 " MSFlexGrid1.AddItem strtmp Do While Not ADOrs.EOF strtmp = ADOrs" 学号 " + vbTab + ADOrs" 姓名 " + vbTab + ADOrs" 专业 " MSFlexGrid1.AddItem strtmp ADOrs.MoveNext Loop MSFlexGrid1.FixedCols = 0 MSFlexGrid1.FixedRows = 1 End Sub Private Sub Command1_Click Unload Me End Sub Private Sub Form_Load '定义数据库连接字符串 Dim strDB As String '用于连接 SQL Server 数据库,其中 : 'Server 为服务器名称 'User ID 为登录账号11 / 14 名师归纳总结 - - - - - - -第 11 页,共 14 页精选学习资料 - - - - - - - - - 'Password 为登录口令 'Database为详细的数据库名 strDB = "Provider=SQLOLEDB；LSF；User ID=sa；Password=； Database =同学 " '假如仍没有建立与数据库的连接,就用以下代码创建； If ADOcn Is Nothing Then Set ADOcn = New Connection ADOcn.Open strDB ' 连接 SQL Server 数据库 End If ReadFromTable '调用过程显示 students 表中的记录 End Sub 行结果及代码请参考主教材和试验教材相关内容；电大天堂【 Visual Basic程序设计】 作业 4一、挑选题1A2B3A4D5B6C7A8B 二、填空题1A DataArrival 大事、 SendData 方法 2TCP/IP（或者回答 TCP 协议）3EXE 4用户自定义接口、标准接口 5LocalIp 方法 6GetData 方法 7使用服务程序处于侦听状态；8Winsock 9实时错误、规律错误 10On Error Goto 0 三、问答题1参考答案 答： Socket 是 TCP/IP 网络中最为通用的 API （应用程序接口）,也是在 Internet 上进行应用程序开发最为通用的 API ；它为网络中的每台运算机中供应了一个通信端口,通过这个端口,任何两台具有 Socket接口应用程序就可进行信息收发通信了；程序员只需要对Socket 接口进行数据的读写操作,根本不必关心两台运算机间的通信细节就能够完成数据的发送和接收工作；基于Socket 的通信过程如图1 所示；12 / 14 名师归纳总结 - - - - - - -第 12 页,共 14 页精选学习资料 - - - - - - - - - 图 12参考答案答： VB 中一般可按以下步骤设计错误处理程序：第 1 步：捕捉错误,并强制程序跳转即在错误发生时,捕捉并告知应用转向哪段代码进行错误处理；VB 中通常可采纳On ErrorGoTo 语句启用错误捕捉机制；第 2 步：编写错误处理程序,对全部可预见的错误做出反应编写错误处理程序的第一步是添加一个行标识符,比如“CheckError: ” ,以标志错误处理程序的开始；行标识符的名称最好具有良好的可读性,并且后面必需跟一个冒号；常规错误处理程序通常放在过 程的终止处,紧跟 Exit Sub 或 Exit Function 的行标识符之后；这样在没有错误发生时,过程就不会执行错 误处理程序了；第 3 步：退出错误处理程序 通常情形下,只有当错误处理程序位于过程中间位置时,才需要用到特地的错误处理程序退出语 Resume 语句会连续执行引发错误的那 句；一般可使用 Resume 或 Resume Next 语句退出错误处理程序；句代码,而 Resume Next 语句就会跳过该语句,执行引发错误代码的下一句代码；假如通过错误处理程序 能够修正错误,就可以使用 Resume语句,否就就使用 Resume Next 语句,或者直接使用 Exit Sub 或 Exit Function 语句直接退出过程；3参考答案 答：调试程序是一件复杂的工程,不但要求程序员对系统设计结果特别熟识,思路清楚,更需要不 断地在实践中积存体会；以下技巧可供参考：第一,应事先做好备份：尽管 VB 供应了众多的调试工具,但要利用这些工具查找、定位程序中的错 误并非易事,对于一些规模较大的程序,即使是有体会的程序员也经常要缺失好几小时甚至几天的时间 来查找错误；在调试过程中,很简单意外地修改、掩盖或删除掉必要的代码部分；因此事先做好备份非 常重要；其次,尽可能地分别受怀疑的程序：对于那些代码规模较大,窗口众多的程序而言,假如能将错误 的范畴定位于某个窗体或某段代码,就可以使用分别程序的调试方法；基本思路是：试着找到出错的代 码行（块）或窗体,挑选并复制这些代码到一个新的工程中,然后运行新工程,看一看是否仍会显现同 样的错误；这样就可以尽可能地排除程序其他部分的干扰,提高调试的效率；第三,缩小搜寻范畴：假如有可能的话,可删除工程中任何第三方控件和自定义控件,或者任何看 来与问题无关的代码,逐步缩小搜寻范畴；或者采纳相反的策略,先调试某一段代码或窗体,再象搭积 木似的逐步扩大调试的范畴；这种方法与“ 分别受怀疑的程序” 方法相结合,对复杂大系统的调试特别 有效；最终,使用 MsgBox 语句： 假如怀疑程序的错误是由于执行路径或者变量的值不正确等缘由造成的,除了采纳设置断点的方式进行调试外,仍可以借助于MsgBox 语句；即在程序运行路径的关键点上插入一系列的 MsgBox 语句,用来展现程序运行的路径和重要变量的值；4参考答案13 / 14 名师归纳总结 - - - - - - -第 13 页,共 14 页精选学习资料 - - - - - - - - - 答：利用 Winsock 控件开发网络通信系统时,通常要涉及服务器和客户机两类应用程序；一般过程是：（ 1）服务器程序的开发模式服务器程序必需设置好 LocalPort 属性,作为侦听端口；该值可设置成任意一个整数,只要其他应用程序没有使用过的值均可,但习惯上应大于 1000；使用 Listen 方法使服务器进入侦听状态,等待客户机程序的连接恳求；客户机程序发出连接恳求后,将触发服务器程序的 数 requestID；ConnectionRequest 大事,该大事得到一个参服务器程序使用Accept 方法接受客户机程序的requestID 恳求；至此,服务器程序就可以使用SendData 方法向客户机发送数据了；此时应特殊留意两点：一是Accept 方法必需用到上一步得到的 requestID 作为其参数；二是在执行 Accept 方法前,服务器仍处于侦听状态,此时应第一使用 Close 方法关闭服务器,然后再调用 Accept 方法；当服务器程序接收到数据时,会产生 DataArrival 大事；在该大事中可以使用 GetData 方法接收数据；（ 2）客户机程序的开发模式客户程序第一应设置好RemoteHost 属性,用来指向运行服务器程序的主机名或IP 地址；设置 RemotePort 属性,用来指向服务器程序的侦听端口号；使用 Connect 方法向服务器提出连接恳求；假如服务器接受了上述连接恳求,客户机程序会产生Connect 大事；可以依据需要,在此大事中编写程序,比如使用 MsgBox 函数向用户提示“ 连接已胜利” 之类的信息；连接胜利后,就可以依据需要使用SendData 方法向服务器发送数据了；当客户机程