窗体、标签、文本框、命令按钮作业一参考

全国计算机二级《VB》练习题及答案全国计算机二级《VB》练习题及答案9月计算机等级考试将于9月23日-26日举行，目前处于紧张的备考阶段，以下是店铺搜索整理的一份全国计算机二级《VB》练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们店铺!1.双击窗体中的对象后，VB将显示的窗口是(C)(单)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中，VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionD.Top6.执行以下程序段：a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);End Sub程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。

Text1.SetFocus 使文本框获得焦点
Text：设置控件中的文本。
MultiLine： 设置控件是否可以接受多行文本。
ScrollBars： 设置控件是否具有水平或垂直滚动条。（但当MultiLine属性为False时，它是不起作用的。）
Alignment： 设置控件中文本的对齐方式。
功能键（没有KeyAscii值而是KeyCode值） 当用户击键后 （同上）发生KEyDown和KeyUp事件，获得KeyCode值
键盘Ctrl，Shift，Alt与一些别的键组合
Shift参数：
未按Ctrl，Shift，Alt三键时，Shift值为0；
当按了“Shift”键时，Shift值为1；
窗体（Form）控件元素（Control） 关闭窗口代码Unload Me
屏幕左上角0,0 右下角16150,10900 中心 8075,5450
BackColor： 设置窗体背景颜色。
BorderStyle：设置窗体的边框风格。
Caption： 设置窗体标题栏上事件）
象鼠标移动、双击、右击、拖动、键盘按下，这些用户对计算机的常用操作都是 事件
一个控件执行的任务就是 方法
鼠标事件
Cilck：用户单击鼠标键时发生
Picture：给窗体配上漂亮的位图。
ControlBox False 窗口没有关闭按钮
BorderStyle 3-Fixed 窗口不能调整大小
把Default设为True，则在按下回车键时，不论焦点处于何处，都会触发该按钮的Click事件，
当命令按钮的befault=true时，右击按钮才有效。
Icon：设置窗体标题栏上的图标。

任务分析：首先程序执行时要在窗体上显
示文字，这就要用到Label（标签）控件。窗体就 是我们打开ＶＢ程序时所显示的。接下来我们来 看下Label是哪个控件。（请看操作演示）
标签的属性
在介绍标签时，我们先来看设计一个标签， 两种方法。 第二。每设计好一个标签，ＶＢ会自动为每个标
默认取一个名字（通常是Lable1…) 第三。学习标签（Ｌabel）的几个属性：
代码格式续

例：我这是们对要象修名改称，窗是体对的背景颜色，标签的颜色， 字号的窗改体，大Ｆ下小o面r，的m１字Ｌ进a体b行e等修l1 。
Private是S同ub样的La道b理el1_Click() 这是对对象的属性进
Form1.BackColor=&00221
行修改，可是对窗体， 也可以对标签。只要
名称（Ｎame)属性，Caption属性， AutoSize属性，Borderstyle属性。
标签能识别的事件
标签能识别的事件： Click（单击事件），ＤblClick事件， ＭouseDown,MouseUp事件。
编写程序代码的格式： 双击标签（注意是你想要对那个对象就双击哪一
个），会弹出一个代码窗体。他自动会有一个 事件在上面。我一个文本框及一人标 签,使程序运行时在文本框中每输入一个字,在 标签上都能立即显示文本框中当前的整个字符 串.
提示:应用文本框的Change事件过程.
命令按钮常用来启动、中断或结束一个任务。 命令按钮的属性： 名称（Name)：默认为Command1; Caption属性。 命令按钮的事件：Click
设置对象属性
对象
名称
属性
窗体 Form Form1
Caption=”按钮与文本框”

