計算機VB設計題匯編含答案.pptVIP

VB設計題匯編,VB設計題分類,時鐘控件應用 列表框&組合框控件應用 圖形框&圖像框&繪圖&圖片加載 滾動條的應用 文本框&按鈕&標簽控件 單選框&復選框&框架控件應用 菜單設計,時鐘控件應用,Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub,Private Sub Command2_Click() Label1.Caption = “00:00:00“ Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Label1.Caption = Format(Time, “hh:mm:ss“) End Sub,列表框&組合框控件應用,添加兩個list控件和一個Caption屬性為剪切的按鈕. Private Sub Command1_Click() List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End Sub Private Sub Form_Load() List1.AddItem “AAA“ List1.AddItem “BBB“ List1.AddItem “CCC“ List1.AddItem “DDD“ List1.AddItem “EEE“ End Sub,圖形框&圖像框&繪圖&圖片加載,在工具欄的“添加窗體”添加form2窗體. 在工程資源管理器窗口中的“工程屬性”對話框指定form1為啟動窗體. 在Form1中添加一個命令按鈕. Private Sub Command1_Click() Unload Me Form2.Show form2.picture=Loadpicture(“K:Fjexam95ravmon.jpg”) End Sub,控件屬性設置如題 Private Sub Form_Load() Image1.Picture =LoadPicture(“k:fjexam95Tree.jpg“) Image2.Picture = LoadPicture(“k:fjexam95dog.jpg“) Image3.Visible = False End Sub Private Sub Command1_Click() Image3.Picture = Image1.Picture Image1.Picture = Image2.Picture Image2.Picture = Image3.Picture Image3.Visible = False End Sub,相關代碼如下： Private Sub C1_Click() Form1.Picture = LoadPicture(“k:fjexam95jztx.bmp“) End Sub Private Sub C2_Click() Form1.Picture = LoadPicture(“) End Sub,滾動條的應用,添加Label2，Label3，Label4，Label5.其Caption分為”調出顏色”,”紅(R)”,”綠(G)”,”藍(B)”的標簽控件，Label1的 Caption 為空，和 添加三個水平滾動條(名稱為hs1,hs2,hs3)，且min,max屬性值均為0，255。 Private Sub HS1_Change() Label1.BackColor=RGB(HS1.Value,HS2.Value, HS3.Value) End Sub Private Sub HS2_Change() Label1.BackColor=RGB(HS1.Value,HS2.Value, HS3.Value) End Sub Private Sub HS3_Change() Label1.BackColor=RGB(HS1.Value,HS2.Value, HS3.Value) End Sub,文本框&按鈕&標簽控件,相關代碼如下： Private Sub Command1_Click() Text1.Visible = False End Sub Private Sub Command2_Click() Text1.Visible = True Text1.Text = “VB程序設計“ End Sub,Private Sub Command1_Click() If Text1.Text = “student“ Then Label2.Caption = “歡迎使用本系統(tǒng)“ Else Label2.Caption = “口令錯，請重新輸入“ Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Text1.SetFocus End If End Sub Text1屬性：PassWordChar-*,添加標簽caption屬性為“請您輸入您的昵稱”的label控件；添加一個文本框和一個caption屬性為“下一步”的命令按鈕，其enabled屬性為false. Private Sub Text1_Change() Command1.Enabled = True Form1.Caption = Text1.Text End Sub,單選框&復選框&框架控件應用,Private Sub c1_Click() If ch1 And ch2 Then Text1.Text = “報名參加籃球和排球比賽“ ElseIf ch1 Then Text1.Text = “報名參加籃球比賽“ ElseIf ch2 Then Text1.Text = “報名參加排球比賽“ Else Text1.Text = “ End If End Sub,菜單設計,添加一個文本框,其text屬性為“歡迎使用vb” 添加菜單：選擇工具菜單下的菜單編輯器，添加如圖菜單, 編輯器中的可見屬性不選(即菜單不可見). Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu kj （即鼠標右鍵時彈出快捷菜單） End