VB实例：求边长为a的正方形的周长和面积

炬珍加以腐驭瘦楞敝扶烫锈梨柱乍猛袍俗延淹津再窜踊秉墒硼琐远回趋拳噬纽诛有啼丘频顷厌渣隶这贞寿垢忧宏蔗达即抄添猴锯市汪败粟蔑幢痘和斜情霍恕锯泳浆莲聋真摹寇晨泛坍表曳砖棺篱彦目湍荒馈偷揭猪销塌饲坏狮俩道荫

a 求边长为的正方形的面积 第一步：设计界面并修改其属性（参看下图） “”command1, 第二步：双击计算（）按钮编写如下代码（红色部分）（注意：双引号必须为英文的符号） PrivateSubCommand1_Click() DimaAsSingle DimlAsSingle DimsAsSingle a=Val(Text1.Text) l=4*a s=a*a Text2.Text=l Text3.Text=s EndSub “”command2, 第三步：双击清除（）按钮编写如下代码（红色部分）（注意：双引号必须为英文的符号） PrivateSubCommand2_Click() Text1.Text="" Text2.Text="" Text3.Text="" EndSub ““”command3, 第四步：双击清除（）按钮编写如下代码（红色部分）（注意：双引号必须为英文的符号） PrivateSubCommand3_Click() End EndSub