VB高手请进，急急急！！！本人的作业，做的好的，有给加分哦。

来源：百度知道编辑：UC知道时间：2024/05/31 20:42:57

求结果
Dim a(5,5)As Integer
Dim i As Integer,j As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=(i-1)*3+j
Print a(i,j)
next j
Print
next i

求结果
option Base1
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To 1 step-1
s=s+a(i)*j
j=j*10
next i
Print s

求结果
option Base1
Dim a(4,4)
For i=1 To 4
For j=1 To 4
a(i,j)=(i-1)*3+j
next j
next i
For i=3 To 4
For j=3 To 4
Print a(j,i);
next j
Print
next i

求结果
Dim a(5) As Integer,b(5) As Integer
n=3
For i=1 To 5
a(i)=i
b(n)=2*n+i
next i
Print a(n);b(n)

1、结果：
1
2
3

4
5
6

7
8
9

2、修改：
Dim a
a = Array(1, 2, 3, 4)
j = 1
For i = 3 To 0 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
结果：
1234

3、结果：
9，12
10，13

4、结果：
3，11

VB高手请进，急急急！！！本人的作业，做的好的，有给加分哦。 vb编程高手请进！！急急急 VB 作业高手请进～急急急 VB作业高手请进 ~ 急急急 VB编程的datagrid控件问题,高手请进?急急急 vb高手请进,急~~ 急急急~~~~高手请进，！本人想配台电脑，配置：高手请进~~~本人急急急急！！！高手请进！！！急急急!高手请进