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
Label3.FontItalic = False
VisualBasic程序设计教程第版实验答案
