(截止目前所有上机实验及代码。不用画窗体界面，只写题目和代码。填写实验报告也是复习的过程，
请务必认真！) ．．．．．．
实验一：第二章
⒈ 在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“等级考试”，BorderStyle属性值为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。程序运行后，界面如图所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。
Private sub command1_click() Label1.visible=false
Command1.caption=label1.caption End sub
⒉ 在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“输入信息”、一个文本框，名称为Text1，Text属性为空白、一个命令按钮，名称为Command1，标题为“显示”。然后编写命令按钮的Click事件过程。程序运行后，在文本框输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框的内容。要求程序中不得使用任何变量。
上机代码：Private sub command1_click() Label1.visible=false Text1.visible=false Print text1.text End sub
⒊ 在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，再画两个命令按钮，名称分别为Command1和Command2，标题分别为“复制”和“删除”。程序运行时，在Text1中输入一串字符，并用鼠标拖曳的方法选择几个字符，然后分别单击“复制”按钮，则被选中的字符被复制到Text2中；若单击“删除”按钮，则被选中的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。
Private sub command1_click() Text2=text1.seltext End sub
Private sub command2_click() Text1.seltext=”” End sub
4． 在名称为Form1的窗体上画一个文本框，名称为Text1，Text属性值为“VB可视化程序设计”，采用宋体四号字；再画三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“黑体”、“隶书”和“楷体_GB2312”。程序运行时，单击不同的命令按钮，则文本框的字体变为相应的字体。请编写三个命令按钮的Click过程完成上述功能。
Private sub command1_click()
Text1.fontname=command1.caption End sub
Private sub command2_click()
Text1.fontname=command2.caption End sub
Private sub command3_click()
Text1.fontname=command3.caption End sub
5． 在名称为Form1的窗体上画一个文本框，名称为T1，Text属性值为空。要求在文本框里输入“VB程序设计”，并按下回车键以后，窗体的标题栏显示文本框的内容。
Private sub text1_keypress(keyascii as integer) If keyascii=13 then Caption=text1 End if End sub
实验二：第三章1
⒈ 在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，Text属性值均为空。程序运行时，在T1输入“abcdefg”，立即在T2里显示“ABCDEFG”。程序中不得使用任何变量。 【提示】函数Ucase()将小写字母转换为大写字母。
Private sub T1_change() T2=ucase(T1) End sub
⒉ 在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，Text属性值均为空；画一个命令按钮，名称为C1，标题为“确定”。程序运行时，在T1中输入“abcdefg”，按下回车键或者“确定”按钮以后，在T2里显示“ABCDEFG”。程序中不得使用任何变量。
Private sub T1_lostfocus( ) T2=Ucase(T1) End sub
或：private sub T1_keypress(keyascii as integer)
If keyascii=13 then Tt2=Ucase(T1) End sub
⒊ 在名称为Form1的窗体上画一个标签，名称为L1，标题为“请输入圆半径”；一个文本框，名称为T1，Text属性值为空；一个命令按钮，名称为C1，标题为“计算圆面积”。程序运行时，在文本框里输入一个整数，按下“计算圆面积”命令按钮后，在窗体上输出相应的圆面积。
Private sub command1_click() Dim r as integer R=text1
Print 3.14*r*r End sub
⒋ 在名称为Form1的窗体上画一个文本框，名称为T1，Text属性值为空；一个标签，名称
为L1，标题为“欢迎您和我们一起学习VB”，标签的大小能够随着标题文字的多少自动调整。程序运行时，在文本框里输入你的姓名，并按下回车键，则标签的标题改为“欢迎××和我们一起学习VB”（××为你的姓名）。
Private Sub T1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
L1.Caption = Mid(L1, 1, 2) & T1 & Mid(L1, 4) End If End Sub
实验三：第三章2
⒌ 在名称为Form1的窗体上画一个标签，名称为L1，标题为“现在离北京奥运会开幕还有××天”，采用3号黑体字。程序运行时，该标签处于隐藏状态；单击窗体，该标签显示倒计时；双击窗体，隐藏标签。
提示：两个日期型数据进行减法运算的结果是数值型，意义是两个日期之间的天数。Date函数返回当天的日期。
Private Sub Form_Click() L1.Visible = True
L1 = “现在离2009年国庆还有\天\End Sub
Private Sub Form_DblClick() L1.Visible = False End Sub
⒍ 在名称为Form1的窗体上画一个名称为Label1的标签，其初始内容为空，且能根据指定的标题内容自动调整标签的大小；再画2个命令按钮，标题分别是“日期”和“时间”，名称分别为Command1和Command2。请编写2个命令按钮的Click事件过程，标签内显示系统当前日期；单击“时间”按钮时，标签内显示系统当前时间。如图所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。 注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm 。
Private Sub Command1_Click() Label1 = Date End Sub
Private Sub Command2_Click() Label1 = Time End Sub
⒎ 在Form1的窗体上画一个名称为Text1，内容为“程序设计”的文本框，显示字体为三号字、居中；再画二个命令按钮，标题分别是“粗体”和“斜体”，名称分别为Command1和Command2，如图所示。 要求：
编写两个命令按钮的Click事件过程，使得单击“粗体”按钮时，文本框的内容显示为粗体格式；单击“斜体”按钮时，文本框的内容显示为斜体格式。 注意：
程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm 。
Private Sub Command1_Click() Text1.FontBold = True End Sub
Private Sub Command2_Click() Text1.FontItalic = True End Sub
⒏ 在名称为Form1的窗体上，画两个名称为Label1、Label2，标题分别为“开始位置”、“选中的字符数”的标签；画三个文本框，名称分别为Text1、Text2、Text3，再画一个名称为Command1，标题为“显示选中信息”的命令按钮。程序运行时在Text1中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号显示在Text2中，选中的字符个数显示在Text3中，如图所示。 要求：
画出所有控件，编写命令按钮的Click事件过程。