110,499
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_click()
Dim i%, j%
Dim a(5, 5) As Integer
For i = 1 To 5
For j = 1 To 5
a(i, j) = 0
If i = j Or i + j = 6 Then
a(i, j) = 1
End If
Next
Next
For i = 1 To 5
For j = 1 To 5
Print a(i, j);
Next
Print
Next
End Sub
Module Module1
'vb的矩阵代码参考:
Private Sub F1()
Dim i, j As Short
Dim a(5, 5) As Short
For i = 1 To 5
For j = 1 To 5
a(i, j) = 0
If i = j Or i + j = 6 Then
a(i, j) = 1
End If
Next
Next
For i = 1 To 5
For j = 1 To 5
System.Console.Write(CStr(a(i, j)))
Next
System.Console.Write(vbCrLf)
Next
End Sub
'vb九九乘法表的代码参考:
Private Sub F2()
Dim i As Short
Dim j As Short
Dim str_Renamed As String
For i = 1 To 9
For j = 1 To i
str_Renamed = i & "×" & j & "=" & i * j
System.Console.Write(TAB((j - 1) * 9 + 1).Column.ToString() + str_Renamed)
Next j
System.Console.Write(vbCrLf)
Next i
End Sub
'倒三角正三角vb代码参考:
Private Sub F3()
Dim i, j As Short
For i = 1 To 5 '正三角
System.Console.WriteLine(Space(10 - i) + New String("*", i * 2 - 1))
Next i
For j = 5 To 1 Step -1
System.Console.WriteLine(Space(10 - j) + New String("*", j * 2 - 1))
Next j
End Sub
Sub Main()
F1()
F2()
F3()
System.Console.ReadKey()
End Sub
End Module
using System;
class Test
{
//vb的矩阵代码参考:
private static void F1()
{
short i = 0;
short j = 0;
short[,] a = new short[6, 6];
for (i = 1; i <= 5; i++)
{
for (j = 1; j <= 5; j++)
{
a[i, j] = 0;
if (i == j | i + j == 6)
{
a[i, j] = 1;
}
}
}
for (i = 1; i <= 5; i++)
{
for (j = 1; j <= 5; j++)
{
System.Console.Write(a[i, j].ToString());
}
System.Console.Write("\r\n");
}
}
//vb九九乘法表的代码参考:
private static void F2()
{
short i = 0;
short j = 0;
string str_Renamed = null;
for (i = 1; i <= 9; i++)
{
for (j = 1; j <= i; j++)
{
str_Renamed = i + "×" + j + "=" + i * j;
System.Console.Write(new string(' ', (j - 1)) + str_Renamed);
}
System.Console.Write("\r\n");
}
}
//倒三角正三角vb代码参考:
private static void F3()
{
short i = 0;
short j = 0;
for (i = 1; i <= 5; i++)
{
//正三角
System.Console.WriteLine(new string(' ', (10 - i)) + new string('*', i * 2 - 1));
}
for (j = 5; j >= 1; j += -1)
{
System.Console.WriteLine(new string(' ', (10 - j)) + new string('*', j * 2 - 1));
}
}
static void Main()
{
F1();
F2();
F3();
System.Console.ReadKey();
}
}