《VB编程-编程基础实例.ppt》由会员分享，可在线阅读，更多相关《VB编程-编程基础实例.ppt（28页珍藏版）》请在三一办公上搜索。
1、第三章 Visual Basic语言基础,引入：输入一个圆半径，求它的周长和面积。,一、理论知识：Visual Basic语言中的数据类型、常量、变量、函数,1、数据类型类型名称关键字（P4647）字节型 Byte整数 Integer 长整型Long单精度实数 Single 双精度型 Double字符串 String,2、变量的定义,格式：Dim 变量名As类型名（P5051）练习：说出下列变量定义语句的意义（1）DimAAsInteger（2）DimXANAMEAsString（3）DimS（4）DimBAsString*20,3、字符串与数值转换函数：（P5961）,（1）VAL（X）：把
2、字符串X的值转换为数值型。如VAL（“123”）123VAL（“4.5AB”）4.5（2）STR(X):把数值X转换成字符串如STR(123)“123”STR(5.8)“5.8”,3、输入输出函数（P5759）,（1）Msgbox()函数（P57）功能：在对话框中显示提示信息，等待用户单击后返回。格式1：Msgbox“提示信息”，按钮数，“标题”格式2：字符串变量Msgbox（“提示信息”，按钮数，“标题”）（2）InputBox()函数功能：显示一个带提示信息的输入对话框，接收用户输入的字符串。格式：字符串变量InputBox（“提示信息”，“标题”，“缺省值”）,4、数学函数：（P59-6
3、0）,（1）Int(x)函数功能：得到不大于X的最大整数。如Int(3.9)3Int(5.1)-6（2）Fix(X)函数功能：取X的整数部分，直接去掉小数如Fix(3.9)3Fix(5.1)5（3）Sqr(N)函数，N=0功能：得到N的平方根。如Sqr(9)3Sqr(10)3.162277,4、数学函数：（P59-60）,（4）Rnd(N)函数功能：产生随机数如Rnd 产生01之间的一个随机数Int(（10050+1）*Rnd+50)产生一个50100之间的随机整数Int(（10000+1）*Rnd+0)产生一个01000之间的随机整数Int(（YX+1）*Rnd+X)产生一个XY之间的随机整
4、数思考：如何产生3898之间的一个随机整数 说明：如果要使产生的随机数每次不同，应先运行Randomize语句,练习1：说出下列表达式的值：,1、VAL（“123”）2、VAL（“4.5AB”）3、Int(3.9)4、Int(5.1)5、Fix(3.9)6、Fix(5.1)7、Sqr(9)8、Sqr(10),练习2：说出下列表达式的值：,1、产生一个50100之间的随机整数：Int(（10050+1）*Rnd+50)2、产生一个01000之间的随机整数：Int(（10000+1）*Rnd+0)3、X大于100或X小于50：X100ORX504、5X9：X5ANDX9,练习3：说出下列代码的含义
5、,1、Dim R As Single定义R为单精度变量2、R=Val(Text1.Text)把文本框内的文本转换为数字赋值给变量R3、Text2.Text=Str(P)把变量P的数值转换为字符串后传输给文本框Text24、Dim i,a As Integer定义i、a为整形变量5、Randomize发送随机种子数6、a=Int(10*Rnd+0)随机产生一个0到9的整数7、Text1.Text=Text1.Text+Str(a)把变量a的数值转换为字符串后接到文本框Text1的文本中,应用举例：,例41输入一个圆半径，求它的周长和面积。第一步：创建新窗体Form1，在此窗体上创建二个命令按扭C
6、ommand1、Command2，创建三个标签Label1、Label2、Label3和三个文本框Text1、Text2、Text3。定义三个变量R、P、A分别代表半径、周长和面积。,第二步：设置对象的属性,第三步：补充完成代码编写,Private Sub Command1_Click()Dim R As SingleDim P As SingleDim A As Single R=Val(Text1.Text)P=2*3.14159*R A=3.14159*R*R Text2.Text=Str(P)Text3.Text=Str(A)End SubPrivate Sub Command2_Cl
7、ick()EndEnd Sub,应用举例：,例42输入任意一个整数，输出这个数的平方值、立方值和平方根值。第一步：创建新窗体Form1，在此窗体上创建二个命令按扭Command1、Command2，创建四个标签Label1、Label2、Label3、Label4和四个文本框Text1、Text2、Text3、Text4。定义四个变量X、A、B、C分别代表输入数的值、平方值、立方值、平方根。,第二步：设置对象的属性,第三步：补充完成代码编写,Private Sub Command1_Click()Dim XDim ADim BDim C X=Val(Text1.Text)A=X*X B=X*X
8、*X C=Sqr(X)Text2.Text=Str(A)Text3.Text=Str(B)Text4.Text=Str(C)End SubPrivate Sub Command2_Click()EndEnd Sub,应用举例：,例43如今买彩票已经成为许多人生活中不可缺少的一部分，电视里的摇奖过程勾动着众多彩民的心弦，随着摇奖机的转动，一个个中奖号码产生了。我们都知道，摇奖机摇出的号码是一个随机数，谁也无法预料、无法控制分析程序的构成，在窗体中设计“中奖号码”文本框和“开奖”按钮及一个标签控件。这个模拟程序开始中奖号码开始为空，当单击开奖按钮后，随机产生一个7位数中奖号码。,解第一步：创建新窗
9、体Form1，在此窗体上创建一个命令按扭Command1，一个标签Label1、一个文本框Text1。变量A定义为开奖号码。,第二步：设置对象的属性,第三步：补充完成代码编写,Private Sub Command1_Click()Dim i,a As IntegerText1.Text=For i=1 To 7Randomizea=Int(10*Rnd+0)Text1.Text=Text1.Text+Str(a)Next iEnd Sub,应用举例：,例44用InputBox()函数输入一个人的身高H（厘米）和体重W（公斤），如果HW的值大于等于110，则打印“你太瘦了！”；如果HW的值小于
10、等于100，则打印“你太胖了！”；如果HW的值在100110之间，则打印“你的身材真好！”。,解第一步：创建新窗体Form1。定义四个变量H（身高，字符串型）、W（体重，字符串型）,Ha（身高，数值型）、Wa（体重，数值型）、C（Cha wa，数值型）第二步：设置对象的属性,第三步：补充完成代码编写,Private Sub Form_Click()Dim hDim wDim ch=InputBox(请输入身高(厘米）,输入身高,0)w=InputBox(请输入体重(公斤）,输入体重,0)Print 身高为;h;厘米Print 体重为;w;公斤c=h-wIf c=110 Then Print 你
11、太瘦了！If c 100 And c 110 Then Print 你的身材真好了！End Sub,应用举例：,例45创建新窗体名为“根据身高和体重判断胖瘦”，在此窗体上创建二个命令按扭“计算”和“结束”，创建三标签“输入身高（厘米）”、“输入体重（公斤）”、“判断胖瘦程度”和三个文本框Text1、Text2、Text3。判断法则为：设身高为H（厘米），体重为W（公斤），如果HW的值大于等于110，则打印“你太瘦了！”；如果HW的值小于等于100，则打印“你太胖了！”；如果HW的值在100110之间，则打印“你的身材真好！”。,解第一步：创建新窗体Form1，在此窗体上创建二个命令按扭Comm
12、and1、Command2，创建三个标签Label1、Label2、Label3和三个文本框Text1、Text2、Text3。定义三个变量H、W、C,第二步：设置对象的属性,第三步：补充完成代码编写,Private Sub Command1_Click()Dim hDim wDim c h=Val(Text1.Text)w=Val(Text2.Text)c=h-w If c=110 Then Text3.Text=你太瘦了！If c 100 And c 110 Then Text3.Text=你的身材真好！End SubPrivate Sub Command2_Click()EndEnd Sub,
