用vb验证三对角矩阵时显示除数为零怎么解决

用vb验证三对角矩阵时显示除数为零怎么解决

Scale用于标示对象的坐标系统，其中前一组数字表示Picture1的左上角的坐标值，后一组数字表示Picture1的右下角的坐标值。因此如果你将左上角的坐标和右下角的坐标值设置为同一个坐标，则VB会认为你设置有误，会报“除数为零”的错误。
至于你的直线不见了很有可能是你的直线的坐标已经超出了你定义的坐标系统了，也就是说你的坐标系统设定的太小，不足以显示你的直线。例如你的坐标系统是(0,0)-(200,200)，而你的直线为(300,300)-(400,400)，这时候就不能显示直线，因为超出了坐标的范围。而此时有两个方法：一个方法是修改坐标系统，如(0,0)-(500,500)；另一个方法是修改直线的范围，如(30,30)-(140,140)。

dim a(1 to 2, 1 to 3) as integer dim b(1 to 3, 1 to 2) as integer private sub command1_click() print "转换前的矩阵是：" for i = 1 to 2 for j = 1 to 3 a(i, j) = cstr(i) & cstr(j) print a(i, j); " "; next j print next i print end sub private sub command2_click() print "转换后的矩阵是：" for i = 1 to 3 for j = 1 to 2 b(i, j) = a(j, i) print b(i, j); " "; next j print next i end sub