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
End Sub
除此之外还要画上书上的界面。
2、从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素
对换，即：第1个元素与第10个元素互换，第2个元素与第9个元素互换。。。。。。第5个元素与第6个元素互换。分别输出数组原来各元素和对换后各元素的值。
答：Dim arra(1 To 10 As Integer, arrb(1 To 10 As Integer
Dim i As Integer, x As Variant
For i = 1 To 10
arra(i = Val(InputBox$("请输入要互换的10个数"
Next i
For i = 1 To 10
arrb(11 - i = arra(i
Next i
Print "原数："
For Each x In arra
Print x; " ";
Next x
Print "互换后的数："
For Each x In arrb
Print x; " ";
Next x
End Sub
3、编写程序，根据输入整数n ，计算并输出S=1!+2!+3!+…+n!的结果，请将求阶层的功编
写为一个函数。
答：'**** 9.2 函数过程****
Function fac(n As Integer As Double
Dim i As Integer, z As Double
z = 1
For i = 1 To n
z = z * i
Next i
factorial = z
End Function
'****9.2 主程序（调用函数过程的事件过程****
Private Sub Command2_Click(
Dim s As Double, a As Integer, b As Integer, c As Integer
a = Val(InputBox$("请输入A"
b = Val(InputBox$("请输入B"
c = Val(InputBox$("请输入C"
s = fac(a + fac(b + fac(c
Print "s="; s
End Sub
4、税务部门征收所得税，规定如下：
1 收入在200元以内的，免征；
2 收入在200~400元内的，超过200元的部分纳税3%；
3 收入超过400元的部分，纳税4%；
4 当收入达到或超过5000元时，将4%税金改为5%。编写程序接收用户输入的收入值计算并输出此用户应付的税金。答：
Private Sub Command6_Click(
Dim m As Double, tax As Double
m = Val(InputBox$("请输入收入"
If m <= 200 Then
tax = 0
ElseIf m > 200 And m <= 400 Then
tax = (m - 200 * 0.03
ElseIf m > 400 And m < 5000 Then tax = (m - 400 * 0.04
Else
tax = (m - 400 * 0.05
End If
Print "收入所得税："; tax
End Sub
基本题(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．知识与技能 （1）掌握调整图片位置、大小的方法。 （2）掌握设置图片叠放次序、组合与取消组合的方法。 （3）掌握设置图片格式的方法。 2．过程与方法 （1）、通过“来找茬”活动，培养学生的观察能力和动手能力。 （2）、运用知识迁移，通过图片的编辑方法，为学习后面艺术字、文本框和自选图形的编辑打下基础。 3．情感、态度与价值观 （1）通过对活动的参与，增强学生爱护环境的意识，发展其创新精神。 （2）通过作品的交流展示，培养其审美能力。 （3）通过小组讨论学习，培养学生团队协作能力。 二、教学重点与难点 重点： （1）掌握调整图片位置、大小的方法。 （2）掌握设置图片叠放次序、组合与取消组合的方法。 （3）掌握设置图片格式的方法。 难点：合理地运用图片编辑功能使作品产生美，培养审美情趣和能力。 三、教学方法： 任务驱动、讲练结合、小组讨论、问题引导与启发引导相结合 四、教学资源准备 硬件准备：微机室。 软件准备：Windows操作系统、Word 2003、演示教学软件。 素材准备：由许多“垃圾”图片营造的恶劣环境和“来找茬”的图片素材 五、教学过程 （一）、导入： 1、展示几张师生们参加“五城联创”实践的图片，并解说图片内容 2、再展示下一张环境糟糕的图片，从而引出课题 （二）、新课内容： 1、以“活动”为主线，“任务”为过程，学习新知 以“争做环保使者”活动，师生共同完成将这些“垃圾图片”放入到“垃圾箱”，并擦亮垃圾箱。需完成以下五个任务：
任务一：调整图片的位置（将垃圾图片放到垃圾箱上） 教师先讲解并演示：选中目标图片，此时鼠标指针变成形状，然后按住鼠标左键不放拖曳到目标位置。 任务二：调整图片的大小（垃圾图片太大，需变小） 师提出问题：图片太大，如何变小？ 师生共同解决问题：选定一图片，拖曳其控制点至相应的位置。 任务三：设置图片的叠放次序（将垃圾图片放到垃圾箱里） 将一张“垃圾”图片放到垃圾箱处，但此时图片仍然没有到垃圾箱里，怎么办？引出“设置图片的叠放次序”。 教师演示：在图片上单击右键，在弹出的快捷菜单上选择“叠放次序/置于底层”。（提醒学生观察、比较调整图片叠放次序前后不同的显示效果） 提示：图片的叠放次序会影响文档的显示效果。在文档的同一位置上，前面的图片会覆盖住后面的图片，而通过调整叠放次序可以改变图片的前后顺序。 学生操作演示 任务四：组合与取消组合（方法升级，如何简单化） 师提出疑问：有没有更加简单的方法让两张图片同时拖放到垃圾筒上？ Word提供了强大的功能，可以通过“组合”功能，将两张或多张图片组合成一个整体，移动起来就更加的方便。 它的方法： 教师演示：先单击一张图片，再按住Shift键，同时单击另一张图片，再在选定的图片上右键单击，在弹出的快捷菜单上选择“组合/组合”。 师提示：组合后，可以取消组合吗？ 学生操作演示 任务五：设置图片格式（垃圾箱擦亮） 最后如何擦亮垃圾箱呢？ 方法：选定图片，单击“图片”工具栏上的“增加亮度”按钮（教师演示） 2、及时小结： 做好环保使者，需完成的五个任务一一例举出来并揭示出坚持 “先选定，后操作”的原则。 3、课内练习： 以“来找茬”游戏，完成图片的编缉，学生展示作品，教师点评。 （三）、总结： 本节课通过活动的参与和课内练习的操作，增强了学生爱护环境的意识，掌握了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分 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.
图文混排 ——艺术字和文本框的使用方法 教学目标： 学会艺术字使用方法，会利用艺术字工具栏对艺术字进行编辑调整，制作出个性作品。学会文本框的插入方法和编辑方法，熟练在文本框中输入文字。 教学内容： 利用文本框和艺术字进行图文混排，在这个过程中学会WORD文本框与艺术字的使用方法。 教学重点难点： 文本框和艺术字的使用方法，图文混排中文本框合艺术字的搭配使用。 教学环境：1机房 教学过程： 一、引入 以图文混排案例引入利用WORD制作图文混排以及WORD提供的命令菜单和工具。 二、欣赏 让学生欣赏多样的图文混排案例，引发学生动手制作的欲望。 三、教师演示 教师结合案例演示文本框和艺术字的使用方法。点到为止，重在让学生自主探索。 （一）“艺术字”：制作出鲜明的标题。 1.艺术字插入方法：“插入”——“图片”——“艺术字” 2.艺术字编辑方法：单击艺术字，周围出现八个白圈，为尺寸控点，拖得这些控点可以调整艺术字的大小。出现黄色菱形，称为变形菱形，拖动变形菱形，调整艺术字的形状。利用旋转按钮让艺 （二）“文本框”：可以放入文字、图片的容器。 1.文本框的插入方法：“插入”——“文本框”。 2．文本框的编辑方法： ⅰ移动文本框:单击边框选中文本框，拖动文本框。 ⅱ改变文本框大小：单击边框选中文本框，出现控点，拖动控点改变文本框大小。 ⅲ文本框格式：单击边框选中文本框，单击鼠标右键，出现快捷菜单，选择“设置文本框格式”命令。提示学生在操作时主要设置文本框填充色为无色以防覆盖背景图片。 四、学生操作 学生动手操作习题。 五、总结 教师总结课程内容，让学生从感性认识上升到理性认识。 1
基础题（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、窗体只能用作数据的输入界面:
电子信息工程学系实验报告 课程名称：面向对象程序设计 实验项目名称：单选按钮、复选框、列表框和组合框 实验时间： 班级： 姓名： 学号： 一 实 验 目 的: 1） 掌握单选按钮和复选框的使用。 2） 掌握列表框的使用。 3） 掌握组合框的使用。 4） 区别几种控件的使用场合。 二 实 验 环 境: Windows XP Visual https://www.doczj.com/doc/612667780.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窗体操作题 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）将窗体标题设置为"教师基本信息"。 注意：不允许修改窗体对象"教师"中未涉及的控件和属性。
课题：Word（一）：图片的插入、文本框和艺术字课时安排：1课时课标要求： 三维目标知识与技能： 1.熟练掌握在word文档中插入图片，包括剪贴画、来自文件以及艺术字，并能对插入的图片的属性进行简单设置； 2.熟练掌握在word文档中插入文本框，并能对插入的文本框的属性进行简单设置。 过程与方法： 1.使用【插入】菜单下的【图片】命令插入图片，包括剪贴画、来自文件以及艺术字，通过“图片”工具栏或图片的“属性”对话框对图片属性进行简单设置； 2.使用【插入】菜单下的【文本框】命令插入文本框，包括横排和竖排，通过工具栏对文本框属性进行简单设置。 情感、态度与价值观： 1.提高学生的审美水平； 2.培养学生突出重点、正确使用重点标记的习惯； 3.培养学生良好的信息技术操作习惯。 教学重点： 1.熟练地在word文档中插入图片； 2.熟练地在word文档中添加文本框。 教学难点： 1．判断插入图片的类型，是剪贴画、来自文件还是艺术字； 2．艺术字以及文本框都是“图片”，是通过对图片的设置来对艺术字及文本框的整体进行设置 教学辅助手段： 多媒体教室 教学过程： （1）、课程导入（1分钟） 师：同学们，我们前几周学习了用“画图”软件画海绵宝宝，制作好看的板报，接下来的几周，我们将转入word的学习。最后我们将会在3个课时的时间内利用我们的word软件来制作一幅精美的板报。好，现在我们正式进入这堂课的学习。给大家5秒钟时间，关闭所有窗口，老师要广播咯。（老师打开最终效果的作品文档，使用广播软件进行广播）大家先来观察下老师的这份作品，大家能看出它应用到了哪些技巧？
（2）、最终成品的简要分析（4分钟） 根据学生的回答来进行相应操作 学生回答“用到了艺术字”，老师移动鼠标至艺术字附近环绕移动，然后选择艺术字。 师：对，这里还有这里，都用到了艺术字，那么怎么插入艺术字呢？我们新建一个文档，选择【插入】/【图片】/【艺术字】命令，在弹出的“艺术字库”对话框中选择一种艺术字样式，这里有横向的艺术字，也有竖向的艺术字，还有各种形状的，我们选择其中一种，单击确定按钮。在弹出的“编辑…艺术字?文字”对话框中的“文字”文本框中输入要插入的艺术字，然后在“字体”和“字号”下拉列表框中设置字体格式，并单击确定按钮，完成艺术字的插入。 学生回答“用到了文本框”，老师移动鼠标，选中文本框。 师：对，这里用到了竖排文本框，下面这部分用到了横排文本框。同学们，还记得怎样插入文本框吗？我们这里以竖排文本框为例，在刚才新建的文档里面，选择【插入】/【文本框】/【竖排】命令，在要插入文本框的文字按住鼠标左键拖动，就可以绘制出我们想要的文本框啦。 师：我们在插入文本框的时候，除了我们插入的文本框之外，在外围是不是还有另外一个方框？这是画布，老师教大家怎么去掉这个画布，首先选中菜单栏中的【工具】/【选项】/，选择【常规】这一项，里面有一个“插入…自选图形?时自动创建绘图画布(C)”，把前面的钩去掉，然后按确定。当然，这之前创建的包含画布的文本框要先删除掉。 学生回答“图片”。 师：大家看下，这份作品的背景，它是通过插入图片来实现的，我们可以选择【插入】/【图片】/【来自文件】命令，然后选择老师提供的素材插入，就可以啦。这份作品用到的主要知识点就是上面提到的这些啦，老师已经把要用到的素材以及要求上传到FTP上的NO.4文件夹里面了，同学们登录FTP空间，把它复制到桌面上。 老师打开我的电脑，在地址栏中输入“ftp://10.16.9.161”，然后点击NO.4文件夹，选中里面的所有文件，单击鼠标右键/复制，然后点击桌面，单击右键/粘贴。老师打开“本堂课任务.doc”文档师：大家看下“本堂课任务”这个文档，下面给大家10分钟的时间，用老师提供的素材，大家先动手尝试一下，做出第一部分的内容。好，现在你们自己做吧。 老师释放广播。 （3）、学生动手制作第一部分内容（10分钟） 老师走下讲台，观察学生的制作情况，记录哪些学生做的比较好、比较快，指导其完成背景图片的设置。对于操作不熟练的学生，指导其完成第一部分的内容，选择一个做的比较好的学生，与其沟通，
在名称为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)。
[教案] 第六课（六）命令按钮、选择框、单选按钮和框架 授课方式：讲授法 授课学时：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：控件按钮在左边，标题显示在右边，默认设置
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
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事件：单击下拉箭头时触发。