用VB編寫(xiě)矩陣

Option Explicit

創(chuàng)新互聯(lián)建站專業(yè)提供溫江服務(wù)器托管服務(wù)，為用戶提供五星數(shù)據(jù)中心、電信、雙線接入解決方案，用戶可自行在線購(gòu)買(mǎi)溫江服務(wù)器托管服務(wù)，并享受7*24小時(shí)金牌售后服務(wù)。

Dim i, j As Integer

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

Dim A As Variant

'假設(shè)X是個(gè)一個(gè)方陣，那么就是有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("請(qǐng)輸入第" + Trim(i) + "行第" + Trim(j) + "列的數(shù)值：", "", 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

求助,初學(xué)者想問(wèn)VB.NET，怎么輸入一維列矩陣或者一維行矩陣怎么轉(zhuǎn)置成一維列矩陣？謝謝了！

在程序設(shè)計(jì)語(yǔ)言里，用二維數(shù)組來(lái)保存矩陣的值。

一維列矩陣，就是由：若干行、一列組成的二維數(shù)組。

一維行矩陣，就是由：一行、若干列組成的二維數(shù)組。

比如一維列矩陣，的輸入：

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的題目 利用隨機(jī)數(shù)生成兩個(gè)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) ‘主對(duì)角線和次對(duì)角線上各元素之和

End Sub

另一個(gè)矩陣也是用同樣方法.

你說(shuō)的是不是這樣?

VB.NET2012中，利用obj= New Label 創(chuàng)建了Label矩陣（控件數(shù)組），然后怎么呼叫特定的label？

猜你這代碼是從vb6.0轉(zhuǎn)過(guò)來(lái)的吧？那時(shí)候還用的是控件數(shù)組？在vb.net里面你要用

AddHandler 控件.事件, Address Of 對(duì)應(yīng)方法來(lái)注冊(cè)事件

然后點(diǎn)擊才會(huì)生效，方法里面的sender as Label就是點(diǎn)擊的控件

用vb.net編程，建立一個(gè)m行n列的矩陣，找出其中最小的元素所在的行和列，并輸出該值及其行、列位置

沒(méi)錯(cuò)!!

你的算法是：

1.定義三個(gè)變量，minValue（放最小值），X（放最小值的X坐標(biāo)），Y（放最小值的Y坐標(biāo)）。

2.遍歷矩陣。在遍歷過(guò)程中將最小值放在minValue中，最小值的X坐標(biāo)放在X中，最小值的Y坐標(biāo)放在X中。

當(dāng)前名稱：vb.net構(gòu)造矩陣類 c語(yǔ)言構(gòu)建矩陣
轉(zhuǎn)載源于：http://jinyejixie.com/article4/dodopoe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計(jì)、用戶體驗(yàn)、App設(shè)計(jì)、靜態(tài)網(wǎng)站、品牌網(wǎng)站制作、微信小程序

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)