VB程序设计知识

1、信息技术信息技术程序（程序（Program）：是为实现特定目标或解决特定问题而用计算机语言编写的命令）：是为实现特定目标或解决特定问题而用计算机语言编写的命令序列的集合。序列的集合。程序的基本结构：顺序结构、选择结构、循环结构。程序的基本结构：顺序结构、选择结构、循环结构。S1S2SnSC是否CS1S2顺序结构，如求解“鸡兔同笼”问题选择结构，如求解一元二次方程问题循环结构，如求最大公约数问题程序设计：就是编写程序的过程，这个过程包括了分析问题、建程序设计：就是编写程序的过程，这个过程包括了分析问题、建立模型、设计算法和把该算法用某种计算机程序设计语言（如立模型、设计算法和把该算法用某种计算机

2、程序设计语言（如VB语言）转换成为程序，并保证这种转换无二义性。语言）转换成为程序，并保证这种转换无二义性。具体问题程序设计过程程序设计程序设计计算机程序计算机程序分析问题、建立模型、设计算法、编写程序分析问题、建立模型、设计算法、编写程序程序设计语言经历了从程序设计语言经历了从机器语言机器语言、汇编语言汇编语言到到高级语言高级语言的发展历的发展历程。以下描述的是三类语言完成程。以下描述的是三类语言完成“9+89+8”的加法运算的指令。的加法运算的指令。机器语言1011000000001001000001000000100011110100汇编语言Mov AL,9ADD AL,8HLT高级语言

3、(如VB语言)Print 9+8说明：汇编语言和高级语言编写的程序必须翻译成机器语言才能在计算机上执行。Private Sub Form_Load() Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer() Label4.Caption = Str(#6/7/2016#) Label5.Caption = Str(Date) Label6.Caption = Str(CDate(Label4.Caption) - CDate(Label5.Caption) & 天天End SubDim x As Integer 定义窗体级变量定义

4、窗体级变量Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 1000 x = Val(Text1.Text) * 60 时间以秒为单位时间以秒为单位End SubPrivate Sub Timer1_Timer()x = x - 1If 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) &

5、; 分分 & Trim(Str(s) & 秒秒Else Text2.Text = 时间到时间到! Timer1.Enabled = FalseEnd IfEnd SubPrivate Sub Form_Load() Move (Screen.Width - Width) 2, (Screen.Height - Height) 2 运行时，窗口在屏幕中上下、左右居中对齐出现运行时，窗口在屏幕中上下、左右居中对齐出现End SubDim flag As IntegerPrivate Sub Command1_Click()Timer1.Interval = 10Timer1.Ena

6、bled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Timer1_Timer() flag=0时向右滚动，时向右滚动，=1时向左滚动时向左滚动If flag = 0 Then Label1.Left = Label1.Left + 10If flag = 1 Then Label1.Left = Label1.Left - 10If Label1.Left = Form1.ScaleWidth -

7、Label1.Width Then flag = 1If Label1.Left = 1 Then flag = 0End SubPrivate Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = InputBox(工资总额工资总额) a=text1.textb = a - 3500Select Case b Case Is = 0: c = 0 Case Is = 1500: c = b * 0.03 Case Is = 4500: c = b * 0.1 - 105 Case Is = 9000: c = b *

8、 0.2 - 555 Case Is = 35000: c = b * 0.25 - 1005 Case Is = 55000: c = b * 0.3 - 2755 Case Is = 80000: c = b * 0.35 - 5505 Case Else: c = b * 0.45 - 13505End SelectPrint 应缴税应缴税; c label1.caption=cEnd SubSelect Case True Case Is = (b 0 And b = 1500: c = b * 0.03 Case b = 4500: c = b * 0.1 - 105 Case b

9、= 9000: c = b * 0.2 - 555 Case b = 35000: c = b * 0.25 - 1005 Case b = 55000: c = b * 0.3 - 2755 Case b =10 Case Is =10, Is 0Private Sub Command1_Click()Dim 生日生日 As Date生日生日 = InputBox(请输入自己的生日（格式请输入自己的生日（格式:月月/日）日）, 查找星座查找星座, 4/11)Select Case 生日生日 Case #12/22/2016# To #12/31/2016#: Print 你是魔羯座你是魔羯座

10、 Case #1/1/2016# To #1/19/2016#: Print 你是魔羯座你是魔羯座 Case #1/20/2016# To #2/18/2016#: Print 你是水瓶座你是水瓶座 Case #2/19/2016# To #3/20/2016#: Print 你是双鱼座你是双鱼座 Case #3/21/2016# To #4/20/2016#: Print 你是牡羊座你是牡羊座 Case #4/21/2016# To #5/20/2016#: Print 你是金牛座你是金牛座 Case #5/21/2016# To #6/21/2016#: Print 你是双子座你是双子座

11、Case #6/22/2016# To #7/22/2016#: Print 你是巨蟹座你是巨蟹座 Case #7/23/2016# To #8/22/2016#: Print 你是狮子座你是狮子座 Case #8/23/2016# To #9/22/2016#: Print 你是处女座你是处女座 Case #9/23/2016# To #10/22/2016#: Print 你是天秤座你是天秤座 Case #10/23/2016# To #11/21/2016#: Print 你是天蝎座你是天蝎座 Case #11/22/2016# To #12/21/2016#: Print 你是射手座你

12、是射手座 Case Else: Print 输入错误输入错误!End SelectEnd SubPrivate Sub Form_Click()Const PI As Single = 3.1415926Dim x(18) As Single, y(18) As SingleDim i As Integer, j As IntegerClsScale (-10, 10)-(10, -10)DrawWidth = 3For i = 0 To 17 x(i) = 8 * Cos(i * PI / 9) y(i) = 8 * Sin(i * PI / 9) PSet (x(i), y(i), vbR

13、edNext iDrawWidth = 1For i = 0 To 17 For j = i + 1 To 17 For k = 1 To 1000000 Next k Line (x(i), y(i)-(x(j), y(j), &HFFFFFF Next jNext iEnd SubPrivate Sub Command1_Click()a = InputBox(石头,剪刀,布, 游戏, 石头)Randomizex = Fix(Rnd * 3)Select Case x Case 0 If a = 石头 Then MsgBox deuce & (计算机出的是石头哦), , 石

14、头,剪刀,布游戏 ElseIf a = 剪刀 Then MsgBox LOSE & (计算机出的是石头哦), , 石头,剪刀,布游戏 ElseIf a = 布 Then MsgBox WIN & (计算机出的是石头哦), , 石头,剪刀,布游戏 Else MsgBox 输入错误 End If Case 1 If a = 石头 Then MsgBox win & (计算机出的是剪刀哦), , 石头,剪刀,布游戏 ElseIf a = 剪刀 Then MsgBox deuce & (计算机出的是剪刀哦), , 石头,剪刀,布游戏 ElseIf a = 布 Then MsgBox lose & (计算机出的是剪刀哦), , 石头,剪刀,布游戏 Else MsgBox 输入错误 End If C