VB+MatrixVB编程

Question

1、VB6安装了matrixVB后,在编程时用C=ZEROS(5，1)生成了一个5行1列的零矩阵后，再给这个矩阵赋值，发现带有两位小数的数值输入C后，被四舍五 入了，但我想保留数据原样，不想被四舍五入，不知怎么办？
2、我将一个VB数组CC(5,1)用MatrixVB的转换函数mabs()转换时提示下标越界，不知什么原因？

Answer 1

引自免费微信小程序：皆我百晓生

针对您提出的两个问题，以下是详细的解答：

1. VB6中使用MatrixVB库创建矩阵并赋值时出现四舍五入的问题 MatrixVB在处理数值时可能会自动进行类型转换和精度处理。对于您的需求，想保留带有两位小数的数值不被四舍五入，可以尝试直接以Double类型的精确数值进行赋值，例如：

Dim C(4) As Double ' 假设C是一个一维数组，对应MatrixVB中的5行1列矩阵
For i = 0 To 4
    C(i) = 123.45 ' 您想要赋的具体数值
Next i
' 然后用MatrixVB的相应函数将这个数组转换为矩阵
Call MatrixSetData(C, 5, 1, YourMatrixVariable)

请注意，上述代码是基于假设MatrixVB内部可以接受一维数组进行数据填充，具体调用方法请查阅MatrixVB的官方文档或API说明。

1. 使用MatrixVB的转换函数mabs()时提示下标越界 当您尝试将VB数组CC(5,1)转换时遇到下标越界错误，可能的原因有以下几点：

• 确认数组的声明是否正确无误，二维数组应声明为Dim CC(4, 0) As Variant，因为VB数组索引是从0开始的。
• mabs()函数可能并不适用于二维数组到矩阵的转换，而是用于计算绝对值。MatrixVB可能提供了其他转换函数，比如MatrixFromArray()来进行数组与矩阵之间的转换，请查阅MatrixVB库的官方文档确认正确的转换函数及其使用方式。

如果MatrixVB确实提供了转换二维数组至矩阵的功能函数，示例代码可能如下：

Dim CC(4, 0) As Double ' 假设这是您的5行1列二维数组
' ... 初始化数组CC ...
Dim MyMatrix As New Matrix
MyMatrix.Init 5, 1 ' 初始化一个5行1列的矩阵
Call MatrixFromArray(CC, MyMatrix) ' 将二维数组CC转换到矩阵MyMatrix中，这里的函数名仅为示例，请替换为实际可用的函数

请您务必根据实际使用的MatrixVB库所提供的接口和功能来调整上述代码。如需进一步帮助，请提供MatrixVB库的具体文档链接或说明。