vb作业.docx

1、vb作业Private Sub Command1_Click()Form2.ClsForm2.ForeColor = vbYellowForm2.Print 右移Form2.Left = Form2.Left + 100End SubPrivate Sub Command2_Click()Form2.BackColor = vbBlackForm2.Show左移.Enabled = TrueCommand5.Enabled = TrueCommand1.Enabled = TrueCommand6.Enabled = TrueEnd SubPrivate Sub Command3_Click(

2、)Form2.Hide左移.Enabled = FalseCommand5.Enabled = FalseCommand1.Enabled = FalseCommand6.Enabled = FalseEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Command5_Click()Form2.ClsForm2.ForeColor = vbYellowForm2.Print 放大Form2.Width = Form2.Width * 2Form2.Height = Form2.Height * 2End SubPrivate Su

3、b Command6_Click()Form2.ClsForm2.ForeColor = vbYellowForm2.Print 缩小Form2.Width = Form2.Width / 2Form2.Height = Form2.Height / 2End SubPrivate Sub Command7_Click()Form1.ForeColor = vbBlackForm1.Print ok!End SubPrivate Sub Command8_Click()Form1.ClsEnd SubPrivate Sub 左移_Click()Form2.ClsForm2.ForeColor

4、= vbYellowForm2.Print 左移Form2.Left = Form2.Left - 100End SubPrivate Sub Command1_Click()Dim a As Single, b As Single, c As SingleLabel1.Caption = a = Val(Text1.Text)b = Val(Text2.Text)c = a + bLabel1.Caption = Val(Text1.Text) & + & Val(Text2.Text) & = & cEnd SubPrivate Sub Command2_Click()Dim a As S

5、ingle, b As Single, c As SingleLabel1.Caption = a = Val(Text1.Text)b = Val(Text2.Text)c = a - bLabel1.Caption = Val(Text1.Text) & - & Val(Text2.Text) & = & cEnd SubPrivate Sub Command3_Click()Text1 = Text2 = Label1.Caption = End SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Command1_Click()Te

6、xt1.Text = Int(Rnd * (99 - 10 + 1) + 10Text2.Text = Int(Rnd * (99 - 10 + 1) + 10End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text1.SetFocusEnd SubPrivate Sub Text1_Change()Text3.Text = Trim(Str(Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Text1_KeyPress(KeyAscii A

7、s Integer)If KeyAscii Asc(9) Or KeyAscii Asc(9) Or KeyAscii = Picture1.ScaleWidth - Shape1.Width Or Shape1.Left = Picture1.ScaleHeight - Shape1.Height Or Shape1.Top = 0 Then Beep Label1.Caption = tElse Label1.Caption = 时间到！ Frame1.Enabled = True Timer1.Enabled = FalseEnd IfEnd SubPrivate Sub Command

8、1_Click() If Command1.Caption = 开始 Then Timer1.Enabled = True Command1.Caption = 停止 Else Timer1.Enabled = False Command1.Caption = 开始 End IfEnd SubPrivate Sub Timer1_Timer() If Label1.Left = Form1.Width Then Label1.Left = Label1.Left + 100 Else Label1.Left = -Label1.Width End IfEnd SubPrivate Sub Fo

9、rm_Load() Text1.Text = HScroll1.Value Text2.Text = HScroll2.Value Text3.Text = HScroll3.ValueEnd SubPrivate Sub HScroll1_Change() Label1.BackColor = RGB(HScroll1.Value, _ HScroll2.Value, HScroll3.Value) 给标签的背景色赋值，该值用颜色函数RGB来实现，而颜色函数RGB的三个颜色参数分别来自滚动条Text1.Text = HScroll1.Value 将Hscroll对象中的值赋给Text对象，使

10、两者值相同End SubPrivate Sub HScroll1_Scroll() Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Text1.Text = HScroll1.ValueEnd SubPrivate Sub HScroll2_Change() Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Text2.Text = HScroll2.ValueEnd SubPrivate Sub HScrol

11、l2_Scroll() Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Text2.Text = HScroll2.ValueEnd SubPrivate Sub HScroll3_Change() Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Text3.Text = HScroll3.ValueEnd SubPrivate Sub HScroll3_Scroll() Label1.BackColor =

12、 RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Text3.Text = HScroll3.ValueEnd SubPrivate Sub Label1_Click() Text1.SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Label1.BackColor = RGB(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text) HScroll1.Value = Val(Text1.Text)End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) HScroll2.Value = Val(Text2.Text)End SubPrivate Sub Text3_KeyPress(KeyAscii As Integer) HScroll3.Value = Val(Text3.Text)End Sub