13518219792
在c语言中每一个变量都有两个属性一个是值，一个是址。比如inta=2;变量a的值是2，变量a的地址，可以用取地址
创新互联于2013年开始，先为藤县等服务建站，藤县等地企业，进行企业商务咨询服务。为藤县企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
操作符
获取，即a。因此以C语言的函数传递中具备两种方式传递参数，一种是传址，一种传值。比如voidf1(intv){;}//函数f1v
C、VB都是编程语言，都可用于编程，都有其相对应的开发环境，不同的是，C的开发环境可以有多种，而VB本身就集成了开发环境。
从适用程度上来讲，VB都很简单，VB是通用的语言
从学习难度上来讲，想学VB却不需要基础，但想学好，真要学的东西还挺多。
从历史上来讲，VB是basic语言的第四代版本。
想学C，就学VC。
版本不是太好说，虽说最新的.NET已非常普遍，但人个编程用的更多的还是6.0版本，如VB6、VC6。但最终有可能统一到.net版本，如果是初学者，还是高起点，直接从.net开始吧。
Option Explicit On
Option Strict On
Imports System
Module Program
Sub Main()
Dim y,m,t As Integer
begin:
' 输入数据时一行一个
y=CInt(Console.ReadLine())
m=CInt(Console.ReadLine())
t=CInt(Console.ReadLine())
If y100 Then
y=y+2000
End If
If y1916 OrElse m200 Then
Console.WriteLine("ERROR")
goto begin
End If
pr(y,m,t)
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
Function pr(y As Integer,m As Integer,t As Integer) As Integer
Dim ye,[Me],i As Integer
ye=CInt((m+t-2)/12+y)
[Me]=(m+t-2) Mod 12+1
Console.WriteLine(" {0}-{1} ~ {2}-{3}",y,m,ye,[Me])
ye=y
[Me]=m
For i=0 To t-1
prmonth(ye,[me])
[Me]=[Me]+1
If [Me]12 Then
ye=ye+1
[me]=1
End If
Next
Return 0
End Function
Function yam(y As Integer,m As Integer) As Integer
Dim st As String()={"未定义","一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"}
Console.WriteLine(" {0} {1}",y,st(m))
Console.WriteLine("----------------------------")
Return 0
End Function
Function ryear(y As Integer) As Integer
If 0=y Mod 400 OrElse (0y Mod 100 AndAlso 0=y Mod 4) Then
Return 1
Else
Return 0
End If
End Function
Function mday(y As Integer,m As Integer) As Integer
Dim day As Integer()={0,31,28,31,30,31,30,31,31,30,31,30,31}
Dim ad As Integer=0
If 2=m Then
ad=ryear(y)
End If
Return day(m)+ad
End Function
Function monday(y As Integer,m As Integer) As Integer
Dim md As Integer=6
Dim i,daynum As Integer
For i=1916 To y-1
daynum=365+ryear(i)
md=(md+daynum) Mod 7
Next
For i=1 To m-1
md=(md+mday(y,i)) Mod 7
Next
Return md
End Function
Function prmonth(y As Integer,m As Integer) As Integer
Dim md As Integer=monday(y,m)
Dim daysnum As Integer=mday(y,m)
Dim days As Integer=daysnum+md
Dim i As Integer
yam(y,m)
Console.Write(" 日 一 二 三 四 五 六")
For i=0 To days-1
If 0=i Mod 7 Then
Console.WriteLine()
Console.WriteLine()
Console.Write(" ")
End If
If i-md=0 Then
Console.Write(" {0,2}",i-md+1)
Else
Console.Write(" ")
End If
Next
Console.WriteLine()
Console.WriteLine()
Return 0
End Function
End Module
如果你没学过编程，c#和vb.net都一样。如果你有Qbasic基础，vb更容易。
很久很久以前有一种语言叫做Qbasic，其方便快捷，比C语言更贴近与我们的一般用语，所以容易上手。
后来有了VB，vb又比C++（C++是C语言的进化版）更容易上手。所以大家就有了一致的VB易于C语言的特点。但是到了VB.net的时候，C#是继承自VB和C以及JAVA的各种特性于一身，现在C#基本上一统天下了，少数熟悉VB的人还在用,VB.net，不过新人都不怎么学VB。net了。话又说回来，VB。net血的人少，不代表没用，只要用好了，菜刀一样杀人。
asp.net可以使用C#也可以使用vb语言。
C#和VB。net其实是一种语言，就像山东话和陕西话都是中国话一样。
Option Explicit On
Option Strict On
Imports System
Module Program
Sub Main()
Dim y,m,t As Integer
begin:
' 输入数据时一行一个
y=CInt(Console.ReadLine())
m=CInt(Console.ReadLine())
t=CInt(Console.ReadLine())
If y
200 Then
Console.WriteLine("ERROR")
goto begin
End If
pr(y,m,t)
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
Function pr(y As Integer,m As Integer,t As Integer) As Integer
Dim ye,[Me],i As Integer
ye=CInt((m+t-2)/12+y)
[Me]=(m+t-2) Mod 12+1
End If
End Function
Function mday(y As Integer,m As Integer) As Integer
Dim day As Integer()={0,31,28,31,30,31,30,31,31,30,31,30,31}
Dim ad As I
