vb问题 定义一个二维数组，该数组的值用inputbox输入，并在提上输入该数组，数组中最大值及其位置

vb编程题，定义一下有20个元素的一维数组，使用InputBox函数为数组中的所有元素赋值，并显示~

Dim a(1 To 20) As IntegerPrivate Sub Form_Click() mx = a(1) mn = a(1)For i = 1 To 20 a(i) = InputBox("输入一个数值", "输入") If a(i) > mx Then mx = a(i) If a(i) < mn Then mn = a(i)NextPrint "最大值是" & mx & ",最小值是" & mnEnd Sub

Private Sub Command1_Click()
Dim Ewsz(1 To 3, 1 To 2) As Integer
For i = 1 To 3
For j = 1 To 2
Ewsz(i, j) = InputBox("请输入Ewsz(" & i & "," & j & ")的值")
Print Ewsz(i, j),
Next j
Print
Next i
End Sub

form 上 放一个 按钮，一个文本框（多行，垂直滚动条）

Private Sub Command1_Click()
Dim i, j As Integer
Dim a(2, 3) As Integer
Dim max As Integer
Dim Imax, Jmax As Integer

For i = 0 To 3 - 1
For j = 0 To 4 - 1
a(i, j) = CInt(InputBox("Input " + CStr(i) + " row," + CStr(j) + " col", "InputBox"))
Next j
Next i
max = a(0, 0)
For i = 0 To 3 - 1
For j = 0 To 4 - 1
Text1.Text = Text1.Text + " " + CStr(a(i, j))
If max < a(i, j) Then
max = a(i, j)
Imax = i
Jmax = j
End If
Next j
Text1.Text = Text1.Text + vbCrLf

Next i
Text1.Text = Text1.Text + "Max=" + CStr(max) + vbCrLf + "it's at " + CStr(i) + "," + CStr(j) + vbCrLf
End Sub

---

坊子区15075235161： vb定义一个二维数组,求这个二维数组的最大值、最小值、平均值？
夹祁金花： Private Sub Command1_Click()Dim a(4, 4) As Integer '定义一个5*5的二维数组,下标从0开始Dim total As Integer, max As Integer, min As IntegerDim i As Integer, j As ...

坊子区15075235161： vb如何定义一个m行n列的二维数组 - ？
夹祁金花： 用 dim 定义数组必须用常量,例如: dim a(5,6),不能用变量定义,dim a(m,n) 和 dim a(,) 都是错的.要用变量定义数组,必须用 ReDim 语句,例如:dim a()'定义一个动态数组 m=5:n=6 Redim a(m,n)'重定义动态数组

坊子区15075235161： VB定义二维数组 - ？
夹祁金花： A:定义了7*7=49的二维数组 C:没有Dim Option 1这个语句 D:option base后面只能是0或1

坊子区15075235161： vb如何动态定义二维数组? - ？
夹祁金花： 对的,ReDim a(m, n) As String

坊子区15075235161： vb定义一个二维数组,求这个二维数组的最大值、最小值、平均值 - ？
夹祁金花： 初始界面:代码: private sub command1_click() dim a(1 to 3, 1 to 4) as integer dim i as integer, j as integer, max as integer, min as integer print ＂随机初始化的二维数组是:＂ for i = 1 to 3 for j = 1 to 4 a(i, j) = int(rnd * 100) if i = 1 and j = 1 then ...

坊子区15075235161： VB编程代码:定义一个5*5的二维数组,随机产生25个两位数(10,99)存于该二维数组元素中,统 - ？
夹祁金花： //#include ＂stdafx.h＂//vc++6.0加上这一行.#include ＂stdio.h＂#include ＂time.h＂#include ＂stdlib.h＂ int main(void){ int i,j,a[5][5]; srand((unsigned)time(NULL)); for(i=0;i for(j=0;j for(j=i=0;i printf(＂The result is %f\n＂,(j-a[2][2])/9.0); return 0; } 如...

坊子区15075235161： 用vb编写程序,为一个3*4的二维数组输入任意整数,然后计算该二维数组 - ？
夹祁金花： Dim a(2, 3) As Integer Dim i As Integer Dim j As Integer Dim Sum As Long Dim Avg As Double For i = 0 To 2 For j = 0 To 3 Randomize a(i, j) = Int(Rnd * 65536) - 32768 Print a(i, j); If j = 3 Then Print Sum = Sum + a(i, j) Next Next Avg = Sum / (3 * 4) MsgBox (＂所有元素总和为:＂ & Sum & ＂,平均值为:＂ & Avg)

坊子区15075235161： 定义一个二维数组,该数组的值利用inputbox函数输入,并在窗体上输出该数组、数组中的最大值 - ？
夹祁金花： private sub form_click() dim a(3,4) as integer,i as integer,j as integer dim max(3) as integer for i=1 to 3 for j=1 to 4 a(i,j)=val(inputbox(“a(”&i&“,”&j&“)=”,“输入”,i)) next next max(1)=a(1,1) max(2)=1 max(3)=1 for i=1 to 3 for j=1 to 4 print a(i,j)...

坊子区15075235161： vb2维数组怎样定义? - ？
夹祁金花： Dim bDim aDim s As StringDim i As IntegerDim j As IntegerDim xy() As IntegerPrivate Sub Command1_Click() Form1.Cls Open f:\1.txt For Input As #1 Do While Not EOF(1) Line Input #1, s Loop a = Split(s, vbCrLf) 读行 For i = 0 To UBound(a) b = Split(a(i), ,) '读取列 然后怎吗写才能将 a 行 b列中的数据写入到xy()的2位数组中Close #1End Sub 查看更多答案>>

坊子区15075235161： VB程序设计:定义一个10x10的二维数组,把它的主副对角线的元素设置为1. - ？
夹祁金花： dim d(10,10) as integer dim i as integer dim j as integer for i = 1 to 10 for j = 1 to 10 if i = j Or i+j = 11 Then d(i,j)=1 end if next j next i