vbvb期末考试实验答案

下载10_1.exe

请参考10_1.exe程序的运行结果，新建一个工程，完成"过程练习"程序的设计，并将工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_1目录下。

具体要求如下：

1. 各题必须按要求用通用过程或函数过程进行编程。

2. "第一题"：编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。

3. "第二题"：编写一个求1+2+……+n的函数Sum(n)，利用该函数计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和。

4. "第三题"：编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0，50]之间的整数，然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。

5. "第四题"：编写一个每行可以打印5个下标变量的打印数组的通用过程，。随机产生一个∈[100，500]、有20个下标变量的数组，调用该通用过程打印出原始数据；再将该数组中的偶数组成一个新的数组，再调用该通用过程打印出偶数数组。

思考题：通用过程与函数过程的区别？

提示:

1. 各题必须按要求用通用过程或函数过程进行编程。

2. “第一题”：编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。

阶乘自定义函数F(n)的编写参考上课讲义

计算二项式系数Cmn可以通过调用F(n)函数完成：cmn=F(m)/(F(n)*F(m-n))

3. “第二题”：编写一个求1+2+……+n的函数Sum(n)，利用该函数计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和。

自定义函数Sum(n)的编写：

Function Sum(n As Integer) As Long

……'编写s=1+2+...+n的程序段

Sum=s '将计算结果赋值给函数名

End Function

计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和就转化为计算Sum(1)+Sum(2)+Sum(3)+……+Sum(100)的编程。

参考计算1!+2!+……+10！的程序

4. “第三题”：编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0，50]之间的整数，然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。

自定义函数Max(x,y,z)的编写：

Function Max(x As Integer, y As Integer, z As Integer) As Integer

……'编写x、y、z中找最大的程序段并将结果赋值给Max

End Function

定义一个有7个数组元素的一维数组a，Dim a(1 To 7) As Integer,随机产生7个∈[0，50]之间的整数赋值给a(1)～a(7)。

前三个数的最大值：max1=Max(a(1),a(2),a(3))

前五个数的最大值: max2=Max(max1,a(4),a(5))

或max2=Max(Max(a(1),a(2),a(3)),a(4),a(5))

七个数中的最大值：max3=Max(max2,a(6),a(7))

5. “第四题”：编写一个每行可以打印5个下标变量的打印数组的通用过程，。随机产生一个∈[100，500]、有20个下标变量的数组，调用该通用过程打印出原始数据；再将该数组中的偶数组成一个新的数组，再调用该通用过程打印出偶数数组。

打印数组的通用过程设计参考上课讲义

在需要输出数组的时候调用该通用过程

下载10_2.exe

请参考10_2.exe程序的运行结果，新建一个工程，完成"调色板"程序的设计，该程序由红绿兰三原色进行调色，如果预览满意，单击"应用"按钮，将调好的颜色作为文本框中文字的颜色。将完成后的工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_2目录下。

具体要求如下：

1. 应用程序界面设计参考图示。

2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。

3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。[注意：滚动条最大值为255]

4. 要求在任意一个颜色成分输入文本框中输入一个0-255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。

5. 单击"应用"按钮后将调好的颜色作为文本框中文字的颜色。

思考题：拖动滚动条时有没有触发滚动条的Change事件？

提示:

1. 应用程序界面设计参考图示。

程序界面右下角的预览框架里的长方形是形状控件Shape1（工具箱中的），将其FillStyle属性设置为0。

2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。

三个滚动条的Min设为0，Max设为255；三个文本框的Text属性设为空字串。

3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。

颜色是利用Rgb(r,g,b）函数来表示，其中r,g,b是红、绿、兰颜色的饱和度，分别通过滚动条来控制。

Private Sub HScroll1_Change(Index As Integer)

Text1(Index).Text = HScroll1(Index).Value

Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)

End Sub

4. 要求在任意一个颜色成分输入文本框中输入一个0—255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。

设计文本框的Change事件：

Private Sub Text1_Change(Index As Integer)

HScroll1(Index).Value = Val(Text1(Index).Text)

End Sub

5. 单击“应用”按钮后将调好的颜色作为文本框中文字的颜色。

Text2.ForeColor = Shape1.FillColor

