vb作业.docx
- 文档编号:8659870
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:19
- 大小:222.45KB
vb作业.docx
《vb作业.docx》由会员分享,可在线阅读,更多相关《vb作业.docx(19页珍藏版)》请在冰豆网上搜索。
vb作业
PrivateSubCommand1_Click()
Form2.Cls
Form2.ForeColor=vbYellow
Form2.Print"右移"
Form2.Left=Form2.Left+100
EndSub
PrivateSubCommand2_Click()
Form2.BackColor=vbBlack
Form2.Show
左移.Enabled=True
Command5.Enabled=True
Command1.Enabled=True
Command6.Enabled=True
EndSub
PrivateSubCommand3_Click()
Form2.Hide
左移.Enabled=False
Command5.Enabled=False
Command1.Enabled=False
Command6.Enabled=False
EndSub
PrivateSubCommand4_Click()
End
EndSub
PrivateSubCommand5_Click()
Form2.Cls
Form2.ForeColor=vbYellow
Form2.Print"放大"
Form2.Width=Form2.Width*2
Form2.Height=Form2.Height*2
EndSub
PrivateSubCommand6_Click()
Form2.Cls
Form2.ForeColor=vbYellow
Form2.Print"缩小"
Form2.Width=Form2.Width/2
Form2.Height=Form2.Height/2
EndSub
PrivateSubCommand7_Click()
Form1.ForeColor=vbBlack
Form1.Print"ok!
"
EndSub
PrivateSubCommand8_Click()
Form1.Cls
EndSub
PrivateSub左移_Click()
Form2.Cls
Form2.ForeColor=vbYellow
Form2.Print"左移"
Form2.Left=Form2.Left-100
EndSub
PrivateSubCommand1_Click()
DimaAsSingle,bAsSingle,cAsSingle
Label1.Caption=""
a=Val(Text1.Text)
b=Val(Text2.Text)
c=a+b
Label1.Caption=Val(Text1.Text)&"+"&Val(Text2.Text)&"="&c
EndSub
PrivateSubCommand2_Click()
DimaAsSingle,bAsSingle,cAsSingle
Label1.Caption=""
a=Val(Text1.Text)
b=Val(Text2.Text)
c=a-b
Label1.Caption=Val(Text1.Text)&"-"&Val(Text2.Text)&"="&c
EndSub
PrivateSubCommand3_Click()
Text1=""
Text2=""
Label1.Caption=""
EndSub
PrivateSubCommand4_Click()
End
EndSub
PrivateSubCommand1_Click()
Text1.Text=Int(Rnd*(99-10+1))+10
Text2.Text=Int(Rnd*(99-10+1))+10
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text1.SetFocus
EndSub
PrivateSubText1_Change()
Text3.Text=Trim(Str(Val(Text1.Text)+Val(Text2.Text)))
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii>Asc("9")OrKeyAscii KeyAscii=0 EndIf EndSub PrivateSubText2_Change() Text3.Text=Trim(Str(Val(Text1.Text)+Val(Text2.Text))) EndSub PrivateSubText2_KeyPress(KeyAsciiAsInteger) IfKeyAscii>Asc("9")OrKeyAscii KeyAscii=0 EndIf EndSub DimaAsString DimbAsString PrivateSubCheck1_Click() IfCheck1.Value=1Then Option1.Enabled=True Option2.Enabled=True Option3.Enabled=True Else Option1.Enabled=False Option2.Enabled=False Option3.Enabled=False EndIf EndSub PrivateSubCheck2_Click() IfCheck2.Value=1Then Option4.Enabled=True Option5.Enabled=True Else Option4.Enabled=False Option5.Enabled=False EndIf EndSub PrivateSubCommand1_Click() Label3.Caption="你订购了"+b+"系统的"+a+Text1.Text+"台" EndSub PrivateSubOption4_Click() b=Option4.Caption EndSub PrivateSubOption5_Click() b=Option5.Caption EndSub PrivateSubOption1_Click() a=Option1.Caption EndSub PrivateSubOption2_Click() a=Option2.Caption EndSub PrivateSubOption3_Click() a=Option3.Caption EndSub PrivateSubTimer1_Timer() Label1.Caption="当前时间是: "&Hour(Time)&"时"&Minute(Time)&"分"&Second(Time)&"秒" Label2.Caption="当前时间是: "&Date EndSub PrivateSubCommand1_Click() IfList1.ListIndex=-1Then n=MsgBox("请先选择一个选项! ",0,"提示") Else Combo1.AddItemList1.Text List1.RemoveItemList1.ListIndex EndIf EndSub PrivateSubCommand2_Click() IfCombo1.ListIndex=-1Then n=MsgBox("请先选择一个选项! ",0,"提示") Else List1.AddItemCombo1.Text Combo1.RemoveItemCombo1.ListIndex EndIf EndSub PrivateSubCommand3_Click() Fori=List1.ListCount-1To0Step-1 Combo1.AddItemList1.List(i) Nexti List1.Clear EndSub Dimx,yAsInteger PrivateSubCommand1_Click() Timer1.Enabled=True Command1.Enabled=False Command2.Enabled=True EndSub PrivateSubCommand2_Click() Timer1.Enabled=Flase Command1.Enabled=True Command2.Enabled=False EndSub PrivateSubCommand3_Click() End EndSub PrivateSubForm_Load() x=50 y=50 EndSub PrivateSubTimer1_Timer() Shape1.Left=Shape1.Left+x Shape1.Top=Shape1.Top+y IfShape1.Left>=Picture1.ScaleWidth-Shape1.WidthOrShape1.Left<=0Then x=-x EndIf IfShape1.Top>=Picture1.ScaleHeight-Shape1.HeightOrShape1.Top<=0Then y=-y EndIf EndSub PrivateSubCommand1_Click() CommonDialog1.Action=3 Text1.ForeColor=CommonDialog1.Color EndSub PrivateSubCommand2_Click() CommonDialog1.Flags=257 CommonDialog1.Action=4 Text1.FontName=CommonDialog1.FontName Text1.FontSize=CommonDialog1.FontSize Text1.FontBold=CommonDialog1.FontBold Text1.FontUnderline=CommonDialog1.FontUnderline Text1.FontStrikethru=CommonDialog1.FontStrikethru Text1.ForeColor=CommonDialog1.Color EndSub PrivateSubTc1_Click() IfShape1.FillStyle=1Then MsgBox"请选用非透明的填充类型! " Else CommonDialog1.ShowColor Shape1.FillColor=CommonDialog1.Color EndIf EndSub PrivateSubYd1_Click(IndexAsInteger) SelectCaseIndex Case0 Shape1.Top=Shape1.Top-100 Case1 Shape1.Top=Shape1.Top+100 Case2 Shape1.Left=Shape1.Left-100 Case3 Shape1.Left=Shape1.Left+100 EndSelect EndSub PrivateSubTc31_Click(IndexAsInteger) SelectCaseIndex Case0 Shape1.FillStyle=0 Case1 Shape1.FillStyle=1 EndSelect EndSub PrivateSubXz1_Click(IndexAsInteger) Shape1.Shape=Index EndSub PrivateSubdq_Click(IndexAsInteger) Text1.Alignment=Index EndSub PrivateSubForm_Mouseup(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) IfButton=2Then PopupMenuSz EndIf EndSub PrivateSubjc_Click() jc.Checked=Notjc.Checked Text1.FontBold=jc.Checked EndSub PrivateSubqx_Click() qx.Checked=Notqx.Checked Text1.FontItalic=qx.Checked EndSub PrivateSubZt_Click(IndexAsInteger) Text1.FontName=Zt(Index).Caption EndSub PrivateSubDir1_Change() File1.Path=Dir1.Path EndSub PrivateSubDrive1_Change() Dir1.Path=Drive1.Drive EndSub PrivateSubFile1_Click() DimfsAsString IfRight(File1.Path,1)="\"Then fs=File1.Path+File1.FileName Else fs=File1.Path+"\"+File1.FileName EndIf Image1.Picture=LoadPicture(fs) EndSub PrivateSubForm_Load() Drive1.Drive="c: " File1.Pattern="*.bmp;*.gif;*.jpg" EndSub PrivateSubCommand1_Click() DimsAsString Text1.Text="" CommonDialog1.ShowOpen OpenCommonDialog1.FileNameForInputAs#1 DoWhileNotEOF (1) LineInput#1,s Text1.Text=Text1.Text+s+Chr(13)+Chr(10) Loop Close#1 EndSub PrivateSubCommand2_Click() CommonDialog1.ShowSave OpenCommonDialog1.FileNameForOutputAs#1 Print#1,Text1.Text Close#1 EndSub PrivateSubCommand3_Click() End EndSub DimtAsInteger PrivateSubCommand1_Click() Timer1.Enabled=True Command1.Enabled=False Frame1.Enabled=False EndSub PrivateSubOption1_Click(IndexAsInteger) Command1.Enabled=True SelectCaseIndex Case0 t=6 Label1.Caption=t Case1 t=10 Label1.Caption=t EndSelect EndSub PrivateSubTimer1_Timer() t=t-1 Ift>=0Then Beep Label1.Caption=t Else Label1.Caption="时间到! " Frame1.Enabled=True Timer1.Enabled=False EndIf EndSub PrivateSubCommand1_Click() IfCommand1.Caption="开始"Then Timer1.Enabled=True Command1.Caption="停止" Else Timer1.Enabled=False Command1.Caption="开始" EndIf EndSub PrivateSubTimer1_Timer() IfLabel1.Left<=Form1.WidthThen Label1.Left=Label1.Left+100 Else Label1.Left=-Label1.Width EndIf EndSub PrivateSubForm_Load() Text1.Text=HScroll1.Value Text2.Text=HScroll2.Value Text3.Text=HScroll3.Value EndSub PrivateSubHScroll1_Change() Label1.BackColor=RGB(HScroll1.Value,_ HScroll2.Value,HScroll3.Value)'给标签的背景色赋值,该值用颜色函数RGB来实现,而颜色函数RGB的三个颜色参数分别来自滚动条 Text1.Text=HScroll1.Value'将Hscroll对象中的值赋给Text对象,使两者值相同 EndSub PrivateSubHScroll1_Scroll() Label1.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value) Text1.Text=HScroll1.Value EndSub PrivateSubHScroll2_Change() Label1.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value) Text2.Text=HScroll2.Value EndSub PrivateSubHScroll2_Scroll() Label1.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value) Text2.Text=HScroll2.Value EndSub PrivateSubHScroll3_Change() Label1.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value) Text3.Text=HScroll3.Value EndSub PrivateSubHScroll3_Scroll() Label1.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value) Text3.Text=HScroll3.Value EndSub PrivateSubLabel1_Click() Text1.SetFocus EndSub PrivateSubText1_KeyPress(KeyAsciiAsInteger) Label1.BackColor=RGB(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text)) HScroll1.Value=Val(Text1.Text) EndSub PrivateSubText2_KeyPress(KeyAsciiAsInteger) HScroll2.Value=Val(Text2.Text) EndSub PrivateSubText3_KeyPress(KeyAsciiAsInteger) HScroll3.Value=Val(Text3.Text) EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 作业