电大Visual Basic程序设计作业答案.docx

1、电大Visual Basic程序设计作业答案Visual Basic程序设计作业1一、选择题1D 2B 3C 4C 5B 6D 7A 8B 9A 10C 11C 12C 13B 14D 15A二、填空题1视图 工具箱2对象 事件3.vbp .frm4窗体 控件 菜单5完成某种特定的功能 对象名.方法名 Form1.Show6Multiline True740008AutoSize True9窗体布局窗口 10txtshow.text=GOOD WORK！ 11Click()、frm1.show12单击 双击 装载 多 响应某个事件后所执行的程序代玛 cmd1 Click13完成某种特定的功能

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

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

4、所发生的事情。对象的事件是由VB预先设置好的、能被对象识别的动作。用户不能建立新的事件，但可以根据需要对事件进行编程。从非严格意义上讲，可以将事件理解为一种特殊的方法。3参考答案答：传统的面向过程的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码，程序从第一行代码开始执行并按应用程序中预定的路径执行，用户无法改变程序的执行流程。在事件驱动的应用程序中，程序的执行发生了根本的变化，代码不是按照预定的路径执行，而是在响应不同的事件时执行不同的代码片段。每个对象都有一个相应的事件集，每个事件发生都要执行一段程序代码。事件可以由用户操作触发，也可以由操作系统或其它应用程序的消息触发，

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

6、。直到遇到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 = Text2. Text = Text3.Text = End SubPriva

7、te Sub Command2_Click() If Text1 Text = Or Text2.Text = Or Text3.Text = Then MsgBox 成绩输入不全！ Else Text4.Text = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) /3 End If Sub EndPrivate Sub Command3_Click()Unload MeEnd Sub3Private Sub Command1_Click() If Text1.Text = Then MsgBox 至少要输出单价！ Text1.Set

8、Focus 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.TextEnd Sub电大天堂【Visual Basic程序设计】作业2一、选择题1B 2C 3D 4B 5D 6A 7B 8C 9A 10D 11C 12B 13D 14C 15A 16B 17C 18B 19D 20B二、填空题 1下拉式菜单 弹出式菜单 2打开 另存为 颜色 字体 打印3文本框列表框 4Option

9、 Base 1 5Call语句 6工程工程属性通用Form1.Show 708Sub过程的过程名不能返回值，而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=1 And x=C Or a-c0 And b0 Or(a0 And b0)13False14For While Do153三、阅读下列程序，给出程序运行结果。1程序运行后，单击窗体，输出结果为：5050。2343.4 35* * *四、程序设计题1

10、Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.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 200 If x Mod 3 0 Then Text1.Text = Text1.Text & Str(x) & Chr(13) & Chr(10) End If x = x + 1LoopEnd Sub3Private Sub Form_Click() Pr

11、int *。Tab(9)。3,Tab(18)。6。Tab(27)。9。Tab(36)。12 Print For I=15 to 18 Print I。 For j=3 to 12 Step 3 Print Tab(3*j)。j*I。 Next j Print Next IEnd sub 4Private Sub Command1_Click() Unload MeEnd SubPrivate Sub Option1_Click() Text1.Text = 10 * 2End SubPrivate Sub Option2_Click() Text1.Text = 10 / 2End SubPr

12、ivate Sub Option3_Click() Text1.Text = 10 + 2End SubPrivate Sub Option4_Click() Text1.Text = 10 - 2End Sub5Private Function Day(n As Integer) Select Case n Case 0 Day = 星期日 & Chr(13) & (Sunday) Case 1 Day = 星期一 & Chr(13) & (Monday) Case 2 Day = 星期二 & Chr(13) & (Tuesday) Case 3 Day = 星期三 & Chr(13) &

13、(Wednesday) Case 4 Day = 星期四 & Chr(13) & (Thursday) Case 5 Day = 星期五 & Chr(13) & (Friday) Case 6 Day = 星期六 & Chr(13) & (Saturday) End SelectEnd FunctionPrivate Sub Text1_KeyPress(KeyAscii As Integer) Dim n As Integer n = Val(Text1.Text) If KeyAscii = 13 Then If n = 0 And n 7 Then Label1.Caption = Da

14、y(n) Else MsgBox 请输入06之间的整数！ End If End If Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End Sub6新建一个工程，在默认的窗体Form1上放置一个Picture控件，然后编写如下代码。Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then MsgBox You pressed right Button Picture1.M