下载10_3.exe

说明：了解过程的递归。

请参考10_3.exe程序的运行结果，新建一个工程，完成"Fibonacci"程序的设计，并将工程文件以

Design.Vbp、窗体文件以Design.frm保存到D:\10_3目录下。

具体要求如下：

1．编写一个求斐波纳契（Fibonacci）数列某一项的函数过程。已知：斐波纳契数列的第一项是0，第二项

是1，以后各项都是前两项的和。要求用递归算法求解[提示：f(n)=f(n-1)+f(n-2) ;f(1)=1;f(0)=0]

2．从键盘上输入任意一个数n，调用编写的函数过程得到斐波纳契第n项值。

提示:

1．编写一个求斐波纳契（Fibonacci）数列某一项的函数过程。已知：斐波纳契数列的第一项是0，第二项

是1，以后各项都是前两项的和。要求用递归算法求解[提示：f(n)=f(n-1)+f(n-2) ;f(1)=1;f(0)=0]

斐波纳契（Fibonacci）数列的递归函数过程F(n)如下：

Function F(x As Integer) As Long

If x = 1 Then

F = 0

ElseIf x = 2 Then

F = 1

Else

f = f(x - 1) + f(x - 2)

End If

End Function

2．从键盘上输入任意一个数n，调用编写的函数过程得到斐波纳契第n项值。

可以直接调用F(n)求斐波纳契第n项值。

下载9_3.exe，9_3.frm , QBColor函数.Doc（参考文档）

请参考9_3.exe 程序的运行结果，新建一个工程，完成一个带有预览效果的“综合字体设置”程序的设计，并将工程文件以Design.vbp ，窗体文件以Design.frm 保存到D:\9_3 目录下。

具体要求如下：

1. 运行9_3.exe ，参照其界面，在窗体上部有1个带有垂直水平滚动条的文本框，在窗体下部有1个“字体设置”框架。在此框架的右侧又有1个“预览”小框架，“预览”框架中是1个标签。在“字体设置”框架的左侧有1个列表框和3个组合框，用于进行相应的字体设置。

2. 继续运行9_

3.exe ，根据各个用于字体设置的列表框和组合框是否下拉和是否允许键盘输入来确定：它们分别是列表框（ListBox），还是组合框（Combo）？若是组合框，又属于哪种类型（Style）? 然后分别引入这4个控件，再一一设置其属性。

3. 打开9_3.frm ，在Form_Load() 事件中已经为各个列表框和组合框添加列表项编写了大部分代码。其中“With ...... End With”语句用于简化对

同一对象进行设置的代码，例如：

Private Sub Form_Load()

Command1.Caption = "OK"

Command1.Visible = True

Command1.Top = 200

Command1.Left = 5000

Command1.Enabled = True

End Sub

可用“With ...... End With”语句简化如下，注意各个属性前的“.”不可缺。

Private Sub Form_Load()

With Command1

.Caption = "OK"

.Visible = True

.Top = 200

.Left = 5000

.Enabled = True

End With

End Sub

因此，在Form_Load() 事件中，同学们只需在每个“With”语句后填写相应的控件名称，便可为各个列表框和组合框添加列表项。在Form_Load()事件中，还需编写其它有关初始状况的代码。

4. 编写各个列表框和组合框事件过程的代码。要求字体设置中的任何选择操作都在预览的"效果"标签中及时体现；（提示：颜色组合框中颜色排列顺序与Qbcolor(x) 函数一致，即x = .ListIndex，请参阅QBColor函数.doc）。

5. 单击"应用"按钮后，将字体预览中设置的字体效果全部运用到文本框中的文字上。

6. 按要求改名保存。

[思考题]

1. 列表框（ListBox）和各种类型（Style = 0、1、2）组合框（Combo）有什么区别？各用于什么场合？

2.在“字号”组合框（Combo）输入列表项以外的字号（例如：37.5）后，若要使该新增的列表项（37.5）自动插在36与48之间，应如何设置哪个属性？

3.组合框和列表框的Click事件和KeyPress事件各用在什么场合？其Change事件和Click事件有什么区别？它们都有Change事件吗？

提示:

