下载

1下载券

加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB语言基础

VB语言基础.ppt

VB语言基础

189*****219@sina.cn
2012-06-15 0人阅读 举报 0 0 暂无简介

简介:本文档为《VB语言基础ppt》,可适用于高中教育领域

VB语言基础一、常量定义:在程序运行过程中不能发生改变的量分类数值常量整型常量:实型常量整数不带小数点的数定点小数例如:、浮点小数例如:E、E字符串常量定义:被一对引号括起来的若干个字符的组合例如:”China”、”新北京新奥运”、””符号常量定义:在程序中多次使用到一个常量则可以用一个有意义的名字表示格式:Const常量名as数据类型=表达式例如:Constpiassingle=VB语言基础二、变量定义:在程序执行时其值可以变化的量分类:变量是用来存储数据的。数据有不同的类型相应的变量也有不同数值型整型短整型长整型实型单精度双精度字符串型VB语言基础短整型integer~字节长整型long~字节单精度singleE~E字节E~E双精度doubleE~E字节E~E字符串型string变量的定义:格式:dim变量名as数据类型VB语言基础变量名命名规则:必须以字母开头必须由字母、数字、下划线组成长度不能超过个字符不能是保留字应该尽量有意义VB语言基础以下哪些变量名是正确的abcLabelA$End书名×√××√VB语言基础例如:DimIasIntegerDimsumassingleDimnameasstringDimIasinteger,sumassingle,nameasstringVB语言基础三、赋值语句格式:let变量名=值或表达式赋值语句规则:把赋值号右边的值或表达式的值赋给赋值号左边的变量赋值时应尽量保持变量类型与数据类型一致。VB语言基础例:Dima,b,casinteger,strasstringLeta=Letb=Leta=Letb=Letc=abLetstr=“VisualBasic”Formprinta,b,cVB语言基础如何交换两个变量的值?VB语言基础四、表达式VB语言基础五、函数VB语言基础改正下列VB表达式的错误xy^表示(xy)yx表示e^x*sin(x)表示exsinxCos()表示cosoVB语言基础将下列数学式写成VB表达式ab(xy)exSin(ab)||VB语言基础写出下列VB表达式的值Abs(int())Exp()Log()log()Int(*)Sgn(abs())Sqr()len(“baisc”)Right(“china”,)mid(“welcome”,,)VB语言基础Privatesubcommandclick()DimradiusassingleDimperiassingleDimareaassingleRadius=val(texttext)Peri=**radiusarea=*radius^Texttext=str(peri)Texttext=str(area)EndsubPrivatesubcommandclick()EndEndsub读程序If语句ifthen语句…语句……if条件then语句else语句语句…条件数据的输入和输出程序运算的得到的结果可以用文本框或标签控件显示当需要显示大批量数据时更适合用print方法输出Print方法:格式:对象print表达式列表{|}其中对象可以是窗体图形框或打印机如果省略则print方法将向当前窗体输出。数据的输入和输出例:Dimx,yassingleFormprintFormprint*Formprint“Thisis””abook”x=:y=Print“x=“x,”y=”y运行结果ThisisabookX=y=数据的输入和输出Print方法的表达式列表可以是:常量、变量、表达式如果是多个表达式可以用分号()或逗号(,)分隔。分号表示一个表达式紧接着上一个表达式继续显示逗号则表示下一个表达式移到下一个打印区开始显示每一个区占列。数据的输入和输出从例子的结果可以看出print方法具有计算和输出的双重功能。先计算出表达式的值然后在输出该值。正数数值具有一个前导和一个尾部空格负数数值用负号替代前导空格。对于字符串则是原样输出不包括定界符双引号。使用prinr“x=”x的形式输出数据可以在数据前加上注解性的说明使我们一看就知道是哪个变量的值。在一个语句里分号和逗号可以混合使用。数据的输入和输出此外还可以在表达式前用tab(n)函数控制输出的位置式中的n表示输出点离窗体左边界的绝对位置。Dima,basintegera=:b=Printtab()”数”tab()”平方”tab()”立方”tab()”立方根”Printtab()atab()a^tab()a^tab()sqr(a)Printtab()btab()b^tab()b^tab()sqr(b)注意:TAB函数中的数值应该从左到右依次增大而不能忽左忽右数据的输入和输出为了便于和程序交互VB提供了inputbox和msgbox这个函数inputbox函数在VB中当需要输入数据时只要在程序中调用一个inputbox函数屏幕就会弹出一个标准输入对话框供输入数据使用使用方法下:变量=inputbox(提示,标题,缺省)数据的输入和输出Constpiassingle=Dimradius,peri,areaassingleradius=inputbox(“请输入半径”,”输入框”)peri=*pi*radiusarea=pi*radius^Print“半径=”radius,”周长=”peri,“面积=”area数据的输入和输出msgbox函数在使用windows操作系统等软件的时候经常会弹出一些对话框。事实上VB中我们也可以利用msgbox函数设计出这样的对话框。Msgbox函数格式如下变量=msgbox(提示,按钮,标题)其中“提示”和“标题”的意义与inputbox函数中对应的参数相同按钮是一个由个常数量组成的式子形式为cccc用于决定信息框中显示的按钮的数目及形式使用的图标式样缺省按钮是什么以及消息框的模式等。数据的输入和输出数据的输入和输出If语句条件一、行if语句语句语句条件语句语句语句YNYN流程图If语句格式ifthen语句…语句……if条件then语句else语句语句…这里的条件是什么?条件If语句什么是VB(算术)表达式用VB运算符连接起来的常量、变量称为VB表达式VB运算符:、、*、、^、mod、、()例如:aabmodp*(pa)*(pb)*(pc)If语句什么是关系表达式用关系运算符连接起来的VB表达式关系运算符:>、<、=、>=、<=、<>例如:>Abs(a)>=b*(ab)*(ab)<>“abc”>”ABC”关系表达式的值?If语句关系表达式的值为布尔类型(boolean)布尔类型的值只有两种T或者F例如:>Abs(a)>=b*(ab)*(ab)<>“abc”>”ABC”If语句字符串比较大小规则:从左向右逐个比较字符ASCII码的大小直到比出大小为止。“abc”>”ABC”“Abcd”<“aBCD””Window”<“Windows”“hello”=“hello”If语句什么是逻辑表达式用逻辑运算符连接起来的关系表达式逻辑运算符:and(与运算)、or(或运算)、not(非运算)例如:ab>andcmod<>a*b*c<=dorb^*a*c<>nota>borc<=dande=fIf语句and(与运算)条件and条件结果TFFFTFFFFTTT二元运算符If语句条件or条件结果TFTTTTFTTFFFor(或运算)二元运算符If语句not(非运算)一元运算符not条件FT结果TFIf语句逻辑运算优先级not>and>or例如:ab>andcmod<>a*b*c<=dorb^*a*c<>nota>borc<=dande=fIf语句逻辑表达式的运算顺序先算VB表达式再算关系表达式最后算逻辑表达式例:^>=andabs()<>len(“basic”)notmod<or“”=left(“”,)If语句例:^>=andabs()<>len(“basic”)ornotmod<or“”=left(“”,)>=and<>ornot<or“”=“”FandFornotForFFandForTorFForTorFTTIf语句练一练写出下列逻辑表达式的值>int()and“windows”>”Windows”orsqr()=abs(int())andsgn()<>rnd>and“china”>mid(”chinese”,,)ornotsgn()>=andexp()<>^If语句思考、已知三条线段如何判断它们能否构成一个三角形、如何判断某一个年份是否是闰年Private Sub CommandClick()Dim a, b, c, x, x, x As Singlea = InputBox("请输入数值", "计算函数")b = InputBox("请输入数值", "计算函数")c = InputBox("请输入数值", "计算函数")Print "a=", aPrint "b=", bPrint "c=", cIf a <>  And b <>  ThenIf b ^    * a * c <  Theny = MsgBox("没有实数根", vbOKOnly  vbInformation, "><")Elsex = (b  Sqr(b ^    * a * c))  ( * a)x = (b  Sqr(b ^    * a * c))  ( * a)Print "x=", xPrint "x=", xEnd IfElsex = (b  Sqr(b ^    * a * c))  ( * a)x = (b  Sqr(b ^    * a * c))  ( * a)Print "x=", xPrint "x=", xEnd IfElseIf b =  And a <>  ThenIf (c)  a <  Thenw = MsgBox("没有实数根", vbOKOnly  vbInformation, "><")Elsex = Sqr((c)  a)x = Sqr((c)  a)Print "x=", xPrint "x=", xEnd IfE 

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/43

VB语言基础

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利