来自「模糊数学基础及实用算法 (源码) 科学出版社 www.sciencep.com」· 代码 · 共 22 行

Attribute VB_Name = "modP"
'指派模糊分布
'公有变量
Option Explicit
Public sngMin As Single             '最小元素
Public sngMax As Single             '最大元素
Public sngStep As Single            '步长
Public intN As Integer              '论域U的元素个数
Public sngX() As Single             '元素
Public sngY() As Single             '输出隶属度
Public sngR() As Single             '计算结果数组
Public strCol() As String           '列的名称
Public intRow As Integer            '行数
Public intCol As Integer            '列数
Public strFuzName As String         '输出文件
Public intTyp As Integer            '类型（偏小型、中间型、偏大型）
Public sngA As Single               '参数a
Public sngB As Single               '参数b
Public sngC As Single               '参数c
Public sngD As Single               '参数d