例5：Private Sub Command1_Click() ： Shell "c:\windows\calc.exe", vbNormalFocus End Sub 三、如何用代码选中命令按钮 例: Private Sub Command1_Click() Shell "c:\windows\write.exe", vbNormalFocus End Sub Private Sub Command2_Click() Command1_Click End Sub Private Sub Command3_Click() Command1.Value = True 研6 End Sub
3.2 命令按钮（CommandButton) 命令按钮（ 属性：P33表 一、属性：P33表3-1 事件： 二、事件： Click、KeyDown、KeyUp、MouseDown、MouseUp… Click、KeyDown、KeyUp、MouseDown、MouseUp 例1: Private Sub Command1_MouseDown(……) Form1.BackColor = vbRed End Sub 例2: Private Sub Command1_MouseUp(……) Form1.BackColor = vbGreen End Sub 例3: Private Sub Command1_KeyDown(……) Form1.Caption = "你好 你好" 你好 End Sub 例4: Private Sub Command1_KeyUp(……) Form1.Caption = "再见 再见" 再见 研5 End Sub
3.4
文本框（ 文本框（Text） ）

Visible
Visible属性决定程序运行时命令按钮是否可见。当属性值为False不可见时，不能响应用户的鼠标与键盘操作
Moveable属性值为True时，程序运行后用户可以拖动标题栏移动窗体
Picture
使用Picture属性可以为窗体指定一幅背景图片，设置方法与Icon属性相同
WindowState
WindowState属性决定窗体的当前状态是还原、最小化还是最大化。0-正常状态；1-最小化状态；2-最大化状态
文本框
Alignment
该属性设置Text属性值文本内容的对齐方式。值为0时，左对齐；值为1时，右对齐；值为2时，中间对齐
ScrollBars
当MultiLine属性值为Ture时，ScrollBars属性值决定文本框的滚动条模式。0-无滚动条；1-只有水平滚动条；2-只有垂直滚动条；3-有水平和垂直滚动条。MultiLine属性值为False时，ScrollBars属性值无意义。ScrollBars属性为只读属性
属性
说明
Text
Text属性的值是文本框中的文本内容。程序可以读入该属性的值，获得用户输入的信息；也可以重新设置它的值，显示信息
Maxlength
该属性决定文本框中文本的最大长度，以字符数为单位。默认值为0，表示长度只受系统内存限制，若该属性值被设置为大于0的数，则表示文本框能够输入和显示文本的具体长度
ControlBox
true该属性是默认值，即显示窗体标题栏上的状态控制按钮和窗体图标
False不显示窗体标题栏上的状态按钮及图标
Font
字体，可从弹出的对话框中选择字体、大小、样式、效果
ForeColor
前景颜色，可从弹出的调色板中选择

设置窗体的边框样式，取值见P31 设置窗体的边框样式，取值见P31 。
Controlbox
设置是否显示窗体的控制菜单条。 设置是否显示窗体的控制菜单条。 是否显示窗体的控制菜单条
MaxButton、MinButton MaxButton、
设置是否显示最大化和最小化按钮 设置是否显示最大化和最小化按钮 是否
提示】Screen是一个全局的系统对象 对应于计算机屏幕， 是一个全局的系统对象， 【提示】Screen是一个全局的系统对象，对应于计算机屏幕，可以直 接使用。 接使用。 思考:如果窗体位于屏幕的中央，怎么修改上述代码？ 思考:如果窗体位于屏幕的中央，怎么修改上述代码？
课堂示例3-1 课堂示例
窗体的事件（ 窗体的事件（2）
函数返回值为一个数值，见P42。
输入对话框InputBox 输入对话框InputBox
Inputbox函数提供一个输入对话框，允许用户输入数据。 函数返回值就是用户输入的值，是一个字符串。 函数返回值 格式：变量=InputBox( prompt [,title][,default][,x][,y]) 变量=InputBox( [,title][,default][,x][,y] y])
当窗口第一次显示或窗口大小改变时引发该事件。 当窗口调整大小时，可用Resize事件过程来移动窗口中的控件位置或 调整其大小，以使界面保持美观。 【例】设计包含一个TextBox控件的窗体，要求该控件总是充满整个 窗体。(提示：ScaleWidth和ScaleHeigth属性代表窗口内部绘图区域 的宽度和高度。)
End 语句，立即中止、结束程序。 不触发窗体的Unload和 QueryUnload事件。
课堂示例3-6 课堂示例
3.2 简单的输入和输出

窗体中不同控件的作用窗体中不同控件的作用在现代计算机界面设计中，窗体是一个常见的界面元素，通过窗体可以很好地组织和管理各种控件。

