vb顺序结构程序实例
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教程---输入输出顺序结构1
(3) Enabled属性:该属性决定控件是否对用户产生的事件 作出响应 (4) Visible属性 该属性决定控件是否可见，默认值为True。 (5)Height、Width、Top和Left属性：Height和Width属性 确定控件的高度和宽度，Top和Lelf属性确定控件在窗体中 的位置
X Top Left Width Y
Buttons参数值=65 ( 1+64+0) 或 vbOKCancel+ vbInformation+VbDefaultButton1
练习使用信息框
设计一个如下所示的提示框：
A = MsgBox("非法数据！" + Chr(13) +Chr(10)+ "是否继续？", vbYesNo + vbCritical, "提示信息")
Buttons参数值= 1+64 或 vbOKCancel+ vbInformation
Buttons参数的设置
3.说明哪一个是缺省按钮
Buttons的和=按钮设置值+图标设置值+缺省按钮值
对应值 符号常量 缺省的活动按钮
0
256 512
VbDefaultButton1
VbDefaultButton2 VbDefaultButton3
2. Tab函数
函数格式：Tab(n) 功能：把输出位置移到第n列。
例如：
Print Tab(2);"学号"；Tab(11);"姓名"；Tab(21);"成绩"
输出结果是(1个汉字占2个位置)：
└┘学号└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成绩
VB 程序的顺序结构
从本章开始，将分三节介绍结构化程 序设计的三个最基本的控制结构——顺序 结构、选择结构、循环结构。
顺序结构:程序执行时按照书写顺序从上往下顺序执
行。
特点：语句是逐条执行，执行过的语句将不再执行。
VB中一个功能相对独立的程序段一般 包括三个部分，第一部分为变量提供数据， 第二部分进行运算处理，第三部分结果输 出。
提供数据：赋值语句、inputbox()函数
输出数据：print语句
消息框：msgbox()函数
一、赋值语句
用赋值语句可以把指定的值赋给某个变量或 某个带有属性的对象。 一般格式为： [let]目标操作符=源操作符
说明
<1> 赋值语句兼有计算与赋值双重功能，它首先计算赋 值号右边“源操作符” 的值，然后把结果赋给赋值号左边 的“目标操作符” <2> 在赋值语句中“=”是赋值号与数学上的等号的意 义是不一样的 <3> “目标操作符”和“源操作符”的数据类型必须一 致
以下是一段VB程序： a=1 b=a+1 c=a+b 它的基本结构属于（ ） A、顺序结构 B、选择结构 C、循环结构 D、树型结构 最后c的值是多少？
二、数据的输入--Inputbox函数
为了输入数据,VB提供了Inputbox数,Inputbox函数 可以产生一个对话框,这个对话框作为输入数据的界面, 等待用户输入数据,并返回所输出的内容.其格式为: Inputbox(提示信息,标题,默认值,位置)
r=InputBox("请输入r的值", "数据输入", 0, 1000, 1000)
三、数据的输出—Print语句
Print语句可以在窗体上显示文本字符串和表达式的 值,并可在其它图形对象或打印机上输出信息,一般格 式为:
VB顺序结构与选择结构
x = 0.25 * w
Else If w <= 100 Then
x = 0.25 * 50 + 0.35 * (w–50)
Else x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w–100) End If End If Text2.Text = x
练习
相应流程图与程序界面
输入 x 值
真
x ≥ 2
假
y = x 3－ 9
y ＝ x
2
＋ 5 x -6
输出 y 值
相应代码
行If语句
Private Sub Command1_Click( )
Dim x As Single x = Val(Text1.Text)
块If语句
Private Sub Command1_Click( )
VB顺序结构与选择结构
文成县第二高级中学 信息技术
顺序结构
执行过程的次序从上到下，从左到右。
例：请问此时的c的值是多少？
a = 10 b = a*2 c = a+b
在顺序结构中，由多条赋值语句构成，那么我们一起来看下赋值语句。
赋值语句
赋值语句用来表明赋给某一个变量一个具体的确定值的语句叫做赋值语句。在算 法语句中，赋值语句是最基本的语句。 赋值语句的格式：
( w 50) 0.25 w x 0.25 50 0.35 ( w 50) (50 w 100) 0.25 50 0.35 50 0.45 ( w 100) ( w 100)
VB编程序的基本结构
双分支结构练习
例: 计算当 0<x<10时，y=x，否则 y=100 ,正确的语句 是_____。 A. If 0<x<10 then y=x else y=100 B. If 0<x and x<10 then y=x
else y=100
C. If 0<x and x<10 then y=x else y=100 D. If 0<x or x<10 then y=x else y=100
b
3
t
也可改写成行IF语句，如下所示，
If b > a Then t = a ： a = b： b = t
双分支结构
多行形式 If 表达式 Else Then
T Then 语句块1
If
表达式
语句块1
语句块2
F Else 语句块2
End If
If 表达式
单行形式
Then 语句块1 Else 语句块2 当表达式的值为True时，执行Then后面的语句块1，否则执行 Else后面的语句块2
注意： • 变量的类型或表达式的结果 必须为数值或字符串。 • 对于多个变量进行条件判断 时，不能使用select case语句， 只能使用IF 语句
表达式列表 i 必须与 “变量或表达式”的类型相同 1.表达式 例: “A“ 2.表达式1 To 例：60 To 100 3. Is 例： 5 表达式2
Dim Number%
Number = Val(InputBox("输入整数")) Select Case Number Case 1 To 5 ' 范围为[1,5] Msgbox( "Between 1 and 5“)
vb顺序结构
说明
InputBox 函数返回值是字符（String) 型。当要获取数 值型数据时，应对被赋值变量作出类型说明：
Dim r!
r = InputBox("Please enter radius:", _ "InputBox Demo ", 0, 100,100) 或使用Val函数作类型转换： r= Val(InputBox("Please enter radius:", _ "InputBox Demo ", 0, 100,100)) 函数中参数按顺序排列，若省略某些参数，须加相应 的逗号分隔： r= InputBox("Please enter radius:", , , 100,100))
控件属性设置
当前名称
Label1 Label2 Label3 Text1
属性 Caption Caption Caption Text
新值
Type your name and password to login
&User Name &Passord <blank>
控件属性设置（续）
Text2 Text PasswordChar Caption Caption Cancel Caption BorderStyle <blank> * OK Cancel Ture* Enter Program Password 1-Fixed Single
程序中常用 N=N+1 实现累加。* 2 数据输入 1. InputBox 函数（生成一个对话框,让用户输入数据。） 格式： InputBox(prompt[,title][,default][,xPos][,yPos])
程序设计三种基本结构
程序设计三种基本结构在Visual Basic 程序设计语言中，提供了以下三种基本的控制结构：其对应的结流程图如下所示：顺序结构分支结构循环结构顺序顺序结构是按语句的先后次序依次执行的控制结构，其中“执行A”和“执行B”可以是一个语句也可以是一组语句。
在VB中录制的宏都是顺序结构的语句。
例如，以下程序段的控制结构就属于顺序结构：a=1b=a+1c=a+b例1：以下是一段Visual Basic宏程序，运行后变量x的值为x=2y=3y=y+1x=x+y-1选择分支结构又称为选择结构。
根据条件判断其是否成立，从而选择程序执行的方向，执行其中的一个分支。
分支结构的语法结构如下：语法1语法2If 条件 Then语句End If If 条件 Then语句1 Else语句2 End If例2：以下是一段Visual Basic宏程序，运行后变量a的值为a=10If a<10 Thena=a+1Elsea=a-1End If循环循环结构是根据条件判断是否成立，如果条件成立则重复执行循环结构中某语句序列功能，直到条件不成立为止，最后退出循环结构。
其中For…Next语句的语法定义如下：(详见书本第137页)For counter=start To end [Step step][statements]Next [counter]说明：counter必要参数，用作循环计数器的数值变量start必要参数，counter的初值end必要参数，counter的终值Step可选参数，counter的步长。
如果没有指定，step默认的值为1例3：以下是一段Visual Basic宏程序，运行后变量m的值为m=0For i=1 To 3m=m+2Next i。
程序设计基础(2)顺序结构和分支结构
25
思考 下列程序的运行结果是？
a=1 b=3 b = IIf(a = b, b + 1, b - 1) MsgBox ( b)
2
26
6. Select Case语句
格式:
Select Case <测试表达式> Case< 表达式值1> <语句块1> Case< 表达式值2> <语句块2> …… [Case Else 语句块n+1]
privatesubbutton1clickdimcjasintegercjinputbox请输入您的考试成绩selectcasecjcaseis90msgbox您的考试成绩为a级caseis80msgbox您的考试成绩为b级caseis70msgbox您的考试成绩为c级caseis60msgbox您的考试成绩为d级caseelsemsgbox您的考试成绩为f级endselectendsub
5
一、顺序结构
表达式中的变量必须是赋过值的，否则变量的初值 自动取零值(变长字符串变量取空字符)。
Dim a as integer, b as integer, c as Integer
a=1
c=a+b+3
′b未赋过值，为0
执行后，c 值为 4
赋值语句跟数学中等式具有不同的含意，例如
x=x+1
End Sub
22
4.If...Then ...ElseIf语句(多分支结构)
If<条件1>Then <语句块1>
ElseIf <条件2>Then <语句块2>
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
vb顺序结构程序实例
一、题目：编写一个vb顺序结构程序，实现计算器功能，能够进行简单的四则运算。
二、程序设计思路：
1.首先，我们需要用户输入两个操作数和一个运算符。
2.接下来，根据输入的运算符，选择相应的运算进行计算。
3.最后，将结果输出给用户。
三、程序设计实现：
Option Explicit
Sub Main
'1.声明并初始化变量
Dim num1 As Double
Dim num2 As Double
Dim operator As String
Dim result As Double
'2.提示用户输入操作数和运算符
Console.WriteLine("请输入第一个操作数：")
num1 = Console.ReadLine
Console.WriteLine("请输入第二个操作数：")
num2 = Console.ReadLine
Console.WriteLine("请输入运算符（+、-、*、/）：") operator = Console.ReadLine
'3.根据输入的运算符，选择相应的运算进行计算Select Case operator
Case "+"
result = num1 + num2
Case "-"
result = num1 - num2
Case "*"
result = num1 * num2
Case "/"
If num2 = 0 Then
Console.WriteLine("除数不能为0！")
Exit Sub
Else
result = num1 / num2
End If
Case Else
Console.WriteLine("请输入正确的运算符！")
Exit Sub
End Select
'4.将结果输出给用户
Console.WriteLine("计算结果为：" & result)
End Sub
四、测试案例：
1. 输入：num1 = 5, num2 = 3, operator = "+"
输出：计算结果为：8
2. 输入：num1 = 5, num2 = 3, operator = "-"
输出：计算结果为：2
3. 输入：num1 = 5, num2 = 3, operator = "*"
输出：计算结果为：15
4. 输入：num1 = 6, num2 = 0, operator = "/"
输出：除数不能为0！
5. 输入：num1 = 6, num2 = 3, operator = "^"
输出：请输入正确的运算符！
五、总结：
以上是一个简单的vb顺序结构程序示例，通过该程序我们可以输入两个操作数和一个运算符，然后根据运算符进行相应的运算并输出结果。
该程序只实现了加减乘除四则运算，用户也可以实现其他需要的功能，比如求幂运算、取余运算等。
编写大型程序时，也可以结合其他控制结构和函数模块进行更复杂的逻辑实现。