1.应用程序界面设计。

根据各项设置的项目多少和是否允许键盘输入来选择ListBox和Combo的3种Style：

>>[字号]：项目较多(5-72不同间隔)，允许键盘输入数字(例如：37.5)，选择组合框(Style=0-Dropdown Combo)，为了将输入的列表项按顺序插入，在属性窗口将Sorted属性设为True。

>>[字体]：字体名称项目不多(常用4项)，允许键盘输入名称(例如："隶书")，选择组合框(Style=1-Simple Combo)。

>>[颜色]：字体颜色项目较多(16种颜色)，但不允许键盘输入。选择组合框(Style=2-Dropdown List)。

>>[字型]：项目只有4 项，不允许键盘输入，选择列表框(ListBox)即可。

2.要求字体设置中的任何选择操作都在预览的“效果”标签中及时体现；（提示：颜色组合框中颜色排列顺序与Qbcolor(x)函数一致）

设计每个组合框的Click事件代码。在事件代码中读取组合框的Text属性对标签的字体、字号、字型、颜色进行设置。如：Private Sub Combo1_Click()

Label1.FontName = Combo1.Text

End Sub

为了使程序更加简洁，颜色组合框中排列的颜色选项的下标正好与QbColor(x)函数的取色一致，程序可以设计成：Private Sub Combo4_Click()

Label1.ForeColor = QBColor(Combo4.ListIndex)

End Sub

3.单击“应用”按钮后将字体预览中设置的字体效果运用到文本框中的文字上；

将预览效果标签的Font的所有属性都赋值给文本框的相应属性。如：

Text1.FontName = Label1.FontName

Text1.FontBold = Label1.FontBold

……

下载11_1.exe

请参考11_1.exe程序的运行结果，新建一个工程，该工程包含两个窗体，一个窗体作为"登录"窗口，用来

输入用户名和密码；另一个窗体作为"欢迎"窗口，对通过密码检验的用户表示欢迎。（说明：实际应用中，

这个窗口可以是一个具体的应用程序，只有合法用户，才可以运行该应用程序）。将完成工程文件以

Design.Vbp、窗体文件分别以Design1.frm和Design2.frm保存到D:\11_1目录下。

具体要求如下：

1. 工程的启动对象为登录出窗口。

2. 允许用户最多三次密码重试机会，三次不能通过密码检验者，"确定"按扭改为"退出"，用户名输入框和

密码输入框都不能接受新的输入；（假定预设密码为："123456"）

3. 对于通过密码检验者，调出欢迎窗口：请用定时器控制标签用两个颜色交替显示对该用户的欢迎。

思考题：如果要对本程序进行修改，应该打开D:\11_1下的哪个文件？

提示:

1. 工程的启动对象为登录出窗口。

启动VB后，Form1是默认的启动对象，将Form1设计为登录窗口；单击菜单命令[工程]|[添加窗体]，在“新

建”选项卡中选择窗体，工程中增加一个Form2窗体。

2. 允许用户最多三次密码重试机会，三次不能通过密码检验者，“确定”按扭改为“退出”，用户名输入框和密码输入框都不能接受新的输入；（假定预设密码为：“123456”）

在Form1中编写Command1_Click事件，通过一个静态变量或窗体级变量统计密码输入的次数；如果次数超过3次，将按扭标题改为“退出”并将用户名输入框和密码输入框屏蔽。程序结构如下：

Private Sub Command1_Click()

Static t As Integer

If Command1.Caption = "确定" Then

t = t + 1

If …… Then’判断密码正确

Me.Hide

Form2.Show

Else

……'根据t的值（三分支）给出不同的提示和处理

txtPassword.SetFocus

txtPassword.SelStart = 0

txtPassword.SelLength = Len(txtPassword)

'以上这三条语句可以将密码框内容自动选中，用户可以方便的进行下一次密码输入End If

Else

End

End If

End Sub

3. 对于通过密码检验者，调出欢迎窗口：请用定时器控制标签用两个颜色交替显示对该用户的欢迎。

在Form2中引入一个定时器，设计Timer1_Timer事件，闪烁显示对该用户的欢迎。该用户名从Form1中读取：Form1.txtUserName.Text。