控件就是窗体中的各种功能模块，可以包括按钮、文本框、复选框、下拉菜单等等。

不同的控件有不同的作用和功能，下面将介绍几种常见的窗体控件及其作用。

1.按钮(Button)按钮是窗体中最常见的控件之一，用于触发某种操作或执行特定的功能。

按钮通常显示为一个带有文本或图标的可点击的矩形区域，用户点击按钮后，就会触发与之相关的事件或功能。

比如，我们经常见到的“确认”按钮、”取消“按钮等。

2.文本框(TextBox)文本框是用于接受用户输入或显示文本内容的控件。

用户可以在文本框中输入文字，也可以通过程序动态地改变文本框中的内容。

文本框可以用于输入用户名、密码、搜索关键字等。

在文本框中还可以进行文字的选择、复制、剪切和粘贴等操作。

3.复选框(CheckBox)复选框通常用于表示二进制的多选状态，可以允许用户在多个选项之间进行选择。

复选框显示为一个方框，用户可以选择或取消选择其中的选项。

复选框常用于设置软件的各种选项、筛选多个条件等。

4.单选框(RadioButton)单选框与复选框类似，但是单选框只允许用户在多个选项中选择一个。

单选框通常以圆点或圆圈的形式展示，用户点击其中一个单选框时，其他单选框就会自动取消选择。

单选框常用于需要用户在多个互斥选项中进行选择的场景。

5.下拉菜单(ComboBox)下拉菜单是一个组合框，通过点击下拉箭头展开一个菜单，用户可以从菜单中选择一个或多个选项。

下拉菜单通常用于提供一系列选项供用户选择，比如选择性别、选择日期等。

6.列表框(ListBox)列表框用于在窗体中展示一系列选项或数据，可以选择一个或多个选项。

用户可以通过滚动列表框来查看更多的选项，也可以通过点击其中一个选项来进行选择。

列表框常用于展示文件列表、联系人列表等。

通过使用这些不同的窗体控件，我们可以创建出生动、直观的界面，为用户提供良好的交互体验。

实验九命令按钮、标签和文本框实验目标：1.熟练掌握命令按钮、标签和文本框的使用方法2.掌握命令按钮、标签和文本框的常用属性、事件和方法3.熟悉事件过程的代码编写，建立基于图形用户界面的应用程序实验内容：1）将窗体文件“9-1.Frm” 和工程文件“9-1.Vbp”上传到老师的ftp服务器上的”周一下午”或”周二下午”或”周三晚上”或”周六上午”你的文件夹中。

如：“30808888法学0801张三”.2）练习9-2，9-3，9-4 也同样将窗体文件和工程文件上传到老师的ftp服务器上。

【练习9-1】窗体上有两个文本框Text1、Text2和两个标签框Label1、Label2，为了实时的使Label1显示Text1的内容、Label2显示Text2的内容，也为了比较两个事件的区别，编写了如下的事件过程。

Private Sub Text1_Change()Label1.Caption = Text1.TextEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)Label2.Caption = Text2.TextEnd Sub上机实践调试运行以上程序。

工程运行后，观察结果，如果要使Label2实时显示Text2的内容，应当怎样修改Keypress事件中的代码？Private Sub Text2_KeyPress(KeyAscii As Integer)Label2.Caption = Label2.Caption + Chr(KeyAscii)End Sub【练习9-2】编程，为图片框控件加载汽车图片，命令按钮Command1的标题初态为“前进”，按该按钮时：若标题为“前进”，则图片向左移动，当图片移到窗体的左边沿时，将按钮标题改为“倒车”；若标题为“倒车”，则图片向右移动，当图片移到窗体的右边沿时，将按钮标题改为“前进”。

提示程序如下：Private Sub Command1_Click()If Command1.Caption = "倒车" ThenPicture1.Left = Picture1.Left + 100ElsePicture1.Left = Picture1.Left - 100End IfIf Picture1.Left <= 0 ThenCommand1.Caption = "倒车"ElseIf Picture1.Left >= Form1.ScaleWidth - Picture1.Width ThenCommand1.Caption = "前进"End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Picture1.Picture = LoadPicture("f:\car1.wmf")Command1.Caption = "前进"Command2.Caption = "退出"End Sub上机实践将以上程序补充完整并调试运行。