15、ousePointer = vbArrow End IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.MousePointer = vbUpArrowEnd Sub 7 Private Sub Form_Load() List1.AddItem 李敏 List1.AddItem 张华 List1.AddItem 吕晓烨 List1.AddItem 赵巍 List1.AddItem 袁莉 List1.AddItem 王津 L

16、ist1.AddItem 何小渴 List1.AddItem 崔宁 List1.AddItem 陈曦 List1.AddItem 刘伟楠End SubPrivate Sub Command1_Click() If Text1.Text Then List1.AddItem Text1.Text Text1.Text = Else MsgBox 请在文本框中输入信息！ End IfEnd SubPrivate Sub Command2_Click() List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command3_Click() If Co

17、mmand3.Caption = 修改 Then Text1.Text = List1.Text Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Caption = 修改确认 Else List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = Command3.Caption = 修改 End IfEnd SubPrivate Sub List1_Cl

18、ick() If List1.ListIndex -1 Then Command2.Enabled = True Command3.Enabled = True End IfEnd Sub电大天堂【Visual Basic程序设计】作业3一、选择题1B 2B 3B 4A5C 6C 7D 8C 9C 10C 11B 12B 13A 14B 15C 16C 17B 18A19C 20B 21A二、填空题1Output2FileCopy”c:”,”d:”3Kill”d:tem.tmp”4Open”SEQNEW.DAT”For Output As # 15Open”SEQOLD.DAT”For Inp

19、ut As # 26右 上7False8Picture1.Line(500,500)-(1000,1000),RGB(255,0,0),BF952010ActiveConnection11外部数据库、远程数据库12ADOrs(学号)13增加、删除、修改（或者Select、Delete、Update）14Select * from Table1 Where 学号=00115本地数据库、远程数据库三、程序设计题1 Private Sub Form_Load() Drive1.Drive = c: File1.Pattern = *.bmp。*.gif。*.jpgEnd SubPrivate Sub

20、 Drive1_change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub File1_click() If Right(File1.Path, 1) = Then f$ = Form1.File1.Path + Form1.File1.FileName Else f$ = Form1.File1.Path + + Form1.File1.FileName End If Picture1.Picture = LoadPicture(f$) P

21、icture1.AutoSize = TrueEnd Sub2Private Sub Form_Click() Dim i As Single, twopie As Single twopie = 8 * Atn(1) 求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 = -

22、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.5CurrentY = i Print i Next i For i = -twopie To twopie Step 0.1 画余弦曲线 PSet (i, Cos(i) Next iEnd Sub3Private Sub C

23、heck1_Click() If Check1.Value = 1 Then Line1.BorderWidth = 4 Else Line1.BorderWidth = 1 End IfEnd SubPrivate Sub Option1_Click(Index As Integer) Line1.BorderWidth = 1 Check1.Value = 0 Select Case Index Case 1 Line1.BorderStyle = 1 Case 2 Line1.BorderStyle = 2 Case 3 Line1.BorderStyle = 3 End SelectE

24、nd Sub4Private Sub Option1_Click(Index 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 SelectEnd SubPrivate Sub Option2_Click(Index As Integer) Select Case Index Case 0 Shape1.FillStyle = 1 Case 1 Shape1.FillStyle = 3

25、Case 2 Shape1.FillStyle = 2 Case 3 Shape1.FillStyle = 6 End SelectEnd SubPrivate Sub Option3_Click(Index As Integer) Shape1.BorderWidth = 1 Select Case Index Case 0 Shape1.BorderStyle = 0 Case 1 Shape1.BorderStyle = 1 Case 2 Shape1.BorderStyle = 4 Case 3 Shape1.BorderStyle = 2 Case 4 Shape1.BorderSt

26、yle = 3 End SelectEnd Sub5(以SQL Server数据库为例)声明对象变量ADOcn，用于创建与数据库的连接Private ADOcn As ConnectionPrivate 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.Co

27、ls = 3 strtmp = 学号 + vbTab + 姓名 + vbTab + 专业 MSFlexGrid1.AddItem strtmp Do While Not ADOrs.EOF strtmp = ADOrs(学号) + vbTab + ADOrs(姓名) + vbTab + ADOrs(专业) MSFlexGrid1.AddItem strtmp ADOrs.MoveNextLoop MSFlexGrid1.FixedCols = 0 MSFlexGrid1.FixedRows = 1 End SubPrivate Sub Command1_Click() Unload MeEnd

28、 SubPrivate Sub Form_Load() 定义数据库连接字符串 Dim strDB As String 用于连接SQL Server数据库，其中: Server为服务器名称 User ID为登录账号 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一、选择题