VB基本运算、表达式、赋值语句与分支结构
VB语法_精品文档
8
3.2.1 声明变量
• 变量是在程序运行过程中其值可以变化的量
• 使用变量前，一般必须先声明变量名和其类 型，以确定为它分配多大的存储单元
– 语法：
Dim 变量名 As 类型
– 例如：
Dim strMyName As String Dim nAge As Integer
• 可以用一个声明语句声明多个同类型的变量
2022年9月17日星期六 14
3.3 运算符与表达式
3.3.1 赋值语句 3.3.2 运算符 3.3.3 表达式
2022年9月17日星期六
15
3.3.1 赋值语句
• 赋值语句是任何程序设计中最基本的语句
– 它的作用是把右边表达式的值赋给左边的变量 – Visual 使用赋值号“=”来赋值 – 语法：
3.1415926 34567888
4字节 8字节 16字节
负值取值范围为–3.402 823E+38～–1.401 298E–45 正值取值范围为1.401 298E–45～3.402 823E+38
负数取值范围为–1.797 693 134 862 31E+308～ –4.940 656 458 412 47E–324 正值取值范围为4.940 656 458 412 47E–324～ 1.797 693 134 862 31E+308
– 例如：
Dim A, B As Integer
2022年9月17日星期六
9
3.2.2 变量的命名规则
• 变量名命名规则：
– 必须以字母或汉字开头，不能以数字或其他字 符开头
– 变量名中其他字符可以是字母、汉字、数字或 下划线组成，不允许是空格、句号或其他标点 符号，长度不超过255个字符
vb的三种基本结构
③. j = 0 If J＞0 Then J＝J＋1 Endif
2．以下程序，运行后 x的值为 （ ） x =2 y= 3 y=y+1 x=x+y-1 A. l B. 3 C. 5 D. 7 3、以下程序，运行后变量value的值为 ( ) X = 20 If x >= 10 then value = 5 * x else value = 4 * x end if msgbox(value) 最后，变量value的值是（ ） A、50 B、40 C、100 D、80
vb程序的三种基本结构一顺序结构二选择结构三循环结构程序是由若干个基本结构组成的一个基本结构可以包含一条或若干条语句
VB程序的三种基本结构
程序是由若干个基本结构组成的，一个基本结构可以包 含一条或若干条语句。
通常程序有三种最基本的结构：
一、顺序结构 二、选择结构 三、循环结构
1、 顺序结构： 将命令和语句逐条顺序排列。 程序执行时按语句的先后顺序逐条执行。 S1
4、以下程序，运行后 X的值为 （ ） X =2 For i＝1 To 5 If X＜i Then X= X＋i End If Next i A. l B. 3 C. 5 D. 7
例1、 ห้องสมุดไป่ตู้=1 b=2 c=a+b a=c-a b=c-a
最后，变量b的值是（ ）
S2 S3
2、分支结构：（选择结构） 根据条件判断其是否成立，如果成立执行成立的分支；否则 执行另一分支。 其一般形式为： If 条件 Then 语句序列1 C Else 语句序列2 End If 分支结构的简单形式为： If 条件 Then 语句序列 End If S1 S2
C
例4、s=0 for I=1 to 100 s=s+I next 最后，变量s的值是（ ）
VB编程序的基本结构
Case 9, 10
Msgbox ("Greater than 8“)
Case Else
Msgbox ("Not between 1 and 10“)
End Select
例：编写程序,当输入X的值后用 Selct Case语句 计算输出Y的值。
Private Sub Button1_Click(ByVal _ sender As System.Object, ByVal e As _ System.EventArgs) Handles _ Button1.Click
InputBox的功能是等待并提示用户为程序运行 输入指定的数据，简称“输入对话框”。
MsgBox的功能是进行提示，用以确认某种程 序的操作，简称“消息框”。
本书目录
6
1. InputBox （输入对话框函数）
输入对话框一般由标题、提示信息、“确定” 按钮、“取消”按钮和一个供用户输入的文本框组 成。当用户将输入信息输入到文本框，并单击“确 定”按钮后，函数返回用户输入的字符串数据。当 单击“取消”按钮时，返回一个空字符串。
语法格式：变量名 = 表达式
功能: 计算赋值号“=”右边表达式的值，然后赋给赋
值号“=”左边的变量。
给变量赋值和设定属性是VB编程中常见的两个任务
如以下语句，
n=n+1
'计数累加
Label1.Text ＝ "欢迎使用VB "
以下语句形式很常用：
• dim sum% , x%
sum=100 : x=5
Select语句举例
Dim Number% Number = Val(InputBox("输入整数"))
VB学习资料全
一、VB程序开发的一般步骤：1、建立用户界面2、设置对象属性3、编写代码二、VB窗体和常用控件1、窗体Font中：FontName、FontSize、FontBold、FontItalic、FontUnderline、FontStrikethru 〔字体、字号、加粗、倾斜、下划线、删除线〕2〕窗体常用事件4〕窗体常用方法2、一般类控件的使用2〕TextBox三、选择类控件1．OptionButton(单项选择按钮)3.ListBox(列表框)说明：①List属性是一个数组，一般格式为：List〔x〕如List〔1〕表示是第二个项目②ListIndex属性的值为当前选中的列表项的索引值，0表示选中，-1表示没有选中。
③ListCount属性表示一共有多少个列表项④Text属性表示当前选中的列表项的容。
四、方法方法是VB自身提供的一些特殊的过程，用来完成一定的操作。
不同的对象可执行不同的操作，因此，对象调用的方法也有所不同。
窗体上常用的方法有：(1)Show方法调用该方法可以将窗体显示在屏幕上。
调用格式：[对象名].Show(2)Hide方法调用该方法可以隐藏窗体，但不会卸载窗体。
调用格式：[对象名]. Hide(3)Move方法(4)Cls方法可以去除窗体的文本和图形。
调用格式：[对象名]. Cls(5)Print方法在窗体上显示文字信息。
调用格式：[对象名]. Print五、VB的数据类型表六、运算符和表达式1、算术运算符3、关系运算符七、常用部函数3、日期和时间函数八. 数据的输入输出1. InputBox函数InputBox(提示[，标题][，缺省][，x 坐标位置][，y坐标位置])其中:提示为提示信息,标题为对话框标题,缺省为输入区缺省值函数返回字符类型.2. MsgBox函数和MsgBox过程函数形式:变量[%] = MsgBox(提示[,按钮][，标题])过程形式: MsgBox 提示[,按钮][,标题]3、输出数据使用Print方法实现数据的输出格式：[Object.]Print {Spc(n)|Tab(n);}expression charpos其中：Object为窗体，图片框，打印机等对象。
VB基本知识介绍
VB基本知识介绍条件语句1、单分支结构（1）单行语句If <表达式>Then <语句块>（2）多行语句If<表达式> Then<语句块>Endif2、双分支结构If <表达式 > Then<语句块1>Else<语句块2>Endif3、多分支结构If <表达式> Then<语句块1>Else if <表达式2> Then<语句块2>……..Else<语句块n>Endif选择语句Select case<变量>Case <值列表1><语句块1>Case <值列表2><语句块2>………Case <值列表n-1><语句块n-1>Case Else<语句块n>End select注意：case指定的<值列表>可以是下面的4种情形之一：1）具体的值或表达式，例如 case 12) 一组枚举表达式，例如 case 1,3,53) 表达式1 To 表达式2 ，例如 case 1 to 10 ‘变量的值为1~10，包括1和104) Is 关系运算符表达式，例如 case Is >0 …变量的值大于0循环语句1）For ……. Next 语句这种语句用于循环次数已经确定的循环结构For i=0 to 10Sum=sum+iNext i2）Do ……. Loop 语句a)Do While …….LoopDO While <表达式>循环体[Exit Do]Loopb)Do …… Loop whileDo循环体[Exit Do]Loop While <表达式>c)Do Until …… LoopDo Until <表达式>循环体[Exit Do]Loop程序运行时先判断执行条件<表达式>，当表达式为False时，执行该循环体，直到表达式为True 时，则终止循环d)Do….Loop UntilDo循环体[Exit Do]Loop Until <表达式>其它控制语句GoTo语句GoTo语句使程序无条件跳转到过程中指定的语句行执行。
vb程序的三种基本结构3
打印三角形图形
Private Sub Form_Click() For i = 1 To 7 控制打印位置， 并换行 Print Tab(10 - i); For j = 1 To 2 * i - 1 循环嵌套 Print "*"; Next j Next i End Sub
打印菱形
Private Sub Command1_Click() For i = 1 To 5 Print Tab(20 - 2 * i); For j = 1 To 2 * i - 1 Print "* "; Next j 此处有空格 Next i For i = 4 To 1 Step -1 Print Tab(20 - 2 * i); For j = 1 To 2 * i - 1 Print "* "; Next j Next i End Sub
If <表达式> Then <语句块1> Else <语句块2> End If
3. If…Then…ElseIf语句(多分支结构) If <表达式1> Then <语句块1> ElseIf <表达式2>Then <语句块2> … [Else 语句块 n+1 ] End If
For 语句：
For 循环控制变量＝初值 to/downto 终值 [Step 步长 循环控制变量＝ 步长] 语句块 Next 循环控制变量 for n=1 to 24 step 1 sum=sum+n next n
写出程序的输出结果： Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Integer n = 10 s=0 For i = 1 To n Step 2 s=s+i Next i Print s End Sub 25 输出为：_______
第二课 算法及VB基本语句11 (1)
Next j Print Next i
Do循环语句
Do while格式如下：
Do while思想：
①.当指定的“ 条件表达式”为True时，执行语句块； ②.遇到Loop语句,本次趟结束，返回do while ③.再次计算条件表达式的值，如果值为True，重复语句块 。。。。。 ④. 循环提前结束的特殊情况：Exit Do语句跳出循环 ⑤.条件表达式的值为False时，退出循环体跳转到loop的下一行。
2.枚举算法的要点 ①列举与检验过程既不重复也不遗漏；
②使解的范围最小，以提高解决问题的效率； ③用循环语句(For语句)在一定范围内列举所有可能的解； ④用选择语句(If语句)判断和选择真正的解。 3.枚举算法的一般格式
算法设计：
①.这个数字的范围是？（尽可能地使罗列范围最小）
j（00 到99）
注意：For循环可以进行嵌套，即一个大循环套着一个小循环。
For循环语句举例
例1：现有数学表达式 s=1+3+5+7+…….+99,求和？
算法思想：
1. 第一次表达式如何计算的？ 2.重复循环的是什么事？ 3. 循环的次数知道吗？
程序实现：
Dim i,s as integer s=0 For i = 1 to ———
本课内容
• Vb基本语句与结构：顺序、分支和循环； • 枚举算法思想与程序实现; • 解析算法思想与程序实现。
VB基本语句
Vb 基本语句有赋值、选择、循环等。
Vb赋值语句： 变量名 = 表达式
对象名.属性名 = 表达式/属性值
注意：“=”表示赋值；多个赋值语句写在一行上用(冒号)隔开；‘表示注释 例如：
VB6.0第三章-VB语言知识
(2)变量数据类型的前缀
数据类型 Boolean Byte Currency Date Double Integer Long Single String 前缀 bln byt cur dtm dbl int lng sng str 例子 blntrue bytDate curReven dtmToday dblMonet intLoop lngSalary sngSmall strName
可视化程序设计——第三章 VB语言基础
上页
下页
20
3.3 常量和变量
定义变量名时尽量使用前缀来定义变量名
(1）变量作用域的前缀 变量作用域的前缀放置在所 有其他前缀之前，用来说明 该变量的作用范围。
范围 全局 模块级 局部 前缀 g m 无 例子 gstrname mblnYes dblLength
例：Option Explicit 显式声明 Function SafeSqr（num） 加：Dim TempVal As 先定义 TempVal＝Abs（num） SafeSqr＝Sqr（TempVal） End Function
可视化程序设计——第三章 VB语言基础
上页
下页
243.3 常量和变量可视化程序设计——第三章 VB语言基础
上页
下页
9
3.2 数据类型
例： Dim strJust4 As String*4 定长字符串 Dim strAny As String 变长字符串 StrAny＝“Database” Debug.Print strAny strJust4= StrAny Debug.Print= strJust4
上页 下页
29
可视化程序设计——第三章 VB语言基础
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB基本运算、表达式、赋值语句与分支结构1、算术运算符2、关系运算符3、逻辑运算符算术运算符：注意事项：①、在数学中，乘号可省略；但在VB语句中，乘号*不允许省略②、在求余的时候，若参加的运算数有负号，先取绝对值，结果的符号与被除数相同③、+（连接运算）：两个操作数均为字符串类型；&（连接运算）：两个操作数既可为字符型也可为数值型。
例如："a"+"b"是合法的，而 "a"+2是错误的"a" & "b"是合法的，而"a" & 2也是合法的练一练：1.表达式23/5、 23\5、 23 Mod 5的运算结果分别是_______。
A. 3、 4.6、3B. 4.6、 4、 5C. 4、 4、 5D. 4.6、 4、 32.表达式-10/3、 -10\3、 10 Mod （-3）的运算结果分别是______。
A. -3、 -3.333、3B. -3.333、 -3、 -2C. -4、 -4、 -3.333D. -3.333、 -3、 13.下列哪些表达式是合法的，并求出正确表达式的值。
(1)"hello"+"2014"=(2)"hello"+ 2014=(3)"hello"&"2014"=(4)"hello"& 2014=想一想：表达式3+8^2/4\((11Mod2)-9*3)的返回值是多少？基本运算的规则：1、进行运算时，级别高的先执行2、同级别的运算，按照从左到右的顺序执行3、遇到括号，先进行括号内的运算注意：在VB中，括号只以()形式存在，可以多次嵌套，按照由内向外顺序执行练一练：1、求下列表达式的值(1)Sqr（256）/4-2^2 MOD 5\2(2)（-7）mod Int（3.5）+2^3/4\5(3)7mod (-3)+2^3/4\5关系运算符关系运算符用来比较两个运算量之间的关系，关系表达式的运算结果为逻辑型。
若关系成立，结果为True，若关系不成立，结果为False。
注意：（1）当两个操作式均为数值型，按数值大小比较；（2）字符串比较,则按字符的ASCII码值从左到右一一比较,直到出现不同的字符为止；逻辑运算符：Not 计算结果与原始数据的逻辑值相反And 两者为真才是真Or 两者为假才是假一般用来连接关系运算，结果也为逻辑型。
（True或者False）练一练：1.逻辑表达式4<5 and 7=5的值为______2.求VB表达式4+2>3+5 Or Not 2＞3的值3.数学表达式3≤x＜10在VB中的逻辑表达式为________。
A.3＜=x＜10B.x≥3 And x＜10C.X＞=3 Or x＜10D. x＞=3 And x＜10赋值语句的格式：变量名=表达式或对象.属性名=表达式分支结构：1、行If语句If 条件表达式 Then 语句1 Else 语句22、块If语句If 条件表达式1 Then语句块1ElseIf 条件表达式2 Then语句块2………ElseIf 条件表达式n Then语句块nElse语句块0End If块If语句的ElseIf语句部分和Else语句部分是可选的。
选择题：1、在VB 中，已知z 、a 、b 均为正整数，当逻辑表达式 (z Mod a=0) And (z Mod b=0)为真时，则表示： A 、 z 是a 的倍数，但不是b 的倍数 B 、 z 既是a 的倍数，又是b 的倍数 C 、 z 是a 的倍数或者是b 的倍数D 、 z 既不是a 的倍数，也不是b 的倍数 3、 将数学表达式Y=x 2+1|x |+3写成VB 表达式，正确的是：A 、y=x^2+1/Abs(x)+3B 、y=(x^2+1)/(Sqr(x)+3)C 、y=(x^2+1)/(Abs(x)+3)D 、y=x^2+1/Sqr(x)+3 4、在VB 中，若a 、b 都是大于0的整数，且关系表达式（a+b ）Mod 2=1，则下列说法正确的是： A 、a 、b 一定同时为奇数 B 、a 、b 一定同时为偶数C 、a 、b 中必是一个为偶数，另一个为奇数D 、以上说法都不对5、设A=7.5，B=2,C=-3.6，表达式A>B And C<A Or Not C>B And A<C 的值是： A 、True B 、False C 、-1 D 、1 6、下列赋值语句正确的是：A.a+b=5B.a=a2+3 c.a2+3=a D.a-b=a+b 7表达式a+5<a 是：A.非法表达式B.字符串表达式C.关系表达式D.逻辑表达式 8、语句i=i+1的正确含义是：A.变量i 与i+1的值相等B.将变量i 的值赋到i+1中C.将变量i 的值加1后赋值给变量ID.变量i 的值为1 9、下列语句中正确的是：A.txt3.Text=txt1.Text+txt2.Text=cmdOKbel1.Caption=1234mand1.Caption=45*1210、对应VB 语句If i=1 Then j=1,下列说法正确的是： A.i=1和j=1均为赋值语句 B.i=1和j=1均为关系表达式C.i=1为关系表达式，j=1为赋值语句D.i=1为赋值语句，j=1为关系表达式11、有如下程序段运行后，a的值为：a=5:b=2:a=a-b:b=a+b:a=b-aA.2B.3 c.4 D.512、有如下程序段运行后，y的值是：X=6:y=-10If Not x>0 Then x=y-5 Else y=x+4A.10B.-10 c.15 D.-1513、以下是一段VB程序：a = 1b = a + 1c = a + b它的基本结构属于（）A、顺序结构B、选择结构C、循环结构D、树型结构14、下列VB程序运行后，变量x的值为( ).x=2Print x+lPrint x+2A、2B、3C、5D、815、以下是一段Visual Basic程序:If I=1 ThenX=X+1ElseX=X*2End If它的基本结构属于( ).A、选择结构B、循环结构C、顺序结构D、树型结构16、下列程序段运行后，变量Value的值是（）x = 20If x >= 10 ThenValue = 5 * xElseValue = 4 * xEnd IfA、100B、80C、90D、7017、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。
比较好的算法是( )。
选项:A、①输人的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为True就显示n中值B、①输人的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为False就显示n中值C、①输人的数存人n变量②如果n/2=Int(n/2)成立，就显示n 中值D、①输人的数存人n变量②如果n/2=Int(n/2)不成立，就显示n中值18、下面是判断变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为( )Private Sub commandl_Click()Dim x As Integerx=Val(Text1. Text)If ____ = 0 ThenLabell.Caption=这个数是能被5整除的偶数ElseLabell.Caption=这个数不是能被5整除的偶数End If选项：A、(x Mod 5) = 0 And (x Mod 2 ) = 0B、x Mod 10 = 0C、x Mod 5 = 0D、x Mod 2 = 019、下列程序段运行后,m的值为( )A=2: b=1: c=5If A < b Then m = A Else m = bIf c < m Then m = c选项：A、1B、2C、5D、提示错误，无答案20、下列VB语句中，正确的是（）A．x=|x-y| B．loop=y+1C．If 5>8x>0 Then s=y D．a(i)=a(i)+a(i+1)21、如下程序段运行后，a和b的值分别是（）a=6：b=9a=a*bb=a\ba=a\bA、6,9B、9,6C、0,0D、1,622、“如果a，b中任意一个为0，那么y=y+l”。
能实现该功能的VB语句是（）A．If a=0 And b=0 Then y=y+1 B．If a*b=0 Theny=y+1C．If a=0,b=0 Then y=y+1 D．If a,b=0 Theny=y+123、小明在大街上经常看见一种测量身高体重并提示肥瘦的机器，很感兴趣，就在VB中编写了如下程序，程序运行时，在文本框Text1中输入数据60，在文本框Text2中输入数据178，单击命令按钮Command1后，文本框Text3中显示的内容是（）Private Sub Command1_Click( )Dim t As Integer, h As integerDim ans as integerDim xs as singlet = Val(Text1.Text)h = Val(Text2.Text)xs=t^2/hIf xs<18 ThenAns="偏瘦"Elseif xs<=25 thenAns="正常"ElseAns="肥胖"EndifText3.Text =AnsEnd SubA.偏瘦B.正常C.肥胖D.Ans。