vb编程-编程基础实例

《vb编程-编程基础实例》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第三章VisualBasic语言基础引入：输入一个圆半径，求它的周长和面积。一、理论知识：VisualBasic语言中的数据类型、常量、变量、函数1、数据类型类型名称关键字（P46－47）字节型Byte整数Integer长整型Long单精度实数Single双精度型Double字符串String2、变量的定义格式：Dim变量名［As类型名］（P50－51）练习：说出下列变量定义语句的意义（1）DimAAsInteger（2）DimXANAMEAsString（3）DimS（4）DimBAsString*203、字符串与数值转换函数：（P59－61）（1）VA

2、L（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（“提示信

3、息”，“标题”，“缺省值”）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－

4、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、产

5、生一个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

6、.Text=Text1.Text+Str(a)把变量a的数值转换为字符串后接到文本框Text1的文本中应用举例：［例4－1］输入一个圆半径，求它的周长和面积。第一步：创建新窗体Form1，在此窗体上创建二个命令按扭Command1、Command2，，创建三个标签Label1、Label2、Label3和三个文本框Text1、Text2、Text3。定义三个变量R、P、A分别代表半径、周长和面积。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption求圆周长和面积命令按钮Command1Caption计算命令按钮Command2Caption

7、退出标签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()EndEn

8、dSub应用举例：［例4－2］输入任意