目录实验一熟悉Visual Basic 6.0编程环境 ....................................................................... 实验二Visual Basic语句基础 ............................................................................................ 实验三顺序结构 . (23)实验四选择结构（一） ..................................................................................................... 实验五选择结构（二） ..................................................................................................... 实验六循环结构（一） ..................................................................................................... 实验七循环结构（二） ..................................................................................................... 实验八循环结构（三） ..................................................................................................... 实验九循环结构（四） ..................................................................................................... 实验十一维数组程序设计 ................................................................................................. 实验十一二维数组程序设计 ............................................................................................. 实验十二控件数组和自定义数组程序设计 ..................................................................... 实验十三过程程序设计（一） ......................................................................................... 实验十四过程程序设计（二） ......................................................................................... 实验十五窗体和常用控件（一） ..................................................................................... 实验十六窗体和常用控件（二） ..................................................................................... 实验十七窗体和常用控件（三） ..................................................................................... 实验十八用户界面设计（一） ......................................................................................... 实验十九用户界面设计（二） ......................................................................................... 实验二十用户界面设计（三） ....................................................................................... 实验二十一图形操作 .........................................................................................................实验一熟悉Visual Basic 6.0编程环境【实验目的】（1）熟悉VB集成开发环境。

第1套您已经通过该套作业,请参看正确答案1、与传统的程序设计语言相比，Visual Basic语言最突出的特点是（）。

A．结构化程序设计B．程序开发环境C．事件驱动编程机制D．程序调试技术参考答案：C您的答案：C2、Visual Basic集成环境的主窗口中不包括（）。

A．标题栏B．菜单栏C．状态栏D．工具栏参考答案：C您的答案：C3、Visual Basic窗体设计器的主要功能是（）。

A．建立用户界面B．编写源程序代码C．画图D．显示文字参考答案：A您的答案：A4、下列叙述中正确的是（）。

A．只有窗体才是VB中的对象B．只有控件才是VB中的对象C．控件和窗体都是VB中的对象D．控件和窗体都不是VB中的对象参考答案：C您的答案：C5、为了把窗体上的某个控件变为活动的，应执行的操作是（）。

A．单击窗体的边框B．单击该控件的内部C．双击该控件D．双击窗体参考答案：B您的答案：B6、确定一个控件在窗体上的位置的属性是（）。

A．Width或HeightB．Width和HeightC．Top或LeftD．Top和Left参考答案：D您的答案：D7、在窗体上面画一个名称为Text1的文本框，然后编写如下的事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)......End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是（）。

A．单击鼠标B．双击文本框C．鼠标滑过文本框D．按下键盘上的某个键参考答案：D您的答案：D8、为了装入一个VB应用程序，应当（）。

A．只装入窗体文件(.frm)B．只装入工程文件(.vbp)C．分别装入工程文件和标准模块文件(.bas) D．分别装入工程文件、窗体文件和标准模块文件9、当窗体最小化时缩小为一个图标，设置这个图标的属性是（）。

A．MouseIconB．IconC．PictureD．MousePoint参考答案：B您的答案：B10、为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是（）。

窗体练习题一、窗体基础概念1. 窗体是什么？请简述其主要功能。

2. 窗体有哪几种常见的布局方式？3. 窗体中的控件有哪些分类？4. 窗体与表单有什么区别？5. 请列举五种常见的窗体事件。

二、窗体设计6. 如何设置窗体的？7. 如何设置窗体的背景颜色？8. 如何设置窗体的边框样式？9. 如何设置窗体的大小和位置？10. 如何在窗体中添加控件？三、窗体控件11. 请列举五种常用的文本控件。

