作业帮VB 构造一个四阶方阵,使其主对角线元素为1,其余元素为0还有构造一个方阵,阶数可以任意指定.并使该方阵主对角线元素为1,其余元素为哦一个函数过程,判断一个自然数书否为素数,返回一个逻
来源：学生作业帮助网 编辑：作业帮 时间：2024/07/29 11:08:01
VB 构造一个四阶方阵,使其主对角线元素为1,其余元素为0还有构造一个方阵,阶数可以任意指定.并使该方阵主对角线元素为1,其余元素为哦一个函数过程,判断一个自然数书否为素数,返回一个逻
VB 构造一个四阶方阵,使其主对角线元素为1,其余元素为0
还有构造一个方阵,阶数可以任意指定.并使该方阵主对角线元素为1,其余元素为哦
一个函数过程,判断一个自然数书否为素数,返回一个逻辑值.调用该函数过程求100到200之间的所有素数
三题,都用VB
VB 构造一个四阶方阵,使其主对角线元素为1,其余元素为0还有构造一个方阵,阶数可以任意指定.并使该方阵主对角线元素为1,其余元素为哦一个函数过程,判断一个自然数书否为素数,返回一个逻
第一题
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中测试,绝对没问题,这么辛苦,请一定采纳哟!