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
VisualBasic程序设计教程第版实验答案)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)