12. 如何设置文本框的默认值？13. 如何限制文本框中输入的字符长度？14. 如何设置复选框的选中状态？15. 如何使用单选按钮实现互斥选择？四、窗体交互16. 如何响应用户的事件？17. 如何响应用户的键盘事件？18. 如何响应用户的鼠标事件？19. 如何实现窗体之间的数据传递？20. 如何实现窗体之间的页面跳转？五、窗体布局21. 如何使用表格布局窗体？22. 如何使用流式布局窗体？23. 如何使用绝对布局窗体？24. 如何使用相对布局窗体？25. 如何使用Flex布局窗体？六、窗体样式26. 如何设置窗体控件的字体样式？27. 如何设置窗体控件的字体大小？28. 如何设置窗体控件的字体颜色？29. 如何设置窗体控件的背景图片？30. 如何设置窗体控件的边框样式？七、窗体高级功能31. 如何实现窗体的全屏显示？32. 如何实现窗体的多标签页功能？33. 如何实现窗体的滚动条功能？34. 如何实现窗体的拖动功能？35. 如何实现窗体的自定义关闭按钮？八、窗体与数据库36. 如何在窗体中连接数据库？37. 如何在窗体中执行SQL查询？38. 如何在窗体中插入数据？39. 如何在窗体中更新数据？40. 如何在窗体中删除数据？九、窗体与网络41. 如何在窗体中发送HTTP请求？42. 如何在窗体中接收HTTP响应？43. 如何在窗体中解析JSON数据？44. 如何在窗体中解析XML数据？45. 如何在窗体中实现文件和？十、窗体综合应用46. 请设计一个登录窗体，包括用户名、密码输入框和登录按钮。

二、MsgBox函数和Msgbox语句
1、MsgBox函数 （1）功能：a、产生一个输出对话框显示信息。 b、并接收用户的响应 （2）格式及参数：变量＝MsgBox(提示 [，按钮，标题….]) （3）返回值：数值型
返回值：代表了被按下的是哪一个按钮
１－确定；２－取消；３－终止； ４－重试；５－忽略；６－是；７－否；
1、show 方法 格式：show [style，] [ownerform]
Style：是一个整形值：0（vbModeless）代表无模式窗口，
1（vbMode） Ownerform：显示窗体的父窗体名称 代表模式窗口
2、Hide方法
隐藏窗体对象，但不卸载，仅仅是从屏幕上消失(即Visible属性值为False)
1、Activate事件和Deactivate事件（实例演示） 当窗口成为活动窗口时触发Activate事件； 当窗口由活动窗口变为非活动窗口时（失去焦点）触发Deactivate事件 2、实例演示KeyPress事件、MouseMove事件、Resize事件
三、窗体的方法（演示）
窗体常见的方法：Show、Hide、Move、Cls、SetFocus等方法
第3章 窗体、命令按钮、标签和文本框
目标： 掌握 （1）VB中的基本语句； （2）窗体的常见属性、方法、事件； （3）MsgBox函数、MsgBox语句、InputBox函数、Print方法 （4）命令按钮、标签、文本框的常见的属性、事件和方法
本章主要内容
3.1 VB中的基本语句（补充）
3.2 窗体控件
把字符串“欢迎来到VB的世界”输出到立即窗口上
1、 表达式可以是字符串表达式、数值表达式，关系表达式等。
（1）字符串表达式：原样输出 （2）其它表达式：先计算然后将其值输出 如： print “Visual Basic 程序设计” print 3+5 print 3>5

韶关学院计算机公共教学实验进行表(实验报告)课程名称计算机语言与程序设计实验日期实验项目名称实验二:窗体、命令按钮、文本框和标签控件的应用实验类型（打√）基础√、综合、设计。

实验地点理工楼6楼号机房实验班级应到人数实到人数考勤情况主讲教师实验教师实验目的实验目的：1、掌握Visual Basic6.0窗体的常见属性的含义及其值的设置。

2、掌握Visual Basic6.0窗体的常用方法（如CLS方法、Print方法等）,掌握用Print方法在窗体上输出特定格式的数据的设置.3、掌握Visual Basic6。

0窗体常用事件的使用。

4、掌握在多窗体中启动窗体的设置。

5、掌握在窗体上设置控件的几种方法.实验内容一、打开“D：\sy2”文件夹下面的“选择题及编程填空.Xls”文件，在对应位置输入正确的答案后以原文件名存盘。

二、编程题实验1：设置一个标题为“字体设置"的窗体，窗体的背景色为黄色，在窗体中设置二个命令按钮和一个文本框，每次单击“确定"按钮，在文本框中显示红色三号隶书字体，内容为“开学了，欢迎你来校报到！”，并使文本能自动换行显示，单击“结束”按钮，则退出程序运行。

