课后练习1(窗体按钮标签文本框基本控件)

1、创建如下1a图所示的窗体，在属性窗口中将标签的字体设置为楷体。要求单击各按钮后标签的字体设置为黑体、20号、倾斜并加删除线，显示结果如图1b 所示。

图1a 图1b

2、MouseMove事件过程。设计如图所示的界面，当鼠标在窗体上移动时，在文本框中显示当前鼠标所在的坐标值。

3、Picture属性的使用。设计如图所示界面。要求在窗体上单击鼠标时，窗体显示图片；双击鼠标时卸载图片。

4、关于鼠标指针相关属性的设置。创建一个窗体，运行界面如图所示，其中“清

除”按钮不可用。将鼠标指向“输入”按钮时鼠标形状发生改变，当单击该按钮后，显示界面如图所示，“输入”按钮不可用，“清除”按钮可用，并显示文本框，将鼠标指向文本框时鼠标按钮形状改变，单击“清除”按钮后恢复界面

5、设计如图所示的界面。要求运行时，单击“打开窗体”按钮，打开一个新的窗体；单击“关闭”按钮，关闭打开的窗体；单击“退出”按钮，结束程序运行。

6、设计如图所示的界面用于密码验证。要求当用户输入用户名和密码后，单击确定按钮，则对用户名和密码进行验证。若不正确，则给用户提示信息，最多只允许输入三次；单击重新输入按钮，清除文本框的内容，并将光标定位到用户名输入框；单击退出按钮，结束程序。

7、设计一个窗体界面如图所示，该窗体完成类似记事本的功能。

8、关于LostFocus、GotFocus事件及SetFocus方法的使用。设计如图所示的简易加法计算器，输入2个加数并对输入数据的合法性进行检查，当光标进入第3

个文本框时自动计算结果并显示。

为Form1、标题为“文本框练习”的窗体上添加1个名称为Text1的文本框

基本题(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

vb基础应用答案

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、编写程序，用文本框检查口令输入。在窗体上建立一个文本框、一个图片框和三个命令 按钮，把三个命令按钮的标题分别设置为“开始”、“检查口令”和“结束”。程序运行后，单击第一个命令按钮，清除文本框中的信息，并把光标移到文本框中；在文本框中输入口令；单击第二个命令按钮，检查输入口令是否正确。如果正确，则在图片框中显示图形；否则显示信息框，要求重新输入，此时调用第一个命令按钮的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分

窗体中的常用控件单选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.

在Form1,标题为“显示记录”的窗体上画1个名称为Text1的文本框,其初始内容为空

基础题（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、窗体只能用作数据的输入界面:

vb实验七单选按钮、复选框、列表框和组合框实验报告

电子信息工程学系实验报告 课程名称：面向对象程序设计 实验项目名称：单选按钮、复选框、列表框和组合框 实验时间： 班级： 姓名： 学号： 一 实 验 目 的: 1） 掌握单选按钮和复选框的使用。 2） 掌握列表框的使用。 3） 掌握组合框的使用。 4） 区别几种控件的使用场合。 二 实 验 环 境: Windows XP Visual https://www.sodocs.net/doc/9b16996280.html, 2003 三 实 验 内 容 过 程 及 结 果 分 析: 一 复选框与列表框、组合框联动 1.创建界面 创建一个工程，由一个窗体组成，界面如下图所示，选择任意一个爱好，将自动想listbox 和combobox 中添加一个爱好。选择一个样式表，将改变combobox 的dropdownstyle 属性。 设计界面 2.设计各对象属性 可以利用属性窗口给listbox 或combobox 的items 属性添加列表项，单击items 右边的按钮，将出现字 符串集合编辑器，可以在其中预选定义列表项。

列表框和组合框的items属性设定界面 3.设计各对象的事件代码 设计checkbox的事件代码，使用户选择任意一个爱好时，向listbox和combobox中添加该爱好项，当用户不选择中某一爱好时，能移除该爱好。 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then ListBox1.Items.Add(CheckBox1.Text) ComboBox1.Items.Add(CheckBox1.Text) Else ListBox1.Items.Remove(CheckBox1.Text) ComboBox1.Items.Remove(CheckBox1.Text) End If End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged If CheckBox2.Checked Then ListBox1.Items.Add(CheckBox2.Text) ComboBox1.Items.Add(CheckBox2.Text) Else ListBox1.Items.Remove(CheckBox2.Text) ComboBox1.Items.Remove(CheckBox2.Text) End If End Sub Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged If CheckBox3.Checked Then ListBox1.Items.Add(CheckBox3.Text) ComboBox1.Items.Add(CheckBox3.Text) Else ListBox1.Items.Remove(CheckBox3.Text) ComboBox1.Items.Remove(CheckBox3.Text) End If End Sub

Access窗体操作技巧题

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的窗体上建立一个文本框

在名称为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

vb常用控件__练习题(含答案)

第九章控件综合试题 一、填空题 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)。

