28,406
社区成员
发帖
与我相关
我的任务
分享
Dim Mat(5)
Mat(0)=CInt(theMat)*CInt(theMat1)
arrayMultip(I,J)=arrayMultip(I,J)+CInt(theMat(I,K))*CInt(theMat1(K,J))
Dim arrayMultip(5,5)
For I=0 To R-1
For J=0 To C-1
For K=0 To R2
a=CInt(theMat(I,K))
b=CInt(theMat1(K,J))
Sum=arrayMultip(I,J)
arrayMultip(I,J)=Sum+a*b
Next
Next
Next
<%
Dim I,J,R1,R2,C1,C2,R,C '三个矩阵的行列号,IJ为后面用到的变量
Dim Str,Str1
C1=0
C2=0
R1=1
R2=1
Str=Trim(Request ("textfield")) '取得第一个矩阵的行列号
Arry=Split(Str,",")
For I = LBound(Arry) To UBound(Arry)
If Trim(Arry(I))<>"" Then
If I<5 Then
C1=C1+1
Else If (I mod 5)=0 Then
R1=R1+1
End If
End If
End If
Next
Str1=Trim(Request ("textfield1")) '取得第二个矩阵的行列号
Arry=Split(Str1,",")
For I = LBound(Arry) To UBound(Arry)
If Trim(Arry(I))<>"" Then
If I<5 Then
C2=C2+1
Else If (I mod 5)=0 Then
R2=R2+1
End If
End If
End If
Next
R=R1
C=C2
''''''''''''''''''''''''''''''''''''''''''矩阵乘法
Dim theMat,theMat1
theMat=arrayMat()
theMat1=arrayMat1()
Dim Sum,a,b
Dim arrayMultip(5,5)
For I=0 To R-1
For J=0 To C-1
For K=0 To R2
a=CInt(theMat(I,K))
b=CInt(theMat1(K,J))
Sum=arrayMultip(I,J)
arrayMultip(I,J)=Sum+a*b
Next
Next
Next
%>
<form name="form1" method="post" action="">
<table width="200" height="200" border="0" align="center" cellpadding="0" cellspacing="0">
<tr align="center" valign="middle">
<td>
<input name="textfield" type="text" id="textfield" value="<%=arrayMultip(0,0)%>" size="3"></td>
<td>
<input name="textfield2" type="text" id="textfield2" value="" size="3"></td>
<td>
<input name="textfield3" type="text" id="textfield3" value="" size="3"></td>
<td>
<input name="textfield4" type="text" id="textfield4" value="" size="3"></td>
<td>
<input name="textfield5" type="text" id="textfield5" value="" size="3"></td>
</tr>
<tr align="center" valign="middle">
<td>
<input name="textfield6" type="text" id="textfield6" value="" size="3"></td>
<td>
<input name="textfield7" type="text" id="textfield7" value="" size="3"></td>
<td>
<input name="textfield8" type="text" id="textfield8" value="" size="3"></td>
<td>
<input name="textfield9" type="text" id="textfield9" value="" size="3"></td>
<td>
<input name="textfield10" type="text" id="textfield10" value="" size="3"></td>
</tr>
<tr align="center" valign="middle">
<td>
<input name="textfield11" type="text" id="textfield11" value="" size="3">
</td>
<td>
<input name="textfield112" type="text" id="textfield112" value="" size="3"></td>
<td>
<input name="textfield13" type="text" id="textfield13" value="" size="3"></td>
<td>
<input name="textfield14" type="text" id="textfield14" value="" size="3"></td>
<td>
<input name="textfield15" type="text" id="textfield15" value="" size="3"></td>
</tr>
<tr align="center" valign="middle">
<td>
<input name="textfield16" type="text" id="textfield16" value="" size="3"></td>
<td>
<input name="textfield17" type="text" id="textfield17" value="" size="3"></td>
<td>
<input name="textfield20" type="text" id="textfield20" value="" size="3"></td>
<td>
<input name="textfield22" type="text" id="textfield22" value="" size="3"></td>
<td>
<input name="textfield24" type="text" id="textfield24" value="" size="3"></td>
</tr>
<tr align="center" valign="middle">
<td>
<input name="textfield19" type="text" id="textfield19" value="" size="3"></td>
<td>
<input name="textfield18" type="text" id="textfield18" value="" size="3"></td>
<td>
<input name="textfield21" type="text" id="textfield21" value="" size="3"></td>
<td>
<input name="textfield23" type="text" id="textfield23" value="" size="3"></td>
<td>
<input name="textfield25" type="text" id="textfield25" value="" size="3"></td>
</tr>
</table>
</form>
<%
Function arrayMat() '初始化第一个矩阵
Dim arrayTemp(5,5) '??????????????????????????????????
Str=Trim(Request ("textfield"))
Arry=Split(Str,",")
Dim K '矩阵一维数组号
K=0
For I=0 To R1-1
For J=0 To C1-1
Do While(arrayTemp(I,J)="") '若矩阵为空,说明表格中对应位置没有内容
arrayTemp(I,J)=Arry(K) '则下一个文本框
K=K+1
Loop
Next
Next
arrayMat=arrayTemp
End Function
Function arrayMat1() '初始化第二个矩阵
Dim arrayTemp1(5,5)
Str1=Trim(Request ("textfield1"))
Arry=Split(Str1,",")
Dim K '矩阵一维数组号
K=0
For I=0 To R2-1
For J=0 To C2-1
Do While(arrayTemp1(I,J)="")
arrayTemp1(I,J)=Arry(K)
K=K+1
Loop
Next
Next
arrayMat1=arrayTemp1
End Function
%>
<form name="form1" method="post" action="matrix.asp">
<table width="737" height="205" border="0" align="center" cellpadding="0" cellspacing="0">
<tr align="center" valign="middle">
<td width="53">
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td width="53"> <input name="textfield" type="text" id="textfield2" value="" size="3"></td>
<td width="53">
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td width="53">
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td width="53">
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td colspan="2" rowspan="5">X</td>
<td width="53">
<input name="textfield1" type="text" id="textfield1" value="" size="3"></td>
<td width="53">
<input name="textfield1" type="text" id="textfield1" value="" size="3"></td>
<td width="53">
<input name="textfield1" type="text" id="textfield1" value="" size="3"></td>
<td width="53">
<input name="textfield1" type="text" id="textfield1" value="" size="3"></td>
<td width="53">
<input name="textfield1" type="text" id="textfield1" value="" size="3"></td>
</tr>
<tr align="center" valign="middle">
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield1" type="text" id="textfield1" value="" size="3"></td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
</tr>
<tr align="center" valign="middle">
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield1" type="text" id="textfield1" value="" size="3"></td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
</tr>
<tr align="center" valign="middle">
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield1" type="text" id="textfield1" value="" size="3"></td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
</tr>
<tr align="center" valign="middle">
<td height="45">
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td> <input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield" type="text" id="textfield" value="" size="3"></td>
<td>
<input name="textfield1" type="text" id="textfield1" value="" size="3">
</td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
<td>
<input name="textfield1" type="text" value="" size="3"></td>
</tr>
</table>
<p> </p>
<p align="center">
<input type="submit" name="Submit" value="确定">
<input type="reset" name="Submit2" value="重填">
</p>
</form>