09年1226日设计题.docVIP

09年12月26日设计题 1 属性窗口： Form1.Caption 设置滚动条 HS1.Name HS1 HS1.Min 0 HS1.Max 100 HS1.SmallChange 2 HS1.LargeChange 5 2 属性窗口： Picture1.BorderStyle 1-Fixed Single Picture1.Height 1095 Picture1.Width 1095 Image1.BorderStyle 1-Fixed Single Image1.Height 1095 Image1.Width 1095 Picture1.AutoSize False Picture1. Picture 选择“k:\fjexam95\RAVMON.jpg” Image1.Stretch True Image1.Picture 选择“k:\fjexam95\RAVMON.jpg” 3 属性窗口： Check1.Style 1-Graphical Check2.Style 1-Graphical Check1.Height Check2.Height 400 Check1.Width Check2.Width 2000 Check1.Enabled True Check2.Enabled False 4 属性窗口： F1.Name F1 F1.Caption 设置框架 Fr1.Name Fr1 Op1.Name Op1 Op2.Name Op2 5 属性窗口： MyList.Name MyList MyList.Left 700 MyList.Top 100 MyList.MultiSelect 1-Simple MyList.List 篮球 唱歌 旅游 阅读 6 属性窗口： Form1.Caption 数值运算 Text1.Alignment Text2.Alignment 2-Center Text1.Text Text2.Text 空 Command1.Caption 求立方根 Private Sub Command1_Click() Text2.Text = Val(Text1.Text) ^ (1 / 3) End Sub 7 属性窗口： Form1.Caption 文字演示 Label1.BorderStyle 1-Fixed Single Label1.Font 粗体，小四号 Label1.Alignment 2-Center Label1.Caption 生于忧患，死于安乐。 Option1.Caption 楷体 Option2.Caption 华文新魏 Private Sub Option1_Click() Label1.FontName = 楷体_GB2312 End Sub Private Sub Option2_Click() Label1.FontName = 楷体_GB2312 End Sub 8 属性窗口： Form1.Caption 计秒器 Timer1.Enabled False Timer1.Interval 1000 Label1.BorderStyle 1-Fixed Single Label1.Font 粗体，三号 Label1.Caption 0 Command1.Caption 计秒 Command2.Caption 停止 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Label1.Caption = Val(Label1.Caption) + 1 End Sub 9 属性窗口： Form1.Caption 打印文字 Picture1.Font 楷体_GB2312，粗体，四号 Command1.Caption 显示 Command2.Caption 清除 Private Sub Command1_Click() Picture1.Print 欢迎参加计算机应用水平考试！ End Sub Private Sub Command2_Click() Picture1.Cls End Sub 10 属性窗口： Image1.BorderStyle 1-Fixed Single Image1.Stretch True Check1.Caption 显示图片 Private Sub Check1_Click() If Check1.Value = 1 Then Image1.Picture = LoadPicture(k:\fj