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

Visual Basic 程序设计作业 1
一、选择题 1． D 2． B 3． C 4． C 5． B 6． D 7． A 8． B 9． A 10． C 14．D 15．A 二、填空题 1．视图 工具箱 2．对象 事件 3．.vbp .frm 4．窗体 控件 菜单 5．完成某种特定的功能 对象名.方法名 Form1.Show 6．Multiline True 7．4000 8．AutoSize True 9．窗体布局窗口 10．txtshow.text="GOOD WORK！" 11．Click()、frm1.show 12．单击 双击 装载 多 响应某个事件后所执行的程序代玛 13．完成某种特定的功能 对象名.方法名 Form1.Show 14．工具 选项 选项 自动语法检测 15．Timer Interval ms
4． Private 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 Private Sub Option4_Click() Text1.Text = 10 - 2
4
2． Private Sub Form_Load() Dim x As Integer x = 100 Do Until x > 200 If x Mod 3 <> 0 Then Text1.Text = Text1.Text & Str(x) & Chr(13) & Chr(10) End If x=x+1 Loop End Sub 3． Private Sub Form_Click() Print "*";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 I End sub
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<12 (2) A+B>=C Or a-c<=c (3) a>0 And b>0 Or(a<0 And b<0) 13．False 14．For While Do 15．3 三、阅读下列程序，给出程序运行结果。
1
3．参考答案 答：传统的面向过程的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码， 程序从第一行代码开始执行并按应用程序中预定的路径执行，用户无法改变程序的执行流程。 在事件驱动的应用程序中，程序的执行发生了根本的变化，代码不是按照预定的路径执行，而是在响 应不同的事件时执行不同的代码片段。每个对象都有一个相应的事件集，每个事件发生都要执行一段程序 代码。事件可以由用户操作触发，也可以由操作系统或其它应用程序的消息触发，甚至可由应用程序本身 的消息触发。这些事件的顺序决定了代码执行的顺序，因此，应用程序每次运行所经过的代码路径是不确 定的，它的执行流程由用户来决定。在程序设计时，不需要指出先执行哪部分代码，或按什么顺序执行代 码，只需编写针对某个事件的程序代码即可。 4．参考答案 答：事件驱动是 VB 应用程序的基本机制，其基本过程是： （1）启动应用程序，装载和显示窗体。 （2）窗体或窗体上的控件等待事件的发生。事件可由用户引发（例如键盘操作或鼠标点击） 、可由系 。 统引发（例如定时器控件） 、也可由代码间接引发（例如当代码装载其他窗体时产生的 Load 事件） （3）当某个事件发生后，执行其对应的事件过程代码。 （4）重复执行第 2 和第 3 步。直到遇到 End 语句或单击“结束”按钮停止程序的运行。 四、程序设计题 1． Private 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 2． Private 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 = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) /3 End If Sub End
2
Private Sub Command3_Click() Unload Me End Sub 3． Private 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
3
1．程序运行后，单击窗体，输出结果为：5050。 2．
3．
4． 3.4 5．
3
* *** ***** ******* ********* 四、程序设计题 1． 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 < 500 Then y = 0.8 * x Else y = 0.7 * x End If End If End If End If Text2.Tvate 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) & "(Wednesday)" Case 4 Day = "星期四" & Chr(13) & "(Thursday)" Case 5 Day = "星期五" & Chr(13) & "(Friday)" Case 6 Day = "星期六" & Chr(13) & "(Saturday)" End Select End Function Private 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 = Day(n) Else MsgBox "请输入 0~6 之间的整数！" End If End If Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub 6． 新建一个工程，在默认的窗体 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.MousePointer = vbArrow End If End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.MousePointer = vbUpArrow End Sub
11． C
12． C
13． B
cmd1
Click
三、问答题 1．参考答案 答：可视化编程是目前最直观的一种编程方法，人们一般用 Visual 一词表示它。之所以叫做“可视” ， 是指你无需编程，仅通过直观的操作方式即可完成界面的设计工作。因此，可视化语言是目前最好的 Windows 应用程序开发工具。 在这种语言中引入了控件的概念，每个控件都有若干方法和事件，并通过一系列的属性来控制控件的 外观。利用这些控件，编程过程就如同画画，随意点几下鼠标，一个按钮就完成了，这些工作在使用传统 编程语言的情况下，需要编写大量复杂的程序代码才能实现。 可视化编程主要用到了事件驱动机制，其原理是：当应用程序运行后，程序处于等待状态，当某个事 件发生后，程序就去执行此事件的事件过程，当这个事件过程执行完后，应用程序又处于等待另一个事件 发生的状态。 2．参考答案 答：对象是代码和数据的封装体，在 VB 中， “数据”表现为属性， “代码”则表现为事件和方法。建 立一个对象后，其操作通过与该对象的有关属性、事件和方法来描述。 属性是一个对象的基本特性，每个对象都有它自己的属性。通过修改对象的属性，可以改变对象的外 观和功能。 方法就是要对象执行的动作，一般可以将它理解为 VB 提供的一种特殊的过程和函数。其特殊性在于， 这些过程和函数是封装在对象内部的，是在对象上实施的某种操作功能。 事件就是在对象上所发生的事情。对象的事件是由 VB 预先设置好的、能被对象识别的动作。用户不 能建立新的事件，但可以根据需要对事件进行编程。从非严格意义上讲，可以将事件理解为一种特殊的方 法。