当前位置：文档之家 › vb-实验04--选择结构

vb-实验04--选择结构

  • 格式：docx
  • 大小：140.00 KB
  • 文档页数：2

实验04---选择结构程序设计
1.任意输入三个整数，按从小到大的顺序排序输出。
2.阶梯水价收费计算器设计
随着水资源的日趋紧张，郑州市计划对居民用水实行阶梯水价，具体为:
1<=x<=15 按 2.4元/立方米；
1530x>50 按10.8元/立方米

3. 选择按钮应用设计
在窗体上添加1个标签 label1；1个水平滚动条hscrollbar1；3个分组框groupbox1~3；
6个单选按钮radiobutton1~6；3个多选框checkbox1~3

Public Class Form1
DimlabelstyleAsFontStyle
DimwsizeAsInteger


PrivateSub HScrollBar1_Scroll(ByVal sender AsSystem.Object, ByVal e
AsSystem.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
Label1.Font = NewFont("label1.font", HScrollBar1.Value)

 EndSub

PrivateSub RadioButton1_CheckedChanged(ByVal sender AsSystem.Object, ByVal e
AsSystem.EventArgs) Handles RadioButton1.CheckedChanged
Label1.ForeColor = Color.Red

 EndSub

PrivateSub RadioButton2_CheckedChanged(ByVal sender AsObject, ByVal e AsSystem.EventArgs)
Handles RadioButton2.CheckedChanged
Label1.ForeColor = Color.Green
 EndSub

PrivateSub RadioButton3_CheckedChanged(ByVal sender AsObject, ByVal e AsSystem.EventArgs)

Handles RadioButton3.CheckedChanged
Label1.ForeColor = Color.Blue

 EndSub

PrivateSub RadioButton4_CheckedChanged(ByVal sender AsObject, ByVal e AsSystem.EventArgs)

Handles RadioButton4.CheckedChanged
Label1.Font = New Font("label1.font", 10, labelstyle)
wsize = Label1.Font.Size

 EndSub

PrivateSub RadioButton5_CheckedChanged(ByVal sender AsObject, ByVal e AsSystem.EventArgs)
Handles RadioButton5.CheckedChanged
Label1.Font = New Font("宋体", 20, labelstyle)
wsize = Label1.Font.Size

 EndSub

PrivateSub RadioButton6_CheckedChanged(ByVal sender AsObject, ByVal e AsSystem.EventArgs)
Handles RadioButton6.CheckedChanged
Label1.Font = New Font("宋体", 30, labelstyle)
wsize = Label1.Font.Size

 EndSub

PrivateSub CheckBox1_CheckedChanged(ByVal sender AsObject, ByVal e AsSystem.EventArgs) Handles

CheckBox1.CheckedChanged
labelstyle = labelstyleXorFontStyle.Bold
Label1.Font = New Font("宋体", wsize, labelstyle)

 EndSub

PrivateSub CheckBox2_CheckedChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
Handles CheckBox2.CheckedChanged
labelstyle = labelstyleXorFontStyle.Italic
Label1.Font = New Font("宋体", wsize, labelstyle)

 EndSub

PrivateSub CheckBox3_CheckedChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
Handles CheckBox3.CheckedChanged
labelstyle = labelstyleXorFontStyle.Underline
Label1.Font = New Font("宋体", wsize, labelstyle)

 EndSub
 End Class

合集下载

VB第四章理论课件

VB第四章理论课件


选择结构：即在程序执行过程中，根据条件判断结 果，执行某一事件
第一节 If语句
使用IIF函数
IIf函数主要用于简单的条件判断中。
IIf函数格式为： 变量名＝IIf(<条件表达式>,<真部分>,<假部分>) 规则： 该函数在运行时，首先计算“条件”的 值，如果条件的值为TURE——则IIF函数的 返回值（函数值）就是“真部分”的值” ； 否则，IIF函数的返回值（函数值）就是“假 部分”的值。
块结构条件语句IF…THEN…ELSE…END IF 语法结构为： If <条件> Then <语句块1> [Else <语句块2>] End If
真
条件
假
1
2
1. If…Then结构
例1：输入两个数，分别放在x和y变量中，比较它们大小，
然后将大数放在x中，小数放在y中。 …… x%=Text1.text Y%=Text2.text If x < y Then t=x x=y y=t End If Print x, y ……
假定X的值是5，则在执行以下语句时，其输出结果为 “result”的语句是：
A. Select case x B. Select case x case 10 to 1 case is>5,is<5 Print “result” Print “result” End select End select C. Select case x D. Select case x case IS>5,1,3 to 10 case 1,3,is>5 Print “result” Print “result” End select End select
vb选择结构

vb选择结构


例3.2 三个数排序

题目：输入三个数，将它们从大到小排序。 程序界面如下图所示：

分析思考（画出流程图）
程序源代码

Private Sub Command1_Click() Dim a As Single,b As Single,c As Single,t As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a < b Then '本If语句实现a>=b t = a: a = b: b = t End If If a < c Then '本If语句实现a>=c t = a: a = c: c = t End If If b < c Then '本If语句实现b>=c t = b: b = c: c = t End If Text4.Text = a & "," & b & "," & c End Sub
30<>30 结果是False
"abc" Like "a*" 结果是True Form1 Is Form2 结果是False
关系运算符与关系表达式

说明 1）关系运算又称比较运算，是计算参与运算的 两个量之间是否满足指定关系，若满足，则关系 运算结果为True，或关系表达式的值为True； 反之若不满足，关系运算结果为False，或关系 表达式的值为False 2）关系表达式就是用关系运算符将常量、变量、 函数或算术表达式连接起来的式子。
3）关系运算符优先级相同
关系运算符与关系表达式
VB选择结构

VB选择结构


Private Sub Command1_Click() Command1 Text1.Text = "n=" & Str(n) n = 0: x = 1: y = 0 Do While x < 20 Text2.Text = "x=" & Str(x) n=n+1 Text3.Text = "y=" & Str(y) y=x+y End Sub x = x * (x + 1) Loop
选择结构与循环结构
Do WhileLoop语句 语句 While条件 False 条件 True 循环体语句 Do UntilLoop语句 语句 Until条件 条件 False 循环体语句 True
Do -Loop While语句 语句
循环体语句 True While条件 条件 False
Do -Loop Until语句 语句
选择结构与循环结构
行If与块If的区别 If与块If的区别
If a>b Then t=a:a=b:b=t If a>b Then t=a a=b b=t End If If a>b Then t=a a=b b=t
选择结构与循环结构
单、双分支If语句比较 单、双分支If语句比较
If x>=y Then max=x Else max=y End If Print max max=y If x>=y Then max=x Print max If x>=y Then max=x max=y Print max
初值只赋一次 循环条件 For……Next语句 For……Next 循环变量赋初值 语句 步长>0时，循环变量当前值≤终值 步长<0时，循环变量当前值≥终值 假 步长=0时，死循环 循环条件 Next语句作用 真 循环变量=循环变量+步长 循环体 一般不在循环体中改变循环变量值 步长缺省为1 循环变量增值 循环次数=Int((终值-初值)/步长+1) 例：判断循环执行次数
vb选择结构select

vb选择结构select

选择结构一、单分支的if语句1、格式[1] If 表达式Then语句块End if[2] If 表达式Then语句块2、功能：3、说明：（1）“表达式”一般为关系或逻辑表达式。

（2）“语句块”可以是任意多个语句，只不过“格式[2]”中的多个语句之间必须用：隔开，书写在同一行。

此时，“End if”可以省略。

4、举例：例1：任意读入两个整数，从小到大输出这两个数。

Private Sub Command1_Click()Dim a As Integer, b%a =InputBox("请输入一个整数：")b = InputBox("请输入一个整数：")If a > b Then Print b; a End IfIf b >= a Then Print a; b End IfEnd Sub5、InputBox函数（1）简单格式InputBox("提示信息") （2）使用格式（赋值语句）变量= InputBox("提示信息") （3）功能：从键盘上接受一个数据，然后赋值给某个变量（即读入一个任意值，保存到某变量中。

（4）用InputBox函数输入的数据默认为字符型，但由于赋值语句的特点“右边服从左边”，通常会自动转换成相应类型值之后再赋值给变量。

例如：Private Sub Command1_Click()'a,b不定义就使用，被认为是变体型a = InputBox("请输入一个整数：")b = InputBox(请输入一个整数：") If a > b Then Print b, aIf b >= a Then Print a, bEnd Sub输入的是“9”和“12”则会被当成字符串"9"和字符串"12"，赋值给a和b，而字符串按其ASCII 码值比较大小（字典序）。