C#VSVB殊途同归

看了点儿C# 的视频里面遇到的几个例子感觉很有趣，有好些例子以前学习VB的时候也实践过！如下：

例子1：求100以内的偶数和运行结果：

C# VB：





代码：

<span style="font-size:24px;"> #region 第一种方法

            int sum = 0;
            for (int i = 0; i <= 100; i += 2)
            {
                sum += i;
            }
            Console.WriteLine("总和为{0}", sum);
            Console.ReadKey();
 #endregion</span>

<span style="font-size:24px;"> #region 第二种方法

            int sum = 0;

            for (int i = 0; i <= 100; i++)
            {
                if (i % 2 == 0)
                {
                    sum += i;
                }
            }
            Console.WriteLine("总和为{0}", sum);
            Console.ReadKey();
 #endregion</span>

VB：

<span style="font-size:24px;">Option Explicit
Dim sum As Integer, i As Integer
Private Sub Command1_Click()
sum = 0
i = 0
For i = 2 To 100 Step 2
sum = sum + i
Next i
Label2.Caption = "计算结果为：" & Str(sum)
End Sub</span><span style="font-size:18px;">
</span>

例子2：求100到999之间的水仙花数

水仙花数：是指一个 n 位数 ( n≥3 )，它的每个位上的数字的 n 次幂之和等于它本身。


C# VB:





代码：

C#

//找出100-999间的水仙花数；
            #region 水仙花
            int bai = 0;
            int shi = 0;
            int ge = 0;
            for (int i = 100; i <= 999; i++)
            {
                bai = i / 100;
                shi = i % 100 / 10;
                ge = i % 10;
                if (bai * bai * bai + shi * shi * shi + ge * ge * ge == i)
                {
                    Console.WriteLine(i);
                }
            }

            Console.ReadKey(); 
            #endregion

VB：

Private Sub Command1_Click()
Dim s, i, j, k As Integer
Print
Form1.FontSize = 20
For s = 100 To 999
    i = s \ 100
    j = s \ 10 Mod 10
    k = s Mod 10    '分别取出该数的百位、十位、个位
    If s = i * i * i + j * j * j + k * k * k Then Print s;
Next s
End Sub

例子3：九九乘法表
C#



VB：



C#代码：

#region 三角形乘法表
            for (int j = 1; j <= 9; j++) //j表示行
            {
                for (int i = 1; i <= j; i++) //i表示列
                {
                    Console.Write("{0}*{1}={2}\t", i, j, i * j);
                }
                Console.WriteLine();
            }

            Console.ReadKey();
 #endregion

VB代码：

Private Sub Command1_Click()
Dim expss As String
Picture1.Print Tab(35); "九九乘法表"
    For i = 1 To 9

    For j = 1 To i

       expss= i & "×" & j & "=" & i * j

       Picture1.Print Tab((j - 1) * 9); expss;

    Next j

    Picture1.Print
  Next i
End Sub

总结：
通过这几个小例子的学习和对比，其实可以看到虽然代码的表示形式略微有些差异但是，设计思路以及所要达到的效果基本上是一致的，其实学习的过程是相通的触类旁通便就是这个道理吧！