3.↑条件测试语句 武汉职业技术学晚 注意:只要在一个分支内嵌套,不出现交叉,满足结 构规则,其嵌套的形式将有很多种,嵌套层次也可以任意 多。对于多层F嵌套结构中,要特别注意|F与Else的配对 关系,一个E|se必须与I配结,配对的原则是:在写含有 多层嵌套的程序时,建议使用缩进对齐方式,这样容易阅 读和维护
3.1 条件测试语句 注意：只要在一个分支内嵌套，不出现交叉，满足结 构规则，其嵌套的形式将有很多种，嵌套层次也可以任意 多。对于多层IF嵌套结构中，要特别注意IF与Else的配对 关系，一个Else必须与IF配结，配对的原则是：在写含有 多层嵌套的程序时，建议使用缩进对齐方式，这样容易阅 读和维护
3.↑条件测试语句 武职北技术学碗 【例3.1】将输入文本框中的所有小写字母转换成大写字母, 并将一些特殊符号变成等价的字符串,如DLR表示$、A 0/0表示%、BPT表示#、AND表示&等。可以在 KeyPress事件中 修改文本框控件的缺省操作,使它能在用户输入这些字符时进 行相应修改。 Private Sub Text1 KeyPress (KeyAsci i As Integer) Dim spesymbo Is As str ing Dim ch As str ing *1 Spesymbo Is="$#‰8@″ ch= Chr(KeyAsci i) I f InStr(spesymbo Is, ch)Then KeyAscii=0 Else
【例3.1】 将输入文本框中的所有小写字母转换成大写字母， 并将一些特殊符号变成等价的字符串，如DLR表示$、AT表示@、 0/0表示％、BPT表示#、AND表示&等。可以在KeyPress事件中 修改文本框控件的缺省操作，使它能在用户输入这些字符时进 行相应修改。 Private 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 3.1 条件测试语句