vb生成数组求助！

Dim a(5, 5) As Integer

Dim j, i

Private Sub Command1_Click()

For i = 1 To 5

For j = 1 To 5

If j < 6 - i Then

a(i, j) = 2  Int(Rnd()  50)

Else

a(i, j) = 2  Int(Rnd()  50) - 1

End If

Next j

Next i

For i = 1 To 5

For j = 1 To 5

Print a(i, j);

Next j

Print

Next i

End Sub

产生0-100之间的奇偶数

我想你定义的不是多维数组，而是动态数组吧？
一般定义数组必须首先定义它的上标和下标，只有动态数组可以首先定义，然后再定义上标和下标。
你的 “Dim shu(zzz) zzz为一个变量，注意，不是常数” 是不合法的。
只有：
Dim shu()
然后，实现得到变量的值，例如 X = 50，那么：
ReDim shu(X)
如果是多维数组，需要多个变量，例如 X = 10 Y = 20，那么：
ReDim shu(X, Y)

Vb生成一个一维数组的函数如下：

Private Sub Command1_Click()

Dim a()

a = Array(15, 22, 72, 40, 96, 25, 3, 65, 98, 17)

s = a(0)

Max = a(0)

Min = a(0)

For i = 1 To UBound(a)

If a(i) > Max Then

Max = a(i)

Else

If a(i) < Min Then Min = a(i)

End If

s = s + a(i)

Print a(i);

Next i

aver = Round(s / (UBound(a) + 1))

Print: Print "最大值="; Max

Print "最小值="; Min

Print "平均值="; aver

End Sub

扩展资料：

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

语言基础

注释方式

在VB中，注释有2种方式。

1、以Rem关键字开头，并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行，也可以写在其他语句行的后面。如果在其他语句行后使用Rem关键字，则必须使用冒号（:）与语句隔开。

2、使用一个撇号（'）来代替Rem关键字。若使用撇号，则在其他语句行使用时不必加冒号。

参考资料来源：百度百科-Visual Basic

>char st[20],cs[5][20];
int i,j,p;
printf("input country's name:\n");
for(i=0;i<5;i++)
gets(cs[i]);
printf("\n");
for(i=0;i<5;i++)
{
p=i;
strcpy(st,cs[i]);
for(j=i+1;j<5;j++)
if(strcmp(cs[j],st)<0)
{
p=j;
strcpy(st,cs[j]);
}
strcpy(st,cs[i]);
strcpy(cs[i],cs[p]);
strcpy(cs[p],st);

---