VB教案-命令按钮、选择框、单选按钮和框架

[教案] 第六课（六）命令按钮、选择框、单选按钮和框架 授课方式：讲授法 授课学时：2学时 教学目的： 通过本次课的学习，学生应该掌握使用命令按钮、选择框、单选按钮和框架四种控件常用的各种属性、事件和方法，并且能够准确使用各种控件设计各种用户界面，并能编写出响应事件的代码。 教学重点和难点： 1．命令按钮的属性和事件； 2．选择框和单选按钮的属性和事件。 教学过程： 命令按钮、选择框、单选按钮和框架 一、命令按钮(CommandButton) 1．了解命令按钮在VB中的用途。 2．掌握命令按钮的以下3个主要属性 （1）Caption（2）Style（3）Picture 3．事件 介绍命令按钮最常用的事件——Click事件的应用情况。 二、选择框(CheckBox) 1．用途 介绍选择框在VB中的用途。 2．主要属性 掌握选择框的以下4个属性： （1）Caption（2）Alignment（3）Value（4）Style 3．事件 介绍选择框最常用的事件——Click事件的具体应用情况。 三、单选按钮（OptionButton） 1．用途 介绍单选按钮在VB中的用途。 2．主要属性 掌握单选按钮的以下5个属性： （1）Caption（2）Alignment（3）Value（4）Style（5）Enabled 3．选项分组 掌握如何个单选按钮进行分组，以及那些对象可以作为分组的容器。 四、框架 (Frame) 1．用途

介绍框架在VB中的主要用途就是用于分组。 2．主要属性 掌握框架的以下3个属性： （1）Caption（2）Enabled（3）Visible 学生作业： 上机实验四：1．命令按钮、选择框和单选钮 2．单选钮和框架 [讲稿] （六）命令按钮、选择框、单选按钮和框架 一、命令按钮（CommandButton） 1、主要属性 （1）Caption：如果某个字母前加入“＆”，则程序运行时标题中 的该字母带有下划线，即作为快捷键，用Alt+快捷键 （2）Style：在VB5.0 以后的版本中，命令按钮上不仅可显示文 字，还可设置显示图形。若要显示图形，首先必须在Style中设置为1，然后在Picture属性中设置显示的图形文件。在这行时Style属性是只读的 2、事件：Click事件 （3）Picture：Style=1.Picture属性可显示图形文件 C.bmp和.ico) 二、选择框（CheckBox） 1、用途：列出可供用户选项，用户根据需要选择其中的一项或多项。 2、主要属性 （1）Caption：同单选按钮 （2）Alignment：同单选按钮 （3）Value：表示复选框的状态，数值型 0～Unchecked，未被选定，默认设置 1～ Checked,被选定 2~Grayed，变成灰色，禁止用户选择 （4）Style：同单选按钮 3、事件Click 事件 三、单选按钮（OptionButton） 1、用途：给用户一组两个或更多的选择，用户在一组单选按钮中 必须并且最多只能选择一页。 单选按钮主要用在多种功能中由用户选择一种功能的情况。 2、主要属性： （1）Caption属性：设置文本注释内容，即单选按钮边一的文本 标题 （2）Alignment：设置标题和按钮显在右边，默认设置 0：控件按钮在左边，标题显示在右边，默认设置

设窗体中包含一组单选按钮,一组复选框。单选按钮包括宋体,黑体和仿宋3种字体。复选框提供对下划线,

1.1 P129-(6)原题 设窗体中包含一组单选按钮，一组复选框。单选按钮包括宋体，黑体和仿宋3种字体。复选框提供对下划线，粗体，斜体等修饰效果的选择。文本框中输入文字后单击某个按钮，文本框中的文字将按所选择的选项进行设置。窗体如图5-32所示，编写程序，实现题目的要求。 1.2 解题思路 (1)因为有一组单选按钮和一组复选框，因此需要选择框架结构来实现要求。 (2)新建一个窗体，在窗体上按照题目要求，布置各个控件，并写出其各个对象的属性表。 (3)按照题目要求，编写程序。 (4)运行程序，达到题目要求后，保存文件。 1.3 对象属性表

