在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine 属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为 Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"）（如图所示）。
要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算数组中大于或等于400并且小于800的所有数之和，把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件result.txt中。（在prog.bas 中的putdata过程可以把结果存入result.txt文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）。
注意：文件必须存放在考生文件夹下，窗体文件名为wy7.frm，工程文件名为wy7.vbp，计算结果存入result.txt，否则没有成绩。
新建一工程，在上面放置一文本框设置其MultiLine属性为True，ScrollBars属性为True，再建立两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"），整个工程的代码如下：
Dim i(1 To 100) As Integer
Private Sub Cmd1_Click()
Dim j As Integer
j = 0
Open App.Path & "\in.txt" For Input As #1
For j = 1 To 100
Input #1, i(j)
Next
Close #1
For j = 1 To 100
Text1.Text = Text1.Text & i(j) & Space(5)
Next
End Sub
Private Sub Cmd2_Click()
Dim temp As Long
Dim j As Integer
For j = 1 To 100
If i(j) >= 400 And i(j) < 800 Then
temp = temp + i(j)
End If
Next
Text1.Text = temp
putdata temp
End Sub
（1）在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗口中有一个RichText文本框控件（名称为rtx1）和一个文本框控件（名称为Text1），两个命令按钮，名称分别为Command1和Command2，标题分别为"加入WY01.TXT"、"统计字符个数"。要求程序运行后，单击command1将考生文件夹下的wy01.txt的内容显示到rtx1中；单击"统计字符个数"按钮统计Text1中有多少个字符，将结果显示在Text1中。
***********************************************************************
（2）在考生文件夹下有工程文件wy6.vbp及窗体文件wy6.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个名为Image1的图像框，要求程序运行后，鼠标左键点击图像框，则图像框变大；鼠标右键点击图像框，图像框变小。
1、RichTextBox控件：RichTextBox控件给用户提供了很多比常用的TextBox控件更高级的格式和功能，允许用户进行多样式的输入和编辑。
语法：
RichTextBox
2、Count属性：返回Long（长整数），包含集合中的对象数目。
MouseDown、MouseUp事件
这些事件是当按下或者释放鼠标按钮时发生。
参数Button用来标识按下或释放的鼠标按钮，Button为1，表示鼠标左键；Button为2，表示鼠标右键；Button为4，表示鼠标中间键。
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为From1的窗体上放置一个名称为Drive1的DriveListBox控件，一个名称为Dir1的DirListBox控件和一个名称为File1的FileListBox控件。程序运行时，可以对系统中的文件进行浏览；当双击File1中的文件名时，用MsgBox显示文件名（不显示路径名）。
*注意：
程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为wy1.frm，工程文件名为wy1.vbp。
**********************************************************************
（2）在名称为Form1的窗体上放置一个名为Text1 的文本框控件和一个名为Timer1的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。
*注意：
程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名为wy2.vbp（如下图所示）。
1、1)DriveListBox1、1)DriveListBox控件：该控件用来显示用户系统中所有有效磁盘驱动器的列表。可以创建对话框，通过它从任一可用驱动器的磁盘文件列表中打开文件。2) DirListBox控件：这个控件可以显示分层的目录列表。例如，可以创建对话框，在所有可用目录中，从文件列表打开一个文件。
3) FileListBox控件：该控件用来显示所选择文件类型的文件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组文件。
语法：
DriveListBox
DirListBox
FileListBox
2、Time函数用来返回当前的系统时间，因此本题的做法可以是：
在窗体的Load事件中，执行这条语句：
Text1.Text = Time
将计时器的Interval属性设置为1000毫秒，在计时器的Timer事件中执行如下语句：
Text1.Text = Time
基础题(1) 【解题思路】ControlBox属性：确定程序运行时是否在窗体上显示控件菜单栏，MaxButton属性：确定标题栏是否显示最大化按钮，MinButton属性：确定标题栏是否显示最小化按钮。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.153和表3.154。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题(2) 【解题思路】根据题意，在单击命令按钮事件过程中，通过设置FontBold和FontItalic属性，使文本框的内容显示为粗体格式或斜体格式。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.155和表3.156。 表3.155 表3.156
步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Text1.FontBold = True End Sub Private Sub Command2_Click() Text1.FontItalic = True End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(1)【解题思路】根据题意，在计时器的Timer事件中控制文本框中数字的显示。并在Select Case语句中，依据所选单选按钮索引号的不同，为计时器设置不同的Interval 属性值。在"开始"和"停止"命令按钮的单击事件过程中分别启动和停止计时器。为使计时器在初始状态下不计时，还需在设计时将其Enabled属性值设置为False。 【操作步骤】 步骤1：打开本题工程文件，计时器的Enabled属性设置为False。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Op1_Click(Index As Integer) 'Select Case ? Case 0 Timer1.Interval = 1000 Case 1 Timer1.Interval = 3000 End Select End Sub Private Sub Timer1_Timer() 'Text1.Text =？.Text + 1 End Sub 程序结束 参考答案 第1个？处填入：Index
基本题(1) 【解题思路】MaxLength属性设置文本框中输入的字符串长度是否有限制。默认值为0，表示该单行文本框中字符串的长度只受操作系统内存的限制；若设置为大于0的数，则表示能够输入的最大字符数目。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.162。 表3.162 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基本题(2) 【解题思路】按照题目要求设置标签和命令按钮的属性，在命令按钮的Click事件过程中，通过设置标签的FontSize属性值实现标签内容字体的放大和还原。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.163和表3.164。 表3.163 表3.164 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize + 2 End Sub Private Sub Command2_Click() Label1.FontSize = 12
End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(1) 【解题思路】在Cmd Click 事件过程中，通过Select Case语句判断选择命令按钮数组的Index属性值，Case 0表示单击"开始"按钮，计时器Timer1和"暂停"按钮的Enabled属性为True，状态变为可用，且如果Cmd(0)的Caption属性是"开始"按钮，那么Cmd(0)的Caption属性变为"继续"，且Cmd(0)为不可用，单击"继续"按钮，则Timer1接着开始工作，"继续"按钮变为不可用，"暂停"按钮变为可用。同理Case 1表示单击"暂停"按钮，则Timer1停止工作，"暂停"按钮变为不可用，"继续"按钮变为可用；Case 2表示单击"结果"按钮，则结束程序运行。 Timer1 Timer 事件过程通过If判断语句，实现秒向分钟，分钟向小时的转换，并在三个文本框中显示出来。 【操作步骤】 步骤1：打开本题工程文件，画1个计时器timer1，设置计时器Interval属性为1000，Enabled属性设置为False。 步骤2：分析并编写程序代码。 程序提供代码 Dim t(3) As Integer Private Sub Cmd_Click(Index As Integer) ' Select Case ? Case 0 'Timer1.Enabled = ? Cmd(1)．Enabled = True If Cmd(0)．Caption = "开始" Then Cmd(0)．Caption = "继续" End If 'Cmd(0)．Enabled =? Case 1 Timer1.Enabled = False Cmd(0)．Enabled = True Cmd(1)．Enabled = False Case 2 End End Select End Sub Private Sub Timer1_Timer() t(3) = t(3) + 1 ' If t(3) = ? Then t(3) = 0 t(2) = t(2) + 1 If t(2) = 60 Then t(2) = 0
91: （1）【考点分析】本题考点有ComboBox控件的属性设置，窗体Caption属性。 【解题思路】在窗体上添加控件后，要设置控件的相关属性，使其外观、数据与图示相同。【操作步骤】 步骤1：新建一个窗体，在窗体上添加一个ComboBox控件。 步骤2：设置这个ComboBox控件的名称为Cbo1，Style属性为"1-Simple Combo"，List 值输入北京、天津、上海. 步骤3：设置窗体Caption属性为"使用组合框"。 步骤4：测试并运行程序，关闭程序后按题目要求存盘。 （2）【考点分析】本题考点有：窗体的Caption属性，窗体的单击事件，PictureBox控件的Print方法。 【解题思路】单击窗体，则改变窗体标题和PictureBox控件的显示文本，说明在窗体的Click事件中执行了改变以上相关属性的语句。改变窗体标题可直接对Caption属性赋值，改变PictureBox控件的显示文本可以使用它的Print方法。 【操作步骤】 步骤1：新建工程，设置窗体Capion属性为"程序设计"。 步骤2：在窗体上添加PictureBox控件，设置名称为P1。 步骤3：打开代码编辑窗口，在Form的Click事件下编写如下代码。 参考答案 P1.Print Caption Caption = "Basic" 步骤4：测试并运行程序，关闭程序后按题目要求存盘。 92: （1）【考点分析】本题考点是Image控件的属性、CommandButton控件的Tab属性。 【解题思路】使用图像随着控件的大小而变化，需要设置Image控件的Stretch属性为True。而窗体运行时按回车按即执行按钮的Click事件，需要设置按钮控件的TabIndex属性为0，TabStop属性为True。 【操作步骤】 步骤1：新建一个工程。 步骤2：在窗体上添加一个Image控件，一个Button控件。控件的主要属性设置如下表。 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【考点分析】本题考点是CommonDialog控件的添加使用，菜单的添加和事件设置。 【解题思路】通用对话框是一种ActiveX控件，在一般情况下，启动VB后，在工具箱中没有通用对话框控件。为了把通用对话框控件加到工具箱中，其操作步骤如下：执行"工程"菜单中的"部件"命令，打开"部件"对话框。在对话框中选择"控件"选项卡，然后在控件列表框中，选择"Microsoft Common DialogControl 6.0"。单击"确定"按钮，通用对话框立即被加到工具箱中，通用对话框的属性可以在属性窗口中直接设置。 菜单的添加可以在窗体上右击，选择"菜单编辑器"来创建和修改。 【操作步骤】 步骤1：新建一个工程。如果工具箱中没有通用对话框控件，则通过菜单"工程"-"部件"
基本题(1) 【解题思路】按照题目要求，通过图像框的Name、Width、Height题Picture属性设置图像框，Stretch属性用于设置图像框中的图形能自动放大或缩小以与图像框的大小相适应。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中涉及的控件及属性见表3.127。 表3.127 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基本题(2) 【解题思路】在Command1_Click事件过程中，通过列表框的AddItem和RemoveItem方法将选中的列表项内容复制到已有列表项的尾部；在Command2_Click事件过程中，通过列表框的RemoveItem方法将选中的列表项内容删除。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.128。 表3.128 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() List1.AddItem List1.Text List1.RemoveItem List1.ListIndex End Sub Private Sub Command2_Click() List1.RemoveItem List1.ListIndex End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(1) 【解题思路】在计时器的Timer事件过程中，通过设置标签的Left属性值使其在原有基础上
加100来实现自左向右移动的功能。在"开始"按钮的单击事件过程中应启动计时器，禁用"移动"按钮，并改变其标题为"暂停"。在"退出"按钮的单击事件过程中要通过End语句停止程序。 【操作步骤】 步骤1：打开本题工程文件，并设置控件的属性。程序中涉及的控件及属性见表3.129。 步骤2：分析并编写程序代码。 程序提供代码 Dim flag As Integer Private Sub Form_Load() flag = 0 End Sub Private Sub Command1_Click() If Command1.Caption = "移动" Then 'Timer1.Enabled = ? Command1.Caption = "暂停" Else Timer1.Enabled = False Command1.Caption = "移动" End If End Sub Private Sub Command2_Click() End End Sub Private Sub Timer1_Timer() Select Case flag Case Is = 0 ''Label1.Left = Label1.Left ? 100 If Label1.Left + Label1.Width = Form1.Width Then flag = 1 Case Is = 1 'Label1.Left = Label1.Left ? 100 If Label1.Left = 0 Then flag = 0 End Select End Sub
第2章使用窗体控件 课堂练习：为控件创建事件处理程序 5）传递给这个事件处理程序的第二个参数(e)的目的是什么？ 答：参数e包含事件数据。它是一个EventArgs 对象（实际不包含事件数据的基类），或者是一个派生类（像MouseEventArgs）的实例。要查看派生类的完整列表，请在Visual Studio .NET帮助文档中使用短语“EventArgs 类”进行查找，然后点击链接转到“派生类”。 ●为Click 事件创建一个事件处理程序。 3）上面的双击动作为什么创建了一个Click 事件处理程序？ 答：当在设计视图中双击一个控件时，IDE会自动为默认事件创建一个事件处理程序。课堂练习：创建和使用ToolBar控件 8）为什么不能向ToolBar 按钮添加图像呢？ 答：ToolBar 控件将ImageList 控件作为图像源。使用ToolBar 控件的ImageList 属性指定Toolbar 将从哪个ImageList 控件获取图像。 13）运行应用程序。单击工具栏按钮时有事情发生吗？必须处理什么事件以响应单击ToolBar按钮？ 答：ToolBar 的ButtonClick事件用来处理ToolBar按钮的单击。ToolBarButtonClickEventArgs 用来确定单击了哪个按钮。 课堂练习：在运行时添加和移除控件 ●添加新控件 6）为什么decimalCheckBox 出现在GroupBox1控件的左上角？ 答：控件位置属性的默认坐标X和Y的值均为零。 课堂练习：在运行时更新菜单 ●使用另一个MainMenu 9）什么时候能在一个应用程序中使用多个MainMenu 控件? 答：在应用程序的上下文改变或者应用程序有多种状态时，使用（显示）多个MainMenu 对象会很有帮助。 ●将一个ContextMenu 分配给一个控件。 5）如何找出哪个控件与ContextMenu 有关联？ 答：ContextMenu.SourceControl 属性获取显示快捷方式菜单的控件。 ●找出与ContextMenu关联的控件
1、编写程序，用文本框检查口令输入。在窗体上建立一个文本框、一个图片框和三个命令 按钮，把三个命令按钮的标题分别设置为“开始”、“检查口令”和“结束”。程序运行后，单击第一个命令按钮，清除文本框中的信息，并把光标移到文本框中；在文本框中输入口令；单击第二个命令按钮，检查输入口令是否正确。如果正确，则在图片框中显示图形；否则显示信息框，要求重新输入，此时调用第一个命令按钮的Click 事件过程，重新在文本框中输入口令，直到输入口令正确为止。如果单击“结束”按钮，则结束程序。画出界面设计，属性列表，写出相关事件过程代码。 答：Text1 PasswordChar = "*" Command3 Caption = " 结束" Command2 Caption = " 检查口令" Command1 Caption = " 开始" Image1 Stretch = True Visible = False Label1 Caption = " 口令"
Option Explicit Dim msg As String Const password = "1234" Private Sub Command1_Click( Text1.Text = "" Image1.Visible = False Text1.SetFocus End Sub Private Sub Command2_Click( If Text1.Text = password Then Image1.Visible = True Else msg = "口令不对，请重新输入！" MsgBox msg Call Command1_Click End If End Sub Private Sub Command3_Click( End
窗体中的常用控件单选3分 1.在计算机控件中，每个表达式前都要加上（"="） 2.用于显示更新数据库中的字段的控件类型是（绑定型） 3.关于控件的叙述，（选项组不能设置为表达式）的说法正确 4.（表）不是窗体控件 5.纵栏式窗体同一时刻能显示（一条记录） 6.无论是自动创建窗体还是报表，都必须选定要创建该窗体或报表基于的（报表） 7.没有数据来源的控件类型是（非绑定型） 8.关于控件的叙述，（在窗体设计视图窗口中的工具箱中只能看到部分控件）说法错误 9.能够接受数字型数据输入的窗体控件是（文本框） 10.在教师信息输入窗口中，为职称字段提供"教授""副教授""讲师"等选项供用户直接选择，应使用控件是（组合框） 11.要用文本框来显示当前日期，应设置文本框的控件来源属性是（=Data（）） 12.窗口事件是指操作窗口时所引发的事件，（取消）不属于窗口事件 13.如果想再加入控件时，控件自动与网格对其，则应在加入控件前，执行"格式（对其网格）"命令 14.当窗体的内容比较多无法在一页中全部显示时，可以使用（选项卡）进行分页，若要进行页面切换，用户只需单击选项卡上的标签即可 15.（选项组）是用来显示一组有限选项集合的控件 16.在学生表中使用"照片"字段存放相片，当使用向导为该表创建窗体时，照片字段使用的默认控件是（绑定对象框） 17.为窗体上的控件设置Tab键的顺序，应选择属性对话框中的（数据选项卡） 18.使用窗体设计视图，不能创建（报表） 19.如果在窗体上输入的数据总是取自某一个表或查询中记录的数据，或者取自某固定内容的数据，可以使用（组合框或列表框）控件 20.（只要单击选项组中所需的值，就可以为字段选定数据值）的说法正确 21.（命令按钮）代表一个或一组操作 22.（可以向组合框中输入新值，而列表框不行） 23.创建窗体的数据源不能是（报表） 24.若要求在文本框中输入文本时达到密码"*"号的显示效果，则应设置的属性是（"输入掩码"属性） 25.（窗体设计器）不是窗体的组成部分 26.关于控件的叙述，（在选项组中每次只能选择一个选项）的说法是正确的 27.
基础题（1) 【操作步骤】 步骤1：新建一个窗体，在窗体上创建一个文本框控件。 步骤2：在属性窗口中，设置其Text属性为空。 步骤3：在文本框下方绘制一个命令按钮Command1。 步骤4：在属性窗口中，将Caption设置为"上一条记录"。 步骤5：复制命令按钮"上一条记录"，在窗体的空白位置处粘贴对话框，单击"是"按钮，创建一个控件数组。 步骤6：再创建3个命令按钮. 步骤7：按照题目要求将复制的3个命令按钮的Caption分别设置为"下一条记录"、"第一条记录"和"最后一条记录"，并将窗体的Caption设置为"显示记录"。 步骤8：选择"上一条记录"命令按钮，通过属性窗口设置Enable为False，选择"下一条记录"命令按钮，通过属性窗口设置Default为True.。 步骤9：将文件保存至考生文件夹下，且设置窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。基础题(2) 【操作步骤】 步骤1：打开VB开发环境，新建一个窗体。 步骤2：在窗体中添加一个标签控件Lable1，在属性窗口中设置标签的Caption属性为"等级考试"，然后设置其AutoSize属性为True，设置其BorderStyle属性为1。 步骤3：然后在窗体中添加一个计时器Timer1，设置其Interval属性为0，Enabled属性为True。步骤4：打开代码窗口，编写代码如下。 Private Sub Form_Load() Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Label1.Visible = Not Label1.Visible End Sub 步骤5：运行程序，然后将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。 简单题(1) 【操作步骤】 步骤1：打开本题工程文件。
1：在“窗体视图”中显示窗体时，窗体中没有记录选定器，应将窗体的“记录选定器”属性值设置为 A、是 B、否 C、有 D、无 2：如果在文本框内输入数据后，按Enter键或按Tab键，输入焦点可立即移至下一指定文本框，应设置的属性是______。 A、"制表位"属性 B、"Tab键索引"属性 C、"自动Tab键"属性 D、"Enter键行为"属性 3：在教师信息输入窗体中，为职称字段提供"教授"、"副教授"、"讲师"等选项供用户直接选择，最合适的控件是______。 A、标签 B、复选框 C、文本框 D、组合框 4：在学生表中用"照片"字段存放相片，当使用向导为该表创建窗体时，照片字段使用的默认控件是______。 A、图形 B、图像 C、绑定对象框 D、未绑定对象框 5：下列属性中，属于窗体的"数据"类属性的是______。 A、记录源 B、自动居中 C、获得焦点 D、记录选择器 6：在Access中为窗体上的控件设置Tab键的顺序，应选择"属性"对话框的 ______。 A、"格式"选项卡 B、"数据"选项卡 C、"事件"选项卡 D、"其他"选项卡
7：若在"销售总数"窗体中有"订货总数"文本框控件，能够正确引用控件值的是______。 A、Forms.[销售总数].[订货总数] B、Forms![销售总数].[订货总数] C、Forms.[销售总数]![订货总数]: D、Forms![销售总数]![订货总数] 8：主窗体和子窗体通常用于显示多个表或查询中的数据，这些表或查询中的数据一般应该具有的关系是______。 A、一对一 B、一对多 C、多对多 D、关联 9:能够接受数值型数据输入的窗体控件是______。 A、图形 B、文本框 C、标签 D、命令按钮 10:下列可用于创建窗体或修改窗体的视图是______。 A、设计视图 B、窗体视图 C、数据表视图 D、透视表视图 11：设计窗体时，可通过设置命令按钮的一个属性来指定按钮上要显示的文字，该属性是______。 A、名称 B、标题 C、格式: D、图像 12：在窗体设计时，要设置标签文字的显示格式应使用______。 A、格式工具栏 B、字段列表框 C、工具箱 D、窗体设计工具栏 13：下列关于窗体的叙述中，正确的是______。 A、窗体只能用作数据的输出界面 B、窗体可设计成切换面板形式，用以打开其他窗体 C、窗体只能用作数据的输入界面:
第7章窗体的创建和操作第1题 打开“窗体的创建和操作\1”文件夹，在此文件夹下的“samp7-1.mdb”数据库文件中已建立好窗体fTest。试按以 下操作要求完成窗体的编辑修改。 1、将窗体的“标题”属性设置成“等级考试”。 2 3 4 5 \1” 6 为fTT 选择对象为窗 体页眉 设置窗体“页 眉”不显示 设置“记录选 择器”为“否” 设置“关闭搂钮” 为“否”（功能无 选择属性类别 为“格式”
第2题 打开“窗体的创建和操作\2”文件夹，在此文件夹下有数据库文件“samp7-2.mdb ”， 其中已设计好窗体fStaff 。试在此基础上按以下要求补充窗体设计。 1、在窗体的窗体页眉节区添加一个标签控件，其名称为bTitle ，标题显示为“员工信息输出”。 2、在主体节区位置添加一个选项给控件，将其命名为opt ，选项组标签显示内容为“性别”，名称为bopt 。 3、在选项组内放置两个单选按钮，选项按钮分别命名为opt1和opt2，选项按钮名称分别为“男”和“女”，名称分别为bopt1和bopt2。 4、在窗体页脚节区位置分别添加两个命令按钮，分别命名为bOk 和bQuit ，按钮标题分别为“确定”和“退出”。 5、将窗体标题设置为“员工信息输出” 。
第3题 打开“窗体的创建和操作\3”文件夹，在此文件夹下有数据库文件“samp7-3.mdb ”， 其中已设计好窗体fTest 。试在此基础上按以下要求补充窗体设计。 1、在窗体的窗体页眉节区添加一个标签控件，其名称为bTitle ，标题显示为“窗体测试样例”。 2、在窗体主体节区内添加两个复选框控件，复选框选项控件分别命名为opt1和opt2，对应的复选框标签显示内容分别为“类型a ”和“类型b ”，标签名称分别为bopt1和bopt2。 3、分别设置复选框选项按钮opt1和opt2的“默认值”属性为假值。 4、在窗体页脚节区位置分别添加一个命令按钮，动作为打开表tTest ，命名为bTest ，按钮标题为“测试”。 5、将窗体标题设置为“测试窗体” 。
Access窗体操作题 2、考生文件夹下存在一个数据库文件"Access3.mdb"，里面已经设计好窗体对象"教师"。试在此基础上按照以下要求补充窗体设计： （1）在窗体的窗体页眉节区位置添加一个标签控件，其名称为"bTitle"，标题显示为"教师奖励信息"；（2）在主体节区位置添加一个选项组控件，将其命名为"opt"，选项组标签显示内容为"奖励"，名称为"bopt"； （3）在选项组内放置二个单选按钮控件，选项按钮分别命名为"opt1"和"opt2"，选项按钮标签显示内容分别为"有"和"无"，名称分别为"bopt1"和"bopt2"。 （4）在窗体页脚节区位置添加两个命令按钮，分别命名为"bOk"和"bQuit"，按钮标题分别为"确定"和"退出"； （5）将窗体标题设置为"教师奖励信息"。 注意：不允许修改窗体对象"教师"中已设置好的属性。 等级：3 难度：3 知识点：access知识点/窗体题 3、考生文件夹下存在一个数据库文件"Access3.mdb"，里面已经设计好窗体对象"教师"。试在此基础上按照一下要求补充窗体设计： （1）在窗体的窗体页眉节区位置添加一个标签控件，其名称为"bTitle"，标题显示为"教师基本信息输出"；（2）在主体节区中"年龄"标签右侧的文本框显示内容设置为"年龄"字段值，并将文本框名称更名为"tAge"；（3）在主体节区添加一个标签控件，该控件放置在距左边0.1厘米、距上边5.0厘米，标签显示内容为"出生地"，名称为"bMem"； （4）在窗体页脚节区位置添加两个命令按钮，分别命名为"bOk"和"bQuit"，按钮标题分别为"确定"和"退出"； （5）将窗体标题设置为"教师基本信息"。 注意：不允许修改窗体对象"教师"中未涉及的控件和属性。
在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine 属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为 Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"）（如图所示）。 要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算数组中大于或等于400并且小于800的所有数之和，把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件result.txt中。（在prog.bas 中的putdata过程可以把结果存入result.txt文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）。 注意：文件必须存放在考生文件夹下，窗体文件名为wy7.frm，工程文件名为wy7.vbp，计算结果存入result.txt，否则没有成绩。 新建一工程，在上面放置一文本框设置其MultiLine属性为True，ScrollBars属性为True，再建立两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"），整个工程的代码如下： Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim j As Integer j = 0 Open App.Path & "\in.txt" For Input As #1 For j = 1 To 100 Input #1, i(j) Next Close #1 For j = 1 To 100 Text1.Text = Text1.Text & i(j) & Space(5) Next End Sub Private Sub Cmd2_Click() Dim temp As Long Dim j As Integer For j = 1 To 100 If i(j) >= 400 And i(j) < 800 Then temp = temp + i(j) End If
第九章控件综合试题 一、填空题 1．在图片框上放置的控件称为图片框的(子)对象，而窗体是图片框的(父)对象。2．窗体的“名称”(Name)属性只能在(属性窗口中)设置。 3．在程序中设置窗体Form1的Caption属性为"主窗体"，使用的赋值语句是(Form1.Caption="主窗体")。 4．当窗体的Enabled属性为(True)时，指定窗体响应事件。 5．窗体的Unload事件是在QueryUnload事件发生之(后)发生。 6．程序中，把当前窗体移动到屏幕左上角使用的方法为(Move0,0)。 7．在窗体Form1中坐标为(1600,800)的位置上输出字符串“Visual Basic 6.0”使用的语句为(Form1.Currentx=1600)、(Form1.Currenty=800)、和(Form1.Print "VisualBasic6.0")。 8．若使文本框有边框，需设置BorderStyle属性的值为(1)。 9．在程序运行期间，用户可以用文本框显示信息。文本框接收输入的内容的属性是 (Text)。 10．若使文本框内能够接受多行文本，则要设置Multiline属性的值为(True)。11．要把图形文件“C:\sample\diannt.jpg”装载到图片框Picture1上，使用的语句为(Picturel.Picture=LoadPicture("C:\sample\diannt.jpg"))。 12．若使图片框自动调整大小以适应装入的图形，则要设置Autosize属性的值为(True)。 13．除了在程序使用LoadPicture函数装载图形外，还可以在设计阶段通过修改(Picture)属性装载图形。 14．若程序中要把一些文本内容输出到图片框PictureBox，应使用(Print)方法。 15．当单选按钮OpdonButton的Value属性为(False)时，表示该单选按钮处于未选中状态。 16．若使命令按钮Command1重新生效，则使用的赋值语句为(Command1.Enabled=True)。 17．若使命令按钮不能接收和响应任何事件，可以设置Visible属性的值为(False)。
实验四、创建和使用窗体 窗体是将一个或多个表或查询的某些字段进行格式化排列后的视图，简单的说，窗体可以看作是表或查询的另一种视图方式。在这种视图方式中，用户可以更方便简单的进行数据记录的查看和输入。 1．使用向导创建窗体 在创建窗体之前，应先确定窗体将基于什么表来创建以及窗体将如何使用。例如，在第一个练习中，我们依据【学生信息表】创建一个用于查看和输入学生信息的窗体。 （1）打开实验四目录下的“图书管理”数据库。 （2）在数据库窗口左侧的“对象”栏中单击“窗体”，双击“使用向导创建窗体”启动窗体向导。 （3）该窗口用于确定窗体中包含哪些字段，在“表/查询”下拉菜单中选择“表：学生信息表”，则“可用字段”中列出所有该表中包含的字段，单击全选按钮， 将所有字段添加到“选定的字段”区域中（也就是说我们要创建的新窗体中将包 含该表中的所有字段），如图4-1所示，单击“下一步”按钮。 图4-1 窗体创建向导 （4）在第二步的窗口中用于确定窗体显示的布局，使用缺省的选项“纵栏表”，如图4-2所示，单击“下一步”按钮。 图4-2 选择窗体布局
（5）在所列出的窗体样式中任意选择其中一种，单击“下一步”按钮。 （6）保留系统为窗体指定的标题“学生信息表”，保留“打开窗体查看或输入信息” 单选项，单击“下一步”按钮。 此时，新的窗体创建完成，并显示出“学生信息表”中的第一条记录。如图4-3所示，左侧一列为表的字段标题，右侧一列为每条记录对应字段的数据值。 图4-3 学生信息表窗体 （7）单击窗体底部的按钮，可以查看其他记录。其中，单击查看下一条记录，单击查看最后一条记录，单击查看上一条记录，单击查看第一条记录， 而单击可以输入新记录。 当数据表中记录比较多时，也可以利用向导创建“表格”式窗体，例如，创建“书籍目录表”窗体，创建过程与上述过程相同，只是在上述步骤（4）的图4-2中选择“表格”式即可。创建完成的“书籍目录表”窗体将如图4-4所示。 图4-4 书籍目录表窗体 2．调整窗体布局 对于已经创建完成的窗体，可以通过设计视图对它的布局作进一步修改。 （1）在数据库窗口“窗体”列表中，双击“学生信息表”。 （2）打开窗体后，单击工具栏中“设计”按钮，进入窗体的设计视图，如图4-5所示。
常用窗体控件： String str=””; Foreach(Control item in this.Controls) { If(https://www.doczj.com/doc/f99996656.html,.IndexOf(“checkBox”)>0) { CheckBox ck=(CheckBox)Item; If(ck.Checked) { Str=ck.Text+”,”; } } }
高级窗体控件： 1.菜单控件MenuStrip 使用步骤： ①在Windows窗体中添加一个MenuStrip控件 ②单击该控件的Items属性，弹出“项集合编辑器”对话框 ③可以添加MenuItem子项。子项的子菜单 选择其“MenuItem”选项，单击其 DropDownItems属性，弹出相接对话框 ①选中要添加右键功能的Form或者控件，打开控件的设计页面 ②从工具箱中找到ContextMenuStrip控件，将这个控件拖曳到Form或者控件的设计页 面上。这时系统就会在这个页面下面自动创建一个contextMenuStrip1控件，如果你想在这个页面添加多个菜单，那么你也可以拖曳多个这种控件到设计页面上。 ③按照你的要求将这些ContextMenuStrip控件改成你需要的名称。然后, 选择需要右 键弹出菜单的页面，比如你当前编辑的页面中有一个DataGrid,一个T reeList，而你想分别为这两个控件添加不同的右键菜单。那么你就可以先选择DataGrid控件，然后在这个控件的属性中找到ContextMenuStrip属性，点击该属性，系统会自动查找你拖曳到当前页面的所有ContextMenuStrip控件并将这些控件罗列在这个属性的下拉菜单中。你可以选择一个你预先定义好的ContextMenuStrip控件。这样就为这个DataGrid控件设置了右键菜单。其他控件也使用同样的方法添加。 ④定义你的菜单，在为控件分配完菜单之后，你就可以定义单个的菜单。这时你可以 选中一个ContextMenu控件。系统会自动在编辑页面的上面现一个可编辑的动态菜
[教案] (四）窗体的设计 授课方式：讲授法 授课学时：1学时 教学目的： 通过本次课的学习，学生应该掌握窗体的常用属性、事件和方法，掌握多种窗体的建立方法，学会设置启动窗体和启动工程。 教学重点和难点： 1．窗体的常用属性、常用事件以及窗体的五种方法； 2．多重窗体的建立 教学过程： 4.1 窗体的属性、事件和方法 一、窗体的常用属性 介绍窗体的Name属性、Picture属性和AutoRedraw属性 二、窗体的常用事件 通过例题来详细讲解窗体的以下几种常用事件 ——Load事件与Unload事件；Click事件与DblClick事件；KeyPress事件、KeyDown 事件和KeyUp事件；MouseMove事件、MouseDown事件和MouseUp事件；Resize 事件；Activeate事件与Deactivate事件 1．事件的具体应用情况 2．触发事件的条件 三、窗体的常用方法 通过例题使学生掌握以下五种方法的应用Cls方法、Hide方法与Show方法、Move 方法和Print方法 1．每个方法的具体功能和用途 2．方法调用的语法格式 4.2 多重窗体 一、设置启动窗体 使学生掌握启动窗体设置的步骤 二、设置启动工程 使学生掌握启动工程设置的两种方法
学生作业： 上机实验二：窗体的使用 （五）文本框和标签 授课方式：讲授法 授课学时：1学时 教学目的： 通过本次课的学习，学生应该能会使用文本框处理字符信息，能灵活使用文本框的属性、方法和事件，掌握使用标签控件显示字符信息的方法，并且能够灵活使用标签控件的属性、方法和事件。 教学重点和难点： 1．文本框控件的属性、方法和事件； 2．标签控件的属性、方法和事件。 教学过程： 第1节文本框和标签 一、文本框控件（Textbox） 1．介绍文本框在VB中的用途。 2．掌握以下9个文本框的主要属性 （1）Text、（2）MaxLength（3）MultiLine（4）ScrollBars（5）Locked（6）SelStart （7）SelLength（8）SelText（9）PasswordChar 3．掌握文本框的一个主要方法——SetFocus方法 （1）本方法的应用情况 （2）它的语法格式：[对象．] SetFocus 4．掌握文本框的4个主要事件 ——Chang事件、KeyPress事件、LostFocus事件和GotFocus事件 （1）掌握事件的应用情况 （2）掌握触发事件的条件 5．举例说明 讲解一道利用文本框来实现复制、剪贴和粘贴功能的例题，通过此例题的讲解使学生更加熟练的掌握有关文本框控件的常用属性、方法和事件。 二、标签控件(Label) 1．介绍标签在VB中的用途以及它的实际应用环境。 2．掌握以下4个标签的主要属性：
VB试题 一，填空 1.在文本框控件内输入，属性，可以屏蔽用户输入的密码，通过设置文本框的，属性，可以输入多行文本。 2.文本框的英文写法是，，标签的英文写法是。 3.文本框的scrollbars属性为2是，显示滚动条。 4.文本框的常用方法是setfcus,语法格式为：,可以将焦点移到文本框控件，如果一个名字为“textbox1”的文本框，想把焦点移至它的文本框，语法内容为。 5.文本框的sellength,selstart,seltext,这些属性用于对文本框的文本进行选定操作。其中，sellength属性返回或设置所选择的，selstart返回或设置所选择的文本的，，seltext属性返回或设置包含当前所选择文本的，如果没有选择字符，则为零字符串长度（“”）。 6.文本框的tabindex属性，可以返回或设置文本框访问键的顺序。 7.文本框的常用事件包括： （1）当文本框的内容发生改变时发生此事件 （2）和这些事件是当一个控件具有焦点时按下或松开一个键时发生。 8. 1.阴影字效果是可用位置上有一定偏移的标签来生成，这两个标签相应是。他们的前景颜色不一样，用作下方的标签作为，其前景颜色可以设为深灰色。阴影字效果是鼠标指向标签时出现，鼠标离开标签时消失，可通过标签和窗体的事件过程来设置。 2.新建的vb中的EXE程序一般有两个文件，分别是他们的扩展名分别是。 的汉语意思是 的汉语意思是。 的汉语意思是。 Forecolor的汉语意思是
6.运行程序的快捷键是 7.标签控件具有一些方法，其中最常用的是MOVE方法，用于在窗体上移动标签控件，语法格式如下：left,top,width,height 其中和是必选的，分别指定objict左边的水平坐标和顶边的垂直坐标。
第七章 窗体 第一节 认识窗体 第二节 使用向导创建窗体 第三节 自定义窗体 第四节 美化窗体 本章考点 第一节 认识窗体 一、窗体的概念 二、窗体的类型 三、窗体的视图 四、窗体的组成 一、窗体的概念 又称窗口，是系统和用户之间的接口，它为用户使用系统，对数据库中的数据进行各种操作提供了一个简单、形象、易懂的界面。 一个软件的操作界面就是由各种功能不同的窗体组成的。 二、窗体的类型 根据窗体的样式，分为以下６类： １．纵栏式窗体：一个窗体只显示一个记录，格式可自由设计。２．表格式窗体：一个窗体显示多条记录。 ３．数据表窗体：以表格方式显示记录，但OLE对象型数据不显示，一般用来作为一个窗体的子窗体。 ４．主／子窗体：分别在不同的窗口中显示有关联的主子表中数据。５．图表窗体：以图表形式显示表中数据。 ６．数据透视表窗体：以交叉表格式显示表中数据。 三、窗体的视图 显示窗体不同内容的窗口。 １．设计视图：显示窗体结构，用于设计窗体。 ２．窗体视图：用于观察窗体运行时的状态。 ３．数据表视图：以表格方式显示窗体数据源。 4. 数据透视表视图 四、窗体的组成 一个窗体由多个部分组成，每个部分称为节。 一个窗体可以包含以下五类节： １．主体：位于窗体中间，用于设置窗体的主要部分。 ２．窗体页眉：位于窗体顶部，用于设置窗体标题。 ３．窗体页脚：位于窗体底部，用于显示窗体状态及说明信息。４．页面页眉：位于窗体页眉下部，主体上部，用于设置窗体打印时的
页头信息。 ５．页面页脚：位于窗体页脚上部，主体下部，用于设置窗体打印时的页脚信息。 注意：一个窗体必须有主体节，其它节可根据需要设置。 第二节 使用向导创建窗体 一、自动窗体 二、自动创建窗体向导 三、窗体向导 四、数据透视表向导 五、创建数据透视窗体 六、图表向导 一、使用自动窗体 例1：以教师表为数据源，使用自动窗体功能，创建教师窗体。 1. 表对象选中教师表 2. 插入菜单自动窗体 二、自动创建窗体向导 用于快速创建简单的（单数据源，且不能自由选择字段）纵栏式、表格式和数据表式窗体。 例2：创建以学生表为数据源的纵栏式窗体，名称为LF02。 １．单击新建按钮； ２．选择自动创建窗体中的一种类型； ３．在数据源组合框中选择数据源； ４．保存并指定窗体名称。 三、窗体向导 灵活创建各种类型的窗体。多数据源，且可自由选取字段，纵栏式、表格式、数据表式和主子窗体。 例3：创建包含学生编号、姓名、性别、年龄和照片的纵栏式窗体，名称为LF03。 １．启动窗体向导； ２．选择数据源（多）以及字段； ３．分别确定窗体布局（类型）和样式； ４．指定窗体标题（也即窗体名称）。 三、数据透视表向导 创建以类似于交叉表的格式显示表中数据的窗体。 例4：创建一个显示不同年龄男女学生人数的数据透视表窗体，名称为LF04。 １．启动“数据透视表向导”；
Excel VBA用户窗体常用的方法 2009-06-20 23:40 1、显示用户窗体 用于以编程方式显示用户窗体的语法是： 若要显示用户窗体名为 UserForm1，使用以下代码： 时可以加载到内存用户窗体而不实际显示它。可能需要复杂的用户窗体几秒钟才显示。可以预用户窗体加载到内存中，因为您可以决定何时引发此开销。但不显示加载到内存的 UserForm1，使用以下代码： Load UserForm1 您必须使用 Show 方法时以前显示的。 2、如何临时隐藏用户窗体 如果想要临时隐藏用户窗体，请使用隐藏方法。可以隐藏用户窗体，如果您的应用程序涉及用户窗体之间移动。若要隐藏用户窗体，使用以下代码： 3、如何从内存中删除用户窗体 要从内存中删除用户窗体使用在卸载语句。若要卸载一个名为 UserForm1 用户窗体，使用以下代码：Unload UserForm1 如果卸载与用户窗体或与用户窗体上的控件相关联的事件过程中用户窗体（例如，您单击CommandButton 控件)，您可以使用"Me"关键字而不是用户窗体的名称。要使用"Me"关键字卸载用户窗体，使用以下代码： Unload Me 4、如何使用用户窗体事件 用户窗体支持许多预定义的事件，您可以将附加 VBA 过程。在事件发生时, 该过程附加到该事件就会运行。由用户执行的单个操作可以启动多个事件。最频繁用户窗体使用的事件包括 Initialize 事件、 Click 事件和终止事件。
请注意 Visual Basic 模块包含事件的过程可能被称为"隐藏"用户窗体的模块。看 Microsoft Project Explorer 窗口的 Visual Basic 编辑器的 Modules 集合中不包含事件过程的模块。您必须双击用户窗体可以查看用户窗体的主体代码模块。 5、如何捕获用户窗体事件 要捕获用户窗体事件，请按下列步骤操作： 在 Excel 中创建一个新工作簿。 在工具菜单上指向宏，然后单击 Visual Basic 编辑器。 在插入菜单中上, 单击用户窗体插入您的工作簿的用户窗体。 双击用户窗体的用户窗体中显示代码窗口。 在模块中键入以下代码： Private Sub UserForm_Click() = Int(Rnd * 500) = Int(Rnd * 750) End Sub Private Sub UserForm_Initialize() = "Events Events Events!" = RGB(10, 25, 100) End Sub Private Sub UserForm_Resize() msg = "Width: " & & Chr(10) & "Height: " & copyright vbacn MsgBox prompt:=msg, Title:="Resize Event" End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) msg = "Now Unloading " &