用VB编写矩阵

Option Explicit

创新互联建站专业提供温江服务器托管服务，为用户提供五星数据中心、电信、双线接入解决方案，用户可自行在线购买温江服务器托管服务，并享受7*24小时金牌售后服务。

Dim i, j As Integer

Dim X(11, 11), Y(11, 11) As Double

Dim A As Variant

'假设X是个一个方阵，那么就是有12行12列

Private Sub Form_Load()

Show

A = Array(1, 2, 4, 5, 6, 7, 1, 2, 4, 5, 6, 7)

For i = 0 To 11

For j = 0 To 11

X(i, j) = Val(InputBox("请输入第" + Trim(i) + "行第" + Trim(j) + "列的数值：", "", Trim(i) + Trim(j)))

Print X(i, j);

Next j

Print

Next i

For i = 0 To 11

For j = 0 To 11

Y(j, i) = A(j) * X(j, i)

Print Y(j, i)

Next j

Print

Next i

End Sub

求助,初学者想问VB.NET，怎么输入一维列矩阵或者一维行矩阵怎么转置成一维列矩阵？谢谢了！

在程序设计语言里，用二维数组来保存矩阵的值。

一维列矩阵，就是由：若干行、一列组成的二维数组。

一维行矩阵，就是由：一行、若干列组成的二维数组。

比如一维列矩阵，的输入：

dim a(10,1) as integer '10行，1列

dim i as integer

for i = 1 to 10

a(i,1) = inputbox("")

next i

VB.NET的题目 利用随机数生成两个4*4的矩阵A~~紧急紧急

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox(Int(Rnd() * 10))

Dim n As Integer = 4

Dim i, a As Integer

Dim r As String

Randomize()

For i = 1 To n

r = Int(Rnd() * 10)

Label1.Text = Space(n - i + 1) StrDup(i, r) + vbNewLine

Next i

For i = n To 1 Step -1

r = Int(Rnd() * 10)

Label1.Text = Space(n - i + 1) StrDup(i, r) + vbNewLine

Next i

For Each c In Label1.Text

If IsNumeric(c) Then

a += 1

End If

Next

MsgBox(a) ‘主对角线和次对角线上各元素之和

End Sub

另一个矩阵也是用同样方法.

你说的是不是这样?

VB.NET2012中，利用obj= New Label 创建了Label矩阵（控件数组），然后怎么呼叫特定的label？

猜你这代码是从vb6.0转过来的吧？那时候还用的是控件数组？在vb.net里面你要用

AddHandler 控件.事件, Address Of 对应方法来注册事件

然后点击才会生效，方法里面的sender as Label就是点击的控件

用vb.net编程，建立一个m行n列的矩阵，找出其中最小的元素所在的行和列，并输出该值及其行、列位置

没错!!

你的算法是：

1.定义三个变量，minValue（放最小值），X（放最小值的X坐标），Y（放最小值的Y坐标）。

2.遍历矩阵。在遍历过程中将最小值放在minValue中，最小值的X坐标放在X中，最小值的Y坐标放在X中。

文章名称：vb.net构造矩阵类 c语言构建矩阵
标题链接：http://ybzwz.com/article/dodopoe.html