可视化程序设计 (VB)

可视化程序设计(VB)复习题
一、简答题
1、叙述建立一个完整的VB程序的过程。

建立一个完整的VB应用程序的步骤如下：①新建工程②设计用户界面：确定窗体，在窗体中添加控件。

③设置对象的属性：窗体和控件的属性在属性窗口设置。

④编写有关的代码程序。

⑤调试：若窗体或程序有错，则重复前三步，直到程序完全正确及窗体令人满意为止。

⑥应用程序的集成和管理（存储项目）：把有关项目存储起来，以便以后使用。

⑦运行应用程序。

⑧建立可执行文件：脱离VB，而直接在Windows环境下运行。

⑨结束项目。

2、简述过程的作用域。

过程的作用域有窗体/模块级和全局级。

窗体/模块级：指在某个窗体或标准模块内定义的过程，定义的子过程或函数过程前加班Private关键字，过程只能被本窗体或本标准模块中的过程调用。

全局级：指在窗体或标准模块中定义的过程，其默认是全局的，也可加Public 进行说明，全局级过程可供该应用程序的所有窗体和所有标准模块中的过程调用。

3、简述事件驱动模型的编程机制
VB是按照事件驱动模型编写应用程序，即为每一种可能发生的事件编写一段代码。

当事件发生时，计算机就执行该事件的代码段。

事件的发生可以是用户操作所致，也可以是程序运行过程中引发的。

4、举例说明标签和文本框的区别。

共同点可以在窗体上显示文字，不同点：标签的内容在caption属性内，在窗体只能显示文字不能修编辑；文本框的内容在text属性内，在窗体上可直接对内容进行修改。

5、分析下面函数实现的功能。

Function F1(b As Integer)
If b Mod 2 = 0 Then F1 = 0
Else F1 = 1
End If
End Function
功能就是判断b是偶数还是奇数
函数过程F1实现的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。

6、分析下面程序完成的功能。

Private Sub Commandl_C1ick()
For i＝1 To 20
x＝Int(Rnd *200+100)
If x Mod 5 ＝0 Then
Print x
S＝S+x
End If
Next i
Print “Sum＝”：S
End Sub
功能输出几个可以被5整除的随机数，并且求和。

Commandl_C1ick()执行的过程是：首先通过循环生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。

7、下面程序的功能是进行sum=1+2+3+…+100的求和计算，根据题意，完善程序。

Private Sub Command1_Click()
Dim i As Integer, sum As Integer
i = 1
（1）sum=0
Do While （2）i<100
sum = sum + I
i = i + 1
（3） Loop
Label2.Caption = Str(sum)
End Sub
8、下面Command1_Click()的功能是进行n!（n由键盘读入）计算，根据题意，完善程序。

Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim result As （1）Integer
result = 1
n = （2） int（Text1.text ）
If n <= 0 Then
Label2.Caption = "请输入正整数！"
Exit Sub '结束过程
End If
For i = 1 To n
（3） result=result*（n-（i-1））
Next I
Label2.Caption = Str(n) + "!=" + Str(result)
End Sub
9、下面程序的功能是建立一个含有5个元素的数组，查找并输出该数组中元素的最大值。

根据题意，完善程序。

Option Base 1
Private Sub Command1_Click()
Dim arr1, Max as （1）integer
arr1 = Array(12, 23, 76, 45, 78)
Max = （2）0
For i = 1 To 5
If （3）arr1（i）>Max Then Max = arr1(i)
Next I
Print "最大值是: "; Max
End Sub
10、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = I
Next
Call swap（（1）a（10））
For i = 1 To 10
Print a(i);
Next
End Sub 结束程序
Sub swap(b() As Integer)
n = （2）10
For i = 1 To n / 2
t = b(i)
b(i) = b(n)
b(n) = t
（3）n=n-1
Next
End Sub
上述程序的功能是：通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。

试分析给出的程序代码，完成相应的语句。

二、编程题
1、编写程序，对输入的3个数，输出其中的最小数。

Option Base 1
Private Sub Command1_Click()
Dim arr1, Min as integer
arr1（1） =text1.text
arr1（2） =text2.text
arr1 （3）=text3.text
Min = arr1（1）
For i = 1 To 3
If arr1（i）<Min Then Min = arr1(i)
Next I
Print "最小值是: "; Min
End Sub
2、编程计算1/2+2/3+3/4+4/5......前20项之和。

Private Sub Command1_Click()
Dim i， sum as integer
sum=0
for i=1 to 20
sum=sum + i/（i+1）
next I
End Sub。