发布时间 : 星期二 文章vbvb期末考试实验答案更新完毕开始阅读
同一对象进行设置的代码，例如： Private Sub Form_Load() Command1.Caption = \ Command1.Visible = True Command1.Top = 200 Command1.Left = 5000 Command1.Enabled = True End Sub
可用“With ...... End With”语句简化如下，注意各个属性前的“.”不可缺。 Private Sub Form_Load() With Command1 .Caption = \ .Visible = True .Top = 200 .Left = 5000 .Enabled = True End With End Sub
事件中，还需编写其它有关初始状况的代码。
列顺序与 Qbcolor(x) 函数一致，即 x = .ListIndex，请参阅 QBColor函数.doc）。
5. 单击\应用\按钮后，将字体预览中设置的字体效果全部运用到文本框中的文字上。
6. 按要求改名保存。 [思考题]
1. 列表框（ListBox）和各种类型（Style = 0、1、2）组合框（Combo）有什么区别？各用于什么场合？ 属性？
3.组合框和列表框的Click事件和KeyPress事件各用在什么场合？其Change事件和Click事件有什么区别？它们都有Change事件吗？
因此，在 Form_Load() 事件中，同学们只需在每个“With”语句后填写相应的控件名称，便可为各个列表框和组合框添加列表项。在 Form_Load()
4. 编写各个列表框和组合框事件过程的代码。要求字体设置中的任何选择操作都在预览的\效果\标签中及时体现；（提示：颜色组合框中颜色排
2.在“字号”组合框（Combo）输入列表项以外的字号（例如：37.5）后，若要使该新增的列表项（37.5）自动插在36与48之间，应如何设置哪个
提示:
1.应用程序界面设计。
根据各项设置的项目多少和是否允许键盘输入来选择ListBox和Combo的3种Style： 入，在属性窗口将Sorted属性设为True。
>>[字体]：字体名称项目不多(常用4项)，允许键盘输入名称(例如：\隶书\，选择组合框(Style=1-Simple Combo)。 >>[颜色]：字体颜色项目较多(16种颜色)，但不允许键盘输入。选择组合框(Style=2-Dropdown List)。 >>[字型]：项目只有 4 项，不允许键盘输入，选择列表框(ListBox)即可。
>>[字号]：项目较多(5-72不同间隔)，允许键盘输入数字(例如：37.5)，选择组合框(Style=0-Dropdown Combo)，为了将输入的列表项按顺序插
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. 允许用户最多三次密码重试机会，三次不能通过密码检验者，\确定\按扭改为\退出\，用户名输入框和密码输入框都不能接受新的输入；（假定预设密码为：\）
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 = \确定\ 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． 填空题将正确内容覆盖填空位置\即可； 思考题：是否模块文件中的所有过程都必须被调用才能执行？
提示:
参考讲义中的上机调试题调试方法，将标准模块文件加入到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． 应用程序界面设计参考图示。