VB程序設(shè)計(jì)知識

1、信息技術(shù)信息技術(shù)程序（程序（Program）：是為實(shí)現(xiàn)特定目標(biāo)或解決特定問題而用計(jì)算機(jī)語言編寫的命令）：是為實(shí)現(xiàn)特定目標(biāo)或解決特定問題而用計(jì)算機(jī)語言編寫的命令序列的集合。序列的集合。程序的基本結(jié)構(gòu)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)。程序的基本結(jié)構(gòu)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)。S1S2SnSC是否CS1S2順序結(jié)構(gòu)，如求解“雞兔同籠”問題選擇結(jié)構(gòu)，如求解一元二次方程問題循環(huán)結(jié)構(gòu)，如求最大公約數(shù)問題程序設(shè)計(jì)：就是編寫程序的過程，這個(gè)過程包括了分析問題、建程序設(shè)計(jì)：就是編寫程序的過程，這個(gè)過程包括了分析問題、建立模型、設(shè)計(jì)算法和把該算法用某種計(jì)算機(jī)程序設(shè)計(jì)語言（如立模型、設(shè)計(jì)算法和把該算法用某種計(jì)算機(jī)

2、程序設(shè)計(jì)語言（如VB語言）轉(zhuǎn)換成為程序，并保證這種轉(zhuǎn)換無二義性。語言）轉(zhuǎn)換成為程序，并保證這種轉(zhuǎn)換無二義性。具體問題程序設(shè)計(jì)過程程序設(shè)計(jì)程序設(shè)計(jì)計(jì)算機(jī)程序計(jì)算機(jī)程序分析問題、建立模型、設(shè)計(jì)算法、編寫程序分析問題、建立模型、設(shè)計(jì)算法、編寫程序程序設(shè)計(jì)語言經(jīng)歷了從程序設(shè)計(jì)語言經(jīng)歷了從機(jī)器語言機(jī)器語言、匯編語言匯編語言到到高級語言高級語言的發(fā)展歷的發(fā)展歷程。以下描述的是三類語言完成程。以下描述的是三類語言完成“9+89+8”的加法運(yùn)算的指令。的加法運(yùn)算的指令。機(jī)器語言1011000000001001000001000000100011110100匯編語言Mov AL,9ADD AL,8HLT高級語言

3、(如VB語言)Print 9+8說明：匯編語言和高級語言編寫的程序必須翻譯成機(jī)器語言才能在計(jì)算機(jī)上執(zhí)行。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 時(shí)間以秒為單位時(shí)間以秒為單位End SubPrivate Sub Timer1_Timer()x = x - 1If x = 0 Then h = x 3600 時(shí)時(shí) m = (x - h * 3600) 60 分分 s = x - h * 3600 - m * 60 秒秒 Text2.Text = Trim(Str(h) & 小時(shí)小時(shí) & Trim(Str(m) &

5、; 分分 & Trim(Str(s) & 秒秒Else Text2.Text = 時(shí)間到時(shí)間到! Timer1.Enabled = FalseEnd IfEnd SubPrivate Sub Form_Load() Move (Screen.Width - Width) 2, (Screen.Height - Height) 2 運(yùn)行時(shí)，窗口在屏幕中上下、左右居中對齊出現(xiàn)運(yùn)行時(shí)，窗口在屏幕中上下、左右居中對齊出現(xiàn)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時(shí)向右滾動，時(shí)向右滾動，=1時(shí)向左滾動時(shí)向左滾動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 應(yīng)繳稅應(yīng)繳稅; 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 輸入錯(cuò)誤輸入錯(cuò)誤!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 & (計(jì)算機(jī)出的是石頭哦), , 石

14、頭,剪刀,布游戲 ElseIf a = 剪刀 Then MsgBox LOSE & (計(jì)算機(jī)出的是石頭哦), , 石頭,剪刀,布游戲 ElseIf a = 布 Then MsgBox WIN & (計(jì)算機(jī)出的是石頭哦), , 石頭,剪刀,布游戲 Else MsgBox 輸入錯(cuò)誤 End If Case 1 If a = 石頭 Then MsgBox win & (計(jì)算機(jī)出的是剪刀哦), , 石頭,剪刀,布游戲 ElseIf a = 剪刀 Then MsgBox deuce & (計(jì)算機(jī)出的是剪刀哦), , 石頭,剪刀,布游戲 ElseIf a = 布 Then MsgBox lose & (計(jì)算機(jī)出的是剪刀哦), , 石頭,剪刀,布游戲 Else MsgBox 輸入錯(cuò)誤 End If C