13518219792
Sub Main()
创新互联建站-专业网站定制、快速模板网站建设、高性价比吴川网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式吴川网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖吴川地区。费用合理售后完善，10年实体公司更值得信赖。
Dim a As Boolean = True, b As Boolean = False
Console.WriteLine(LCase("a=" a " b=" b))
Console.WriteLine(LCase("true and false = " (a And b)))
Console.WriteLine(LCase("true and not false = " (a And Not b)))
Console.WriteLine(LCase("true false or false = " ((ab) Or b)))
Console.ReadKey()
End Sub
首先执行Sub Main()
①定义两个变量a=45 b=18
②将a和b作为sum过程的两个参数x=45(按值传递)，y=18(按地址传递，将在过程中改变b的初始值)
③xy满足条件，将 x-y=45-18=27 赋值给x ；将 x+y=27+18=45 赋值给y，此时改变了b值为45.
④输出x的值27 y的值45
⑤输出a的值45 b的值45
控制台调用Timer和窗体是类似的。首先在项目引用里面加入System.Windows.Forms程序集，然后在代码顶部引入命名空间：
Imports System.Windows.Forms
在控制台的Module中声明一个计时器：
Private WithEvents Timer1 As New Timer()
把计时器的Tick事件静态绑定到处理函数中：
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'一些代码
End Sub
在需要开始计时的地方，修改其Interval、Enabled属性：
Timer1.Interval = 1000
Timer1.Enabled = True
第1章 Visual Basic NET编程简介
1.1 Visual BasicNET简介
1.1.1 Visual StudioNET概述
1.1.2 Visual Basic的发展历程
1.1.3 Visual BasicNET的特点
1.2 面向对象程序设计的基本概念
1.3 任务1-1第一个VBNET Windows应用程序——简单的数学计算器
1.4 任务1-2：第一个VBNET控制台应用程序——欢迎信息的显示
第2章 程序设计基础与结构化程序设计语句
2.1 数据类型、常量与变量
2.1.1 基本数据类型
2.1.2 常量与变最
2.2 任务2-1：求一元二次方程的根——选择结构程序设计一
2.3 任务2-2：话费计算程序——选择结构程序设计二
2.4 任务2-3：单科成绩统计——环结构程序设计一
2.5 任务2-4：最大公约数和最小公倍数求解测验程序——循环结构程序设计二
2.6 任务2-5：素数判断测验程序——环结构程序设计三
第3章 数组
3.1 数组的概念
3.2 任务3-1：求一维数组的最小值及其位置——一维数组
3.3 任务3-2：方阵转置——二维数组
3.4 任务3-3：求每个学生的多门课的最高成绩及课程序号——控件数组
3.5 任务3-4：一维数组排序算法演示程序——选择法排序与冒泡法排序
3.6 任务3-5：求每个学生的平均成绩并按平均成绩排序——数组综合应用
第4章 过程
4.1 过程的概念
4.2 任务4-1：四则运算测验程序——Sub过程
4.3 任务4-2：用Function过程实现话费计算程序——Function过程
4.4 任务4-3：十进制到其他进制转换程序——数组作为过程参数
4.5 任务4-4：求函数s(x，n)过程嵌套
4.6 任务4-5：Hanoi（汉诺塔）问题——递归过程
第5章 程序调试和异常处理
5.1 程序的调试
5.1.1 VBNET的3种工作模式
5.1.2 使用调试工具调试程序
5.1.3 常用的调试窗口
5.2 任务5-1：具有非结构化异常处理的简单计算器——非结构化异常处理
5.3 任务5-2：具有结构化异常处理的简单计算器——结构化异常处理
第6章 Windows窗体与控件
第7章 Windows高级界面设计
第8章 面向对象的程序设计
第9章 文件操作
第10章 图形与多媒体程序设计
第11章 简单数据库编程
第12章 Web应用程序开发
附录A 常用系统函数与过程
附录B GDI+的常用图形绘制方法
参考文献
……
在visual studio.net中，你新建一个控制台程程序 然后里面 给你 一个 程序 你粘贴复制 就知道了 呵呵
Module Module1
Sub Main()
Dim x As String, y As Byte '定义变量及其数据类型
x = "007" '为变量x赋初值
y = Convert.ToByte(x) '将字符串型数据转换成字节型值并赋值给变量y
Console.WriteLine("字符串型变量 x（" x "） 被转换成了" "字节型变量 y（" y "） 。") '输出结果到屏幕
Dim i As String = "2012年11月18日" '定义变量i及其数据类型并赋初值
Dim j As Date '定义变量j及其数据类型
j = Convert.ToDateTime(i) '将字符串型数据转换成日期型值并赋值给变量j
Console.WriteLine("字符串型变量 i（" i "） 被转换成了" "日期型变量 j（" j "） 。") '输出结果到屏幕
Console.Read() '读取用户输入的信息
End Sub
End Module
应该定义为double或者single，string类好像不能进行运算。我简单说一下控制台的方法，你要一次性输入和差积商，首先声明两个变量用来储存两个数，然后用算法一次性输出结果就ok。
Sub Main()
Dim FN As Single
Dim SN As Single
Dim ResultNum As Single
Console.WriteLine("请输入第一个数") : FN = Console.ReadLine
Console.WriteLine("请输入第二个数") : SN = Console.ReadLine
ResultNum = FN + SN
Console.WriteLine("它们的和: " ResultNum)
ResultNum = FN - SN
Console.WriteLine("它们的差: " ResultNum)
ResultNum = FN * SN
Console.WriteLine("它们的积: " ResultNum)
ResultNum = FN / SN
Console.WriteLine("它们的商: " ResultNum)
Console.ReadLine()
End Sub
