VBnet第4课.ppt

嵌套IF结构注意问题 为了增强程序的可读性，书写时采用锯齿型 IF语句形式若不在一行上书写，必须与End IF配对。 条件函数 IIf函数 IIf(表达式,True的值,False的值) 如：Tmax = IIf(xy,x,y) 等价于 IF xy Then Tmax=x Else Tmax=y （行IF语句） IF xy Then Tmax=x Else Tmax=y End IF （块IF语句） 条件函数（续） Choose函数 形式：Choose(整数表达式,选项列表) 作用： 根据整数表达式的值来决定返回选项列表中的某个值。 整数表达式的值是1，返回列表中的第1个选项 2 2 若整数表达式的值小于1或大于列出的选项数目时，返回nothing 例如：Nop=2 Op=Choose(Nop,”+”, ”-”, ”*”, ”/”) 示例（续） 改进插入菜单中的日期项，显示日期和星期 一行写不下可以用空格下划线连接写到下一行 示例（续）：增加随机数菜单 增加一项菜单 随机数 Name：Mrandom ShortCut：F5 请注意：菜单的名字要更改 随机数已经有按钮触发事件，这里无需再编写代码 在按钮触发Click事件的句柄加上 原有代码 * 工具栏的设计 工具栏ToolStrip 工具栏上按钮的提示文本 示例（续）： 制作如图所示工具栏 复制 插入上海对外贸易学院 字号大小12磅 字号大小20磅 剪切 粘贴 * 鼠标指针暂停时显示的信息 注意连动 将工具栏上的每个按钮的name均改成合适的名字 因为插入上海对外贸易学院、12磅、20磅都已经实现，请实现相应的关联连动 * 剪切、复制、粘贴的功能以前没有实现，在该按钮的Click事件中实现 练习 完成示例程序 改写“分数”菜单，当分数大于100或者小于0时出现如下对话框 找出示例程序中的小Bug，并改正 下周展望 Select Case 状态栏 别忘了 把自己的 U 盘带走 Visual Basic.NET 程序设计（4） 授课教师：柳 青 电 话办 公 室 ：学院楼B418 E-mail ：Liuq@shift.edu.cn * 上周回顾 双击文本框产生文本框的TextChanged事件 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged …… End Sub 文本框的LostFocus事件 Textbox1.Focus() 请注意写代码之前看清楚触发的是什么事件 * 上周回顾 主菜单，热键、快捷键 菜单项的名字可以更改 Mshift Mdate 只有建好MenuStrip1后，Form1中的MainMenuStrip属性才能出现MenuStrip1（会自动建立） 同样，只有建好ContextMenuStrip1后，文本框中的ContextMenuStrip性才能下拉出ContextMenuStrip1（必须自己设置） 上周回顾 再议 Textbox1.Text=“上海对外贸易学院” Textbox1.SelectedText =“上海对外贸易学院” 随机数 “计算函数”按钮 两种做法 第一种：最上面引入命名空间 TextBox5 TextBox6 Button3 第二种：函数名前加上math. 比较定义为Single和Double的不同 * Visual Basic.NET 程序设计 第四课 基本的控制结构 IF的嵌套、多分支、工具栏 示例：继续Unit3 大家做练习时在上次作业基础上继续完善即可 按钮上的提示文本 从工具箱中选择ToolTip控件 设置该按钮上的ToolTip1上的ToolTip属性 * InputBox函数 InputBox(提示[,标题][,默认值]) 函数返回输入的值为字符串 例： ss = InputBox(请输入分数, 分数, 100) If …Then …ElseIf 语句(多分支结构) If 表达式1 Then 语句块1 ElseIf 表达式2 Then 语句块2 …… [Else 语句块n+1] End If If …Then …ElseIf 语句流程图 表达式1 语句块1 表达式2 表达式n