Question

VB设计一个支持矩阵加减乘运算的程序

最好有图 ，谢谢大家了

Answer 1

Const M = 5
Const N = 5
Dim aa(M, N), bb(M, N), cc(M, N)
Sub printit(a()) '打印矩阵
For i = 1 To M
For j = 1 To N
Print Tab(j * 10); a(i, j);
Next j
Print
Next i
End Sub
Sub jzjia(a(), b(), c()) '矩阵相加 c=a+b
For i = 1 To M
For j = 1 To N
c(i, j) = a(i, j) + b(i, j)
Next j, i
End Sub
Sub jzjian(a(), b(), c()) '矩阵相减 c=a-b
For i = 1 To M
For j = 1 To N
c(i, j) = a(i, j) - b(i, j)
Next j, i
End Sub
Sub jzcheng(a(), b(), c()) '矩阵相乘 c=a*b
For i = 1 To M
For j = 1 To N
c(i, j) = a(i, j) * b(i, j)
Next j, i
End Sub
Private Sub Command1_Click()
Cls
Print "a----------------"
printit aa
Print "b----------------"
printit bb

jzjia aa, bb, cc '相加
Print "c=a+b------------"
printit cc '输出矩阵

jzjian aa, bb, cc '相减
Print "c=a-b------------"
printit cc

jzcheng aa, bb, cc '相乘
Print "c=a*b------------"
printit cc
End Sub

Private Sub Form_Load()
'为数组aa和bb赋初值，可根据自己需要进行赋值
For i = 1 To M
For j = 1 To N
aa(i, j) = i * j
bb(i, j) = i + j
Next j
Next i
End Sub

Answer 2

程序如下：
Const M = 5
Const N = 5
Dim aa(M, N), bb(M, N), cc(M, N)
Sub printit(a()) '打印矩阵
For i = 1 To M
For j = 1 To N
Print Tab(j * 10); a(i, j);
Next j
Print
Next i
End Sub
Sub jzjia(a(), b(), c()) '矩阵相加 c=a+b
For i = 1 To M
For j = 1 To N
c(i, j) = a(i, j) + b(i, j)
Next j, i
End Sub
Sub jzjian(a(), b(), c()) '矩阵相减 c=a-b
For i = 1 To M
For j = 1 To N
c(i, j) = a(i, j) - b(i, j)
Next j, i
End Sub
Sub jzcheng(a(), b(), c()) '矩阵相乘 c=a*b
For i = 1 To M
For j = 1 To N
c(i, j) = a(i, j) * b(i, j)
Next j, i
End Sub
Private Sub Command1_Click()
Cls
Print "a----------------"
printit aa
Print "b----------------"
printit bb

jzjia aa, bb, cc '相加
Print "c=a+b------------"
printit cc '输出矩阵

jzjian aa, bb, cc '相减
Print "c=a-b------------"
printit cc

jzcheng aa, bb, cc '相乘
Print "c=a*b------------"
printit cc
End Sub

Private Sub Form_Load()
'为数组aa和bb赋初值，可根据自己需要进行赋值
For i = 1 To M
For j = 1 To N
aa(i, j) = i * j
bb(i, j) = i + j
Next j
Next i
End Sub

Answer 3

Const M = 5
Const N = 5
Dim aa(M, N), bb(M, N), cc(M, N)
Sub printit(a()) '打印矩阵
For i = 1 To M
For j = 1 To N
Print Tab(j * 10); a(i, j);
Next j
Print
Next i
End Sub
Sub jzjia(a(), b(), c()) '矩阵相加 c=a+b
For i = 1 To M
For j = 1 To N
c(i, j) = a(i, j) + b(i, j)
Next j, i
End Sub
Sub jzjian(a(), b(), c()) '矩阵相减 c=a-b
For i = 1 To M
For j = 1 To N
c(i, j) = a(i, j) - b(i, j)
Next j, i
End Sub
Sub jzcheng(a(), b(), c()) '矩阵相乘 c=a*b
For i = 1 To M
For j = 1 To N
c(i, j) = a(i, j) * b(i, j)
Next j, i
End Sub
Private Sub Command1_Click()
Cls
Print "a----------------"
printit aa
Print "b----------------"
printit bb

jzjia aa, bb, cc '相加
Print "c=a+b------------"
printit cc '输出矩阵

jzjian aa, bb, cc '相减
Print "c=a-b------------"
printit cc

jzcheng aa, bb, cc '相乘
Print "c=a*b------------"
printit cc
End Sub

Private Sub Form_Load()
'为数组aa和bb赋初值，可根据自己需要进行赋值
For i = 1 To M
For j = 1 To N
aa(i, j) = i * j
bb(i, j) = i + j
Next j
Next i
End Sub

Answer 4

你好，糖尿病的诊断是空腹血糖高于7.1mmol/L，或者任何时候血糖高于11.1mmol/L，糖尿病的诊断和治疗都是去医院的内分泌科就诊，如果确定为糖尿病了需要正规的药物控制血糖了，平时注意控制糖类食物的摄入，适当运动利于控制血糖。

你好，对于现在的情况建议你平时控制饮食外加口服二甲双胍控制，平时建议服用琦肽菜籽低聚肽，琦肽菜籽低聚肽被称为“促胰岛素释放肽”，诱导低活性胰岛素恢复有活性的空间结构，激活胰岛素，增强对胰岛素受体的亲和性，使葡萄糖分解，从而降低血糖。除了调节血糖，菜籽低聚肽能有效的辅助降低血压。是适合糖尿病患者服用的一款功能性保健食品。在饮食方面，可以多选择低糖的食物，少吃多餐。当然，也要保证每天进行适当的运动，比如散步等。祝您健康。