河南大学09级VB程序设计课后习题答案.docVIP

河南大学09级VB程序设计课后习题参考答案(编码) 个人日记 2010-06-01 19:03:14 阅读681 评论0 ??字号：大中小?订阅 2-1Private?Sub?Form_Click()????ClsEnd?SubPrivate?Sub?Form_DblClick()?FontSize?=?40?FontName?=?隶书?ForeColor?=?vbRed?Print?热烈庆祝?FontSize?=?60?FontName?=?宋体?ForeColor?=?vbGreen?Print?河南大学运动会召开End?Sub2-2Private?Sub?Command1_Click()?Label1.Move?Width?*?Rnd,?Height?*?RndEnd?Sub2-3Private?Sub?Command1_Click()?Label1.Visible?=?TrueEnd?SubPrivate?Sub?Command2_Click()?Label1.Visible?=?FalseEnd?Sub2-4Private?Sub?Timer1_Timer()?Text1.Text?=?Now?Caption?=?Text1.TextEnd?Sub2-5Private?Sub?Timer1_Timer()??If?BackColor?=?vbRed?Then??BackColor?=?vbYellow?Else??BackColor?=?vbRed?End?IfEnd?Sub2-6Private?Sub?Timer1_Timer()?If?Label1.Left??Form1.Width?Then?Label1.Left?=?Label1.Left?+?200?Else?Label1.Left?=?-Label1.Left?End?IfEnd?Sub2-7Private?Sub?Command1_Click()?Text1.Visible?=?TrueEnd?SubPrivate?Sub?Command2_Click()?Text1.Visible?=?FalseEnd?Sub2-8Private?Sub?Text1_Change()?Text2.Text?=?Text1.TextEnd?Sub2-9Private?Sub?Command1_Click()?FontSize?=?20?FontBold?=?True?Print?欢迎来到?Print?河南大学End?SubPrivate?Sub?Command2_Click()?ClsEnd?SubPrivate?Sub?Command3_Click()?EndEnd?Sub2-10Private?Sub?Command1_Click()?r?=?Text1.Text?Text2.Text?=?3.14?*?2?*?rEnd?SubPrivate?Sub?Command2_Click()?Text1.Text?=???Text2.Text?=???Text1.SetFocusEnd?Sub2-11Private?Sub?Form_Load()?Text1.Text?=?河南大学欢迎您！?Text1.FontName?=?宋体?Text1.FontSize?=?50?Text1.BackColor?=?vbYellow?Text1.ForeColor?=?vbBlueEnd?Sub2-12?Dim?s?As?StringPrivate?Sub?Command1_Click()?s?=?Text1.SelTextEnd?SubPrivate?Sub?Command2_Click()?Text2.SelText?=?sEnd?Sub2-13Private?Sub?Timer1_Timer()?If?Label1.Top??-Label1.Height?Then??Label1.Top?=?Label1.Top?-?100?Else??Label1.Top?=?Form1.Height?End?IfEnd?Sub3-2Private?Sub?Form_Click()?Dim?n?As?Integer?Randomize?n?=?Int((90?*?Rnd)?+?10)?Print?nEnd?Sub3-3Private?Sub?Timer1_Timer()?Cls?Print?河南大学环境与规划学院?FontSize?=?Int(71?*?Rnd?+?