項目一VB程序設(shè)計

1、項目一：VB程序設(shè)計任務(wù)一：滾動字幕樣文：解決方法：（1）界面設(shè)計。 需要2個對象：1個標(biāo)簽（Label1）1個記時器（Timer1）（2）屬性設(shè)置。 標(biāo)簽：Caption：設(shè)為：歡迎新同學(xué)！歡迎進入VB世界！ Backcolor: 設(shè)為：紅色Forecolor: 設(shè)為：紅色 時鐘：Interval: 時間間隔毫秒數(shù)設(shè)為：30（3）需要用代碼實現(xiàn)的功能有：Private Sub Label1_Click()Label1.Left = Label1.Left - 50End Sub改進一：添加計時器Private Sub Timer1_Timer() Label1.Left = Label1.L

2、eft - 50End Sub改進二：添加計時器，進行判斷Private Sub Timer1_Timer()If Label1.Left 0 Then Label1.Left = 11550Else Label1.Left = Label1.Left - 50End IfEnd Sub任務(wù)二：人民幣與美元兌換程序樣文：解決方法：（1）界面設(shè)計。 需要7個對象： 2個標(biāo)簽（Label） 2個文本框（TextBox） 3個命令按鈕（CommandButton）（2）屬性設(shè)置。 Caption：標(biāo)題 Text：文本 Font：字體（3）需要用代碼實現(xiàn)的功能有三： 清屏：清空2個文本框；Privat

3、e Sub Command2_Click()Text1.Text = 清空Text2.Text = 清空End Sub 轉(zhuǎn)換：人民幣與美元轉(zhuǎn)換；Private Sub Command1_Click()Dim m As Single, r As Single, h As Singlem = Val(Text1.Text) 美元數(shù)量h = 8.099 匯率r = m * h 換算Text2.Text = Format(r, #.#) 顯示兌換的人民幣數(shù)量End Sub 結(jié)束： 退出程序。Private Sub Command3_Click()EndEnd Sub（4）運行調(diào)試和保存。任務(wù)三：記事本

4、樣文：解決方法：（1）界面設(shè)計。 需要6個對象： 1個文本框（TextBox） 5個命令按鈕（CommandButton）（2）屬性設(shè)置。 Caption：標(biāo)題 Text：文本MultiLine 設(shè)置成 True 這里是接受多行文本ScrollBars 選擇2 添加一個滾動條 （3）需要用代碼實現(xiàn)的功能有五：用VB編寫記事本簡單程序可實現(xiàn)文本框中復(fù)制，剪切、粘貼、移動、刪除等編輯功能。 復(fù)制：Private Sub Command1_Click()Clipboard.SetText Text1.SelText Text1中選中文本放入剪貼板End Sub 剪切Private Sub Comma

5、nd2_Click()Clipboard.SetText Text1.SelText Text1中選中文本放入剪貼板Text1.SelText = 清空Text1中選中文本End Sub 粘貼Private Sub Command3_Click()Text1.SelText = Clipboard.GetText() 將剪貼板中文本放入Text1中選中文本處End Sub 刪除Private Sub Command4_Click()Text1.SelText = 清空Text1中選中文本End Sub 清空 Private Sub Command5_Click()Text1.Text = 清空

6、Text1中文本End Sub任務(wù)四：記時器樣文：解決方法：Private Sub Command1_Click() Label3.Caption = Time$ 在標(biāo)簽3上顯示系統(tǒng)時間 Label4.Caption = 清除標(biāo)簽4上顯示的信息 Command1.Enabled = False 使開始按鈕不響應(yīng)事件 Command2.Enabled = True 使結(jié)束按鈕響應(yīng)事件End SubPrivate Sub Command2_Click() Label4.Caption = Time$ 在標(biāo)簽4上顯示系統(tǒng)時間 Command1.Enabled = True 使開始按鈕響應(yīng)事件 Com

7、mand2.Enabled = False 使結(jié)束按鈕不響應(yīng)事件End SubPrivate Sub Form_Load() Command2.Enabled = False 使結(jié)束按鈕不響應(yīng)事件End Subdim a as datedim b as datea=cdate(Label3.Caption)b=cdate(Label4.Caption)Label5.Caption =datediff(s,a,b) 任務(wù)五：計算平均成績樣文：解決方法：（1）界面設(shè)計。 需要15個對象： 7個標(biāo)簽（Label） 5個文本框（TextBox） 3個命令按鈕（CommandButton）（2）屬性設(shè)置

8、。 Caption：標(biāo)題 Text：文本 MultiLine 設(shè)置成 True 這里是接受多行文本ScrollBars 選擇2 添加一個滾動條 Font：字體（3）需要用代碼實現(xiàn)的功能有三： 清屏為輸入下一個準(zhǔn)備：清空4個文本框；Private Sub Command1_Click()Text1.Text = 清除姓名文本框的內(nèi)容Text2.Text = 清除語文文本框的內(nèi)容Text3.Text = 清除數(shù)學(xué)文本框的內(nèi)容Text4.Text = 清除英語文本框的內(nèi)容Text1.SetFocus 使姓名文本框得到焦點End Sub 計算平均成績Private Sub Command2_Click

9、() Dim name As String * 6 Dim t2, t3, t4 As String * 3 name = Text1.Text t2 = Text2.Text: t3 = Text3.Text: t4 = Text4.Text aver = Str(Int(Val(t2) + Val(t3) + Val(t4) / 3) 計算平均成績并賦給字符變量 Text5.Text = Text5.Text & name & & t2 & & t3 & & t4 & & aver & vbCrLf 顯示計算結(jié)果End Sub 結(jié)束： 退出程序。Private Sub Command3_Click() EndEnd Sub（4）運行調(diào)試和保存。拓展項目1、計算樣文：解決方法：Private Sub Command1_Click() Dim num1 As Integer Randomize num1 = Int(Rnd * 50) Print 邊長:; num1 Print 正方形面積:; num1 * num1End SubPrivate Sub Command2_Click() Dim num2 As Integer Randomize