VB数组问题 请帮忙

**如下，单击按钮后，BX 是您想要的结果。

private sub command1 click（） 标记重复的元素，以 rep- 开头

如果你的 ax 元素有 rep-，用其他东西替换它，例如 @ 只要它被标记为重复，然后根据它删除它以确定它是否是重复元素。

dim i as integer, j as integerfor i = 1 to ubound(ax)if left$(ax(i), 4) <"rep-" thenfor j = i + 1 to ubound(ax)if left$(ax(j), 4) <"rep-" and ax(j) = ax(i) then

ax(j) = "rep-" & ax(j)end if

next j

end if

next i

删除重复的元素并保存到 bx（）。

请注意，我使用两个相等的 （==） 作为分隔符，并确保分隔符不包含在所有 ax 元素中。

如果是这样，请切换到不太常用的内容，例如 %$ @之类。

dim s as string, bx as variantfor i = 1 to ubound(ax)if left$(ax(i), 4) <"rep-" thens = s & "==" & ax(i)

end if

next i

bx = split(s, "==")

end sub

如果仅使用 VS2008。

dim ax() as string =

dim bx = (from a in ax group by a into group select a).toarray

就是这样。

默认下界为 0

选项 A（0 到 3,0 到 3）可以存储 4*4=16 个元素，B 以同样的方式存储 A（0 到 9） 10 个元素。

c -1 到 1=（-1 0 1） -3 到 3（-3 -2 -1 0 1 2 3） 3*7=21 个元素空间。

问题数据只需要 9 个元素即可保存所有答案 d

所谓曲线画，通常数学把问题抽象成x、y，描述一般规律。 在数学中，横轴是x轴，纵轴是y轴，平面上的一个点由一对x，y确定。 也就是说，可以将一对x和y绘制为一个点，为了描述温度随时间变化的规律，那么将横轴视为时间，将纵轴视为温度。

每次测量单位时间时，都可以在这个坐标系中画一个点，这样随着时间的推移，连续测量温度，画出点，并通过连接这些点得到温度曲线。

上图似乎没有形成曲线，因为横轴的刻度不够小，其实在VB中，你把每个像素单位作为你测量温度的间隔单位，然后你可以把它连接成一条曲线。

如何画一个点：

对象。 pset （x，y） [color]其中 x 是时间间隔（或像素的基本单位），可以是 1,2,3,4,5,6 ,..

Y是实际测得的温度值（可以缩放到一定比例）。

使用数组存储数据，您可以：

d（1 到 n，1 到 2） 作为整数将 x 分量存储在第一维中，将 y 分量存储在第二维中。

我不知道您的具体应用代表什么曲线？

然后，假设您在图 1 上画画：

for i = 1 to n

d(i,1),d(i,2))

next i

ANS 是在排序过程中定义的变量，它有一个字段作为排序过程，当它在 cmdshow click 中被引用时，编译器会将其解释为另一个尚未定义的变量。 因此，有必要将 ans 转换为模块级变量。

方法：将 dim ans（） 作为字符串放在所有进程之前，而不是进程内部。 并在排序过程中删除变量的原始定义。

您没有调用上面的函数，即排序函数，并且不带参数。

原来的数组在for循环后变为（1,4,9,16,25），数组下标从0开始，所以a（1）=4，a（a（1））=a（4）=25

从程序的角度来看，这是分配一个 5*5 矩阵，分配结果如下：

将从左上角到右下角的对角线值相加是 1+7+13+19+25=65，所以答案是 c