vb.net构造矩阵类 c语言构建矩阵
用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
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
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://scjbc.cn/article/dodopoe.html
