育才学习网vb矩阵怎么写command
1.vb 怎么在文本框输出7*7的矩阵,下面是我编写的代码,单击command
Private 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
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矩阵怎么写
1.如何用vb编矩阵
在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。
因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。
第一层：Application对象，即Excel本身；
第二层：workbooks对象集，指Excel的工作簿文件；
第三层：worksheets对象集，表示的是Excel的一个工作表；
第四层：Cells和Range对象，指向Excel工作表中的单元格。
Private Sub Excel_Out_Click()
Dim i, j As Integer
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls")
Set xlsheet = xlbook.Worksheets(1)
然后就可以用循环向矩阵数组中添加元素了
2.用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
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
3.VB怎么写矩阵 需要一个1000*1000的矩阵 每一个格都是随机数 最后要
'主要代码就是这个'这是使用二维数组dim a(99,99) '声明一个二维数组randomize '随机化，用于生成随机数for i = 0 to 99 for j = 0 to 99 a(i,j) = fix(rnd * 10) '生成0~10的随机整数 nextnextfor m = 0 to 99s = ""for n = 0 to 99s=s&a(m,n)& " "nextstr = str & s & vbcrlfnextmsgbox str'不使用数组也可以randomizefor i = 0 to 99 s = "" for j = 0 to 99 s=s & fix(rnd * 10) & " " next str = str & s & vbcrlfnextmsgbox str。
4.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
矩阵x怎么写
1. 请找出矩阵X,并写出步骤
a . X=(1 2 0; -3 1 5 )*[(-1 0 1; 1 1 0; 3 1 -1)]的逆
[(-1 0 1; 1 1 0; 3 1 -1)]的逆为2113
1 -1 1
-1 2 -1
-2 -1 1
所以X=(-1 3 -1 ;52616 0 1)4102
b 先在等式右边乘1653以（1 -1 2; 3 0 1）的转置矩阵，得内到容
X ( 6 5 ;5 10)=( -4 -15; 23 25) 得到再乘（ 6 5 ;5 10）的逆得到
X=( 1 -2;3 1)
2. matlab X=[ones(size(x)) x]；表示什么意思
就是构造一个新的矩阵X，它的左半部分是和矩阵x一样行列数的全1矩阵。
size就是获得一个矩阵行和列的个数（若是3维矩阵或更高维矩阵也一样）
ones则是构造一个元素全是1的矩阵，行列数根据输入的数调整。
举个例子：
若原矩阵x=[0 1;2 3] 即一个两行两列矩阵，元素从左到右，从上到下依次为0、1、2、3
则语句运行后为：
X =
1 1 0 1
1 1 2 3
矩阵左半部分产生一个两行两列全1矩阵。
0矩阵怎么写
1. 零矩阵怎么表示
零矩阵的手写把零写大些就可以。
矩阵大写，变量一般都是小写字母，线性代数里的矩阵不需要加箭头，并没有特别的符号，被声明用于约定手写规范。至于手写的向量，如果用英文字母表示其实应该加箭头，所以考研书里都用希腊字母表示，如ξ、η、γ等，这些不必加箭头。
扩展资料：
零矩阵的性质
m*n 的零矩阵 O 和 m*n 的任意矩阵 A 的和为 A + O = O + A = A ，差为 A - O = A,O - A = -A。
l*m 的零矩阵 O 和 m*n 的任意矩阵 A 的积 OA 为 l*n 的零矩阵。
l*m 的任意矩阵 B 和 m*n 的零矩阵 O 的积 BO 为 l*n 的零矩阵。
在线性代数中，对于n阶方阵N，存在正整数k，使得N^k=0，这样的方阵N就叫做幂零矩阵。满足条件的最小的正整数k被称为N的度数或指数。更一般来说，零权变换是向量空间的线性变换L，使得对于一些正整数k（并且因此，对于所有j≥k,Lj = 0）,L^k= 0。
2. c语言矩阵怎么写
这是个蛇形矩阵，算法如下：
#include <iostream.h>
#define N 10
int a[N][N];
void func(int n)
{
int i,j;
int num = 0;
for (i=0;i<n;i++)
{
for (j=0;j<n;j++)
{
a[i][j] = 0;
}
}
for (i=0;i<n/2+1;i++)
{
for (j=0;j<n;j++)
{
if (a[i][j] == 0)
a[i][j] = ++num;
}
for (j=0;j<n;j++)
{
if (a[j][n-1-i] == 0)
{
a[j][n-1-i] = ++num;
}
}
for (j=n-1;j>=0;j--)
{
if (a[n-1-i][j] == 0)
{
a[n-1-i][j] = ++num;
}
}
for (j=n-1;j>=0;j--)
{
if (a[j][i] == 0)
{
a[j][i] = ++num;
}
}
}
}
int main()
{
int n;
cin>>n;
func(n);
for (int i=0;i<n;i++)
{
for (int j=0;j<n;j++)
{
cout<<a[i][j]<< " ";
}
cout<<endl;
}
return 0;
}
转载请注明出处育才学习网 » 只有一个元素的矩阵怎么写