【VB开源代码栏目提醒】：网学会员VB开源代码为您提供4.2.7.frm参考，解决您在4.2.7.frm学习中工作中的难题，参考学习。

    VERSION 5.00
    Begin VB.Form Form16 
       Caption         =   "Form16"
       ClientHeight    =   3195
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4680
       LinkTopic       =   "Form16"
       ScaleHeight     =   3195
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "Form16"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Click()
    '单击窗体触发
    Const pi = 3.1415926
    '定义常量Pi
    Dim r As Variant
    Dim s As Double
    '定义变量
    r = InputBox("请输入半径", "输入半径")
    '接收用户输入
    If IsNumeric(r) = False Then
    '判断输入是否为数值
    MsgBox "输入半径只能为数值", vbCritical, "错误"
    '错误提示
    Else
     s = pi * r * r
    '计算面积
    s = Format(s, "0.00")
    '格式化输出两位小数
    Print s
    '输出在窗体
    End If
    End Sub
    
    

上一篇：4.2.6.frm
下一篇：“政治先于社会”:认同政治学的政治与社会概念