不是比例，是图幅名称和图纸宽度对应关系的函数

非常抱歉，我误解了您的问题。以下是一个使用 VB 编写的函数，用于根据图纸宽度获取对应的图幅名称：

Function GetMapSize(width As Integer) As String
    Dim mapSizes As New Dictionary(Of Integer, String)
    mapSizes.Add(841, "A0")
    mapSizes.Add(594, "A1")
    mapSizes.Add(420, "A2")
    mapSizes.Add(297, "A3")
    mapSizes.Add(210, "A4")

    Dim mapSize As String = ""
    If mapSizes.ContainsKey(width) Then
        mapSize = mapSizes(width)
    Else
        mapSize = "Unknown"
    End If

    GetMapSize = mapSize
End Function

此函数接受一个参数 `width`，表示图纸的宽度。然后，使用一个字典对象 `mapSizes` 存储图纸宽度与对应图幅名称之间的关系。根据传入的宽度，在字典中进行查找，如果找到对应的图幅名称，则返回该图幅名称；如果找不到，则返回 "Unknown" 表示未知。

您可以将此函数添加到您的 VB 项目中，并通过调用 `GetMapSize(841)` 来获取图纸宽度为 841mm 对应的图幅名称。您可以根据需要自行修改和扩展字典中的宽度和对应图幅名称。希望对您有所帮助！如果有任何问题，请随时问我。