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

10年12月25日设计题 0123 属性窗口： Form1.Caption 交通工具 List1.Left 200 List1.Top 120 List1.List 飞机 轮船 汽车 火车 List1.Style 1-Checkbox 0124 属性窗口： Label1.Caption 文本编辑器 Label1.Font 隶书、斜体、小四号 Label1.AutoSize True Text1.MultiLine True Text1.ScrollBars 2-Vertical Text1.Text 欢迎使用 Visual Basic 6.0 Text1.Font 楷体_GB2312、小四号 Text1.Alignment 2-Center 0125 属性窗口： Frame1.Caption 业余爱好 Check1.Caption 体育 Check2.Caption 音乐 Check3.Caption 美术 Check1.Value 1-Checked Check2.Value 0-Unchecked Check3.Value 2-Grayed 0126 属性窗口： Form1.Caption 文本显示 Label1.Cation 密码形式 Label2.Cation 锁定长度 Text1.Text Text2.Text 空 Label1.Font Label2.Font Text1.Font Text2.Font 小四号 Text1.PasswordChar Text2.MaxLength 6 0127 属性窗口： Form1.Caption 文本框设计 Text1.Font 楷体_GB2312、小四号 Text1.MultiLine True Text1.Text 实践是检验真理 的唯一标准 0223 属性窗口： Image1.BorderStyle 1-Fixed Single Image1.Stretch True Command1.Caption 显示 Command2.Caption 隐藏 Private Sub Command1_Click() Image1.Visible = True Image1.Picture = LoadPicture(k:\Fjexam95\xrk.JPG) End Sub Private Sub Command2_Click() Image1.Visible = False End Sub 0224 属性窗口： Picture1.AutoSize True Command1.Caption 图像 Command2.Caption 文字 Private Sub Command1_Click() Picture1.Cls Picture1.Picture = LoadPicture(k:\Fjexam95\Zebra.bmp) End Sub Private Sub Command2_Click() Picture1.Picture = LoadPicture() Picture1.Print 斑马 End Sub 0225 属性窗口： Text1.MultiLine True 菜单编辑器： 标题 名称 唐诗 Ts 静夜思 (注：内缩一层) Jys 春夜喜雨 (注：内缩一层) Cyxy 清除 Qc Private Sub Jys_Click() Text1.Text = 床前明月光， vbCrLf 疑是地上霜。 vbCrLf 举头望明月， vbCrLf 低头思故乡。 End Sub Private Sub Cyxy_Click() Text1.Text = 好雨知时节， vbCrLf 当春乃发生。 vbCrLf 随风潜入夜， vbCrLf 润物细无声。 End Sub Private Sub Qc_Click() Text1.Text = End Sub 0226 属性窗口： Text1.Font 宋体、小四号 Text1.Alignment 2-Center Option1.Caption 本科生 Option2.Caption 研究生 Private Sub Option1_Click() Text1.Text = 我是本科生 End Sub Private Sub Option2_Click() Text1.Text = 我是研究生 End Sub 0227 属性窗口： Form1.Caption 运行控制 Command1.Caption 运行 Command2.Caption 停止 Private Sub Comman