VisualBasic程序设计教程第版实验答案

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