1.vb 怎么在文本框输出7*7的矩阵,下面是我编写的代码,单击commandPrivate Sub Command1_Click()
Dim a(1 To 7, 1 To 7) As Integer, p As String
Randomize
Text1.Text = ""
p = ""
For i = 1 To 7
For j = 1 To 7
a(i, j) = Int(100 * Rnd)
p = p & Str(a(i, j))
Next
p = p & vbCrLf'这里是这样子的
Next
Text1.Text = p'这里是这样子的
End Sub
2.vb中求一个矩阵所有元素的和,代码该怎么写矩阵在程序中用二维数组来实现 ， 如下所表示的是一个3行4列的矩阵；
d(1,1) d(1,2) d(1,3) d(1,4)
d(2,1) d(2,2) d(2,3) d(2,4)
d(3,1) d(3,2) d(3,3) d(3,4)
通常在程序中对二维数组的操作 ， 采用双重循环来实现 ， 例如求和：
dim i as integer
dim j as integer
dim S as single
S = 0
for i=1 to 3 '外循环针对行
for j=1 to 4 '内循环针对列
S = S + d(i,j)
next j
next i
Print S
3.VB中怎样按command使另一个command加图Private Sub Command1_Click()
Command2.Picture = LoadPicture(App.Path & "\data\image\343.bmp")
End Sub
要注意 ， 文件路径中\的两边是不能加空格的 ， 因为空格也是路径名中的有效字符 ， VB会在硬盘中查找同样带空格的文件夹（比如"data " ， 后面是有个空格的） ， 这样当然就找不到啦 。
另外Command2的Style属性要设为1才能设置自定义图片 。
4.vb中的command什么意思语法
Command
说明
当从命令行装入 Visual Basic 时 ， 的命令行的任何部分作为命令行的参数传递给程序 。下面的示例中 ， cmdlineargs 代表 Command 函数返回的参数信息 。
VB /cmd cmdlineargs
对于使用 Visual Basic 开发并编译为 .exe 文件的应用程序 ， Command 返回出现在命令行中应用程序名之后的任何参数 。例如：
MyApp cmdlineargs
5.vb中用command输入字符把文本框做成控件数组 ， 比如是Text1()
Dim ti As Integer
Private Sub Command1_Click() 'B
Text1(ti).Text = Command1.Caption
ti = (ti + 1) Mod Text1.Count
End Sub
Private Sub Command2_Click() 'P
Text1(ti).Text = Command2.Caption
ti = (ti + 1) Mod Text1.Count
End Sub如果把Command也做成控件数组（假定为Command1（)）那么代码就更简单
Dim ti As Integer
Private Sub Command1_Click(Index As Integer)
Text1(ti).Text = Command1(Index).Caption
ti = (ti + 1) Mod Text1.Count
End Sub
6.VB怎样编写 command 时弹出新窗口Private Sub Command1_Click()
Form1.Hide '窗体1隐藏
Form2.Show '窗体2出现
End Sub
回答的比较晚 ， 请不要介意！声明我绝无抄袭嫌疑
回答者：百度HI群&；飞度编程学社1195277
'刚才写的太快 ， 所以写错了 ， 改为下面这个 ， 抱歉呀 Private Sub Form_Unload(Cancel As Integer) Form1.Show Unload Me End Sub
7.用VB编写矩阵Option Explicit
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矩阵怎么写command】