visualbasic程序设计实验指导书实验代码dzyqz.doc

第一章三、编程题第2题.设计由用户?在文本框T?ext1中?输入圆的半?径，在文本框T?ext2和?文本框Te?xt3中分?别显示圆的?周长和面积?程序。Priva?te Sub Comma?nd1_C?lick() 计算按钮Text3?.Text = 3.14159? * Text1?.Text ^ 2Text2?.Text = 2 * 3.14159? * Text1?.TextEnd SubPriva?te Sub Comma?nd2_C?lick() 清除按钮Text1?.Text = Text2?.Text = Text3?.Text = Text1?.SetFo?cus 文本框获得?焦点End SubPriva?te Sub Comma?nd3_C?lick() 结束按钮EndEnd SubPriva?te Sub Form_?Load() 也可以在属?性窗口设置?以下几个属?性Label?1.Capti?on = 请输入圆半?径计算圆周?长和面积Label?2.Capti?on = 输入圆半径?Label?3.Capti?on = 圆的周长是?End Sub第3题.在文本框中?输入一个字?符串，对字符串进?行字体的放?大或缩小Priva?te Sub Comma?nd1_C?lick() 放大按钮Text1?.FontS?ize = 30Comma?nd1.Enabl?ed = False?Comma?nd2.Enabl?ed = TrueComma?nd3.Enabl?ed = TrueEnd SubPriva?te Sub Comma?nd2_C?lick() 缩小按钮Text1?.FontS?ize = 6Comma?nd2.Enabl?ed = False?Comma?nd3.Enabl?ed = TrueComma?nd1.Enabl?ed = TrueEnd SubPriva?te Sub Comma?nd3_C?lick() 还原按钮Text1?.FontS?ize = 9Comma?nd3.Enabl?ed = False?Comma?nd1.Enabl?ed = TrueComma?nd2.Enabl?ed = TrueEnd Sub第5题.编一程序，单击“加边框”按钮，在标签框四?周加上边框?；单击“隐藏”按钮。使边框不可?见；单击“移动”按钮，使边框从当?前位置向右?移动500?Twip，向下移动6?00Twi?p。Priva?te Sub Comma?nd1_C?lick() 加边框按钮?Label?1.Visib?le = TrueLabel?1.Borde?rStyl?e = 1End SubPriva?te Sub Comma?nd2_C?lick() 移动按钮Label?1.Left = Label?1.Left + 500Label?1.Top = Label?1.Top + 500Label?1.Move Label?1.Left+ 500, Label?1.Top + 600 或者用Mo?ve方法进?行移动也可?。Label?1.Visib?le = TrueEnd SubPriva?te Sub Comma?nd3_C?lick() 隐藏按钮Label?1.Visib?le = False?End Sub第7题.在文本框中?输入正方体?的边长，计算正方体?的体积，表面积和周?长。Priva?te Sub Text1?_Chan?ge()Label?5.Capti?on = Val(Text1?.Text ^ 3)Label?6.Capti?on = 6 * Val(Text1?.Text) ^ 2Label?7.Capti?on = 12 * Val(Text1?.Text)End SubPriva?te Sub Text1?_Lost?Focus?()Label?5.Capti?on = Val(Text1?.Text) ^ 3Label?6.Capti?on = 6 * Val(Text1?.Text) ^ 2Text2?.Text = 12 * Val(Text1?.Text)Label?7.Capti?on = 12 * Val(Text1?.Text)End SubPriva?te Sub Text1?_KeyP?ress(KeyAs?cii As Integ?er)If KeyAs?cii = 13 ThenLabel?5.Capti?on = Val(Text1?.Text) ^ 3Label?6.Capti?on = 6 *