资源简介

Visual Basic
学习
娱乐
回忆
1、求变量x与y差的绝对值？
Abs(x-y)
2、下列语句运行时会出现什么问题？
y = sqr( -1234)
3、请问 int( 12.356*10 +0.5) / 10 的值等于多少？
int( 12.356*10 +0.5) / 10
= int( 123.56 +0.5) / 10
= int( 124.06) / 10
= 124/ 10
= 12.4
int( x *10 +0.5) / 10
int( x *100 +0.5) / 100
对变量x小数第二位进行四舍五入
对变量x小数第三位进行四舍五入
回忆
4、随机函数rnd的取值范围是？
Rnd ∈ [ 0 , 1)
5、int ( rnd *30) 产生的随机正整数的范围？一共是多少个？
int ( rnd *30) ∈ [ 0 , 29 ]
30个
6、一个班一共有45个学生，进行抽奖活动，随机产生学生的班级学号，请问怎么书写？
1 + int ( rnd *45) ∈ [ 1 , 45 ]
7、随机产生三位正奇数
正奇数∈ [ 101 , 999 ]
2*x+1 ∈ [ 101 , 999 ]
x ∈ [ 50, 499 ]
x=50+int(rnd*450)
2*(50+int(rnd*450))+1
关系运算符篇 值为True或False
{3B4B98B0-60AC-42C2-AFA5-B58CD77FA1E5}基本运算
运算符号
优先级
表达式举例
示例表达式的值
相等
＝
7
1＝2
False
不相等
<>
7
1<>2
True
小于
<
7
1<2
True
大于
>
7
1>2
False
小于等于
<＝
7
10 Mod 2 <＝20
True
大于等于
>＝
7
10 \ 2>＝7
False
关系运算符篇 值为True或False
{3B4B98B0-60AC-42C2-AFA5-B58CD77FA1E5}基本运算
运算符号
相等
＝
不相等
<>
小于
<
大于
>
小于等于
<＝
大于等于
>＝
1判断一个整数n是否为奇数。
奇数：不能被2整除的数
整数n除以2余数不为0
n mod 2 <> 0
n mod 2 = 1
这是条件表达式
不是赋值语句
关系运算符篇 值为True或False
{3B4B98B0-60AC-42C2-AFA5-B58CD77FA1E5}基本运算
运算符号
相等
＝
不相等
<>
小于
<
大于
>
小于等于
<＝
大于等于
>＝
2比较字符串。按位比较字符在编码表中的代码
“a”<“b”
“abc”=“ABC”
“1+3”=“4”
“abc”>“acb”
逻辑运算符篇——or 、 and 、not
(3) 求命题的反命题的值
not( true)
= false
not( false)
= true
not ( a= a>=b
(2) 表示命题a和命题b同时成立： and
true and true
= false
true and false
= false and true
= true
(1) 命题a 或命题b成立 ： or
true or false
= false or true
=true
false or false
= false
true
false
有时候用0表示false
非0的数表示true
命题表示——写出下列条件判断的表达式
例：x 大于100 或小于 -99
x > 100
x < -99
or
x ∈ [2,100]
2 <=x
x<=100
and
2<=x<=100
3已知变量a、b和c分别存储三条边长，判断输入的三条边长能否构成三角形。
2判断变量x是否同时被5或者7整除。
4判断字符串变量tq是否等于“小雨”。
5判断字符串变量ch是否是大写字母或小写字母。
优先级
算术运算符
关系运算符
逻辑运算符
1判断一个整数n是否为奇数。
命题表示——写出下列条件判断的表达式
例：x 大于100 或小于 -99
x > 100
x < -99
or
x ∈ [2,100]
2 <=x
x<=100
and
2<=x<=100
1判断一个整数n是否为奇数。
2判断变量x是否同时被5或者7整除。
x mod 5 = 0
x mod 7 = 0
or
优先级
算术运算符
关系运算符
逻辑运算符
命题表示——写出下列条件判断的表达式
例：x 大于100 或小于 -99
x > 100
x < -99
or
x ∈ [2,100]
2 <=x
x<=100
and
2<=x<=100
1判断一个整数n是否为奇数。
3已知变量a、b和c分别存储三条边长，判断输入的三条边长能否构成三角形。
2判断变量x是否被5整除或者被7整除。
a+b>c
n mod 2 <> 0
x mod 5 = 0 or x mod 7 = 0
a+c>b
b+c>a
and
and
优先级
算术运算符
关系运算符
逻辑运算符
命题表示——写出下列条件判断的表达式
4判断字符串变量tq是否等于“小雨”。
5判断字符串变量ch是否是大写字母或小写字母。
优先级
算术运算符
关系运算符
逻辑运算符
tq = “小雨”
(“A” <= ch and ch <= “Z”)
(“a” <= ch and ch <= “z”)
or
英文字母在ASCII编码表中是按A-Z、a-z顺序排的
关键词记忆
Dim
Integer
Long
Single
Double
Val
string
Mod
True
False
Not
And
Or
Chr
asc
Boolean
Str
Mid
Len
Sqr
Abs
Int
rnd
实践——在text1输入圆的半径，在text2中输出圆的面积。
任务一：设计界面
任务二：编写代码实现窗体加载时按钮的标题文本显示“计算”；
点击按钮，计算圆的面积并在text2中输出。

作业
P56:1-11 P58~P60：1-10
20min做到哪算哪
标准函数篇
{3B4B98B0-60AC-42C2-AFA5-B58CD77FA1E5}
函数名
函数功能
数值型
Abs(x)
求绝对值
Sqr(x)
求x的算术平方根
Int(x)
求不大于x的最大整数
Rnd
返回 ∈ [0,1) 的随机小数
Asc(x)
字符转换为ASCII编码
Chr(x)
ASCII编码转换为字符
Val(x)
将数字字符串转换为数值
Str(x)
将数值转换为字符串
字符串型
Len(x)
计算字符串的长度
mid(s, i, n )
返回字符串s从i个开始长度为n的子串
标准函数篇——数值型
(1) 绝对值函数abs(x): 输入x，返回x的绝对值
例
abs(-100)
= 100
abs(23.45)
= 23.45
(2) 开平方根函数sqr(x): 输入x，返回x的平方根
sqr(4)
例
= 2
sqr(10)
= 3.16227766016838
sqr( -100)
报错4：
标准函数篇——数值型
(3) 小数转换成整数的函数int(x):
输入x，返回不大于x的最大整数
例
int( 3.13)
int(6.723)
int(x + 0.5) 含义
对小数点第一位进行四舍五入
int( 3.1 + 0.5)
例
= 3
= 3
= 6
int(-12.1)
= -13
int(-0.7)
= -1
= int(3.6)
int( -2.3 + 0.5)
= -2
= int(-1.8)
int( 3.5 + 0.5)
= int(4)
= 4
int( 3.7 + 0.5)
= int(4.2)
= 4
int( -3.6 + 0.5)
= int(-3.1)
= -4
(4) 随机函数rnd： 返回 ∈ [0,1) 的随机小数
例
rnd *100
返回 ∈ [0,100) 的随机小数,不包括100
rnd *20
Int(rnd *100)
返回 ∈[0,99] 的随机整数
Int(rnd *20)
返回 ∈[0,19] 的随机整数
公式
m，n都是正整数，公式 m+ int( rnd * n) 返回 ∈[m,m+n-1] 的随机整数
例 生成[20,60]随机整数
一共多少个整数： 60-20+1 = 41
最小值： 20
故： 20+ int( rnd * 41)
标准函数篇——数值型
返回 ∈ [0,20) 的随机小数,不包括20
标准函数篇——字符串型
例
len(“ABCD”)
(2) 截取函数mid(s, m, n )
返回字符串s从m个开始长度为n的子串
=4
(1) 求字符串中字符的个数len(s) length [le?θ]
注意第一参数必须是字符串，第二个参数表示开始位置，第三个参数表示子串的长度
len(“3.1415”)
=6
例
mid( “ABCDEFG”, 4,3)
= “DEF”
mid( “ABCDEFG”,len(“ABCDEFG”),1)
= mid (“ABCDEFG”, 7,1)
= “G”
mid( “ABCDEFG”, 4,9)
= “DEFG”
mid( “ABCDEFG”, 4)
= “DEFG”
标准函数篇——两对反函数
(1) 已知字符，求其ASCII码 ASC(c) 输入字符c，返回字符c的ASCII码
例
asc( “A”)
= 65
asc( “a”)
= 97
asc( “0”)
= 48
(2)知道ASCII码，求其对应的字符chr(a)
输入整数a，返回该ASCII码对应的字符
例
chr(66)
=“B”
chr(50)
=“2”
chr(100)
=“d”
标准函数篇——两对反函数
（1） 数值型转换字符串表示str(n): 输入数值n，返回其字符串表示
例
str( -100)
= “-100”
str( -12.45)
= “-12.45”
(2) 字符串转换成对应的十进制数val(s): 输入字符串s，返回字符串对应的数值
例
val( “-100”)
= -100
val(“10.234”)
= 10.234
str(100)
= “ 100”
空格，符号位
算术运算篇
{3B4B98B0-60AC-42C2-AFA5-B58CD77FA1E5}基本运算
运算符号
优先级
表达式举例
示例表达式的值
乘幂
^
1
2^3
8
取负
－
2
-1
-1
乘法
*
3
3*2.5
7.5
实数除法
/
3
10/4
2.5
整除
\
4
10\4
2
取余数
Mod
5
11 Mod 4
3
加法
＋
6
减法
－
6
优先级高的先执行，同级别的从左往右。只有一种”（）”。
算术运算篇
{3B4B98B0-60AC-42C2-AFA5-B58CD77FA1E5}运算符号
优先级
^
1
－
2
*
3
/
3
\
4
Mod
5
＋
6
－
6
优先级高的先执行，同级别的从左往右。只有一种”（）”。
n1= 17 Mod 9 + -2 ^ 3
n1的值？
n2= 1230 \ 100 / 10
n2的值？
n3= 1230 / 10 \ 100
n3的值？
n4= ((1230 \ 10) / 100) * 2 mod 10
n4的值？
0
123
1
2
函数与表达式
P72-P73
字符串篇
1、交换文本
2、连接文本
3、取文本的某一子串
Dim a,b,c As String ‘声明变量
a = Text1.Text ‘获取输入的值
b = text2.Text
c=a
a=b
b=c
Text1.Text = a ‘在文本框中输出
text2.Text = b
c=a:a=b:b=c
P74 第二段
双击“交换”按钮，在代码窗口输入代码
补充语句，并说说交换的是哪两个变量的值
______ : str2 = str1 : str1 = ch
t = i : ______ : j = t
m = imax : imax = imin : _______
字符串篇
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 '在文本框中输出
双击“连接”按钮，在代码窗口输入代码
报错3：类型不匹配
如： 1 +“a”
text1.text = 123
字符串型 = 整数型 左右为难，错误
字符串篇
1、交换文本
2、连接文本
3、取文本的某一子串
函数mid(s,i,n)：
从字符串s中的第i位取n个字符
Dim a, b As String '声明变量
a = Text1.Text '获取输入的文本
b = Mid(a, 1, 1) + Mid(a, 3, 1) + Mid(a, 5, 2)
Text2.Text = b '在文本框中输出
双击“取子串”按钮，在代码窗口输入代码
试一试
回忆——事件、事件处理过程
对象名
事件名
事件处理过程名
生活化举例：
sub 小明_饿了()
一些小明解决肚子饿这一事件的过程语句
end sub
格式:
sub 事件处理过程名()
语句块
end sub
String 字符串型 “123”
Integer 整数型 32767
Long 长整数型 40000
Single 单精度实数型 123.4
Double 双精度实数型 123.4
Boolean 逻辑型 True
回忆——数据类型
声明格式（定义）：
Dim 变量名 As 数据类型
标识符（变量与常量）的命名规则：
1字母或汉字开头；
2只有字母、汉字、数字或下划线；
3不使用关键字，不与标准函数名同名。
报错1：
dim n as Integer
n=40000
每种数值型都有表示范围的限制，超出表示范围的数值保存到变量中，我们称之为溢出
赋值语句(P74)
格式：
变量=表达式 对象名.属性名=表达式
变量=对象名.属性名 ‘输入 对象名.属性名=变量 ‘输出
在文本框Text1里显示结果
Text1.Text=n
获取文本框Text1里面输入的值
n=Text1.Text
回忆
对象、属性
{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
form1.caption=“窗体”
label1.caption=“标签”
cnd1.caption=“按钮”
text1.text=“文本框”
对象名.属性名=变量 ‘输出
报错2：
label1.cap=“标签”
试一下（5分钟）
打开窗体文件“赋值语句.frm”，将代码补充完整
单击按钮，实现在标签Label1、文本框text1、按钮btn1上显示某一文本。界面如下图：
列表框list1
使用addItem方法添加新项
list1.addItem “4”

展开更多......

收起↑