10年12月25日设计题(打印用).doc

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属性窗口：Frame1.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属性窗口：Form1.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 Command2_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属性窗口：Text1.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() 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() 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() 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 Label2.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), , 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删除Combo1.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 SinglePicture1.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.Height400Check1.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 Sub Option2_Click() Label1.FontName = 华文新魏End Sub0215属性窗口：Form1.Caption计秒器Timer1.EnabledFalseTimer1.Interval1000Label1.BorderStyle1-Fixed SingleLabel1.Font粗体，三号Label1.Caption0Command1.Caption计秒Command2.Caption停止Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() Label1.Caption = Val(Label1.Caption) + 1End Sub0216属性窗口：Form1.Caption打印文字Picture1.Font楷体_GB2312，粗体，四号Command1.Caption显示Command2.Caption清除Private Sub Command1_Click()Picture1.Print 欢迎参加计算机应用水平考试！End SubPrivate Sub Command2_Click() Picture1.ClsEnd Sub0217属性窗口：Image1.BorderStyle1-Fixed SingleImage1.StretchTrueCheck1.Caption显示图片Private Sub Check1_Click() If Check1.Value = 1 Then Image1.Picture = LoadPicture(k:fjexam95Jztx.bmp) Else Image1.Picture = LoadPicture() End IfEnd Sub0313属性窗口：F1.NameF1F1.Caption时钟T1.NameT1Timer1.EnabledTrueTimer1.Interval1000Private Sub Form_Click() Timer1.Enabled = FalseEnd SubPrivate Sub T1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() T1.Text = Time()End Sub0314属性窗口：Form1.Caption设置颜色T1.NameT1T1.Font粗体，小四号T1.Alignment2-CenterLb1.NameLb1Lb1.Caption前景Lb2.NameLb2Lb2.Caption背景HS1.NameHS1HS2.NameHS2HS1.MinHS2.Min0HS1.MaxHS2.Max255Private Sub HS1_Change() T1.ForeColor = RGB(HS1.Value, 0, 0)End SubPrivate Sub HS2_Change() T1.BackColor = RGB(0, 0, HS2.Value)End Sub0315属性窗口：Form1.Caption画图示例Pic1.NamePic1Pic1.Width1800Pic1.Height1100C1.NameC1C1.Caption画线C2.NameC2C2.Caption画圆Private Sub C1_Click() Pic1.Cls Pic1.Line (0, 550)-(1800, 550)End SubPrivate Sub C2_Click() Pic1.Cls Pic1.Circle (900, 550), 400End Sub0317菜单编辑器中：标题名称计算Js平方和 (注：内缩一层)Pfh平方差 (注：内缩一层)Pfc清除Qc属性窗口：Label1.BorderStyle1-Fixed SinglePrivate Sub Pfh_Click() Label1.Caption = Val(Text1.Text) 2 + Val(Text2.Text) 2End SubPrivate Sub Pfc_Click() Label1.Caption = Val(Text1.Text) 2 - Val(Text2.Text) 2End SubPrivate Sub Qc_Click() Text1.Text = Text2.Text = Label1.Caption = End Sub08年12月27日设计题0101属性窗口：L1.NameL1L1.Caption设置滚动条L1.Alignment2-CenterL1.Font楷体_GB2312,四号HS1.NameHS1HS1.Min0HS1.Max100HS1.Value300104 属性窗口：Form1.Caption形状控件Shape1.Shape2-OvalShape1.FillStyle4-Upward Diagonal0105 属性窗口：MyList.NameMyListMyList.Left700MyList.Top100MyList.List篮球唱歌旅游阅读MyList.MultiSelect2-Extended0106 属性窗口：MyLab.NameMyLabMyLab.Caption自然美景MyLab.Font宋体、粗体、三号MyLab.Alignment2-CenterImage1.BorderStyle1-Fixed SingleImage1.StretchTrueImage1.Picture选择“k:fjexam95Sunset.jpg”0201 属性窗口：Form1.Caption函数计算Text1.Alignment2-CenterText1.Text空Command1.Caption求平方根Private Sub Command1_Click() Text1.Text = Sqr(Val(Text1.Text)End Sub0202 属性窗口：C1.NameC1C1.Caption颜色设置T1.NameT1T1.Text计算机应用水平测试Lb1.NameLb1Lb1.Caption红Lb2.NameLb2Lb2.Caption绿Lb3.NameLb3Lb3.Caption蓝HS1.NameHS1HS2.NameHS2HS3.NameHS3HS1.MinHS2.MinHS3.Min0HS1.MaxHS2.MaxHS3.Max255Private Sub C1_Click() T1.ForeColor = RGB(HS1.Value, HS2.Value, HS3.Value)End Sub0203 属性窗口：Timer1.EnabledTrueTimer1.Interval1000Label1.Caption00:00:00Command1.Caption显示Command2.Caption停止Private Sub Timer1_Timer() Label1.Caption = Time()End SubPrivate Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd Sub0205 属性窗口：Label1.Caption加载图形Label2.Caption清除图形Private Sub Label1_Click() Form1.Picture = LoadPicture(K:Fjexam95Jztx.bmp)End SubPrivate Sub Label2_Click() Form1.Picture = LoadPicture()End Sub0301 属性窗口：T1.NameT1T1.Text0T1.Font四号Timer1.EnabledTrueTimer1.Interval2000Private Sub Timer1_Timer() T1.Text = Str(Val(T1.Text) + 1)End SubPrivate Sub T1_Click() Timer1.Enabled = FalseEnd Sub0302 属性窗口：Img1.NameImg1Img2.NameImg2Img1.BorderStyleImg2.BorderStyle1-Fixed SingleImg1.StretchImg2.StretchTrueC1.NameC1C1.Caption轮流显示Private Sub C1_Click() Img1.Visible = Not Img1.Visible Img2.Visible = Not Img2.VisibleEnd SubPrivate Sub Form_Load() Img1.Picture = LoadPicture(k:fjexam95RAVMON.JPG) Img2.Picture = LoadPicture(k:fjexam95Artist.GIF) Img2.Visible = FalseEnd Sub0303 属性窗口：Form1.Caption画图示例Pic1.NamePic1Pic1.Width1800Pic1.Height1100C1.NameC1C1.Caption画圆C2.NameC2C2.Caption画椭圆Private Sub C1_Click() Pic1.Cls Pic1.Circle (900, 550), 400End SubPrivate Sub C2_Click() Pic1.Cls Pic1.Circle (900, 550), 300, , , , 2End Sub0304属性窗口：T1.NameT1C1.NameC1C1.Caption添加L1.NameL1L2.NameL2Private Sub C1_Click() L1.AddItem T1.Text L2.AddItem Asc(T1.Text) T1.Text = T1.SetFocusEnd Sub0305菜单编辑器中：标题名称计算Cal乘法 (注：内缩一层)Mul整除 (注：内缩一层)Div清除Clean属性窗口：Label1.BorderStyle1-Fixed SinglePrivate Sub Mul_Click() Label1.Caption = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Div_Click() Label1.Caption = Val(Text1.Text) Val(Text2.Text)End SubPrivate Sub Clean_Click() Text1.Text = Text2.Text = Label1.Caption = End Sub0306 属性窗口：L1.NameL1L1.Caption推荐书本：(双击即可选取)L2.NameL2L2.Caption购买：List1.List红楼梦素数的故事古文观止论语今读中国哲学史Private Sub List1_DblClick() List2.AddItem List1.TextEnd SubPrivate Sub List2_DblClick() List2.RemoveItem List2.ListIndexEnd Sub1属性窗口：Label1.Caption右对齐Label1.Font黑体、小四Label1.Alignment1-Right JustifyLabel2.BorderStyle1-Fixed SingleLabel2.BackStyle0-TransparentLabel2.Caption水平居中Label2.Font楷体_GB2312、小四Label2.Alignment2-Center2属性窗口：Label1.Caption请输入一串英文字符：Command1.Caption转成大写Private Sub Command1_Click() Text1.Text = UCase(Text1.Text)End Sub3属性窗口：Command1.Caption添加Private Sub Command1_Click() List1.AddItem Text1.Text List2.AddItem Len(Trim(Text1.Text) Text1.Text = Text1.SetFocusEnd Sub4属性窗口：Shape1.Shape3-CircleShape1.Width1980Shape1.Left1320Shape1.FillColor&H000000FF&Shape1.FillStyle0-SolidForm1.MaxButtonFalse注意：在设置Shape1.Width属性前，应让Shape1控件的宽度小于高度。这样在设置该属性后，就能使圆的直径也为1980。5属性窗口：Command1.Caption复制Private Sub Command1_Click() Text2.Text = Text1.SelText Text1.SetFocusEnd Sub6属性窗口：Text1.Text欢迎使用VB菜单编辑器：标题名称可见属性快捷菜单Kj不可见增加1磅 (注：内缩一层)Add可见减少1磅 (注：内缩一层)Sub可见Private Sub Add_Click() Text1.FontSize = Text1.FontSize + 1End SubPrivate Sub Sub_Click() Text1.FontSize = Text1.FontSize - 1End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Form1.PopupMenu Kj End IfEnd Sub8属性窗口：Label1.Caption请输入您的昵称：Text1.Text(空白)Command1.Caption下一步Command1.EnabledFalsePrivate Sub Text1_Change() Form1.Caption = Text1.Text Command1.Enabled = TrueEnd Sub9属性窗口：Form1.Caption少儿知识园地Text1.MultiLineTrueText1.ScrollBars2-Vertical菜单编辑器：标题名称唐诗(&T)A相思 (注：内缩一层)A1春夜喜雨 (注：内缩一层)A2科普知识(&K)BPrivate Sub A2_Click() Text1.Text = 好雨知时节，当春乃发生。 & vbCrLf & 随风潜入夜，润物细无声。End Sub10属性窗口：Form1.Caption课程Combo1.Style1-Simple ComboCombo1.List数字电路模拟电路信号与系统计算机网络Combo1.Text课程11(1)在“工程资源管理器窗口”中，右击，选择“添加”“添加窗体”(2)菜单“工程”“工程1属性”，“通用”选项卡中，“启动对象”选择“Form1”(3)在Form1的代码窗口：Private Sub Command1_Click() Unload Form1 Form2.Show Form2.Picture = LoadPicture(K:Fjexam95ravmon.jpg)End Sub13属性窗口：Text1.Text8Command1.Caption倒计数Timer1.EnabledFalseTimer1.Interval500Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() If Val(Text1.Text) 0 Then Text1.Text = Str(Val(Text1.Text) - 1) End IfEnd Sub17属性窗口：Label1.Caption使两个文本框的内容保持同步Label1.Font楷体_GB2312、小四Label1.AutoSizeTrueText1.TextText2.Text(空白)Text1.Height Text2.Height600Text1.WidthText2.Width3000Text1.MultiLineText2. MultiLineTrueText1.ScrollBarsText2. ScrollBarsHorizontalPrivate Sub Text1_Change() Text2.Text = Text1.TextEnd Sub18属性窗口：List1.ListVBC+DelphiJavaVfpCommand1.CaptionCommand2.Caption统计Private Sub Command1_Click() List2.AddItem List1.TextEnd SubPrivate Sub Command2_Click() MsgBox 你共选修了 & List2.ListCount & 门课程End Sub21属性窗口：Form1.Caption画图示例Picture1.Width1800Picture1.Height1100Command1.Caption画线Command2.Caption画椭圆Private Sub Command1_Click() Picture1.Cls Picture1.Line (0, 0)-(1800,1100)End SubPrivate Sub Command2_Click() Picture1.Cls Picture1.Circle (900, 550), 300, , , , 2End Sub22属性窗口：Command1.Caption交换图片Private Sub Form_Load() Image1.Picture = LoadPicture(K:Fjexam95Tree.JPG) Image2.Picture = LoadPicture(K:Fjexam95Dog