VB编写程序,建立并输出一个10*10的矩阵,该矩阵两条对角线元素为1,其余元素均为0。
来源:百度知道 编辑:UC知道 时间:2024/09/25 12:32:19
Dim i As Integer
Dim strToOutput As String
Dim strTmp As String
For i = 1 To 10
strTmp = String(10, "0")
Mid(strTmp, i, 1) = "1"
Mid(strTmp, 11 - i) = "1"
strToOutput = strToOutput & strTmp & vbCrLf
Next
Form1.Print strToOutput
For i = 1 To 10
For j = 1 To 10
If i = j Or i + j = 11 Then
a(i, j) = 1
Else
a(i, j) = 0
End If
Next
Next
For i = 1 To 10
For j = 1 To 10
Print a(i, j);
Next
Print
Next
编写程序,建立并输出一个10*10的矩阵,矩阵两条对角线元素为1,其余元素为0.
编写程序,建立并输出一个10×10的矩阵,该矩阵对角线元素为1,其余元素均为0
1、 编写程序,输入一个不超过5位的正整数,输出它的个位数,并指出它是几位数。
编写一个从1加到n的通用算法程序,并打印输出相应的运算结果。
VB编写一个程序 急!!
编写程序:输入提一个正整数,判断该数是奇数还是偶数,并输出结果
编写一个程序,输出用户输入的整数,并指出是奇数还是偶数?
编写一个C语言程序,输入abc三个值,计算并输出其平均值
编写一个程序,打印输出以下图形***** ***** ***** ***** *****
编写一个C程序,输出以下信息: