浙教版高中信息技术 必修一 课件_VB_赋值语句课件（20张幻灯片）

Visual Basic 相信自己 迎难而上 编程从“Hello World”开始 设计应用程序的界面 编程从“Hello World”开始（P67） 控件工具箱 对象 类 对象 A 对象 B 对象 C 属性1 属性2 属性3 人 小明 小红 小花 长发 红鞋子 校服 类 属性窗口 属性名 属性值 编程从“Hello World”开始（标签） 1.1点击 2.1双击 1.2划出大小2.2调整大小 3设置属性值 Caption 标题 其他：点击按钮显示“Hello World” 附加： 1标签”Label1”的字体大小（FontSize）改变 2标签”Label1”的字体颜色（FontColor）改变 3标签”Label1”不可见（Visible） 编程从“Hello World”开始（命令按钮） 1.1点击 2.1双击 1.2划出大小2.2调整大小 3设置属性值 Caption 标题 编程从“Hello World”开始（文本框） 1.1点击 2.1双击 1.2划出大小2.2调整大小 3设置属性值 Text 文本 代码编写 回忆———事件、事件处理过程 对象名 事件名 事件处理过程名 生活化举例： sub 小明_饿了() 一些小明解决肚子饿这一事件的过程语句 end sub 格式: sub 事件处理过程名() 语句块 end sub 数据类型(P72) (1) 1234 (2) “1234” (3) 31.45 (4) True 整数：读成壹仟贰佰叁拾肆 字符串：读成壹贰叁肆 逻辑型 实数：读成叁拾壹点肆伍 数据类型： String 字符串型 “123” Integer 整数型 32767 Long 长整数型 40000 Single 单精度型 123.4 Double 双精度型 123.4 Boolean 逻辑型 True 声明格式（定义）： Dim 变量名 As 数据类型 标识符（变量与常量）的命名规则： 1字母或汉字开头； 2只有字母、汉字、数字或下划线； 3不使用关键字，不与标准函数名同名。 下列语句不会报错的是（） dim x as long dim long as long Dim 666 as integer dim 班级 as spring 赋值语句(P74) 格式： 变量=表达式 n=“12” 对象名.属性名=表达式 Text1.Text=“hello” 变量=对象名.属性名 ‘输入 对象名.属性名=变量 ‘输出 在文本框Text1里显示结果 Text1.Text=n 获取文本框Text1里面输入的值 n=Text1.Text 编程从“Hello World”开始（文本框） 双击打开代码窗口 试一下 打开窗体文件“赋值语句.frm”，将代码补充完整 单击按钮，实现在标签Label1、按钮btn1、文本框text1上显示某一文本。界面如下图： 列表框list1 使用addItem方法添加新项 list1.addItem “4” 小结 对象名、属性名、方法名、事件名、 赋值语句（如下） 1、获取文本框Text1里面输入的值 n=Text1.Text 2、在文本框Text1里显示结果 Text1.Text=n 3、在标签Label1中显示结果 Label1.Caption=n 4、在列表框List1中添加一项结果 List1.AddItem n {5C22544A-7EE6-4342-B048-85BDC9FD1C3A}类 对象（name） 属性 方法 事件 事件处理过程 Form Form1 Caption Load Form1_load Label （标签） Label1 Commandbutton （命令按钮） Cnd1 Click Cnd1_click Textbox（文本框） Text1 Text Listbox（列表框） List1 Additem 作业 P44~P46：例题解析部分，1-7 P49:1-5 字符串篇 1、交换文本 2、连接文本 3、取文本的某一子串 自行设计窗体，在代码窗口输入代码 字符串篇 1、交换文本 2、连接文本 3、取文本的某一子串 Dim a, b, n, m As String '声明变量 a = Text1.Text '获取输入的文本 b = text2.Text n = b m = a a = n b = m Text1.Text = a '在文本框中输出 text2.Text = b 自行设计窗体，在代码窗口输入代码 字符串篇 1、交换文本 2、连接文本 “a”+“1” “a1” “1”+“a” “1a” 1 & “2” “12” 1 & 2 “12” 3、取文本的某一子串 Dim a, b, c As String '声明变量 a = Text1.Text '获取输入的文本 b = text2.Text c = a + "爱" + b Text3.Text = c '在文本框中输出 字符串篇 1、交换文本 2、连接文本 3、取文本的某一子串 函数mid(s,i,n ... ...