VB程序设计知识PPT课件
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Dim x As Integer '定义窗体级变量 Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 1000 x = Val(Text1.Text) * 60 '时间以秒为单位 End Sub Private Sub Timer1_Timer() x=x-1 If x >= 0 Then h = x \ 3600 '时 m = (x - h * 3600) \ 60 '分 s = x - h * 3600 - m * 60 '秒 Text2.Text = Trim(Str(h)) & "小时" & Trim(Str(m)) & "分" & Trim(Str(s)) & "秒" Else Text2.Text = "时间到!!!" Timer1.Enabled = False End If End Sub Private Sub Form_Load()
信息技术
VB程序设计知识
蔡教师
程序和程序设计
• 程序（Program）：是为实现特定目标或解决特定问题而用计算机语言编写的命令 序列的集合。
• 程序的基本结构：顺序结构、选择结构、循环结构。
S1
C
S
S2
否
S1
S2
C
Sn
是
顺序结构，如求解 选择结构，如求解 循环结构，如求 “鸡兔同笼”问题 一元二次方程问题 最大公约数问题
Label4.Caption = Str(#6/7/2016#) Label5.Caption = Str(Date) Label6.Caption = Str(CDate(Label4.Caption) CDate(Label5.Caption)) & "天" End Sub
例2：用VB实现倒计时
……
case else 语句组N
End Select
c = b * 0.1 - 105
Case Is <= 9000:
c = b * 0.2 - 555
Case b <= 9000:
c = b * 0.2 - 555
Case Is <= 35000:
c = b * 0.25 - 1005 Case b <= 35000:
c = b * 0.25 - 1005
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 '运行时，窗口在屏幕中上下、左右居中对齐出现 End Sub
例3：用VB实现跑马灯（滚动字幕
Dim flag As Integer
）
Private Sub Command1_Click() Timer1.Interval = 10 Timer1.Enabled = True End Sub
程序和程序设计
• 程序设计：就是编写程序的过程，这个过程包括了分析问题、建 立模型、设计算法和把该算法用某种计算机程序设计语言（如VB 语言）转换成为程序，并保证这种转换无二义性。
分析问题、建立模型、设计算法、编写程序
具体问题
程序设计
程序设计过程
计算机程序
程序设计语言的产生与发展
• 程序设计语言经历了从机器语言、汇编语言到高级语言的发展历 程。以下描述的是三类语言完成“9+8”的加法运算的指令。
Private Sub Command2_Click() Timer1.Enabled = False End Sub
Private Sub Command3_Click() End End Sub
Private Sub Timer1_Timer() ' flag=0时向右滚动，=1时向左滚动 If flag = 0 Then Label1.Left = Label1.Left + 10 If flag = 1 Then Label1.Left = Label1.Left - 10 If Label1.Left >= Form1.ScaleWidth - Label1.Width Then flag = 1 If Label1.Left <= 1 Then flag = 0 End Sub
c = b * 0.45 - 13505 Case Else:
c = b * 0.45 - 13505
End Select Print "应缴税"; c 'label1.caption=c
End Select
End Sub
多重选择语句的格式及“表达式列表”的使用
Select Case 表达式 case 表达式列表1 语句组1 case 表达式列表2 语句组2
Case Is <= 55000: c = b * 0.3 - 2755
Case b <= 55000:
c = b * 0.3 - 2755
Case Is <= 80000:
c = b * 0.35 - 5505 Case b <= 80000:
c = b * 0.35 - 5505
Case Else:
例4：用VB计算个人所得税缴纳
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = InputBox("工资总额") 'a=text1.text
b = a - 3500
Select Case b
Select Case True
机器语言
汇编语言 Mov AL,9
ADD AL,8
HLT
高级语言
(如VB语言)
Print 9+8
说明：汇编语言和高级语 言编写的程序必须翻译成 机器语言才能在计算机上 执行。
例1：用VB实现高考倒计时
Private Sub Form_Load() Timer1.Interval = 1000
End Sub Private Sub Timer1_Timer()
Case Is <= 0:
ห้องสมุดไป่ตู้c=0
Case Is = (b <= 0):
c=0
Case Is <= 1500:
c = b * 0.03
Case b > 0 And b <= 1500: c = b * 0.03
Case Is <= 4500:
c = b * 0.1 - 105
Case b <= 4500:
信息技术
VB程序设计知识
蔡教师
程序和程序设计
• 程序（Program）：是为实现特定目标或解决特定问题而用计算机语言编写的命令 序列的集合。
• 程序的基本结构：顺序结构、选择结构、循环结构。
S1
C
S
S2
否
S1
S2
C
Sn
是
顺序结构，如求解 选择结构，如求解 循环结构，如求 “鸡兔同笼”问题 一元二次方程问题 最大公约数问题
Label4.Caption = Str(#6/7/2016#) Label5.Caption = Str(Date) Label6.Caption = Str(CDate(Label4.Caption) CDate(Label5.Caption)) & "天" End Sub
例2：用VB实现倒计时
……
case else 语句组N
End Select
c = b * 0.1 - 105
Case Is <= 9000:
c = b * 0.2 - 555
Case b <= 9000:
c = b * 0.2 - 555
Case Is <= 35000:
c = b * 0.25 - 1005 Case b <= 35000:
c = b * 0.25 - 1005
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 '运行时，窗口在屏幕中上下、左右居中对齐出现 End Sub
例3：用VB实现跑马灯（滚动字幕
Dim flag As Integer
）
Private Sub Command1_Click() Timer1.Interval = 10 Timer1.Enabled = True End Sub
程序和程序设计
• 程序设计：就是编写程序的过程，这个过程包括了分析问题、建 立模型、设计算法和把该算法用某种计算机程序设计语言（如VB 语言）转换成为程序，并保证这种转换无二义性。
分析问题、建立模型、设计算法、编写程序
具体问题
程序设计
程序设计过程
计算机程序
程序设计语言的产生与发展
• 程序设计语言经历了从机器语言、汇编语言到高级语言的发展历 程。以下描述的是三类语言完成“9+8”的加法运算的指令。
Private Sub Command2_Click() Timer1.Enabled = False End Sub
Private Sub Command3_Click() End End Sub
Private Sub Timer1_Timer() ' flag=0时向右滚动，=1时向左滚动 If flag = 0 Then Label1.Left = Label1.Left + 10 If flag = 1 Then Label1.Left = Label1.Left - 10 If Label1.Left >= Form1.ScaleWidth - Label1.Width Then flag = 1 If Label1.Left <= 1 Then flag = 0 End Sub
c = b * 0.45 - 13505 Case Else:
c = b * 0.45 - 13505
End Select Print "应缴税"; c 'label1.caption=c
End Select
End Sub
多重选择语句的格式及“表达式列表”的使用
Select Case 表达式 case 表达式列表1 语句组1 case 表达式列表2 语句组2
Case Is <= 55000: c = b * 0.3 - 2755
Case b <= 55000:
c = b * 0.3 - 2755
Case Is <= 80000:
c = b * 0.35 - 5505 Case b <= 80000:
c = b * 0.35 - 5505
Case Else:
例4：用VB计算个人所得税缴纳
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = InputBox("工资总额") 'a=text1.text
b = a - 3500
Select Case b
Select Case True
机器语言
汇编语言 Mov AL,9
ADD AL,8
HLT
高级语言
(如VB语言)
Print 9+8
说明：汇编语言和高级语 言编写的程序必须翻译成 机器语言才能在计算机上 执行。
例1：用VB实现高考倒计时
Private Sub Form_Load() Timer1.Interval = 1000
End Sub Private Sub Timer1_Timer()
Case Is <= 0:
ห้องสมุดไป่ตู้c=0
Case Is = (b <= 0):
c=0
Case Is <= 1500:
c = b * 0.03
Case b > 0 And b <= 1500: c = b * 0.03
Case Is <= 4500:
c = b * 0.1 - 105
Case b <= 4500: