浙教版高中信息技术 必修一 课件_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)：
从字符串s中的第i位取n个字符
Dim a, b, c As String '声明变量
a = Text1.Text '获取输入的文本
c = Mid(a, 1, 1) + Mid(a, 3, 1) + Mid(a, 5, 2)
Text2.Text = c '在文本框中输出