vb选择结构（VB selection structure）.docVIP

vb选择结构（VB selection structure） ....... 其他的 语句块n 最后如果 （2）在如果子句之后嵌套 如果条件表达式1 如果条件表达式2 语句块1 其他的 语句块2 最后如果 其他的 语句块3 最后如果 例如：以下程序段功能是___________________ #昏暗的X，Y # X = Val（text1文本） 如果x 0 Y = 2 * x + 1 “x = 0 Y = 0 其他的 Y = 2 * x 1 最后如果 正文文本= str（Y）。 4、多分支结构--选择案例语句--重点 格式： 选择案例表达式 案例1值 语句块1 案例2值 语句块2 ...... 其他案件 语句块n + 1 最后选择 执行过程：首先求选择案例之后的表达式的值，然后依次与案例后面的表达式列表1，表达式列表2的…中的值比较，若有相匹配的，则执行它下面的语句块，执行完之后，则选择案例结束。若没有匹配，则执行CaseElse下面的语句块。 注意： （1）选择的情况之后的表达式可以是任意表达式； （2）案例后面的值可以采用以下形式： 一个、可以是用逗号隔开的各个表达式的值 例2、4、6、8 B、表达式值1表达式值2 案例100到200 C、是关系运算符表达式（是指代选择案例之后表达式的值） 案例 20 例如：在text1文本框中输入一个学生成绩（0-100）： 成绩 = 90，在text2文本框中输出”优秀” 80 =成绩＜90，在text2文本框中输出”良好” 70 =成绩＜80，在text2文本框中输出”中等” 60 =成绩＜70，在text2文本框中输出”及格” 0 =成绩＜60，在text2文本框中输出”不及格” 第一种选择案例语句： 昏暗的得分为双 得分= Val（text1文本） 选择案例int（得分10） 例9 正文文本=“优秀”。 案例8 正文文本=“良好”。 案例7 正文文本=“中等”。 案例6 正文文本=“及格”。 其他案件 正文文本=“不及格”。 最后选择 第二种： 昏暗的得分为双 得分= Val（text1文本） 选择案例int（评分） 案例90到100 正文文本=“优秀”。 案例80到89 正文文本=“良好”。 案例70到79 正文文本=“中等”。 案例60到69 正文文本=“及格”。 其他案件 正文文本=“不及格”。 最后选择 第三种： 昏暗的得分为双 得分= Val（text1文本） 选择案例评分 案例 = 90 正文文本=“优秀”。 案例 = 80 正文文本=“良好”。 案例 = 70 正文文本=“中等”。 案例 = 60 正文文本=“及格”。 其他案件 正文文本=“不及格”。 最后选择 问题：针对一个文本框， How can only accept digital characters (0 to 9) and the backspace key? Write the code in the text box in the KeyPress event: The backspace key: 8 0:48 1: 49... 9: 57. Allow receiving ASCII: 8, 48-57 Dont allow ASCII: 8 or 8 and 48 or 57 Private Sub Text1_KeyPress (KeyAscii As Integer) If KeyAscii8 Or KeyAscii8 And KeyAscii48 Or KeyAscii57 Then KeyAscii=0 End If End Sub Question: in a text box, how to realize the real and can only receive the backspace key? The number of characters: + and -, ., 0 to 9 The +: 43 45: 46. 0 - 9: 48-57 The backspace key: 8 Allow input: 8, 43, 45, 46, 48-57 You are not allowed to enter: 8, 8 and 43, 44, 47, 57 Private Sub Text1_KeyPress (KeyAscii As Integer) If KeyAscii8 Or KeyAscii8 And KeyAscii43 Or KeyAscii=44 Or KeyAscii=47 Or KeyAscii57 Then KeyAscii=0 End If End Sub