summaryrefslogtreecommitdiffhomepage
path: root/zh-cn
diff options
context:
space:
mode:
Diffstat (limited to 'zh-cn')
-rw-r--r--zh-cn/visualbasic-cn.html.markdown34
1 files changed, 18 insertions, 16 deletions
diff --git a/zh-cn/visualbasic-cn.html.markdown b/zh-cn/visualbasic-cn.html.markdown
index 4459a2cd..95f01ed6 100644
--- a/zh-cn/visualbasic-cn.html.markdown
+++ b/zh-cn/visualbasic-cn.html.markdown
@@ -13,10 +13,10 @@ Module Module1
Sub Main()
' 让我们先从简单的终端程序学起。
- ' 单引号用来生成注释(注意是半角单引号,非全角单引好’)
+ ' 单引号用来生成注释(注意是半角单引号,非全角单引号’)
' 为了方便运行此示例代码,我写了个目录索引。
- ' 可能你还不了解以下代码的意义,但随着教程的深入,你会
- ' 渐渐理解其用法。
+ ' 可能你还不了解以下代码的意义,但随着教程的深入,
+ ' 你会渐渐理解其用法。
Console.Title = ("Learn X in Y Minutes")
Console.WriteLine("NAVIGATION") ' 显示目录
Console.WriteLine("")
@@ -26,10 +26,10 @@ Module Module1
Console.WriteLine("3. Calculating Whole Numbers") ' 求整数之和
Console.WriteLine("4. Calculating Decimal Numbers") ' 求小数之和
Console.WriteLine("5. Working Calculator") ' 计算器
- Console.WriteLine("6. Using Do While Loops") ' 使用 do while 循环
- Console.WriteLine("7. Using For While Loops") ' 使用 for while 循环
+ Console.WriteLine("6. Using Do While Loops") ' 使用 Do While 循环
+ Console.WriteLine("7. Using For While Loops") ' 使用 For While 循环
Console.WriteLine("8. Conditional Statements") ' 条件语句
- Console.WriteLine("9. Select A Drink") ' 买饮料
+ Console.WriteLine("9. Select A Drink") ' 选饮料
Console.WriteLine("50. About") ' 关于
Console.WriteLine("Please Choose A Number From The Above List")
Dim selection As String = Console.ReadLine
@@ -61,7 +61,7 @@ Module Module1
Case "9" ' If/Else 条件语句
Console.Clear()
IfElseStatement() ' 选饮料
- Case "50" ' 关于
+ Case "50" ' 关于本程序和作者
Console.Clear()
Console.Title = ("Learn X in Y Minutes :: About")
MsgBox("This tutorial is by Brian Martin (@BrianMartinn")
@@ -81,7 +81,9 @@ Module Module1
' 使用 Console.Write("") 或者 Console.WriteLine("") 来输出文本到屏幕上
' 对应的 Console.Read() 或 Console.Readline() 用来读取键盘输入
Console.WriteLine("Hello World")
- Console.ReadLine()
+ Console.ReadLine()
+ ' Console.WriteLine()后加Console.ReadLine()是为了防止屏幕输出信息一闪而过
+ ' 类似平时常见的“单击任意键继续”的意思。
End Sub
' 二
@@ -93,11 +95,11 @@ Module Module1
' 此教程中,我们希望知道你的姓名,并让程序记录并输出。
Dim username As String
- ' 我们使用字符串类型(String)来记录文本信息。
+ ' 我们定义username使用字符串类型(String)来记录用户姓名。
Console.WriteLine("Hello, What is your name? ") ' 询问用户输入姓名
- username = Console.ReadLine() 'Stores the users name.
- Console.WriteLine("Hello " + username) ' 输出将是 Hello '姓名'
- Console.ReadLine() 'Outsputs the above.
+ username = Console.ReadLine() ' 存储用户名到变量 username
+ Console.WriteLine("Hello " + username) ' 输出将是 Hello + username
+ Console.ReadLine() ' 暂停屏幕并显示以上输出
' 以上程序将询问你的姓名,并和你打招呼。
' 其它变量如整型(Integer)我们用整型来处理整数。
End Sub
@@ -166,7 +168,7 @@ Module Module1
' 这次我们将询问用户是否继续 (Yes or No?)
' 我们将使用Do While循环,因为我们不知到用户是否需要使用一次以上。
Console.Title = "UsingDoWhileLoops | Learn X in Y Minutes"
- Dim answer As String 'We use the variable "String" as the answer is text
+ Dim answer As String ' 我们使用字符串变量来存储answer(答案)
Do ' 循环开始
Console.Write("First number: ")
Dim a As Double = Console.ReadLine
@@ -201,7 +203,7 @@ Module Module1
' 这个程序我们将实现从10倒数计数.
Console.Title = "Using For Loops | Learn X in Y Minutes"
- ' 声明变量和步长(即递减的速度,如-1,-2,-3等)。
+ ' 声明变量和Step (步长,即递减的速度,如-1,-2,-3等)。
For i As Integer = 10 To 0 Step -1
Console.WriteLine(i.ToString) ' 将计数结果输出的屏幕
Next i ' 计算新的i值
@@ -230,11 +232,11 @@ Module Module1
Private Sub IfElseStatement()
Console.Title = "If / Else Statement | Learn X in Y Minutes"
' 有时候我们需要考虑多于两种情况。
- ' 这时我们就需要使用If条件语句。
+ ' 这时我们就需要使用If/ElesIf条件语句。
' If语句就好似个自动售货机,当用户输入A1,A2,A3,等去选择物品时,
' 所有的选择可以合并到一个If语句中
- Dim selection As String = Console.ReadLine 'Value for selection
+ Dim selection As String = Console.ReadLine() ' 读入用户选择
Console.WriteLine("A1. for 7Up") ' A1 七喜
Console.WriteLine("A2. for Fanta") ' A2 芬达
Console.WriteLine("A3. for Dr. Pepper") ' A3 胡椒医生