vb-回顾-1

【例2】p62案例实训
选择百分制到等级 是 判断输入的数据 是否符合范围 是 实现转换 否
单击确定按钮，实现转换， 及相应的信息提示
提示输入错误，清空输入， 等待重新输入
Private Sub Command1_Click() If Option1.Value = True Then Label2.Caption = “转换为等级成绩是" If Val(Txtinput.Text) <= 100 And Val(txtinput.text) >= 90 Then txtoutput.text = "A" If Val(txtinput.text) >= 80 And Val(txtinput.text) < 90 Then txtoutput.text = "B" If Val(txtinput.text) < 80 And Val(txtinput.text) >= 70 Then txtoutput.text = "C" If Val(txtinput.text) < 70 And Val(txtinput.text) >= 0 Then txtoutput.text = "D" End If If Option2.Value = True Then Label2.Caption = “转换为百分制成绩是：" If txtinput.text = "A" Or txtinput.text = "a" Then txtoutput.text = "95" If txtinput.text = "B" Or txtinput.text = "b" Then txtoutput.text = "85" If txtinput.text = "C" Or txtinput.text = "c" Then txtoutput.text = "75" If txtinput.text = "D" Or txtinput.text = "d" Then txtoutput.text = "65" End If End Sub
x <= 0 ？
Yes
No
y=x^3+1
x > 0 And x <= 2 ？
Yes No
y=2 x>2？
Yes
y=5*x
x <= 0 ？ Yes y=x^3+1
No
x > 0 And x <= 2
Yes y=2 No
If x <= 0 Then y=x^3+1 elseIf x > 0 And x <= 2 then y=2 elseIf x > 2 Then y=5*x End If
End Sub
问题1：下面这个语句显示的内容,假设r=0,g=1,b=2
Lblrgb.Caption = "RGB(" & r & "," & g & "," & b & ")“ RGB( 0 , 1, 2 )
问题2：假设语句顺序如上调整，结果有什么变化
作业中存在的问题
3.
请不 ""
txtScore.SetFocus
存在问题？
End Sub
在窗体的 Activate事 件中设置文 本框的焦点
【例1】程序说明 当一个窗体成为活动窗口时触发该窗体的 Activate事件 当一个窗体不再是活动窗口时触发 Deactivate事件 使用If语句判断输入数据的合法性，小于0 或大于100时提示错误信息，并清空文本框 和标签，同时将光标置于文本框上 输入数据正确时，使用Select Case语句处 理五个等级
Select Case语句处理五个等级
Select Case score Select Case score Case Is >= 90 Case Is >= 60 txtresult.text = "A“ txtresult.text = "D" Case Is >= 80 Case Is >= 70 txtresult.text = "B“ txtresult.text = "C" Case Is >= 70 Case Is >= 80 txtresult.text = "C“ txtresult.text = "B" Case Is >= 60 Case Is >= 90 txtresult.text = "D“ txtresult.text = "A" Case Else Case Else txtresult.text = "E“ txtresult.text = "E" End Select End Select
Text3.text=720 Text3.text=3024 数值计算: 原因： text3.text=val(text1.text)+val(text2.text) “+”即可以做运算符，又可以做字符串连接符
作业中存在的问题

商品金额计算：
清空：
Txtresult.text=“” RGB调色演示程序 滚动条事件：
语句块
• 一条语句 • 或多条—语句间 用冒号分隔，并必 须写在一行上
End If
• 一条或多条语句。 • “Then”不能与其后 的语句写在同一行上， 否则必须加上分隔符
一、习题
（2）分析下列程序段的执行结果 A. x=5 y=-20 If not x>0 then x=y-3 else y=x+3
单击确定按钮，实现转换， 及相应的信息提示
单击退出按钮，结束程序
【例2】p62案例实训
选择百分制到等级
根据用户选择的转换模式， 判断输入的数据是否合理
判断输入的字 符是否是数字 是 如输入完毕，焦点转移 到“确定”按钮
否
提示输入错误，清空输入， 等待重新输入
Txtinput的keypress事件
代码
【例1】程序代码 Private Sub cmdCheck_Click() Dim score As Integer score = Val(txtScore.Text) If score < 0 Or score > 100 Then MsgBox "输入错误，请重新输入！" Form_Activate Else Select Case语句处理五个等级 End If End Sub
输出结果
等级是：B
一、习题
（4）判断数a的奇偶性 If a Mod 2 = 0 Then 输出 “偶数”信息 Else 输出 “奇数”信息 End If
一、习题
（5）判断x能否被3和5同时整除？ If x Mod 3 = 0 And x Mod 5 = 0 Then Print “x能被3和5同时整除”


Txtresult.Text = val(Text1.Text) * val(Text2.Text)+val(Text3.Text) * val(Text4.Text) )+val(Text5.Text) * val(Text6.Text)

2.

Change事件：单击滚动条、滚动条箭头时激活 Scroll事件：拖动滑块时触发 同一滚动条的change事件、scorll事件内容相同
从上而下判 断，直到遇 第一个满足 条件的Case
判 断 成 绩 的 5 个 等 级
一定要注意各Case分支的排列顺序
情况语句Select Case

语句形式： Select Case 变量或 表达式 Case 表达式列表1 语句块1 Case表达式列表2 语句块2 …… [Case Else 语句块n+1] End Select
作业中存在的问题
1.
Text文本框控件的text属性

text属性：文本框中输入或显示的文本内容 分析如下代码执行结果
Private Sub Command1_Click() Text3.Text = Text1.Text + Text2.Text * Text2.Text End Sub 运行时text1输入30，text2输入24，单击command1， text3显示内容？
作业中存在的问题
Private Sub HSbg_Change() Private Sub HSbg_Change() Piccolor.BackColor = RGB(r, g, b) g = HSbg.Value Lblrgb.Caption = "RGB(" & r &g, b)& g & "," & b & ")" Piccolor.BackColor = RGB(r, "," g = HSbg.Value = "RGB(" & r & "," & g & "," & b & ")" Lblrgb.Caption End Sub
print x-y;y-x
Not x>0=false，执行else分支
y=x+3
输出结果
-3