tdbgrid 数据类型输入错误 vb_30分钟学会 VB.net 编程

知乎视频​www.zhihu.com

一、 编程环境

1. 首先我们要找一个可以编程的地方，入门的话我们就不需要那么麻烦，亲自配置编程环境了。

2. 在百度搜索：在线编程编程中国，找到 在线编程-编程中国 ，打开这个网页。

3. 左边的框是我们编写程序的地方，右边的框是程序运行结果

4. 在语言选项中找到http://VB.Net语言，（数到第六个，点击http://VB.Net）我们就可以这里运行http://VB.Net代码了，

5. 点击右上方的运行按钮，运行后的结果就会出现在右边的框中。

二、print、数字、字符串

1. 我们把这些代码都删除。剩下的代码不懂没关系，我们后面再讲。

Module Program
 	Sub Main(args As String()) 		 
	

        End Sub 
End Module 

2. 可以计算加减乘除法，在代码框中输入：Console.WriteLine(2+3)，不要忘了中间的点。

Module Program
 	Sub Main(args As String())
 		Console.WriteLine(2+3)         
 	End Sub End Module 

3. Console.WriteLine是输出的意思，点击右上方的运行按钮，会输出括号中：2+3 的计算结果：5。

4. 也可以输出一句话，在代码框中输入：Console.WriteLine("abc")，点击右上方的运行按钮，运行结果是：abc，我们把双引号中的内容叫做：字符串。

5. 注意：

代码中的所有标点符号必须是切换到英语状态下的符号，如果是中文状态下打出的代码是错误的。

abc 上的双引号也必须是切换到英语状态下的，数字不需要双引号，但是字母、符号、句子都必须要带上双引号。

三、变量

1. 我们来介绍一下变量，在代码框中输入，

Dim a As Integer = 123 

a 是变量名，integer声明这个变量是整数，Dim空间尺寸的意思，Dim a As Integer的意思 是定义一个名字叫a的整数变量，

Dim 变量名 as 数据类型  

2. 我们把变量比作箱子，a 就是一个"箱子"，我们在这个箱子 a 中放入数字 123， 这里的 a 就是一个变量，

3. 我们也可以在 a 中放入字符串：bbb, 在代码框中输入：

Dim a As String = "bbb" 

4. 输出这个变量：a ,变量也没有双引号

Console.WriteLine(a) 

5. 这里的 a 是变量的名字，变量的名字可以随便起，但不能是数字或者符号。

Dim g As Integer = 234 Console.WriteLine(g) 

6. 变量之间可以相加减，其实就是a的值1，加上b的值2，等于3

Dim a As Integer=1 
Dim b As Integer=2 Console.WriteLine(a+b)  '3  单引号是单行注释 

Module Program
 	Sub Main(args As String())
 	    Dim a,b As Integer
            a = 2
            b = 1
            Console.WriteLine(a+b)  '3
         End Sub 
End Module 

四、数组

1. 我们来介绍一下列表，在代码框中输入：

Dim a() as Integer ={3, 70, 100} 

a 是数组名，integer声明这个数组是整数，Dim空间尺寸的意思，Dim a() As Integer的意思 是定义一个名字叫a的整数数组，

数组是用花括号括起来的，每个数据之间用逗号隔开，

2. 数组也是一个箱子，在这个箱子中可以放入多个数字、字符串、变量……，不像变量只能放一个数据。

5. 列表中每个值都有一个自己的位置序号，这个位置的序号是从0开始的

6. 所以3的位置是0,70 的位置是1,100的位置是2.

7. 我们可以根据列表中值的位置，可以单独把这个值从列表中拿出来

a(2) 

6. 比如我们想单独把列表中的100拿出来，先写出列表的名字a，在a的后面写上100的位置的序号2，给这个2加上方括号

8. 然后我们把它打印出来

Console.WriteLine(a(2))  ' 100 

五、比较符和布尔

1. 我们可以用代码判断数字的大小，比如判断一下 2 是不是小于 1，输入：

Console.WriteLine( 2 < 1 )  #返回 Fasle 

2. fasle的意思是假，在这里的就是错别的意思，说明 2 小于 1 是错误的。

