下载文档原格式
习题 11. 填空题(1) Visual Basic 是一种面向 的可视化程序设计语言，采取了 的编程机制。
(2) Visual Basic 的对象主要分为 和 两大类。
(3) 在 Visual Basic 中，用来描述一个对象外部特征的量称之为对象的 。
(4) 在 Visual Basic 中，设置或修改一个对象的属性的方法有两种，它们分别是： 和 。
(5) 在 Visual Basic 中，每个对象一般都能感知和接收多个不同的事件，并能对这些事件作出响应，其响应方式就是通过调用执行一个与之相对应的 来实现的。
(6) 在 Visual Basic 中，事件过程的名字由 、 和 所构成。
(7) 若用户单击了窗体 Form1，则此时将被执行的事件过程的名字应为：。
(8) Visual Basic 的集成开发环境主要由6个部分组成，它们分别是： 、 、 、 、 、 。
2.简答题(1) 简述Visual Basic 的特点(2) 什么是对象的属性、事件和方法？(3) Visual Basic 如何完成对用户操作的响应?(4) 什么是事件? 事件过程的一般格式是怎样的？如何编写对象的事件过程?习题 22.1 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。
100.0 %100 1E1 123D3 123,456 0100“ASDF” “1234.5” #2004/10/7# 100# π&O78 &H123 True T -1123! 345.54#2.2 下列数据哪些是变量，哪些是常量？是什么类型的常量？Name “name” False ff “11/16/99” cj“120” n #11/12/2004# 12.3452.3 下列符号中，哪些可以是Visual Basic 的合法变量名？A123 a12_3 123_a a,123 a 123 IntegerXYZ False Sin(x) 变量名 sinx π2.4 把下列数学表达式写成Visual Basic 表达式：（1）5||z y x ++ （2）6)1(xy +（3）xy y x 310+ （4）a acb b 242-+-（5）3211111r r r ++ （6）110ln 45sin 10++++y x e2.5 写出下列表达式的值：（1）123 + 23 Mod 10 \ 7 + Asc("A")（2）Int(68.555 * 100 + 0.5) / 100（3）#11/22/2004# - 10（4）"ZXY" & 123 & "abc"2.6 设a=7，b=3，c=4，求下列表达式的值：（1）a + 3 * c （2）a ^ 2 / 4（3）a / 2 + 3 \ 2 （4）a Mod 3 + b ^ 3 / c \ 52.7 写出下列函数的值：（1）Int(-3.14159) （2）Fix(-3.14159)（3）Sqr(Sqr(81)) （4）Len("Visual Basic 程序设计")（5）Int(Abs(99 - 100) / 2) （6）Sgn(7 * 3 + 2)（7）LCase("Hellow VB!") （8）Mid("Hellow VB!", 4, 3)（9）Left("Hellow VB!", 3) （10）Val("16个加23个")（11）Str(-459.55) （12）UCase("Visual Basic")2.8 选择题（1）可以同时删除字符串前导和尾部空格的函数是 。
Dim n As Integern=Text1.TextIF(n Mod 4 =0 And n mod 100< >0 or n mod 400 = 0)Then Text2.text =”闰年”ElseText2.text=”非闰年”End IF求和求积Dim i As integerOpen App.path&”\jsdata.txt”For input As #1For i =1 to 15Input #1,arr(i)Next iIf op1.value=ture thenT1.text=Aaa()End ifIf op2.value=ture thenT1.text=Bbb()End ifClose #1写入文件****Dim i As Integer, j As Integer, n As IntegerOpen app.path &”\zfwj.txt”for output As #1n=val(text1.text)for I =1 to nfor j=1 to iprint #1,”*”;next jprint #1next I close#1计算结果dim n As Integer, I As Integer, s1 As integer,s2 As long n=val(text1.textfor I =1 to ns1=s1+is2=s2+s1next itext2.text=s2求值dim n1 as integer, n2 as integer, n3 as integer,t as integer n1= val(text1.text)n2=val(text2.text)n3=val(text3.text)if n1<n2 then t=n1:n1=n2:n2=tif n2<n3 then t=n2:2=n3:3=tif n1<n2 then t =n1:1=n2:2=ttext4.text=n1text5.text=n3建立文件显示文件Dim num as string,name as srting, I as integerOpen App.path&”\xhxm.txt”for output As #1For I = 1 to 3num=inputbox(“请输入学号：“)name = inputbox(“请输入姓名：“)write #1,num,namenext iclose #1End sub Private sub command2_click()Dim s as string, I as integerOpen app.path &\xhxm.txt” for input as # 1Do While Not EoF(1)Line input # 1,sText1.text= text1.text& s & vbCrLfLoopClose #1第三卷求和输入N值Dim n As integer, I as integer, sum as integerN= val(text1.text)For I = 1 to nIf I mod 3 =0 then sum = sum+ iNext iText2.text=sum输入正整数NDim m As integer, n as integerPrivate sub commad1_click(0Dim c as doubleN=text1.textM=text2.textIf n<=m thenC=fact(m)/(fact(n)* fact(m-n))Text3.text=cElseMsgbox”输入的n必须小于等于m！请重新输入“Text1.text=””Text2.text=””Text1.setfocusEnd ifEnd sub读入数据统计英文字母Dim s as stringOpen app.path&”\yy.txt”for input as #1Do while not EOF(1)Line input #1,sText1.text=text1.text &s &vbCrLfLoopClose #1End subPrivate sub command2_click()Dim n as integer, I as integer, s As integer, c as stringN= Len(text1.text)For I = 1 to nC= mid(text1.text,I,1)If c >=”a”and c <=”z” or c 》=“a” and c <=”z” then s =s+1 Next iLabel1.caption= “共“& s &”个英文字母”End sub第四卷转换十进制Dim n as integer,b as stringN=text1.textB=zh(n)Text2.text=b读取文件加密Dim s1 as stringPrivate sub command1_click()Open app.path &”\jmwb.txt”for input as #1Input #1,s1Text1.text=s1End subPrivate sub command2_click()Dim n As integer, I as integer dim s2 as string, j As stringN=Len(s1)For I =1 to nJ=mid(s1,I,1)J=chr(asc(j)+5)S2=s2&jNext iText2.text=s2生成数组降序排列Option base 1Dim n AS integer,x(15) as integerPrivate Sub command1_Click(0Dim s1 as stringFor N= 1 to 15X(N)=int(91 * Rnd +10)S1=s1 &STR(x(N))Next NText1.text =s1End subPrivate sub command2_click()Dim s2 as stringDim I as integer, j AS integer t as integerFor I =1 to 15For j 1 to 15For j=I +1 to 15If x (i)<x(j) thenT=x(i)X(i)=x(j)X(j)=tEnd ifNext jS2=s2& Str(x(i))Next IText2.text =s2End sub第五卷判断字符还是字母Dim s as stringCall Getchar(s)Text1.text=sIf Asc(s)>= Asc(“A”) and asc (s)<=asc(“z”) or asc (s)>=Asc(“a”) And asc (s)<=asc(“z”) then Label1.caption=”是字母字符“ElseIf asc(s)>=asc(”0”) and asc(s)<= asc(“s)<=asc(“9”) thenLabel1.caption=”是数字字符“ElseLabel1.caption=”是其他字符”End ifEnd sub生成三个随机数Dim n1 as integer, n2 as integern1=val(text1.text)n2=val(text2.text)label1.caption=int((n2-n1+1)*Rnd +n1)label2.caption=int((n2-n1+1)*Rnd+n1)label3.caption=int((n2-n1+1)*Rnd+n1)end sub转换大写小写Dim a as stringPrivate sub command1_click()Text1.text=UCase(a)End subPrivate sub command1_click()Text1.text=LCase(a)End subPrivate sub command3_click()Text1.text=aEnd subPrivate sub text1_keypress(keyascii as integer)If not((keyascii>=65 and keyascii<=90)or (keyascii>= 97 And keyascii<=122)) then BeepKeyascii =0End Ifa=Text1.textend sub。
《Visual Basic程序设计》课程复习资料一、选择题：1.下列不属于数值数据类型的是 [ ]A.整型B.实型C.货币型D.布尔型2.在VB中，若某变量未经Dim语句声明便直接使用，系统会默认其为 [ ]A.整型B.变体型C.字符型D.单精度型3.以下过程是 [ ]Public Function MaxNum( )End FunctionA.用户自定义函数B.按钮单击事件C.窗体单击事件D.窗体属性4.一个字节型变量在内存中占据( )字节的空间。
[ ]A.1B.2C.4D.85.若要求向文本框输入密码时，只在文本框中显示*号，则应当在此文本框的属性窗口中置 [ ]A.Text属性值为 *B.Caption属性值为 *C.PasswordChar属性值为空D.PasswordChar属性值为6.下列说法错误的是 [ ]A.Stop语句用来暂停程序的执行B. End语句是用来结束一个程序的执行C. Msgbox 语句和 Msgbox 函数都有返回值D. MsgBox 语句常用于简单的信息显示7.VB 窗体默认的坐标单位是 [ ]A.cmB.mC.TwipD.Pix8.VB6.0 中专门为程序代码的书写提供了一个( )窗口。
[ ]A.代码B.属性C.窗体D.立即9.下列可作为Visual Basic的变量名的是 [ ]A. AbtB. TABC.IFD. A[B]T10.以下不是Visual Basic中的事件是 [ ]A.DblClickB. MouseMoveC. CaptionD. Change11.InputBox 函数返回值的类型是 [ ]A.数值B.字符串C.变体D.逻辑12.Visual Basic 程序中的注释所使用的字符是 [ ]A. 'B. :C. \D. _13.下列可作为 Visual Basic 的变量名的是 [ ]A .Filename B. A（A＋B） C.A%D D.Print14.要让菜单项无效，应将( )属性值设置为 False。
Visual Basic程序设计形成性考核册作业答案三一、选择题1、Visible Basic根据计算机访问文件的方式将文件分成三类，其中不包括（B）A．顺序文件 B. Unix文件 C. 二进制文件 D. 随机文件2、随机文件进行文件读取的单位是（B）A．字节 B。
记录 C。
整个文件 D。
字符3、为了使目录路径列表框Dir1的内容符合驱动器列表框Drive1的选择，应当（B）。
A．在Dir1_Click事件中加入Dir1.Path=Drive1.DriveB．在Drive1_Click事件中加入Dir1.Path=Drive1.DriveC．在Dir1_Click事件中加入Drive1.Path= Dir1.DriveD．在Dir1_Click事件中加入Drive1.Path= Dir1.Drive4、为了使drive1驱动器列表框、dir1目录路径列表框和file1文件列表框能同步协调工作，需要在（B）A． drive1的Change事件过程中加入drive1.Drive=dir1.Path，在dir1的Change事件过程中加入dir1.Path=file1.Path代码。
B． drive1的Change事件过程中加入dir1.Path = drive1.Drive，在dir1的Change事件过程中加入file1.Path =dir1.Path代码。
C． dir1的Change事件过程中加入dir1.Path = drive1.Drive，在file1的Click事件过程中加入file1.Path =file1.fileName代码。
D．dir1的Change事件过程中加入dir1.Path = drive1.Drive，在file1的Click事件过程中加入file1.Path =dir1.Path代码。
5、下面关于顺序文件的描述正确的是（A）A．每条记录的长度必须相同B．可通过编程对文件中的某条记录方便地修改C．数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示D．文件的组织结构复杂6、KILL语句在VB语言中的功能是（C）。
资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。
第1章 Visual Basic 6.0程序设计概述一、判断题1．√ 2．√3．×说明: 同类控件( 如两个标签) 相互重叠, 设计时能够设置”置前”、”置后”属性。
4．√ 5．× 6．√ 7．× 8．√ 9．√ 10．×11．√ 12．√13．× 14．√ 15．× 16．√ 17．√ 18．√ 19．√20．√二、选择题1. C2. B 3．D 4．C 5．B 6．A 7．D 8．A 9．B 10．A 11．C 12．D三、填空题1．对象、事件 2．属性、方法、事件 3．控件、屏幕( Screen)4．对象 5．Left、 Top 6．属性、 <对象名>.<属性名>=<表示式>7．网格 8．F orm19．Load或Initialize或Resize或Activate( 自动执行的先后顺序也按此排列)10．Activate、 Deactivate四、程序设计题程序1．界面设计参看图10-1、 10-2以及表10-1。
表10-1 实例2各控件的主要属性设置过程设计如下:Private sub Form_Click()Command2.Enabled = FalseEen SubPrivate Sub Command1_Click()Label2.Visible = FalseLabel1.Caption = Text1.Text + ": 欢迎使用" +资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。
Label1.CaptionText1.Visible = FalseCommand1.Enabled = False: Command2.Enabled = True End SubPrivate Sub Command2_Click()EndEnd Sub程序2．界面设计略, 过程设计如下:Private Sub Command1_Click() '字体变大 Form1.FontSize = Form1.FontSize + 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command2_Click() '字体变小 Form1.FontSize = Form1.FontSize - 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command3_Click() '字体加粗 Form1.FontBold = TrueForm1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command4_Click() '字体不加粗 Form1.FontBold = FalseForm1.Cls: Print "欢迎使用VB"End Sub运行时, 不得连续、过多次单击”字体变小”按钮, 因为当FontSize属性值小于0会产生适时错误。
《VB程序设计》综合复习资料第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX 控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化 B．面向对象 C．面向图形 D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
《VB程序復针》傢合靈习诲料时间：2021.02. 03 创作：欧阳体第一# Visual Basic卷房谡针網毬1、VisualBasic县一神而角______________ 的可视亿程瘁後皆语育，采取了 ____________ 的編綏机利。
2、右VB中3痉立件的犷急2昱__________________ ,窃体文仿的豺急2县_________________ ,林推桜徒尢需的少屐2经3、如矽“3程”菜单下的__________________ 命今，可逸播并添利ActiveX 施<4 o4、Visual Basic 6.0用孑科岌 _____________ 环俺下的应用程厚。
二、遑舞题1、下而不县VB 3仔催式的昱()A.後诂栈弍B.迄紂槿式C・汇僞槿式D・中断楼式2、可视亿僞程的是尢优点昱()A.典有杉:隹工典箱B.—个工程立件由若孑个窃体尢件处戌C.不需爰备乍尢逻代錫来搐迖⑦衫対兔D.所风即所需3、下列不能鬥易属俊窃匕的闊仔县()A.仇朽“视囹"菜单中的“鷹俊窃Q”命今B.溜F4 縫C ・ Ctrl+TD・单击工具牲£的“属俸窃疗''壇纽4、下列可以鬥科立即窗（2的芻仔县（）A. Ctrl+DB. Ctrl+E C・ Ctrl+F D. Ctrl+G5、Visual Basic的备痉机粥经（）A・可视亿B.而為対兔C・而為谢衫D・事件郭动三、筒答题1、代親窗▽至理包循哪e部分？2、右3終悄懣管理器窃C?中，主殳列出3哪三垄交件？3、窗体布咼窗㊀的主殳用逹经讨么？4、VB的基本游点县什么？5、倉样理斜可视亿後皆？6、倉理理餡琴件礎为隔程？第Zf简单的VB繹房谡针-、鎭空題1、役签昱《可以用Tab縫来逸取冷今血鉉，应務用_______________ 属僅。
2、一个據件应窗体的铉養由_____________ 餉_________ 属僅块宝，典尢J由 ____________ 餉 _________ 属傕:兴&o3、列用対兔的念傕setfocus可获需仗点，对孑一个对兔，口侖典visible 4傕牝_____________ 4僅刈true,才能谑登仗点。
目录实验一 Visual Basic编程环境和控件 (1)实验二窗体及基本控件使用 (6)实验三顺序结构程序设计 (13)实验四选择结构程序设计 (19)实验五选择结构程序设计（续） (24)实验六循环结构程序设计 (32)实验七循环结构程序设计（续） (37)实验八常用控件 (41)实验九常用控件（续） (50)实验十数组 (55)实验十一数组（续） (64)实验十二顺序文件 (69)实验十三过程 (76)实验十四过程（续） (82)实验十五菜单及通用对话框 (87)实验十六随机文件（选作） (91)附录:VB统考编程题（精选） (95)期末自测题（A卷） (105)期末自测题（B卷） (110)实验报告的整理与编写上机实验结束后，编写实验报告是软件工程的要求，也是培养科学作风的重要途径，实验报告的主要容包括：（1）实验目的实验作为教学的一个重要环节，其目的在于更深入地理解和掌握课程教学中的有关基本概念，应用基本技术解决实际问题，从而进一步提高分析问题和解决问题的能力。
因此，当我们着手做一个实验的时候，必须明确实验的目的，以保证达到课程所指定的基本要求。
在写实验报告时，要进一步确认是否达到了预期的目的。
（2）实验容实验的目的是要通过解决一些具体问题来达到的。
在书中，每一部分都安排了多个实验题目，根据教学安排、进度、实验条件、可提供的机时、学生的基础等因素，可以选择其中的几个或全部。
因此，在实验报告中，实验容是指本次实验中实际完成的容。
在每一个实验题目中，一般都提出一些具体要求，其中有些具体要为了达到实验目的而提出的，不仅有具体的实验题目，还应包括具体要求。
（3）程序设计说明包括算法设计思路，必要的流程图，界面设计说明、使用模块及变量的说明等。
（4）源程序代码Visual Basic的源程序包括界面设计和代码。
程序设计的产品是程序，它应与算法或流程图相一致，要与用户界面设计一致。
程序要有具有易读性，符合结构化原则。
（5）程序的运行结果（包括对不同测试数据的运行结果）程序运行结果一般是输出语句所输出的结果。
对于不同的输入，其输出的结果是不同的。
因此，在输出结果之前一般还应注明输入的数据，以便对输出结果进行分析和比较。
在程序的运行中，还必须用各种不同情况的数据进行调试，以检查程序能否正常运行。
因为，有时程序对某些情况是可以正常运行的，而对某些特殊情况的数据可能会出现运行出错或死机，通过各种数据的调试，尽量做到程序不会出问题。
（6）实验体会分析和体会实验中碰到的问题及解决方法,这是实验报告中最重要的一项，也是最容易忽视的一项。
实验过程量的工作是程序调试，在调试过程中会遇到各种各样的问题，每解决一个问题就能积累一点经验，提高自己的编程能力。
因此，对实验的总结，最主要的是程序调试经验的总结。
调试分析也包括对结果的分析。
体会主要是指通过本次实验是否达到了实验目的，有哪些基本概念得到了澄清，碰到了那些以前没有见到的问题，最后采用什么方法得到解决等。
实验日期年月日实验一Visual Basic编程环境和控件一、实验目的1、掌握启动与退出Visual Basic的方法。
2、掌握Visual Basic语言程序的开发环境.3、掌握Visual Basic语言程序设计的方法与特点4、掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。
二、实验容申请一个免费(如果已经有，请跳过)，以便以后将每星期编制的程序压缩并存放在中（或者保存在U盘中），以便复习时用。
1. 创建第一个应用程序。
编写一个简单程序，实现单击命令按钮时在文本框显示“单击命令按钮”，单击窗体空白处时在文本框显示“单击窗体”。
保存窗体文件名：SY1_1.frm,保存工程名：SY1_1.vbp。
程序界面如图1 1.所示。
图1.1 实验1的运行界面【步骤】①启动Visual Basic6.0，在弹出的“新建工程”对话框中选择“标准EXE”。
②在窗体上建立一个文本框和一个命令按钮。
建立方法：在左边工具箱上，单击要绘制的控件的按钮，再把鼠标移到窗体，按住鼠标左键画出所需大小的框体。
或者是双击工具箱的要绘制的控件的按钮。
③分别选中命令按钮和文本框，在属性窗口中对各属性进行设置，属性设置参照表：表1.1 实验1属性设置对象名称属性属性值窗体Caption 我的第一个程序文本框Text （空）命令按钮Caption 命令按钮④双击命令按钮，进入代码窗口中命令按钮的默认事件，编写代码如下：Private Sub Command1_Click()Text1.Text = "单击命令按钮"End Sub⑤双击窗体的空白处，进入代码窗口中窗体的默认事件(Form_Load())，在右边的过程列表框中选择Click，，编写代码如下：Private Sub Form_Click()Text1.Text = "单击窗体"End Sub⑥单击工具栏上的按钮，运行程序，分别单击命令按钮以及窗体空白处，观察文本框上显示的容有何变化。
如果程序代码有错误，则进入代码窗口中调试程序。
⑦单击工具栏上的按钮，结束程序运行。
⑧单击工具栏上的按钮，将窗体、工程分别以SY1_1.frm、SY1_1.vbp保存在磁盘上。
2. 建立一个应用程序, 界面如图1.2所示，窗体包含有一个文本框和三个按钮，要求文本框中的字体为14号黑体加粗，颜色为红色，且文本容居中显示。
编写代码实现：图1.2 实验2 的运行界面1）按“显示容”按钮时，文本框显示“Hello,Visual Basic！”；2）按“清屏”按钮时，文本框中文字消失；3）按“结束”按钮后，程序结束。
（提示：代码中输入End ，则可结束应用程序运行） 保存窗体文件名：SY1_2.frm,保存工程名：SY1_2.vbp 。
表1.2 实验2属性设置对象名称 属性 属性值窗体Form1Caption 文本框Text1TextAlignment FontForeColor 命令按钮Command1 Caption 显示容 命令按钮Command2 Caption 清屏 命令按钮Command3Caption结束代码遇到的主要问题及分析：3、P260 实验 A 。
二、3.编写一程序，在文字框中统计在该窗口上鼠标单击的次数。
设计和运行界面如图1.3所示。
完成后自己取名保存。
图1.3 实验3 设计界面 运行界面代码遇到的主要问题及分析：【提高题】 P259 实验 A 。
二、1. 编写一程序，要求在屏幕上显示“欢迎学习Visual Basci ”，并在“请输入你的”标签后的文本框Text1中输入；单击“你输入的是”按钮，则在Label3标签上显示在文本框Text1中输入的。
窗体如图1.4所示。
图1.4 提高题 的运行界面代码遇到的主要问题及分析：【选作题】窗体上有两个名称分别为C1, C2的命令按扭，一个文本框Text1。
命令按钮的标题及文本框上显示的字符自定。
编程实现当按下C1时，将C2的标题与Text1中的容交换。
要求：1）界面自己设计 2）连续多次单击C1，都能将C2的标题与Text1中的容交换。
Label1调整控件的大小使内容显示为两行Label2 Label3将BorderStyle 属性设置为1Text1 Command1设计的界面如下：编写代码如下：实验心得体会教师签名：成绩：实验日期年月日实验二窗体及基本控件使用一、实验目的1、复习启动与退出Visual Basic的方法。
2、掌握窗体基本的事件、方法和属性，并学会在不同的事件的过程中，编写代码。
3、掌握文本框和标签两种控件的使用，掌握文本框和标签控件的常用属性、事件和方法。
以及它们之间的区别。
4、掌握命令按钮控件的常用属性、事件和方法。
二、实验容1、设计一个程序（如图2.1所示），用窗体模拟黑板，窗体上没有最大化、最小化按钮；鼠标单击窗体时窗体上输出提问，双击时显示回答。
分析：把窗体装扮成黑板模样，要设置窗体的BackColor属性为黑色，ForeColor属性为白色（模拟粉笔字的颜色）。
窗体上没有最大化、最小化按钮，则需要设置窗体的MaxButton、MinButton 属性。
而单击、双击时的输出显示，可以在Click、DblClick事件里用Print和Cls方法来实现。
（a）设计状态（b）运行状态（c）窗体单击（d）窗体双击图2.1 实验2.1模拟黑板1）属性设置表2.1 实验1属性设置对象名称属性属性值窗体Form1BackColorForeColo FontvbBlackVbwhiteMaxButton MinButton False False【思考】如果进一步要求随机出题（简单的数学四则运算题）在窗体上输出并显示答案，该怎么做Private Sub Form_Click()Dim a As Integer, b As Integera = Int(Rnd * 10)b = Int(Rnd * 10)Print a; "+"; b; "="; a + b ‘减法等同理End Sub2、窗体上有一个文本框Text1，要求当鼠标划过文本框Text1时，鼠标显示Cross“┼”形状；窗体上的一个标题为“复制”的命令按钮C1。
通过属性窗口实现以上的设置之后，编程实现：1)程序启动时窗体标题为“修改文本框容”；2)单击命令按钮C1，则把按钮上的标题复制到文本框，并使按钮不可见；3)单击窗体空白处，按钮可见但不可用。
➢必要属性设置表2.2 实验2属性设置对象名称属性属性值Text1 mousepointer 2-crossC1 caption 复制➢代码编写代码遇到的主要问题及分析：Private Sub Form_Load()Form1.caption=“修改文本框容”End SubPrivate Sub C1_Click()Text1 = C1.CaptionC1.Visible = FalseEnd SubPrivate Sub Form_Click()C1.Visible = TrueC1.Enabled = FalseEnd Sub3、窗体上有四个文本框，两个标题分别为“显示选息”“选中文本”的命令按钮。
要求程序运行时，光标焦点在Text1上，按下Tab键后，光标焦点跳到在Text3上。
在文本框Text1中输入一些字符；要求编程实现：图2.2 实验2.3文本信息选定窗体1）在文本框Text1中输入一行文字并按回车（Enter）后，把Text1的容设置为窗体的标题。
2）在Text1中选中其中一部分容后，单击“显示选息”命令按钮，则把在Text1中被选中文本的第一个字符的顺序号，被选中文本的字符个数，被选中的文本容分别显示在文本框Text2，Text3，Text4中。
