項(xiàng)目一VB程序設(shè)計(jì)

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

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

4、樣文：解決方法：（1）界面設(shè)計(jì)。 需要6個(gè)對(duì)象： 1個(gè)文本框（TextBox） 5個(gè)命令按鈕（CommandButton）（2）屬性設(shè)置。 Caption：標(biāo)題 Text：文本MultiLine 設(shè)置成 True 這里是接受多行文本ScrollBars 選擇2 添加一個(gè)滾動(dòng)條 （3）需要用代碼實(shí)現(xiàn)的功能有五：用VB編寫記事本簡(jiǎn)單程序可實(shí)現(xiàn)文本框中復(fù)制，剪切、粘貼、移動(dòng)、刪除等編輯功能。 復(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ù)四：記時(shí)器樣文：解決方法：Private Sub Command1_Click() Label3.Caption = Time$ 在標(biāo)簽3上顯示系統(tǒng)時(shí)間 Label4.Caption = 清除標(biāo)簽4上顯示的信息 Command1.Enabled = False 使開(kāi)始按鈕不響應(yīng)事件 Command2.Enabled = True 使結(jié)束按鈕響應(yīng)事件End SubPrivate Sub Command2_Click() Label4.Caption = Time$ 在標(biāo)簽4上顯示系統(tǒng)時(shí)間 Command1.Enabled = True 使開(kāi)始按鈕響應(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ù)五：計(jì)算平均成績(jī)樣文：解決方法：（1）界面設(shè)計(jì)。 需要15個(gè)對(duì)象： 7個(gè)標(biāo)簽（Label） 5個(gè)文本框（TextBox） 3個(gè)命令按鈕（CommandButton）（2）屬性設(shè)置

8、。 Caption：標(biāo)題 Text：文本 MultiLine 設(shè)置成 True 這里是接受多行文本ScrollBars 選擇2 添加一個(gè)滾動(dòng)條 Font：字體（3）需要用代碼實(shí)現(xiàn)的功能有三： 清屏為輸入下一個(gè)準(zhǔn)備：清空4個(gè)文本框；Private Sub Command1_Click()Text1.Text = 清除姓名文本框的內(nèi)容Text2.Text = 清除語(yǔ)文文本框的內(nèi)容Text3.Text = 清除數(shù)學(xué)文本框的內(nèi)容Text4.Text = 清除英語(yǔ)文本框的內(nèi)容Text1.SetFocus 使姓名文本框得到焦點(diǎn)End Sub 計(jì)算平均成績(jī)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) 計(jì)算平均成績(jī)并賦給字符變量 Text5.Text = Text5.Text & name & & t2 & & t3 & & t4 & & aver & vbCrLf 顯示計(jì)算結(jié)果End Sub 結(jié)束： 退出程序。Private Sub Command3_Click() EndEnd Sub（4）運(yùn)行調(diào)試和保存。拓展項(xiàng)目1、計(jì)算樣文：解決方法：Private Sub Command1_Click() Dim num1 As Integer Randomize num1 = Int(Rnd * 50) Print 邊長(zhǎng):; num1 Print 正方形面積:; num1 * num1End SubPrivate Sub Command2_Click() Dim num2 As Integer Randomize