（工程文件保存为：SY2_1.vbp，窗体文件保存为SY2_1。

frm）(说明：能使文本能自动换行显示的属性为MultiLine，其值为True时文本可以显示在多行，其值为False时文本只能显示在一行。

）实验步骤：第1步：创建新工程，在新窗体上创建二个命令按扭Command1、 Command2和一个文本框Text1。

第2步：设置对象的属性对象类型对象名属性设置窗体Form1Caption字体设置BackColor黄色命令按钮Command1Caption确定命令按钮Command2Caption结束文本框Text1 Text 空白Font三号隶书MultiLine True第3步：双击窗体，打开代码窗口补充完成代码编写Private Sub Command1_Click(）Text1。

标签、文本框、编辑框、命令按钮的使用（实训课）教案主讲：张学文；授课班级：09秋计算机高考班教材：数据库应用基础——Visual FoxPro一、实训目标：1．掌握表单设计的一般步骤与方法。

2．掌握控件工具栏、属性窗口、代码编辑窗口的使用。

3．熟悉标签、文本框、编辑框、命令按钮的常用属性、常用方法和事件4．理解编写的事件代码。

二、实训任务：1．制作一个在编辑框中输出1~300之间能被3整除的数。

2．制作一个登录界面的表单。

三、实训注意事项：用电安全四、教学方法：任务驱动法、演示法五、必备知识：1．控件工具栏的使用、属性窗口的使用、代码窗口的使用2．标签、表单、命令按钮的Caption、Fontsize属性；命令按钮的Default属性；编辑框、文本框的Value属性；文本框的PasswordChar等常用属性；Release、Setfocus等方法；Click、Init事件。

3．表单中对象的相对引用和绝对引用。

（上述知识要求学生在上机实训前根据任务1和任务2的要求去准备，事先编写事件代码。

其中编写事件代码是本节实训课的重点也是难点，需突破的地方。

）六、实训任务与步骤1．制作一个如下图所示能在编辑框中输出1~300能被3整除的数。

（1）分析：该表单共有1个表单对象、1个编辑框对象、1个标签对象、3个命令按钮对象。

各对象的Name属性都采用默认的值，分别是Form1、Edit1、Label1、Command1、Command2、Command3。

（2）设计：打开表单设计器，按上述分析，使用控件工具栏中的相应工具创建1个标签对象、1个编辑框对象、3个命令按钮对象。

适当调整各对象的大小和位置。

（3）在属性窗口中按下表设置各对象的属性。

（这里主要是设置Caption和Fontsize属性，（4）打开代码编辑窗口，编写各命令按钮的事件代码①确定按钮（Command1）的Click事件代码For i=1 to 300If mod(I,3)=0Thisform.edit1.value=thisform.edit1.value+str(I,3)+chr(13)EndifEndfor②清除按钮（Command2）的Click事件代码Thisform.edit1.value=“”mand1.setfocus③退出按钮（Command3）的Click事件代码Thisform.release（5）保存文件（6）运行表单2．制作一个如下图所示的登录界面的表单（设用户名为“zhang”，密码为“123456”，如果输入的用户名和密码都正确，则显示“口令正确，欢迎使用本系统！”的字样，如果用户名或密码不正确，则弹出一个信息框，显示“口令或密码错误，请仔细核对后重新输入！”的提示信息。

《绘制窗体》作业设计方案（第一课时）一、作业目标本次作业旨在帮助学生掌握Windows操作系统中窗体的绘制方法，熟悉基本的绘图工具和编辑工具，能够独立完成简单的窗体设计。

二、作业内容1. 绘制一个基本的窗体，要求包括标题栏、菜单栏、工具栏等基本元素。

2. 在窗体上添加至少三个按钮，并为其设置相应的功能。

3. 在窗体中添加文本框或标签，用于展示用户输入的信息。

4. 对绘制的窗体进行必要的布局和美化，使其更加美观。

三、作业要求1. 按照规定的格式和要求绘制窗体，包括尺寸、位置、颜色等细节。

2. 每个按钮必须设置明确的交互效果，避免误操作。

3. 确保文本框或标签的功能正常，能够正确展示用户输入的信息。

4. 作业完成后，提交电子版作业，包括绘制的窗体和相关说明文档。

四、作业评价1. 评价标准：作业的完成度、正确性、美观度以及创新性。

2. 评价方式：教师根据学生提交的作业进行评分，同时与学生进行互动交流，了解学生在绘制窗体过程中的问题和困难，以便进行针对性的指导。

五、作业反馈1. 学生反馈：学生在完成作业后，应该及时提交作业，并在作业中记录自己的问题和收获，以便教师进行针对性的指导和反馈。

2. 教师反馈：教师根据学生的作业完成情况，给出相应的评分和反馈意见，并针对学生在绘制窗体过程中的问题进行指导，鼓励学生创新和发挥想象力。

同时，教师还应该及时收集学生和作业中的问题，以便在今后的教学中加以改进和完善。

3. 互评反馈：在小组合作学习中，学生可以互相评价和交流彼此的作品，互相学习借鉴，共同提高。

教师可以根据学生的互评反馈，进一步了解学生的学习情况和兴趣爱好，以便更好地指导学生的个性化发展。

通过本次作业，学生不仅可以掌握基本的绘图工具和编辑工具，还能培养自己的创新能力和审美意识。

同时，教师也应该在作业评价中，注重学生的个体差异和进步，给予学生更多的鼓励和支持，激发学生的学习热情和兴趣。

总之，本次作业设计方案旨在帮助学生掌握Windows操作系统中窗体的绘制方法，熟悉基本的绘图工具和编辑工具，能够独立完成简单的窗体设计。

2.编程题：
1)单击窗体后在窗体上显示“您好！×××同学”。
要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。
答案参照课本P27的例1-6。
2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写：
Command1.Top = Form1.ScaleHeight - Command1.Height
End Sub
Private Sub Form_Resize()
Call Form_Load
End Sub
Private Sub Command1_Click()
End
Dim r1 As Single, r2 As Single, Rp As Single, Rs As Single
r1 = InputBox("请输入第一个电阻值：")
r2 = InputBox("请输入第二个电阻值：")
Rp = (r1 * r2) / (r1 + r2)
Rs = r1 + r2
程序代码：
Private Sub Command1_Click()
Dim sg As String, tz As String, bz As String
sg = Text1.Text

按钮控件的常用属性
属 性
Enabled Default Cancel Caption Picture DownPicture Disable为 设置按钮是否有效。当值为True时，按钮可用，当值为 时 按钮可用， False时，按钮不可用，且以浅灰色显示 时 按钮不可用， 设置缺省的活动按钮（命令按钮才有此属性） 设置缺省的活动按钮（命令按钮才有此属性） 设置取消按钮（命令按钮才有此属性） 设置取消按钮（命令按钮才有此属性） 设置按钮上显示的文本 属性值为1时 当Style属性值为 时，该属性用于设置按钮上显示的图片 属性值为 属性值为1时 当Style属性值为 时，该属性用于设置按钮被按下时显示 属性值为 的图片 属性值为1时 当Style属性值为 时，该属性用于设置按钮无效时显示的 属性值为 图片 设置按钮的外观。值为 ，为标准的Windows按钮；值为 按钮； 设置按钮的外观。值为0，为标准的 按钮 1时，可以在按钮上放置图片 时
补充补充设置设置tabtab键转移焦点顺序键转移焦点顺序将焦点赋给对象的方法将焦点赋给对象的方法11运行时选择对象运行时选择对象22运行时用快捷键选择对象运行时用快捷键选择对象33在代码中使用在代码中使用setfocussetfocus方法方法焦点只会出现在活动窗口中焦点只会出现在活动窗口中焦点只会出现在活动窗口中并且在活动窗口中每一焦点只会出现在活动窗口中并且在活动窗口中每一时刻只能有一个对象具有焦点
单击[播放] 单击[播放]按钮的情形
单击[停止] 单击[停止]按钮的情形
按钮的有效性示例 按钮的可见性示例
命令按钮的方法和事件
无特殊的方法， 无特殊的方法，最重要的事件是 Click事件，但没有DblClick事件 事件，但没有 事件 事件