注意：
要求程序中不得使用任何变量，每个事件过程只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。存盘时必须放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
Private Sub Command1_Click() Text2 = Text1.SelStart + 1 Text3 = Text1.SelLength End Sub
实验四：第四章1 基础练习
⒈ 在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，Text属性值分别为“学习”和“快乐”，字体分别为“华文彩云”和“方正舒体”，背景颜色分别为红和绿，字体均为3号；画一个命令按钮，名称为C1，标题为“交换”。程序运行时，单击“交换”按钮，则交换两个文本框的字体或背景颜色。
Private Sub Command1_Click() Dim s As String s = Text1.FontName
Text1.FontName = Text2.FontName Text2.FontName = s End Sub
⒉ 设计一个名称Form1的窗体，要求：
① 在文本框Text1里输入摄氏温度后，单击命令按钮Command1后，文本框Text2显示相应的华氏温度，反之亦然；
② 初始启动表单时，焦点位于Text1，命令按钮Command1的标题为“摄氏变华氏”；
③ 当在Text1里输入摄氏温度并按下命令按钮后，命令按钮Command1的标题变为“华氏变摄氏”，焦点位于Text2。
【提示】
摄氏转华氏：华氏=摄氏*9/5+32 华氏转摄氏：摄氏=（华氏-32）*5/9 Private Sub Command1_Click()
If Command1.Caption = \摄氏变华氏\ Text2 = Text1 * 9 / 5 + 32
Command1.Caption = \华氏变摄氏\ Text2.SetFocus Else
Text1 = (Text2 - 32) * 5 / 9
Command1.Caption = \摄氏变华氏\ Text1.SetFocus End If End Sub
⒊ 参考教材（p.67）例4.3，启动窗体时输出如下图形；单击窗体，清除图形。
【提示】
设置窗体的ForeColor和BackColor属性。 Private Sub Form_Load() AutoRedraw = True
Print : Print : Print : Print : Print
Print Tab(17); \☆☆☆☆☆\☆\ Print Tab(18); \☆☆☆☆\☆☆\ Print Tab(19); \☆☆☆\☆☆☆\ Print Tab(20); \☆☆\☆☆☆☆\ Print Tab(21); \☆\☆☆☆☆☆\
End Sub
3-1．在名称为Form1的窗体上画1个名称为Label1标签，三号字，背景色为绿色；3个单选按钮，名称分别为Option1、Option2、Option3，标题分别为“华文彩云”、“黑体”、“隶书”，当按下不同按钮时，标签的文字用相应的字体显示。
实验五：第四章2 综合练习
⒋ 在名称为Form1的窗体上画3个标签，名称分别为Label1、Label2和Label3，标题分别为“姓名”、“性别”和“欢迎您和我们一起学习VB”，并且Label3的大小能够随着标题文字的多少自动调整；2个文本框，名称分别为Text1和Text2，Text属性值均为空；1个名称为Command1的命令按钮，标题为“确定”。程序运行时，在Text1里输入姓名，在Text2里输入性别，按下“确定”按钮后，Label3的标题改为“××先生或女士，欢迎您和我们一起学习VB”（××为姓名，如果是男性，输出先生；否则输出女士）。
Private Sub Command1_Click() Dim temp As String If Text2 = \男\ temp = \先生\ Else
temp = \女士\ End If
Label3 = Text1 & temp & \欢迎您和我们一起学习VB\End Sub
⒌ 在名称为Form1的窗体上画1个标签，名称为Label1，初始为空白，能够自动调整大小；2个命令按钮，名称分别为Command1和Command2，标题分别为“输入3个数”和“求最大的数”。程序运行时，单击Command1按钮，依次弹出3个InputBox，要求用户输入任意3个整数；单击Command2按钮，求出3个数中最大的数，并在Label1里输出结果。
Private Sub Command1_Click()
a = InputBox(\请输入数a\输入数a\ b = InputBox(\请输入数b\输入数b\ c = InputBox(\请输入数c\输入数c\End Sub
Private Sub Command2_Click() Dim max As Integer If a > b And a > c Then max = a
ElseIf b > a And b > c Then max = b Else
max = c End If
Label1.Caption = a & \、\、\中最大的数是：\End Sub
⒍ 在名称为Form1的窗体上画2个标签，名称分别为Label1和Label2，标题分别为“姓名”和“欢迎您和我们一起学习VB”，并且Label3的大小能够随着标题文字的多少自动调整；1个文本框，名称为Text1，Text属性值为空；1个框架，包含2个单选按钮；1个名称为Command1的命令按钮，标题为“确定”。程序运行时，在Text1里输入姓名，在框架里选择性别，按下“确定”按钮后，Label2的标题改为“××先生或女士，欢迎您和我们一起学习VB”（××为姓名，如果选择男性，输出先生；否则输出女士）。
Private Sub Command1_Click() Dim temp As String If Option1 Then temp = \女士\ Else
temp = \先生\
End If
Label2 = Text1 & temp & \欢迎您和我们一起学VB\End Sub
⒎ 在名称为Form1的窗体上画2个标签，名称分别为Label1和Label2，标题分别为“请输入一个字母”和空白，并且Label2的大小能够随着标题文字的多少自动调整；1个文本框，名称为Text1，Text属性值为空。程序运行时，在文本框里输入字母并按下回车键，判断该字母是元音字母还是辅音字母，在Label2里显示结果。要求用Select Case结构完成。
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then c = Text1 Select Case c
Case \ Label2 = c & \是元音\ Case \ Label2 = c & \是元音\ Case Else
Label2 = c & \不是元音\ End Select End If End Sub
⒏ 在名称为Form1的窗体上画1个标签，名称为Label1，标题为空白，标签的大小能够随着标题文字的多少自动调整；2个框架，各包含2个单选按钮，标题分别为“男”、“女”、“教师”、“学生”；1个名称为Command1的命令按钮，标题为“确认”。程序运行时，在单选按钮里选择性别和身份，按下“确认”按钮后，Label1的标题显示“您是一个女（或男）教师（或学生）”。
Private sub command1_click() If option1 and option3 then
Label1.caption=”您是一位” & option1.caption & option3.caption Elseif option1 and option4 then