Label1.caption=”您是一位” & option1.caption & option4.caption Elseif option2 and option3 then
Label1.caption=”您是一位” & option2.caption & option3.caption Else
Label1.caption=”您是一位” & option2.caption & option4.caption End if End sub
⒐ 在名称为Form1的窗体上画1个标签，名称为Label1，标题为“大家都来学VB”，小二号“方正舒体”；1个名称为Frame1的框架，标题为“请选择文字颜色”，内含3个单选按钮，名称分别为Option1、Option2、Option3，标题为空，背景色分别为绿、黄、红；1个名称为Frame2的框架，标题为“请选择文字效果”，内含3个复选框，标题分别为“粗体”、“斜体”、“下划线”。当按下不同按钮时，标签的文字用相应的颜色和效果显示。
Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontBold = True Else
Label1.FontBold = False End If End Sub
Private Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else
Label1.FontItalic = False End If End Sub
Private Sub Check3_Click() If Check3.Value = 1 Then
Label1.FontUnderline = True Else
Label1.FontUnderline = False End If End Sub
Private Sub Option1_Click() Label1.ForeColor = Option1.BackColor End Sub
Private Sub Option2_Click() Label1.ForeColor = Option2.BackColor End Sub
Private Sub Option3_Click() Label1.ForeColor = Option3.BackColor End Sub
:
实验6：第四章3 基础练习
⒈ 在Form1的窗体上画一个名称为Text1的文本框，初始内容为空；然后再画三个单选按钮，其名称分别为Op1、Op2和Op3，标题分别为北京、西安和杭州。编写适当的事件过程。程序运行后，选择Op1，在文本框显示“颐和园”；选择Op2，文本框显示“兵马俑”；选择Op3，文本框显示“西湖。
Private Sub Option1_Click() Text1 = \颐和园\End Sub
Private Sub Option2_Click() Text1 = \兵马俑\End Sub
Private Sub Option3_Click() Text1 = \西湖\End Sub
⒋ 在名称为Form1的窗体上画1个标签，标题为空，可以自动调节大小；再画1个命令按钮，标题为“输入/显示”。程序运行时，单击命令按钮，显示输入对话框，在对话框里输入某个月份后，在标签里显示该月份所在季节：
3-5：春季 6-8：夏季 9-11：秋季 12-2：冬季
Private Sub Command1_Click() Dim n As Integer
n = InputBox(\请输入月份\ Select Case n
Case 3, 4, 5
Label1 = n & \月是春季\ Case 6, 7, 8
Label1 = n & \月是夏季\ Case 9, 10, 11
Label1 = n & \月是秋季\ Case Else
Label1 = n & \月是冬季\ End Select End Sub
⒌ 在窗体上画一个名称为Label1的标签，标题为“神奇的循环”，方正舒体小五号字，红色，随字体变化自动调整大小；窗体的标题栏显示您的专业和姓名。程序运行时，单击窗体，自动逐步放大字体。图为放大后的界面。
Private Sub Form_Click() Dim i As Integer For i = 1 To 28
Label1.Font.Size = Label1.Font.Size + 1 Next i End Sub
⒍ 在窗体上画2个标签，标题分别为“输入字符串”和空白；1个文本框，初始内容为空；1个命令按钮，标题为“反向输出”。程序运行时，在文本框输入任意字符串后单击命令按钮，在Label2反向显示该字符串。
Private Sub Command1_Click() Dim s As String, i As Integer
For i = Len(Text1) To 1 Step -1
s = s & Mid(Text1, i, 1) Next i Label2 = s End Sub
实验七：第四章4 综合练习
⒎ 统计一串字符中元音字母和辅音字母的个数。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim n1, n2 As Integer If KeyAscii = 13 Then L= Len(Text1) For i = 1 To L
c = Mid(Text1, i, 1) Select Case c
Case \ n1 = n1 + 1
Case \ n1 = n1 + 1 Case Else
n2 = n2 + 1 End Select Next i
Label2 = \元音字母有\个\ Label3 = \辅音字母有\个\ End If End Sub
⒏ 编程，用QBColor函数显示16种不同的颜色的文字。
Private Sub Form_Click() For i = 0 To 15
ForeColor = QBColor( i ) Print \颜色代码：\ & i Next i End Sub
⒐ 有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Text1文本框（见图）。合法编号的组成是：前2个字符是大写英文字母，第3个字符是“-”，后面是数字字符（至少1个）。下面程序可实现此功能，请填空。
Private Sub Text1_LostFocus() n = Len(Text1)
For i = 1 To IIf(n > 3, n, 4) c = Mid(Text1, i, 1) Select Case【i】 Case 1, 2
If c < \
MsgBox (\第\个字符必须是大写字母！\ Text1.SelStart =【i-1】 Text1.SelLength = 1 Text1.【SetFocus 】 Exit For End If Case 3
If c <> \
MsgBox (\第\个字符必须是字符\ Text1.SelStart = 【i-1】 Text1.SelLength = 1 Text1.【setfocus】 Exit For End If Case Else
If c < \
MsgBox (\第\个字符必须是数字！\ Text1.SelStart =【i-1】 Text1.SelLength = 1 Text1.【setfocus】