Private Sub Textl Key Press(Key Ascii As Integer) Dir Dim ch as sti bols="$#%&@ h= Chr(Key Ascii) KeyAscIi=0 Else Key Ascii=Asc(Case(ch)) Exit Sub Case"". Text1 Sel Text="BPT %〃: TextI. Seltext="O/0″ Case "&" Textl Sel Text=AND" End Select End sub 六、小结 在这一讲里,我们经常需要对给定的条件进行判断或比较,然后根据判断的结果来决定 下一步将采取的操作,这时便可以使用条件测试语句来实现。它有三种结构。单分支,双分 支和多重分支,我们都要学会,并运用 七、作业 习题3.1Private Sub Text1_KeyPress (KeyAscii As Integer) Dim spesymbols As String Dim ch As String 1 Spesymbols=$#%&@ ch= Chr(KeyAscii) If InStr(Spesymbols,ch) Then KeyAscii=0 Else KeyAscii = Asc(Ucase(ch)) Exit Sub End If Select Case ch Case $: Text1.SelText=DLR Case #: Text1.SelText=BPT Case %: Text1.SelText=0/0 Case &: Text1.SelText=AND Case @: Text1.SelText=AT End Select End Sub 六、小结 在这一讲里，我们经常需要对给定的条件进行判断或比较，然后根据判断的结果来决定 下一步将采取的操作，这时便可以使用条件测试语句来实现。它有三种结构。单分支，双分 支和多重分支,我们都要学会，并运用。 七、作业 习题 3.1