項目一VB程序設計

1、項目一：VB程序設計任務一：滾動字幕樣文：解決方法：（1）界面設計。 需要2個對象：1個標簽（Label1）1個記時器（Timer1）（2）屬性設置。 標簽：Caption：設為：歡迎新同學！歡迎進入VB世界！ Backcolor: 設為：紅色Forecolor: 設為：紅色 時鐘：Interval: 時間間隔毫秒數設為：30（3）需要用代碼實現的功能有：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任務二：人民幣與美元兌換程序樣文：解決方法：（1）界面設計。 需要7個對象： 2個標簽（Label） 2個文本框（TextBox） 3個命令按鈕（CommandButton）（2）屬性設置。 Caption：標題 Text：文本 Font：字體（3）需要用代碼實現的功能有三： 清屏：清空2個文本框；Privat

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

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

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

8、。 Caption：標題 Text：文本 MultiLine 設置成 True 這里是接受多行文本ScrollBars 選擇2 添加一個滾動條 Font：字體（3）需要用代碼實現的功能有三： 清屏為輸入下一個準備：清空4個文本框；Private Sub Command1_Click()Text1.Text = 清除姓名文本框的內容Text2.Text = 清除語文文本框的內容Text3.Text = 清除數學文本框的內容Text4.Text = 清除英語文本框的內容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 顯示計算結果End Sub 結束： 退出程序。Private Sub Command3_Click() EndEnd Sub（4）運行調試和保存。拓展項目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