VB第02次课(4学时).ppt

Select Case x Case 90 to 100 y = 优秀 Case 80 to 89 y = “良好“ Case 60 to 79 y = “合格 Case Else y = 不合格 End Select Select Case x Case IS=90 y = 优秀 Case IS=80 y = “良好“ Case IS=60 y = “合格 Case Else y = 不合格 End Select 思考：某班学生成绩：90分以上优秀，80分以上良好， 60分上合格，60分以下不合格。 真题 以下Case语句中错误的是______。 （A）Case 0 To 10 （B）Case Is10 （C）Case Is10 And Is50 （D）Case 3,5,Is10 注意： 1、Select Case后不能跟多个变量 2、不能在条件中出现变量 3、不能在条件中出现逻辑表达形式 2006年4月选择题20题 在窗体上画1个命令按钮和1个文本框 Private Sub Commandl_lick ( ) x = Val ( Text1.Text ) Select Case x Case 1, 3 y = x * x Case Is=10 , Is=-10 y = x Case -10 To 10 y=-x End Select End Sub 程序运行后，在文本框中输入3 ，然后单击命令按钮，则以下叙述中正确的是 B ）执行y=-x C ）先执行y = x * x ，再执行y=-x D ）程序出错 Select从前往后判定，当出现第1个满足的条件，则结构结束 A ）执行y = x * x 上机教程P27 【上机真题3.3】捷成48-4 已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理，具体处理方式为：15公里以内每公里加收 1.2元，15公里以上每公里收 1.8元。 第5章 常用标准控件 1 单选按钮 2 复选框 P37 考点6 单选按钮 OptionButton 属性 Caption Enabled Value Alignment Visible 事件 Click Value值 True 为选中 False 为不选 ?条件Option1.Value=True还可以写成那些形式 P37 考点6 复选框 CheckBox 属性 Caption Value Alignment 事件 Click Value属性值： 1-checked为选中 0-Unchecked为不选 2-Grayed为禁止操作（灰色） 上机真题 补充几个属性 字体属性FontName 字号属性 FontSize 下划线 FontUnderline 加粗 FontBold 倾斜 FontItalic 记忆方法：注意都包含Font，在代码窗口输入对象名后，利用 下拉式属性列表输入Font后可查到对应的字体系列属性名 捷成34-3 属性值 字符串 数值 逻辑值 逻辑值 逻辑值 课后作业上机练习 笔试作业：VB笔试教程第三章真题练习、第六章真题练习选择题1-9，第五章真题练习选择题23-26，填空题6。 上机作业：VB上机教程第三讲选择结构。 第二讲 VB控制结构-选择 第3章 运算符与表达式 2 第6章 顺序结构 3 第6章 选择结构 4 第5章 单选按钮和复选框 5 第3章 常用内部函数 1 * * * Len(变量名):测试的是变量所占的字节大小 Dim a as integer Print len(a) ‘值为2 * 注意语句Mid(字符串,位置[,L])的使用 a=“B程序设计” Mid(a,1,1)=“C语言程序设计” ‘a变量值为 “C程序设计” * c * Chr和asc函数常出现在字符串操作中， 如取从A ~Z所有字符 Private Sub Command1_Click() For i = 1 To 26 Text1.Text = Text1.Text Chr(Asc(A) - 1 + i) Next i End