1.4 代码及注解 Private Sub chkbold_Click () If chkbold.Value = 1 Then '通过if语句,来使复选框选中和不选中显示不同结果txtpassage.FontBold = True Else txtpassage.FontBold = False End If End Sub Private Sub chkitalic_ Click () If chkitalic.Value = 1 Then txtpassage.FontItalic = True Else txtpassage.FontItalic = False End If End Sub Private Sub chkunderline_ Click () If chkunderline.Value = 1 Then txtpassage.FontUnderline = True Else: txtpassage.FontUnderline = False End If End Sub Private Sub cmdexit_ Click () End End Sub Private Sub Form_Load () txtpassage.Text = "Visual Basic 欢迎您" '窗体载入输入文字"Visual Basic 欢迎您" End Sub

单选控件(OptionButton)与复选控件(CheckBox)的Value值

1、 单选控件（OptionButton ）与复选控件（CheckBox ）的Value ．．．．． 值。 1）Value 属性是单选与复选控件最主要的属性，单选与复选控件的 Value 值有差别的。 单选控件： 选中时，Value 值为True ；未被选中，Value 值为False 。 复选控件： 选中时，Value 值为1；未被选中，Value 值为0；禁止对该按钮进行选择，Value 值为2。 单选控件与复选控件的 Value 值是不同的， 2）单选与复选控件的Click 事件可以改变Value 值： 这两种控件最主要的事件是 Click 事件，当Click 事件发生，Value 值变为 True 或者 1 ，控件也自动变为选中状态 3）单选与复选控件的SetFocus 方法不一定可以改变Value 值 单选按钮SetFocus 方法可以在代码中将Value 属性设置为True （单选按钮的Visible 与Enabled 属性值均为True ）；复选按钮SetFocus 方法可则不可以，它仅仅可以得焦点，但不能改变选中状态。 4）编写程序代码，需要判断Value 是否改变，单选控件可以直接写代码，而复选控件需要用多分支条件语句来编写。。 例题： 在“字号”选项处，下面用了两种方法。 Private Sub OptSize_Click (Index As Integer) Select Case Index End Sub

Private Sub Check1_Click ( ) If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub 2、列表框（对于初学者来说，使用起来不太顺手，这里简单说明一下） 列表框控件，用于显示项目列表，用户可从中选择一个或多个项目。 1）属性 A.List：字符型数组，存放列表框的项目，下标是从0开始的。 属性窗口添加选项，输入下一项时，按“Ctrl+Enter”； 在程序中设置或引用时：列表框名.List（Index）。 例如：List1.List(0)=“北京” B.ListIndex：整数，表示执行时，选中的列表项的序号，没有项目选中时为-1 。只能在程 序中设置或引用。 例如：选择“北京”，显示在文本框中，则Text1.text=List1. List ( List1.ListIndex) C.ListCount：整数，表示项目的数量，ListCount-1是最后一项的下标。只能在程序中设置 或引用。 D.Selected 属性，该属性返回或设置列表框控件中的一个项目的选择状态，逻辑型，只能 在程序中设置或引用。 例如：List1.Selected（0）=True E.Text：被选中的列表项的文本内容，只能在程序中设置或引用。 List1. List ( List1.ListIndex)=List1.Text 2）方法举例说明： List1.AddItem “沈阳”，4 ‘在第4项后插入“沈阳” List1.AddItem “沈阳”‘在最后出入“沈阳” List1.RemoveItem 4 ‘删除第5项内容 List1.Clear ‘删除所有项目 3）Click，DblClick事件 Click事件，自动改变列表框ListIndex、Selected、Text等属性，无需另行编写代码。 3、组合框：一种同时具有文本框和列表框特性的控件。可以选择项目，也可以输入项目。 Style属性，用以确定组合框的形式。设置值可为0，1或2，决定组合框的三种形式。 Style = 0时，可以编辑项目，响应Click，Change和Dropdown事件； Style = 1时，可以编辑项目，响应Click，DblClick和Change事件； Style = 2时，不．可以编辑项目响应Click 和Dropdown事件。 说明：Change事件：文本框内容改变时触发。 DropDown事件：单击下拉箭头时触发。

VB窗体的设计 文本框和标签