3. 我们再判断一下 2 是不是大于 1，输入：

Console.WriteLine( 2 > 1 )  #返回true 

4. true的意思是真，在这里的就是正确的意思，说明 2 大于 1 是错误的。

5. 我们再判断一下 2 是不是等于 1，输入：

Console.WriteLine( 2 = 1 )  #返回false 

六、条件语句if，就是给出一个条件，条件满足了，就执行后面的代码块，条件不满足就不会执行后面的代码。

If (条件) Then
      if 条件成立时执行的代码; 
End If 

圆括号中的代码说的对，我就执行花then到end if之间的代码，如果圆括号中的代码说的不对，我就不执行then到end if之间的代码，

1. 我们介绍一下 if 语句，输入：If 圆括号 a<10，Then，回车键，下面会自动空出四格，Console.WriteLine( 233 )，不要忘了ifthenend的首字母要大写。

Module Program
 	Sub Main(args As String())
 	    Dim a as Integer =3
 	    If (a < 10) Then
                Console.WriteLine( 233 )
            End If         
 	End Sub 
End Module

演示图 
Dim a as Integer =3 

If (3 < 10) Then
     Console.WriteLine( 233 ) 
End If 

2. if 是如果的意思，Then是那么的意思，end if是结束的意思

如果 if 后面的代码a<10成立，就会执行下一行代码Console.WriteLine( 233 )，如果不成立就不执行下一行代码

3. 这 段代码的意思是：如果a 小于10，那么输出 233，a是 3，3 小于 10，所以就输出233

4. 如果我们把 a 的值改为 11，a现在变成了11，11大于 10，所以就不会输出

5. 下面接着输入：

ElseIf( a=1 )Then
     Console.WriteLine( 244 ) 

6. ElseIf是再如果的意思，再如果a 等于1，那么打印 244，a是 1，不等于 10，所以就不会打印244

7. 接着输入：

Else
     Console.WriteLine( 255 ) 

8. else是否则的意思，如果上面的所有条件都不成立，那就执行：Console.WriteLine( 255 )这条代码。

Module Program
 	Sub Main(args As String())
 	    Dim a as Integer =11
 	    If (a < 10) Then
                Console.WriteLine( 233 )
            ElseIf( a=1 )Then
                Console.WriteLine( 244 )
            Else
                Console.WriteLine( 255 )
            End If          
	End Sub 
End Module 

If (条件1) Then
      if 条件1成立时执行的代码;  
ElseIf (条件2) Then
      elif 条件2成立时执行的代码;  
Else
      上面所有的条件不成立时执行的代码;  End If 

七、循环语句，可以多次重复执行同个一块代码

while前的代码说的对，我就重复执行下一行到End While之间的代码，直到while前的代码不对为止，我才停止执行下一行到End While之间的代码。

while (条件)
      while 条件成立时重复执行的代码;      
End While 

1 输入下面的代码：

Module Program
 	Sub Main(args As String()) 	
     	    Dim a as Integer = 1 
	
            While a<5 
                Console.WriteLine( a )
                a = a + 1
            End While

 	End Sub 
End Module 

2. while 空格 a<5，回车键，下面会自动空出四格，Console.WriteLine( a )，

3. while 是 当 的意思，如果 while 后面的代码a<5成立，就会重复执行下一行代码Console.WriteLine( a )，直到while 后面的代码不成立才会停止。

4. 这个和 if 语句有点像，只是冒号后面的代码Console.WriteLine( a )会重复执行。

5. 我们有什么办法让它自动停下来，我们可以在Console.WriteLine( a )下面再加上 a = a + 1

Dim a as Integer = 1 

While a<4
      Console.WriteLine( a )
     a = a + 1 
End While 

6. a = a + 1的意思是每重复执行一次，a 就会增加1，

7. 当a加到5 时，a<5的条件就不满足了，循环便会停止。

循环过程示意图：  

第一次循环 
while 1<4                      
     System.out.println(1;
     2 = 1 + 1; 
}  

第二次循环 
while 2<4
     System.out.println(2);
     3 = 2 + 1;   

