VB编程-编程基础实例01.pptVIP

第三章 Visual　 Basic语言基础 引入：输入一个圆半径，求它的周长和面积。 一、理论知识：Visual Basic语言中的数据类型、常量、变量、函数 1、　数据类型　 类型名称　　　　关键字　　（P46－47）　　　　字节型 　　　　Byte　　　　　　整数 　　　　　Integer 　　　　　长整型　　　　　Long　　　　　　单精度实数 　　Single 　　　　　双精度型 　　　Double　　　　　字符串 　　　　String 2、变量的定义 格式：Dim 变量名［As　类型名］（P50－51） 练习：说出下列变量定义语句的意义 （1）Dim　　A　　As　　Integer （2）Dim　　XANAME　　As　　String （3）Dim　　S （4）Dim　　B　　As　　String *20 3、字符串与数值转换函数：（P59－61） （1）VAL（X）：把字符串X的值转换为数值型。 　　如VAL（“123”）＝123 　　　VAL（“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)＝3　　　　Int(－5.1)＝-6 （2）Fix(X)函数 　　　功能：取X的整数部分，直接去掉小数 　　如Fix(3.9)＝3　　　　Fix(－5.1)＝－5 （3）Sqr(N)函数，N=0 　　　功能：得到N的平方根。 　　　　如Sqr(9)＝3　　　　Sqr(10)＝3.162277　 4、数学函数：（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＞100　OR　X＜50 4、5≤X≤9： 　　X＞＝5　　AND　　X＜＝9 练习3：说出下列代码的含义  1、Dim R As Single　　定义R为单精度变量 2、 R = Val(Text1.Text) 把文本框内的文本转换为数字赋值给变量R 3、 Text2.Text = Str(P) 把变量P的数值转换为字符串后传输给文本框Text2 4、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的文本中 应用举例： ［例4－1］输入一个圆半径，求它的周长和面积。 第一步：创建新窗体Form1，在此窗体上创建二个命令按扭Command1、 Command2，，创建三个标签Label1、Label2、Label3和三个文本框Text1、Text2、Text3。定义三个变量R、P、A分别代表半径、周长和面积。 应用举例： ［例4－2］输入任意一个整数，输出这个数