《10年12月计算机二级vb设计题》由会员分享，可在线阅读，更多相关《10年12月计算机二级vb设计题（20页珍藏版）》请在金锄头文库上搜索。
1、10年12月25日设计题0123属性窗口：Form1.Caption交通工具List1.Left200List1.Top120List1.List飞机轮船汽车火车List1.Style1-Checkbox0124属性窗口：Label1.Caption文本编辑器Label1.Font隶书、斜体、小四号Label1.AutoSizeTrueText1.MultiLineTrueText1.ScrollBars2-VerticalText1.Text欢迎使用Visual Basic 6.0Text1.Font楷体_GB2312、小四号Text1.Alignment2-Center0125属性窗口：F
2、rame1.Caption业余爱好Check1.Caption体育Check2.Caption音乐Check3.Caption美术Check1.Value1-CheckedCheck2.Value0-UncheckedCheck3.Value2-Grayed0126属性窗口：Form1.Caption文本显示Label1.Cation密码形式Label2.Cation锁定长度Text1.TextText2.Text空Label1.FontLabel2.FontText1.FontText2.Font小四号Text1.PasswordChar&Text2.MaxLength60127属性窗口：F
3、orm1.Caption文本框设计Text1.Font楷体_GB2312、小四号Text1.MultiLineTrueText1.Text实践是检验真理的唯一标准0223属性窗口：Image1.BorderStyle1-Fixed SingleImage1.StretchTrueCommand1.Caption显示Command2.Caption隐藏Private Sub Command1_Click() Image1.Visible = True Image1.Picture = LoadPicture(k:Fjexam95xrk.JPG)End SubPrivate Sub Command
4、2_Click() Image1.Visible = FalseEnd Sub0224属性窗口：Picture1.AutoSizeTrueCommand1.Caption图像Command2.Caption文字Private Sub Command1_Click() Picture1.Cls Picture1.Picture =LoadPicture(k:Fjexam95Zebra.bmp)End SubPrivate Sub Command2_Click() Picture1.Picture = LoadPicture() Picture1.Print 斑马End Sub0225属性窗口：T
5、ext1.MultiLineTrue菜单编辑器：标题名称唐诗Ts静夜思 (注：内缩一层)Jys春夜喜雨 (注：内缩一层)Cyxy清除QcPrivate Sub Jys_Click() Text1.Text = 床前明月光， & vbCrLf & 疑是地上霜。 & vbCrLf & 举头望明月， & vbCrLf & 低头思故乡。End SubPrivate Sub Cyxy_Click() Text1.Text = 好雨知时节， & vbCrLf & 当春乃发生。 & vbCrLf & 随风潜入夜， & vbCrLf & 润物细无声。End SubPrivate Sub Qc_Click()
6、Text1.Text = End Sub0226属性窗口：Text1.Font宋体、小四号Text1.Alignment2-CenterOption1.Caption本科生Option2.Caption研究生Private Sub Option1_Click() Text1.Text = 我是本科生End SubPrivate Sub Option2_Click() Text1.Text = 我是研究生End Sub0227属性窗口：Form1.Caption运行控制Command1.Caption运行Command2.Caption停止Private Sub Command1_Click()
7、 Command1.Caption = 继续运行End SubPrivate Sub Command2_Click() Command2.Enabled = FalseEnd Sub0323属性窗口：Label1.Caption选修课目录：Label2.Caption已选课程：List1.List古诗欣赏动态网站设计Flash设计西洋美术史非线性编辑Command1.Caption选择Command2.Caption清除Private Sub Command1_Click() List2.AddItem List1.TextEnd SubPrivate Sub Command2_Click()
8、 List2.RemoveItem List2.ListIndexEnd Sub0324属性窗口：Form1.Caption动画电子钟表Timer1.EnabledTrueTimer1.Interval1000Label1.Alignment2-CenterLabel1.Caption北京时间Label1.Font隶书、四号、粗体Label2.Left600Private Sub Timer1_Timer() If Label2.Left = 1199 Then Label2.Caption = Time() Label2.Left = Label2.Left + 100 Else Label
9、2.Enabled = False End IfEnd Sub0325属性窗口：Form1.Caption画图示例Picture1.Width1800Picture1.Height1200Command1.Caption矩形1Command2.Caption矩形2Private Sub Command1_Click() Picture1.Cls Picture1.Line (600, 400)-(1200, 800), , BEnd SubPrivate Sub Command2_Click() Picture1.Cls Picture1.Line (600, 400)-(1200, 800)
10、, , BFEnd Sub0326属性窗口：Label1.AutoSizeTrueLabel1.CaptionVB集成开发环境Combo1.List宋体楷体_GB2312Combo2.List1216Private Sub Combo1_Click() Label1.FontName = Combo1.TextEnd SubPrivate Sub Combo2_Click() Label1.FontSize = Combo2.TextEnd Sub0327属性窗口：Combo1.Style1-Simple ComboCommand1.Caption选购Command2.Caption删除Com
11、bo1.List计算机电视机影碟机移动电话Private Sub Command1_Click() Combo1.AddItem Combo1.TextEnd SubPrivate Sub Command2_Click() Combo1.RemoveItem Combo1.ListIndexEnd Sub09年12月26日设计题0113属性窗口：Form1.Caption设置滚动条HS1.NameHS1HS1.Min0HS1.Max100HS1.SmallChange2HS1.LargeChange50114属性窗口：Picture1.BorderStyle1-Fixed SinglePict
12、ure1.Height1095Picture1.Width1095Image1.BorderStyle1-Fixed SingleImage1.Height1095Image1.Width1095Picture1.AutoSizeFalsePicture1. Picture选择“k:fjexam95RAVMON.jpg”Image1.StretchTrueImage1.Picture选择“k:fjexam95RAVMON.jpg”0115属性窗口：Check1.Style1-GraphicalCheck2.Style1-GraphicalCheck1.HeightCheck2.Height40
13、0Check1.WidthCheck2.Width2000Check1.EnabledTrueCheck2.EnabledFalse0117属性窗口：MyList.NameMyListMyList.Left700MyList.Top100MyList.MultiSelect1-SimpleMyList.List篮球唱歌旅游阅读0213属性窗口：Form1.Caption数值运算Text1.AlignmentText2.Alignment2-CenterText1.TextText2.Text空Command1.Caption求立方根Private Sub Command1_Click()Text2.Text = Val(Text1.Text) (1 / 3)End Sub0214属性窗口：Form1.Caption文字演示Label1.BorderStyle1-Fixed SingleLabel1.Font粗体，小四号Label1.Alignment2-CenterLabel1.Caption生于忧患，死于安乐。Option1.Caption楷体Option2.Caption华文新魏Private Sub Option1_Click() Label1.FontName = 楷体_GB2312End SubPrivate
