VB 构造一个四阶方阵,使其主对角线元素为1,其余元素为0

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/05/14 12:31:05

VB 构造一个四阶方阵,使其主对角线元素为1,其余元素为0
还有构造一个方阵,阶数可以任意指定.并使该方阵主对角线元素为1,其余元素为哦
一个函数过程,判断一个自然数书否为素数,返回一个逻辑值.调用该函数过程求100到200之间的所有素数
三题,都用VB

第一题
Option Base 1
Private Sub Command1_Click()
Dim a(4,4) As Integer
Dim i As Integer,j As Integer
For i = 1 To 4
For j = 1 To 4
If i = j Then
a(i,j) = 1
Else
a(i,j) = 0
End If
Print a(i,j);
Next j
Print
Next i
End Sub
第二题
Option Base 1
Private Sub Command1_Click()
Dim a() As Integer,m As Integer,n As Integer
Dim i As Integer,j As Integer
m = InputBox("enter data m:")
n = InputBox("enter data m:")
ReDim a(m,n)
For i = 1 To m
For j = 1 To n
If i = j Then
a(i,j) = 1
Else
a(i,j) = 0
End If
Print a(i,j);
Next j
Print
Next i
End Sub
第三题
Private Function prime(ByVal x As Integer) As Integer
Dim i As Integer
For i = 2 To x - 1
If x Mod i = 0 Then
Exit For
End If
Next i
If i >= x Then
prime = 1
Else
prime = 0
End If
End Function
Private Sub Command1_Click()
Dim x As Integer
For x = 100 To 200
If prime(x) = 1 Then Print x;
Next x
End Sub
已在VB中测试,绝对没问题,这么辛苦,请一定采纳哟!
再问：第二题你运行的截图给我看下行吗?
再答：

我运行时输入的8和8

编写程序VB.生成n阶方正.该方正的中心元素为9.中心元素以外的主,副对角线元素都为1,其余元素都为0 用vb程序设计输出一个右上三角元素（含对角线）为1,其余元素为0 的5×5矩阵. vb、编写程序,建立并输出一个10×10的矩阵,该矩阵对角线元素为1,其余元素均为0. 一、用循环的方法构造一个3行3列的二维数组,使主对角线及下三角阵中的元素为1,.其他位置上的元素为0,按行列形式输出二维用C++写一个程序,要求形成一个5行5列矩阵,要求两条对角线元素均为1,其余元素为0 一道Java编程题构造一个n阶方阵,方阵的大小从键盘输入,方阵的最外一圈元素为1,以后往内依次为2,3,.n.例如：1 1、求一个n阶方阵的主对角线和副对角线上的元素之和. 编写VB程序,建立并输出一个n×n的矩阵,该矩阵对角线上的元素为4,其余元素均为-1 java创建一个6*6的二维数组,主对角线和从对角线上的元素值均为1,其余元素值均为0,并以矩阵形式输出.如对一个5*5矩阵,要求将主对角线元素和副对角线元素赋值0,其余元素赋值1,并输出该矩阵 QB编程题编写一个程序:建立一个10乘10的对角线元素为0,其余元素为1的二维数组元素,并将该数组打印出来,成功后改写该两道题：1.建立一个n×n（n≤20）矩阵,n由键盘输入,对角线以下元素赋值为1,其余元素值为0.