第三次循环 while 3<4
     System.out.println(3);
     4 = 3 + 1;   

第四次循环 
while 4<4
      System.out.println(4);
     5 = 4 + 1 
End While 

八. 我们也可以用 for 循环语句来重复执行一段代码。

For (条件)
      for 条件成立时重复执行的代码; 
Next 

1. 先是一个for，然后是空格，接下来是变量a，

变量的值是 10，后面空格To，空格 20

回车键，下行自动空出四格，最后打印出 233，回车键，Next

Module Program
 	Sub Main(args As String())
 	    For a = 1 To 3
                Console.WriteLine( a )
            Next
 	End Sub 
End Module 

12. 这段代码的意思 是：for和next之间的代码会重复执行3次，就是变量a从1增加到3，a每增加1，就会重复执行一次。

For a = 1 To 3
     Console.WriteLine( a ) 
Next 

循环过程演示：  

第一次循环 
For a = 1
      Console.WriteLine( 1 ) 
Next  

第二次循环 
For a = 2
     Console.WriteLine( 2 ) 
Next  

第三次循环 
For a = 3
     Console.WriteLine( 3 ) 
Next 

3. 代码块：代码块就是把多行代码放在一个封闭的区域内一起执行。

一个if语句是一个代码块，一个循环语句也是一个代码块，一个函数也是一个代码块。

一般来说一个花括号括内的区域就是一个独立的代码块。

九、函数，我们把函数比作一个机器，这机器里可以放入多个代码块一起执行，比如可以放入变量、数组、if条件语句、循环语句……。

Function 函数名(参数1，参数2)
       return 返回值 
End Function    


Function 机器名(原料1，原料2)
      出料口  产品 
End Function 

1. 先是Function,意思是声明这是一个函数，然后空一格，写上函数的名字a，a后面是圆括号，

按回车键，自动空四格，最后是要执行的代码：Console.WriteLine( "abc" ) ，打印字符串abc

回车下一行，End Function是结束函数，

Function a()
     Console.WriteLine( "abc" )
     retrun 0
End Function 

2. 我们现在运行代码，没反应。

3. 我们把函数比作一个机器，我们要用它的时候，必须要打开它的开关

4. 打开开关的方法就是在下面写上它的名字，再加个括号，a() 要写在main子程序中，术语叫函数调用

a() 

5. 现在我们再运行一下，成功了。

6. 我们还可以为这个函数机器添加原料，让它生产出成品。

7. 我们现在重新写一个函数：a，括号就是这个机器的入料口c和k，它们之间用逗号隔开，c和k其实是两个变量，名字可以任意取，c和k的术语叫参数。

第二行的:return的意思是返回，可以把return看成是这个机器的出料口，return后面的代码就是这个机器要产出的成品，这个a函数的成品就是c和k的和，

* 星号是乘以的意思c*k = c x k，星号在8的上面，As Integer的意思是这个a函数的返回值是整数。

Module Program
      Function a(ByVal c As Integer,ByVal k As Integer) As Integer
          return c * k
      End Function

      Sub Main(args As String())
 	  Console.WriteLine(a(4,3))
      End Sub 
End Module 

8. 下面我们要打开这个机器的开关:a()，还要为这个机器添加原料2和4，别忘了2和4之间用逗号隔开。

a(4,3) 

9. 4就是c，3就是k，运行后输出了4和3的积是12

Function a(4, 3) As Integer
     return 4 * 3 
End Function  

10. 代码块：代码块就是把多行代码放在一个封闭的区域内一起执行。

一个if语句是一个代码块，一个循环语句也是一个代码块。

十、 子程序，子程序和函数类似，只是子程序不能有返回值。

Sub 子程序名(参数1，参数2)
      要执行的代码           
End Sub 

1 Sub语句用于声明这是一个子程序，a是子程序的名字，c是子程序的参数，End Sub是结束这个子程序，

Module Program
      Sub a(ByVal c As Integer)
          Console.WriteLine(c)
      End Sub

      Sub Main(args As String())
 	  a(2)
      End Sub 
End Module 

