闂備浇顕栭崢娲础閹惰棄鐒垫い鎴炲劤閻忓崬鈹戦鐓庢毐妞ゆ洩缍侀崺鈧柨鐕傛嫹End If
If Chr(KeyAscii) = \ n = n - 1 End If Else If n = 0 Then Print \括号配对成功\ Else If n > 0 Then
Print \左括号多于右括号\个，按“重置”按钮，重新输入\ End If If n < 0 Then
Print \右括号多于左括号\个，按“重置”按钮，重新输入\ End If End If End If
End Sub
实验3-8
输入一个数字（1～7），分别通过Select语句和Choose函数两种方法用英文显示对应的星期一～星期日，效果如图所示：
Private Sub Command1_Click() Select Case Trim(Text1) Case 1
Label2 = \ Case 2
Label2 = \ Case 3
Label2 = \ Case 4
Label2 = \ Case 5
Label2 = \ Case 6
Label2 = \ Case 7
Label2 = \ Case Is > 7, Is < 1 MsgBox \数字为1~7，重新输入\ Text1 = \ Text1.SetFocus End Select End Sub
Private Sub Command2_Click() If Text1 > 7 Or Text1 < 1 Then MsgBox \数字为1~7，重新输入\ Text1 = \ Text1.SetFocus
Else
Label3 = Choose(Text1, \\ End If End Sub
实验3-9
“函数”和“字形”后单击“计算”按钮，在Label3以选择的字形显示计算的结果。
提示：
关于“字形”复选框的选用采用逐个判断选择，进行属性值的对应设置。字形的属性见表2.3.1，设置属性值为True时其属性起作用。
字 形 属 性 FontBold FontItalic FontStrikethru FontUnderline 意义 粗体 斜体 删除线 下划线
图2.3.6 实验3.9运行界面
Private Sub Command1_Click() If Option1.Value Then
Label3.Caption = \ ElseIf Option2.Value Then
Label3.Caption = \ Else
Label3.Caption = \ End If
If Check1.Value Then Label3.FontBold = True Else
Label3.FontBold = False End If
If Check2.Value Then Label3.FontItalic = True Else