[教案] (四）窗体的设计 授课方式：讲授法 授课学时：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个标签的主要属性：

选择题

1.当运行程序时，系统自动启动窗体的______d____事件过程 D、Load 2.文本框没有______a____属性 A、Caption 3.在一行语句内写多条语句时，每个语句之间用_____b_____符号分隔 B、: 4.若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置__c___。 C、Passwordchar属性值为* 5.若要命令按钮具有图形特性可通过_____a_____属性来进行。 A、Style 6.下面______d____是合法变量名 D、X_yz 7.能够将文本框控件隐藏起来的属性是__b___。 B、Visible 8.下面程序段运行后，dim x：if x then print x else print x+1 。显示的结果是_____a_____ A、1 9.表达式 Len("VB程序设计ABC")的值是___d______。 D、 9 10.在VB中，对于已经声明但没有赋值的布尔型变量，系统的默认值是_____c______。 C、False 11.按变量名的定义规则，下面_____a_____是错误定义的变量名。 A、Single 12.a + b 小于10，且a - b 大于 1 的逻辑表达式是____c_____。 C、a + b < 10 And a - b > 1 13.若要处理一个值为50000的整数，应采用哪种VB基本数据类型描述更合适？____b______ B、Long 14..下面正确的赋值语句是_____c_____

C、y=x+30 15.rnd函数不可能为下列_____d_____值 D、1 16.下面语句执行后，变量w的值为_____d______。w=Choose(2,"Red","Green","Blue","Yellow" ) D、"Green" 17.下列程序段表示求两个数中的大数，_____d____不正确。 D、If y>=x Then Max=y Max =x 18.下面语句正确的是____a____。 A、If x<>y then print "x不等于y " 19.在VB集成环境中，调试程序可以设置跟踪点。如果设置了跟踪点，那么当程序运行至该跟踪点时，会出现一条黄色__C__ C、上一句语句 20.对于选择结构语句 If x = 10 Then y = 100 ，下列说法正确的是___B______。 B、 x=10 为关系表达式， y=100 为赋值语句 21.有程序代码Text1.text="Text1.text" 则Text1、text与"Text1.text"分别代表_____d_____ D、对象、属性、值 22.在使用 MsgBox时，必须设置的参数是_____d________。 D、提示 23.结构化程序有三种基本结构组成，下面术语中是三种基本结构之一的是___b_____。 B、选择结构 25.下列语句正确的是____d____。 D、 If x<3*y And x>y Then y=x^3 26.语句If x=1 Then y=1，下列说法正确的是______a______。 A、x=1为关系表达式，y=1为赋值语句 27.下列一维数组说明语句错误的是____c_____。 C、Dim b(-10To -20) AS Integer 28.数组声明语句Dim a(4,-1 To 2, 3)中的数组a包含了_____c____个数组元素。 C、 80

制作注册窗体

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左边的水平坐标和顶边的垂直坐标。

Java图形界面程序单选按钮、复选框、文本框、标签程序设计举例

实验十一:Java的图形界面程序单选按钮、复选框、文本框、标签 一、实验目的 熟练地掌握Java的图形界面程序单选按钮、复选框、文本框、标签、列表框的编程。通过实验掌握编写程序的思想方法，体会编程的技巧，加深Java语言的应用能力。 二、实验环境 硬件环境：微型计算机。 软件环境：Windows 2000或以上版本，JKD, Jcreator 三、实验内容与要求 用Java语言编程实现以下问题： 1、编写程序，布局如word图，框架的大小自动调整f.pack() 事件的种类是Item，当选中一个复选框时，在最底下的文本框会出现合计的总价款 程序： import java.awt.*; import javax.swing.*; import java.awt.event.*; import javax.swing.border.*; public class supermarket implements ItemListener { JFrame f;

JPanel p; JTextField t; JCheckBox c1,c2,c3; int sum=0; public static void main(String args[]) { supermarket s=new supermarket(); s.go(); } void go() { f=new JFrame("超市"); p=new JPanel(); t=new JTextField(); c1=new JCheckBox("苹果5元"); c2=new JCheckBox("橘子2元"); c3=new JCheckBox("梨3元"); f.add(p,BorderLayout.CENTER); f.add(t,BorderLayout.SOUTH); p.add(c1); p.add(c2); p.add(c3); p.setLayout(new BoxLayout(p,BoxLayout.Y_AXIS)); Border etched=BorderFactory.createEtchedBorder(); Border border=BorderFactory.createTitledBorder(etched,"超市"); p.setBorder(border); f.setSize(500,500); f.setVisible(true); c1.addItemListener(this); c2.addItemListener(this); c3.addItemListener(this); } public void itemStateChanged(ItemEvent e) { if(e.getSource()==c1) { if(c1.isSelected()) sum=sum+5; else sum=sum-5 t.setText("总计为"+sum+"元"); } if(e.getSource()==c2) { if(c2.isSelected()) sum=sum+2; else