急求啊~~~~~~用vb编程，实现i行j列矩阵与常数x相乘
来自： 更新日期：早些时候
急求！！！用vb编程，实现两矩阵相乘，这两个矩阵分别是i行j列和j行i列~
这是我以前的回答http://zhidao.baidu.com/question/94449041.html
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, M As Integer, N As Integer
Dim A() As Double, B() As Double, C() As Double
M = Val(Text1.Text) '>0
N = Val(Text2.Text) '>0。错误检验代码自己写
ReDim A(M, N), B(N, M), C(M, M)
k = 500
Randomize
Print "M="; M; "行，N="; N; "列"
Print "A矩阵"
For i = 1 To M
For j = 1 To N
A(i, j) = Int(Rnd * 100)
Print A(i, j);
Next j
Print
Next i
Print "B矩阵"
For i = 1 To N
For j = 1 To M
B(i, j) = Int(Rnd * 100)
Print B(i, j);
Next j
Print
Next i
Print "AxB=C矩阵"
For i = 1 To M
For j = 1 To M
For k = 1 To N
C(i, j) = C(i, j) + A(i, k) * B(k, j)
Next k
Print C(i, j);
Next j
Print
Next i
End Sub
急求啊~~~~~~用vb编程，实现i行j列矩阵与常数x相乘视频
相关评论：13556993784：如何用VB编程实现水仙花数?
邬逃史VB实现水仙花数的程序代码如下：Private Sub Command_Click()For num = 100 To 999 a = num Mod 10 b = num \\ 10 Mod 10 c = num \\ 100 If a^3 + b^3 + c^3 = num Then Print num Next num End Sub 实现具体步骤如下：1、启动VB程序，新建一个标准exe工程 2、在窗体上绘制一...
13556993784：VB编程这题有人会吗帮忙下谢谢!!好的就直接采纳了
邬逃史分析题目: 需要用到的程序结构是循环: 打印字母,每行6个,一共6行, 那么就是打印36次, 所以循环应该是0到35次 或者1到36次;需要用的主要运算是 Mod取模; \\整除运算 Private Sub Form_Load()Form1.Show '窗口显示出来Print '换行.离上边框远点PrintDim i As Integer '定义一个整数iFor i ...
13556993784：VB编程的题,达人进一下
邬逃史1:首先,在窗体上新建一个按钮叫CmdEven，然后写入代码 sub CmdEven_Click()dim i dim sum sum = 0 for i=2 to 100 step 2 sum = sum + i next i print sum end sub 2:建立一个按钮，叫CmdOK，建立一个文本框，叫Text1，程序如下 sub CmdOK_Click()dim n n=val(Text1.text)print ...
13556993784：用VB编程
邬逃史Private Sub Command1_Click()Dim a(20) As Integer '存放原始数据 Dim b(20) As Integer 'b()统计对应数组a(i)中数据出现的次数 Dim i As Integer Dim j As Integer Dim n As Integer Dim m As Integer m = 0 For i = 1 To 20 a(i) = Val(InputBox("请输入a(" & i & ")...
13556993784：用VB Do while语句编程序
邬逃史Private Sub command1_click()Dim m As String, i As Integer, s As Integer m = InputBox("输入一个整数")i = 1 Do s = s + Val(Mid(m, i, 1))i = i + 1 Loop While i <= Len(m)MsgBox "各位数之和=" & s End Sub ...
13556993784：vb编程进 100~~~
邬逃史TrayIcon.uId = vbNull TrayIcon.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE TrayIcon.ucallbackMessage = WM_MOUSEMOVE TrayIcon.hIcon = imgIcon1.Picture TrayIcon.szTip = "TimerService Ver：" & App.Major & "." & App.Minor & Chr$(0)Call Shell_NotifyIcon(NIM_ADD, TrayIcon...
13556993784：关于vb编程,我没有接触过,但是一个月后考试要用,所以来求助
邬逃史你现在工程里面插入2个按钮，然后把这段代码写进去就可以了。你说根本不懂，所以就写了最简单的，但是是按照你要求的数组模式写的。Dim SNameArr()Dim SScroArr()Private Sub Command1_Click()Dim T, M, SName, SScro T = 1 Print "学号" & Chr(9) & "成绩"M = 1 Do While T = 1 ...
13556993784：请问各位VB老师,这条编程怎么写,用Do loop
邬逃史Private Sub Command1_Click()s = 1 + 1 a = 1 b = 1 Do c = a + b s = s + c a = b b = c Loop While c <= 144 Print "sum="; s End Sub
13556993784：急求高手解答用VB编程“求1-100之间可以被5或7整除的数之和。”不胜感...
邬逃史Private Sub Command1_Click()For i = i To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then s = s + i End If Next i Print "能被5或都7整除的数之和为" & s End Sub
13556993784：vb.net编程,急~~
邬逃史我打开vb2005，给你编了一个，运行通过了，按回车重复执行，按其他键退出，代码如下:\\\\\\ Sub Main()Randomize()Do Dim i As Integer = 10 Dim a(i - 1) As Integer For j As Integer = 0 To i - 1 a(j) = CRND(300, 400)Console.WriteLine(a(j).ToString)Next Dim mina As Int...
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, M As Integer, N As Integer
Dim A() As Double, B() As Double, C() As Double
M = Val(Text1.Text) '>0
N = Val(Text2.Text) '>0。错误检验代码自己写
ReDim A(M, N), B(N, M), C(M, M)
k = 500
Randomize
Print "M="; M; "行，N="; N; "列"
Print "A矩阵"
For i = 1 To M
For j = 1 To N
A(i, j) = Int(Rnd * 100)
Print A(i, j);
Next j
Print
Next i
Print "B矩阵"
For i = 1 To N
For j = 1 To M
B(i, j) = Int(Rnd * 100)
Print B(i, j);
Next j
Print
Next i
Print "AxB=C矩阵"
For i = 1 To M
For j = 1 To M
For k = 1 To N
C(i, j) = C(i, j) + A(i, k) * B(k, j)
Next k
Print C(i, j);
Next j
Print
Next i
End Sub
重定义数组时使用矩阵的维度。
建议提问前先搜索一下这是我以前的回答http://zhidao.baidu.com/question/94449041.html
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, M As Integer, N As Integer
Dim A() As Double, B() As Double, C() As Double
M = Val(Text1.Text) '>0
N = Val(Text2.Text) '>0。错误检验代码自己写
ReDim A(M, N), B(N, M), C(M, M)
k = 500
Randomize
Print "M="; M; "行，N="; N; "列"
Print "A矩阵"
For i = 1 To M
For j = 1 To N
A(i, j) = Int(Rnd * 100)
Print A(i, j);
Next j
Next i
Print "B矩阵"
For i = 1 To N
For j = 1 To M
B(i, j) = Int(Rnd * 100)
Print B(i, j);
Next j
Next i
Print "AxB=C矩阵"
For i = 1 To M
For j = 1 To M
For k = 1 To N
C(i, j) = C(i, j) + A(i, k) * B(k, j)
Next k
Print C(i, j);
Next j
Next i
End Sub
急求啊~~~~~~用vb编程，实现i行j列矩阵与常数x相乘视频
相关评论：
邬逃史VB实现水仙花数的程序代码如下：Private Sub Command_Click()For num = 100 To 999 a = num Mod 10 b = num \\ 10 Mod 10 c = num \\ 100 If a^3 + b^3 + c^3 = num Then Print num Next num End Sub 实现具体步骤如下：1、启动VB程序，新建一个标准exe工程 2、在窗体上绘制一...
邬逃史分析题目: 需要用到的程序结构是循环: 打印字母,每行6个,一共6行, 那么就是打印36次, 所以循环应该是0到35次 或者1到36次;需要用的主要运算是 Mod取模; \\整除运算 Private Sub Form_Load()Form1.Show '窗口显示出来Print '换行.离上边框远点PrintDim i As Integer '定义一个整数iFor i ...
邬逃史1:首先,在窗体上新建一个按钮叫CmdEven，然后写入代码 sub CmdEven_Click()dim i dim sum sum = 0 for i=2 to 100 step 2 sum = sum + i next i print sum end sub 2:建立一个按钮，叫CmdOK，建立一个文本框，叫Text1，程序如下 sub CmdOK_Click()dim n n=val(Text1.text)print ...
邬逃史Private Sub Command1_Click()Dim a(20) As Integer '存放原始数据 Dim b(20) As Integer 'b()统计对应数组a(i)中数据出现的次数 Dim i As Integer Dim j As Integer Dim n As Integer Dim m As Integer m = 0 For i = 1 To 20 a(i) = Val(InputBox("请输入a(" & i & ")...
邬逃史Private Sub command1_click()Dim m As String, i As Integer, s As Integer m = InputBox("输入一个整数")i = 1 Do s = s + Val(Mid(m, i, 1))i = i + 1 Loop While i <= Len(m)MsgBox "各位数之和=" & s End Sub ...
邬逃史TrayIcon.uId = vbNull TrayIcon.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE TrayIcon.ucallbackMessage = WM_MOUSEMOVE TrayIcon.hIcon = imgIcon1.Picture TrayIcon.szTip = "TimerService Ver：" & App.Major & "." & App.Minor & Chr$(0)Call Shell_NotifyIcon(NIM_ADD, TrayIcon...
邬逃史你现在工程里面插入2个按钮，然后把这段代码写进去就可以了。你说根本不懂，所以就写了最简单的，但是是按照你要求的数组模式写的。Dim SNameArr()Dim SScroArr()Private Sub Command1_Click()Dim T, M, SName, SScro T = 1 Print "学号" & Chr(9) & "成绩"M = 1 Do While T = 1 ...
邬逃史Private Sub Command1_Click()s = 1 + 1 a = 1 b = 1 Do c = a + b s = s + c a = b b = c Loop While c <= 144 Print "sum="; s End Sub
邬逃史Private Sub Command1_Click()For i = i To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then s = s + i End If Next i Print "能被5或都7整除的数之和为" & s End Sub
邬逃史我打开vb2005，给你编了一个，运行通过了，按回车重复执行，按其他键退出，代码如下:\\\\\\ Sub Main()Randomize()Do Dim i As Integer = 10 Dim a(i - 1) As Integer For j As Integer = 0 To i - 1 a(j) = CRND(300, 400)Console.WriteLine(a(j).ToString)Next Dim mina As Int...