2. 要调用这个a子程序的时候，和函数是一样的，在Main子程序中写上子程序的名字a再加一个圆括号。

Sub Main(args As String()) 	
    a(2)  
End Sub 

十一、类，我们也可以把类比作一个模型，可以根据这个模型（类）来制造出具体的产品，我们把具体的产品叫作对象或者实例。

比如说我们可以先在图纸上设计一座房子的模型，我们可以根据这个房子的模型（类）来建造出一座真实的房子，

我们把图纸上的房子模型叫做类，把根据图纸建好的房子叫做这个类的实例

对房子的的类a来说：它有长和宽，还可以根据面积公式算出它的面积。

实例对象就是一个真实存在的房子，它有具体的边长4，有具体的宽3。

1. 我们准备定义一个房子的类，先是一个class，class就是类的意思， 然后空一格，冒号，

按下回车键，自动空四格，然后我们定义一个变量c，它的值是4，再定义一个函数k，它的值是3

我们在类a 里有一个变量c, public的意思公开，就是在 这个类a的外面还可以访问这个变量b，比如说在子程序Main中也可以访问这个变量b。

变量c就是这个房子的长。

变量k就是这个房子的宽。

Module Program
      Class a
         public c as Integer
         public k as Integer
     End Class

     Sub Main(args As String())
 	 Dim a1 As a = New a()
 	 a1.c = 4
 	 a1.k = 3
         Console.WriteLine(a1.c)
     End Sub 
End Module 

New a()就是根据模型a创造了一座真实的房子，我们把这个真实的房子放入在名字叫a1的变量中，a1的变量的类型是 a.

有点像设置变量时在变量前加一个类型Dim c As Integer,意思是变量c的是Integer，就是整数。

2. Dim a1 As a = New a()就是根据模型a创造了一座真实的房子，我们把这个真实的房子名字叫a1

我们根据这个图纸可以造出许多房子，可以再造一座x房子

Dim a1 x a = New a()
Dim a1 y a = New a() 

3. a1点c意思就是a1的c,这座房子a1的长c，a1.k就a1的k,这座房子a1的宽k，

a1.c 
a1.k 

4. 我们可以用方法计算出这个房子的面积长C乘以宽K，就会知道其实m就是一个函数

public是公开的意思，指这个方法可以在这个类a的外面调用，return 后面就是要返回c乘以k，就是长乘以宽的积，也就是这个长方形的面积。

Module Program
      Class a
         public c as Integer
         public k as Integer

         Public Function m() As Integer
             Return c*k
         End Function
     End Class

     Sub Main(args As String())
 	 Dim a1 As a = New a()
 	 a1.c = 4
 	 a1.k = 3 
         Console.WriteLine(a1.m())
     End Sub 
End Module  

5. 现在我们可以读取a中的方法m()。a加上一个点，然后是m()，你可以理解为：a的m()方法，

Dim a1 As a = New a() 
a1.c = 4 
a1.k = 3 
Console.WriteLine(a1.m()) 

7. 初始化的时候，为类里面的变量一个一个的赋值很方麻烦，我们可以使用构造函数就简单的多了。

构造函数的名字必须是New。

这样在new的时候就可以直接把参数写在括号中a(4, 3)，不用一个一个的赋值。

类的构造函数是类的一种特殊的成员函数，它会在每次创建类的新对象时执行。

Module Program
      Class a
         public c as Integer
         public k as Integer

         Public Sub New(ByVal c1 As Double,ByVal k1 As Double)
             c=c1
             k=k1
         End Sub
     End Class

     Sub Main(args As String())
 	 Dim a1 As a = New a(4,3)
 	 Console.WriteLine(a1.c)
         Console.WriteLine(a1.k)
     End Sub 
End Module            

8. 类的继承，子类可以使用父类的属性和方法，

Module Progra
      Class f
         public Sub f1
             Console.WriteLine("我是父类")
         End Sub
      End Class

      Class z : Inherits f
         public Sub z1
             Console.WriteLine("我是子类")
         End Sub
      End Class

      Sub Main(args As String())
 	  Dim x As z = New z()
 	  x.f1()
          x.z1()
      End Sub 
End Module