【文档说明】第三章VisualBasic语言基础课件.ppt，共(29)页，137.013 KB，由小橙橙上传

转载请保留链接：https://www.ichengzhen.cn/view-44930.html

以下为本文档部分文字说明：

第三章VisualBasic语言基础引入：输入一个圆半径，求它的周长和面积。一、理论知识：VisualBasic语言中的数据类型、常量、变量、函数1、数据类型类型名称关键字（P46－47）字节型Byte整

数Integer长整型Long单精度实数Single双精度型Double字符串String2、变量的定义格式：Dim变量名［As类型名］（P50－51）练习：说出下列变量定义语句的意义（1）DimAAsInteger（2）DimXANAMEAsString（3）DimS（4）DimBAsS

tring*203、字符串与数值转换函数：（P59－61）（1）VAL（X）：把字符串X的值转换为数值型。如VAL（“123”）＝123VAL（“4.5AB”）＝4.5（2）STR(X):把数值X转换成字符串如STR(123)＝“123”STR(5.8)＝“5.8”3、输入输出函数（

P57－59）（1）Msgbox()函数（P57）功能：在对话框中显示提示信息，等待用户单击后返回。格式1：Msgbox“提示信息”，按钮数，“标题”格式2：字符串变量＝Msgbox（“提示信息”，按钮数，“标题”）（2）InputBox()函数功能：显示一个

带提示信息的输入对话框，接收用户输入的字符串。格式：字符串变量＝InputBox（“提示信息”，“标题”，“缺省值”）4、数学函数：（P59-60）（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.1622774、数学函数：（P59-60）（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语句练习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、产生一个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练习3：说出下列代码的含义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、Labe

l3和三个文本框Text1、Text2、Text3。定义三个变量R、P、A分别代表半径、周长和面积。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption求圆周长和面积命令按钮Command1Caption计算命令按钮Command2Cap

tion退出标签Label1Caption半径标签Label2Caption周长标签Label3Caption面积文本框Text1Text空白文本框Text2Text空白文本框Text3Text空白••第三步：补充完成代码编写PrivateSubCo

mmand1_Click()DimRAsSingleDimPAsSingleDimAAsSingleR=Val(Text1.Text)P=2*3.14159*RA=3.14159*R*RText2.Text=Str(P)T

ext3.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平方标签Lab

el3Caption立方标签Label4Caption平方根文本框Text1Text空白文本框Text2Text空白文本框Text3Text空白文本框Text4Text空白••第三步：补充完成代码编写PrivateSubCommand1_Click()DimXDimADi

mBDimCX=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天津市体育彩票模拟开奖程序••第三步：补充完成代码编写PrivateSubComman

d1_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之间，则打印“你的身材真好！”。［解］第一步：创建新窗体Form1。定义四个变量H（身高

，字符串型）、W（体重，字符串型）,Ha（身高，数值型）、Wa（体重，数值型）、C（C＝ha–wa，数值型）第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption根据身高和体重判断胖瘦••第三步：补充完成代码编写Priva

teSubForm_Click()DimhDimwDimch=InputBox("请输入身高(厘米）","输入身高",0)w=InputBox("请输入体重(公斤）","输入体重",0)Print"身高为";h;"厘米"Print"体重为";w;"公斤"c=h-wIfc>=110Th

enPrint"你太瘦了！"Ifc<=100ThenPrint"你太胖了！"Ifc>100Andc<110ThenPrint"你的身材真好了！"EndSub••应用举例：［例4－5］创建新窗体名为“根据身高和体重判断胖瘦”，在此窗体上创建二个命令按扭“计算”和“结束”，创建三标签“输

入身高（厘米）”、“输入体重（公斤）”、“判断胖瘦程度”和三个文本框Text1、Text2、Text3。判断法则为：设身高为H（厘米），体重为W（公斤），如果H－W的值大于等于110，则打印“你太瘦了！”；如果H－W的值小于等于100，则打印“你太胖了

！”；如果H－W的值在100――110之间，则打印“你的身材真好！”。［解］第一步：创建新窗体Form1，在此窗体上创建二个命令按扭Command1、Command2，，创建三个标签Label1、Label2、Label3和

三个文本框Text1、Text2、Text3。定义三个变量H、W、C••第二步：设置对象的属性对象类型对象名属性设置窗体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<=100Then

Text3.Text="你太胖了！"Ifc>100Andc<110ThenText3.Text="你的身材真好！"EndSubPrivateSubCommand2_Click()EndEndSub••