东大17年12月考试《可视化程序设计(VB)》复习题资料

奥鹏作业答案

可视化程序设计(VB)复习题B
一、简答题
1、叙述建立一个完整的VB程序的过程。
2、简述过程的作用域。
3、简述事件驱动模型的编程机制
4、举例说明标签和文本框的区别。
二、编程题
1、编写程序，对输入的3个数，输出其中的最小数。
2、编程计算 1/2+2/3+3/4+4/5......前20项之和。
3、在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a[3][2]的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，编程实现上述功能。
4、编写程序，实现网页上超级链接标题的效果。在窗体上添加一个标签控件，设置其Caption属性为一个字符串，当鼠标光标移动到该标签上时，鼠标光标变成另一个形状，并使标签的标题文本颜色变成红色，当鼠标光标离开标签时，又恢复为默认状态。
   
简答题
1、【答案】
建立一个完整的VB应用程序的步骤如下：①新建工程②设计用户界面：确定窗体，在窗体中添加控件。③设置对象的属性：窗体和控件的属性在属性窗口设置。④编写有关的代码程序。⑤调试：若窗体或程序有错，则重复前三步，直到程序完全正确及窗体令人满意为止。⑥应用程序的集成和管理（存储项目）：把有关项目存储起来，以便以后使用。⑦运行应用程序。⑧建立可执行文件：脱离VB，而直接在Windows环境下运行。⑨结束项目。
2、【答案】
过程的作用域有窗体/模块级和全局级。
窗体/模块级：指在某个窗体或标准模块内定义的过程，定义的子过程或函数过程前加班Private关键字，过程只能被本窗体或本标准模块中的过程调用。
全局级：指在窗体或标准模块中定义的过程，其默认是全局的，也可加Public进行说明，全局级过程可供该应用程序的所有窗体和所有标准模块中的过程调用。
3、【答案】
VB是按照事件驱动模型编写应用程序，即为每一种可能发生的事件编写一段代码。当事件发生时，计算机就执行该事件的代码段。事件的发生可以是用户操作所致，也可以是程序运行过程中引发的。
4、【答案】
    区别在于：一方面，标签控件通过Caption属性设置控件中显示的文本；而文本框控件通过Text属性设置文本框中显示的内容；另一方面，标签控件主要用来显示说明文字，程序运行中需要通过赋值语句更改Caption属性值；而文本框的Text属性则允许直接接收用户输入的文本信息。二、编程题
1、【答案】
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, min As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a < b Then
      min = a
Else
      main = b
End If
If c < min Then
      min = c
End If
Label4.Caption = "最小的数是：" + Str(max)
End Sub2、【答案】
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 20
x = n / i
n = n + 1
sum = sum + x
Next
End Sub3、【答案】
Option Base 1
Dim a(3,2) As Integer
Private Sub Command1_Click()
For i = 1 To 3
For j = 1 To 2
a(i,j)= i + j
Next j
Next i
End Sub
Private Sub Command2_Click()
For j = 1 To 3
For i = 1 To 2
s = s + a(j,i)
Next i
Next j
Text1.Text = s
End Sub4、【答案】
Private Sub Form_Load()
Label1.Caption = "单击我进入"
Label1.MousePointer = 99
Label1.MouseIcon = "c:\windows\Winupd.ico"
Label1.ForeColor = vbBlack
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
End Sub
Private Sub Label1_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.MousePointer = 0
Label1.ForeColor = vbBlack
End Sub
东北大学免费答案