form1.frm

一个简单的计算器

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "数学函数的运算"
   ClientHeight    =   2064
   ClientLeft      =   1320
   ClientTop       =   1740
   ClientWidth     =   4824
   LinkTopic       =   "Form1"
   ScaleHeight     =   2064
   ScaleWidth      =   4824
   WindowState     =   2  '最大化
   Begin VB.CommandButton Command1 
      Caption         =   "一个简单的范例"
      Height          =   564
      Left            =   888
      TabIndex        =   0
      Top             =   864
      Width           =   2244
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "数学函数在本专案内的 Modula(*.bas) 内"
      Height          =   180
      Left            =   648
      TabIndex        =   1
      Top             =   312
      Width           =   3072
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub Command1_Click()
     Dim x As Integer
     x = 2
     MsgBox sinh(asec(x) * ln(x))
End Sub