33问答网
所有问题
当前搜索:
vb定义二维数组并初始化
用
VB
编写程序,把下面的数据输入到一个
二维数组
中:
答:
Dim a(4, 4), b(4, 4) As Integer For i = 0 To 3 For j = 0 To 3 a(i, j) = Val(InputBox("请输入第" & i + 1 & "行第" & j + 1 & "列的数"))Next j Next i Print "原始数据"For i = 0 To 3 Print a(i, 0) & " " & a(i, 1) & " " & a(...
vb
编程的问题,求解答。。。谢谢了。
定义
一个10*10的
二维
整型
数组
,产生1...
答:
Private Sub Command1_Click() Dim a(1 To 10, 1 To 10) As Integer, ssj As Long, xsj As Long Cls Randomize For i = 1 To 10 For j = 1 To 10 a(i, j) = Int(Rnd * 90 + 10) Print a(i, j); Next j Print Next i For i = 1...
vb
二维数组
有什么用处 以及用法 ?
答:
多维数组 有时需要追踪记录数组中的相关信息。例如,为了追踪记录计算机屏幕上的每一个像素,需要引用它的 X、Y 坐标。这时应该用多维数组存储值。可用 Visual Basic 声明多维数组。例如,下面的语句声明了一个过程内的 10 × 10 的
二维数组
。Static MatrixA (9, ...
vb中数组
的
定义
答:
回答:你还不如用select case语句呢
用
vb
计算三乘三的
二维数组
,每行的平均值,每列的最大值,所有元素的和...
答:
可以使用随机函数产生一个3×3的
二维数组
,并且使用第0行来存储每一列的最大值,用第0列存储每一行的总和。等到计算完成之后,每一行的总和除以三就是该行的平均值。下面是程序的代码和运行的结果:Private Sub Command1_Click() Dim a(3, 3) As Integer Randomize For i = 1 To 3 Fo...
可以返回
二维数组
的
vb
自
定义
函数怎么写?
答:
函数只能返回一个值,要想返回
二维数组
,就必须把二维数组用传址方式传给函数,那么函数运算时对数组的任何变化都立刻反映到数组中。如:private function f(a() as integer) as integer dim i as integer,j as integer for i=1 to 2 for j=1 to 3 a(i,j)=i^2+j^2 next j next i e...
vb
一个
二维数组
mat(5,6)有三十个元素用产生随机数方法给元素赋值然后...
答:
Private Sub Form_Click()Form1.AutoRedraw = True Cls Dim Mat(5, 6) As Integer Dim I As Integer, J As Integer Randomize Print "形成的
数组
mat(5,6):"For I = 1 To 5 For J = 1 To 6 Mat(I, J) = Int(Rnd * 100)Print Format(Mat(I, J), "00") & Space(5);Next...
vb
子程序能否采用
二维数组
参数:
答:
这样不行的,c=a(i,j)+b(i,j)这句程序根本认不出,除非你再声明两个变量,子程序中c=m+n,然后再你之前的程序中,把a(i , j)的值赋值给m,b(ji, j)赋值给n,调用call sub1(c,m,m)。程序采用
数组
是可以的,但是首先要声明数组为全局变量,子程序中要明确数组的值 ...
VB
编程,应用
二维数组
产生随机矩阵5*5,并实现矩阵的转置。
答:
VB
源程序如下:Option Base 1 Private Sub Command1_Click()Dim A(5, 5) As Integer, B(5, 5) As Integer For x = 1 To 5 For y = 1 To 5 A(x, y) = Int(10 + Rnd * 90) '随机产生两位数的整数 Print A(x, y); '输出 Next Print Next Print For x = 1 To 5 For ...
...每行5个元素输出;
定义
一个4行5列的
二维数组
答:
Private Sub Command1_Click()Dim a(20) As Integer, b(4, 5) As Integer Randomize For i = 1 To 20 a(i) = Int(Rnd * 91) + 10 Print a(i);If i Mod 5 = 0 Then Print Next Print For i = 1 To 4 For j = 1 To 5 b(i, j) = a(j + (i - 1) * 5)Print...
棣栭〉
<涓婁竴椤
5
6
7
8
10
11
12
9
13
14
涓嬩竴椤
灏鹃〉
其他人还搜