2011年12月24日VB程序设计真题汇总--设计题.docVIP

2011年12月24日VB程序设计真题汇总 设计题 第一题 (1) (2) (3) (4) 更改Label1的caption属性值，font属性值，Autosize的属性值为“1-透明”； 更改List1的list属性值，style改为“1-复选框”。 (5) 窗体的caption改为“形状控件”；用形状控件在窗体中画一个形状，将“shape”属性值为3-圆，“Fillstyle”属性值为7-交叉对角线。 第二题 (1) 更改image1的“stretch”的属性值为true； Private Sub Option1_Click() If Option1.Value = True Then Image1.Picture = LoadPicture(k:\fjexam95\goldcol.bmp) End If End Sub Private Sub Option2_Click() If Option2.Value = True Then Image1.Picture = LoadPicture(k:\fjexam95\pict.bmp ) End If End Sub (2) Private Sub Command1_Click() Combo1.AddItem Text1.Text End Sub Private Sub Command2_Click() Combo1.RemoveItem Combo1.listIndex End Sub (3) Private Sub Command1_Click() Label1.Caption = 欢迎参加计算机等级考试 End Sub Private Sub Command2_Click() Label1.Caption = Now End Sub (4) Private Sub Command1_Click() Text2.Text = Val(Text1.Text) ^ 2 * 3.1416 End Sub (5)? Private Sub VScroll1_Change() Picture1.Height = VScroll1.Value End Sub Private Sub Form_Load() Picture1.Picture = LoadPicture(k:\fjexam95\蒙娜丽莎.jpg) Picture1.Height = 0 End Sub 第三题 (1) Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Label1.Left = 100 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Label1.Left = Label1.Left + 100 End Sub (2) Private Sub Command1_Click() List1.AddItem Text1.Text List2.AddItem Len(Text1.Text) Text1.Text = Text1.SetFocus End Sub (3) Private Sub Command1_Click() Picture1.Picture = LoadPicture() Picture1.Circle (900, 550), 400, , , , 0.5 End Sub Private Sub Command2_Click() Picture1.Picture = LoadPicture() Picture1.Circle (900, 550), 400, , , , 2 End Sub (4) Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu zt End If End Sub Private Sub FontName1_Click() Text1.FontName = 黑体 End Sub Private Sub FontName2_Click() Text1.FontName = 楷体 End Sub (5) Private Sub Command1_Click() Frame1.Visible = False End Sub Private Sub Comman