说明：

1．先建立D:\11_2文件夹，分别下载Modify1.bas、Modify2.bas、Modify3.bas、Modify4.bas这几个模块文件文件并进行调试。

2．可以启动VB，新建"标准EXE工程"，将标准模块加入到工程中，再在Form_Click事件过程中去调用标准模块中的相应过程，调试，直至结果正确；

3．也可以双击标准模块.bas文件，自动启动VB，再添加窗体并将窗体设置为启动对象，再在Form_Click 事件过程中去调用标准模块中的相应过程，调试，直至结果正确；

4．模块调试正确后，对相应的工程文件、窗体文件和模块文件分别按以下规则命名。例如对于Modify1.bas，调试完成后分别保存为Modify1.Vbp、Modify1.frm、Modify1.bas三个文件。

5．改错题只改标出出错位置的下面那一条语句，不能增删改其他任何语句；

6．填空题将正确内容覆盖填空位置"----- n -----"即可；

思考题：是否模块文件中的所有过程都必须被调用才能执行？

提示:

参考讲义中的上机调试题调试方法，将标准模块文件加入到VB工程中进行调试。

Modify1.bas提示：

'******** 1 *********

If i <> j Or i <> 5 - j Then '用Or描述的条件不对

'******** 2 *********

Form1.Print a(i, j) + Space(3); 'a(i, j)是数值，不能与字符串Space(3)直接进行+的运算

'******* 3 *******

Form1.Print '还需要一个Form1.Print语句才能打出一个空行

Modify2.bas提示：

'****** 1 *******

Dim k As Integer '变量类型不合适

'******* 2 *******

For i = 1 To 100 '每次循环，程序将奇数倒数和负偶数倒数进行求和，循环只要进行50次即可。

'******* 3 *******

k = 1 / i + 1 'i + 1 整体作为分母

Modify3.bas提示：

------- 1 ------- '求乘积时变量要正确初始化

------- 2-------- '判断负数的条件

------- 3 ------- 'J的取值只有0和1两种可能，将一种转为+1，一种转为-1。得到正负数。

Modify4.bas提示：

------- 1------- '统计Str1的字符数

------- 2------- '查找的次数。因为每次取3个进行比较，一共要取（Str1的字符数-2）次

------- 3------- '每次从Str1中取3个字符；用Mid函数

------- 4------- '统计的个数若为0，即没有找到

下载11_3.exe

请参考11_3.exe程序的运行结果，新建一个工程，完成"拨号程序"的设计，并将工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\11_3目录下。

具体要求如下：

1．应用程序界面设计参考图示。

2．程序刚开始运行时，所有数字键不可用，单击"拨号"后，数字键可以使用；[建议：数字键用命令按扭数组]

3．按"取消"键，取消（删除）所有拨号内容；

4．按"重拨"键，利用定时器，将拨号内容一一再现；

5．按"删除"键，将最近一次的拨号键内容删除（即删除所有拨号内容的最后一位数字）；

6．按"退出"键，结束程序。

提示:

1．应用程序界面设计参考右图示。

数字键的设计和功能参考计算器

2．程序刚开始运行时，所有数字键不可用，单击“拨号”后，数字键可以使用；[建议：数字键用命令按扭数组]

注意要启用的数字键有10个，可以通过循环结构控制每个数字键的Enabled属性为True。

3．按“取消”键，取消（删除）所有拨号内容；

清空文本框

4．按“重拨”键，利用定时器，将拨号内容一一再现；

单击“重拨”键，启动定时器即可；

重拨的功能和再现过程由定时器实现；利用字符串的拆分和组合。关键语句如下：

Text1.Text=Text1.Text & Mid(strnum,t,1)

'语句中strnum变量是要再现的原拨号内容；t是再现号码的位置，t必须是模块级变量，通过t=t+1，一个一个号码取出来再合成。

5．按“删除”键，将最近一次的拨号键内容删除（即删除所有拨号内容的最后一位数字）；

删除最后字符，实际上是取出前（n-1)个字符，这里n是总字数。函数格式可以写为：Mid(Text1.Text,1,Len(Text1.Text)-1)

6．按“退出”键，结束程序。