50VB编程-编程基础实例

第三章第三章VisualVisualBasicBasic语言语言基础基础引入：输入一个圆半径，求它引入：输入一个圆半径，求它的周长和面积。的周长和面积。一、理论知识：一、理论知识：VisualBasicVisualBasic语言语言中的数据类型、常量、变量、函数中的数据类型、常量、变量、函数1、数据类型类型名称关键字（P46－47）字节型Byte整数Integer长整型Long单精度实数Single双精度型Double字符串String22、变量的定义、变量的定义格式：Dim变量名［As类型名］（P50－51）练习：说出下列变量定义语句的意义（1）DimAAsInteger（2）DimXANAMEAsString（3）DimS（4）DimBAsString*2033、字符串与数值转换函数：（、字符串与数值转换函数：（P59P59－－6161））（1）VAL（X）：把字符串X的值转换为数值型。如VAL（“123”）＝123VAL（“4.5AB”）＝4.5（2）STR(X):把数值X转换成字符串如STR(123)＝“123”STR(5.8)＝“5.8”33、输入输出函数、输入输出函数（（P57P57－－5959））（1）Msgbox()函数（P57）功能：在对话框中显示提示信息，等待用户单击后返回。格式1：Msgbox“提示信息”，按钮数，“标题”格式2：字符串变量＝Msgbox（“提示信息”，按钮数，“标题”）（2）InputBox()函数功能：显示一个带提示信息的输入对话框，接收用户输入的字符串。格式：字符串变量＝InputBox（“提示信息”，“标题”，“缺省值”）44、数学函数：、数学函数：（（P59P59--6060））（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.16227744、数学函数：、数学函数：（（P59P59--6060））（4）Rnd(N)函数功能：产生随机数如Rnd产生0――1之间的一个随机数Int(（100－50+1）*Rnd+50)产生一个50――100之间的随机整数Int(（1000－0+1）*Rnd+0)产生一个0――1000之间的随机整数Int(（Y－X+1）*Rnd+X)产生一个X――Y之间的随机整数思考：如何产生38――98之间的一个随机整数说明：如果要使产生的随机数每次不同，应先运行Randomize语句练习练习11：说出下列表达式的值：：说出下列表达式的值：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)＝练习练习22：说出下列表达式的值：：说出下列表达式的值：1、产生一个50――100之间的随机整数：Int(（100－50+1）*Rnd+50)2、产生一个0――1000之间的随机整数：Int(（1000－0+1）*Rnd+0)3、X大于100或X小于50：X＞100ORX＜504、5≤X≤9：X＞＝5ANDX＜＝9练习练习33：说出下列代码的含义：说出下列代码的含义1、DimRAsSingle定义R为单精度变量2、R=Val(Text1.Text)把文本框内的文本转换为数字赋值给变量R3、Text2.Text=Str(P)把变量P的数值转换为字符串后传输给文本框Text24、Dimi,aAsInteger定义i、a为整形变量5、Randomize发送随机种子数6、a=Int(10*Rnd+0)随机产生一个0到9的整数7、Text1.Text=Text1.Text+Str(a)把变量a的数值转换为字符串后接到文本框Text1的文本中应用举例：应用举例：［例4－1］输入一个圆半径，求它的周长和面积。第一步：创建新窗体Form1，在此窗体上创建二个命令按扭Command1、Command2，，创建三个标签Label1、Label2、Label3和三个文本框Text1、Text2、Text3。定义三个变量R、P、A分别代表半径、周长和面积。第二步：设置对象的属性第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption求圆周长和面积命令按钮Command1Caption计算命令按钮Command2Caption退出标签Label1Caption半径标签Label2Caption周长标签Label3Caption面积文本框Text1Text空白文本框Text2Text空白文本框Text3Text空白第三步：第三步：补充完成代码编写补充完成代码编写PrivateSubCommand1_Click()DimRAsSingleDimPAsSingleDimAAsSingleR=Val(Text1.Text)P=2*3.14159*RA=3.14159*R*RText2.Text=Str(P)Text3.Text=Str(A)EndSubPrivateSubCommand2_Click()EndEndSub应用举例：应用举例：［例4－2］输入任意一个整数，输出这个数的平方值、立方值和平方根值。第一步：创建新窗体Form1，在此窗体上创建二个命令按扭Command1、Command2，，创建四个标签Label1、Label2、Label3、Label4和四个文本框Text1、Text2、Text3、Text4。定义四个变量X、A、B、C分别代表输入数的值、平方值、立方值、平方根。第二步：设置对象的属性第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption求圆周长和面积命令按钮Command1Caption计算命令按钮Command2Caption退出标签Label1Caption输入标签Label2Caption平方标签Label3Caption立方标签Label4Caption平方根文本框Text1Text空白文本框Text2Text空白文本框Text3Text空白文本框Text4Text空白第三步：第三步：补充完成代码编写补充完成代码编写PrivateSubCommand1_Click()DimXDimADimBDimCX=Val(Text1.Text)A=X*XB=X*X*XC=Sqr(X)Text2.Text=Str(A)Text3.Text=Str(B)Text4.Text=Str(C)EndSubPrivateSubCommand2_Click()EndEndSub应用举例：应用举例：［例4－3］如今买彩票已经成为许多人生活中不可缺少的一部分，电视里的摇奖过程勾动着众多彩民的心弦，随着摇奖机的转动，一个个中奖号码产生了。我们都知道，摇奖机摇出的号码是一个随机数，谁也无法预料、无法控制分析程序的构成，在窗体中设计“中奖号码”文本框和“开奖”按钮及一个标签控件。这个模拟程序开始中奖号码开始为空，当单击开奖按钮后，随机产生一个7位数中奖号码。［解］第一步：创建新窗体Form1，在此窗体上创建一个命令按扭Command1，一个标签Label1、一个文本框Text1。变量A定义为开奖号码。［［第二步：设置对象的属性第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption天津市体育彩票模拟开奖程序文本框Text1Text空白命令按钮Command1Caption开奖标签Label1Caption天津市体育彩票模拟开奖程序第三步：第三步：补充完成代码编写补充完成代码编写PrivateSubCommand1_Click()Dimi,aAsIntegerText1.Text=Fori=1To7Randomizea=Int(10*Rnd+0)Text1.Text=Text1.Text+Str(a)NextiEndSub应用举例：应用举例：［例4－4］用InputBox()函数输入一个人的身高H（厘米）和体重W（公斤），如果H－W的值大于等于110，则打印“你太瘦了！”；如果H－W的值小于等于100，则打印“你太胖了！”；如果H－W的值在100――110之间，则打印“你的身材真好！”。［［解］解］第一步：第一步：创建新窗体创建新窗体Form1Form1。定义四。定义四个变量个变量HH（身高，字符串型）、（身高，字符串型）、WW（体重，（体重，字符串型）字符串型）,Ha,Ha（身高，数值型）、（身高，数值型）、WaWa（体重，数值型）、（体重，数值型）、CC（（CC＝＝haha––wawa，数，数值型）值型）第二步：设置对象的属性第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption根据身高和体重判断胖瘦第三步：第三步：补充完成代码编写补充完成代码编写PrivateSubForm_Click()DimhDimwDimch=InputBox(请输入身高(厘米）,输入身高,0)w=InputBox(请输入体重(公斤）,输入体重,0)Print身高为;h;厘米Print体重为;w;公斤c=h-wIfc=110ThenPrint你太瘦了！Ifc=100ThenPrint你太胖了！Ifc100Andc110ThenPrint你的身材真好了！EndSub应用举例：应用举例：［例4－5］创建新窗体名为“根据身高和体重判断胖瘦”，在此窗体上创建二个命令按扭“计算”和“结束”，创建三标签“输入身高（厘米）”、“输入体重（公斤）”、“判断胖瘦程度”和三个文本框Text1、Text2、Text3。判断法则为：设身高为H（厘米），体重为W（公斤），如果H－W的值大于等于110，则打印“你太瘦了！”；如果H－W的值小于等于100，则打印“你太胖了！”；如果H－W的值在100――110之间，则打印“你的身材真好！”。［［解］解］第一步：第一步：创建新窗体创建新窗体Form1Form1，在，在此窗体上创建二个命令按扭此窗体上创建二个命令按扭Command1Command1、、Command2Command2，，创建三，，创建三个标签个标签Label1Label1、、Label2Label2、、Label3Label3和三和三个文本框个文本框Text1Text1、、Text2Text2、、Text3Text3。。定义三个变量定义三个变量HH、、WW、、CC第二步：设置对象的属性第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption根据身高和体重判断胖瘦命令按钮Command1Caption计算命令按钮Command2Caption退出标签Label1Caption输入身高（厘米）标签Label2Caption输入体重（公斤）标签Label3Caption判断胖瘦程度文本框Text1Text空白文本框Text2Text空白文本框Text3Text空白第三步：第三步：补充完成代码编写补充完成代码编写PrivateSubCommand1_Click()DimhDimwDimch=Val(Text1.Text)w=Val(Text2.Text)c=h-wIfc=110ThenText3.Text=你太瘦了！Ifc=100ThenText3.Text=你太胖了！Ifc100Andc110ThenText3.Text=你的身材真好！EndSubPrivateSubCommand2_Click()EndEndSub