从c到vb.net 从c到a林清

c语言与vb.net先学那个好一些 本来想学vb.net的，但大多数人都说先学c好一些，我该选哪个

VB已经没有竞争力了。没有学习VB的必要了。C语言、C++语言、Java语言，这三个语言才是最有用的编程语言。

创新互联公司专注于网站建设，为客户提供成都网站设计、成都网站建设、网页设计开发服务，多年建网站服务经验，各类网站都可以开发，品牌网站设计，公司官网，公司展示网站，网站设计，建网站费用，建网站多少钱，价格优惠，收费合理。

不要被VB的美丽的界面迷惑了，功能强大才是硬道理。VB那是华而不实，没有用的。用C语言、C++语言做出来的程序才有实际功能。

我现在就用 VC 编写一个简易的对话框给你看看。

#pragma comment(linker,"/subsystem:\"Windows\" /entry:\"mainCRTStartup\"")

#include windows.h

int main(void)

{

if ( MessageBox ( NULL , "请您选择是或否。" , "请选择" , MB_YESNO ) == IDYES )

MessageBox ( NULL , TEXT("您单击了是。") , "提示" , MB_OK ) ;

else

MessageBox ( NULL , TEXT("您单击了否。") , "提示" , MB_OK ) ;

return 0 ;

}

请帮忙将以下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 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哪个好学一点，需要编写个程序哪个更好上手，这2个都可以把程序最后表现成网页形式吧

如果你没学过编程，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其实是一种语言，就像山东话和陕西话都是中国话一样。

学c#好还是学vb.net好?哪个更有前途?

你是dotnet的拥趸，你也许会碰到一个查遍了所有资料也得不出一个结论的答案：那就是学vb.net与c#，我也是半路出家的道士，曾经也苦苦的寻求的答案。

到头来也是一无所获反而更加的迷惘了。根据我个人的经验，特为和我当年有同种寻求答案的人提供一种参考。

一、学vb.net吧，原因：

如果你有过vb的编程经历，要那就建议你从vb.net开始吧，虽然vb.net已经与vb有着本质的变化了，它看起来才是一真正的面向对象的语言，但ms又为vb开发保持留了最大平滑过渡的可能性。

1、vb.net基于vb发展而来的语言，但绝不是简单的升级，因为本质东西已经没有共通之处了，但让你有似曾相识的感觉，上手还是比较快的。

2、vb.net与c#编译后的微软中间语言msil内容都是一致

二、学c#吧，原因：

如果你是从没有开的经验朋友，那就从c#直接开始原

1、因为商业的关系，ms先生们肯定会有所侧重，把更多的精力投入到这门新的语言中。

，哪种对你来可以取得更多的收益，你就用哪门语言。

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

请大侠帮我将C代码转换成VB.Net，谢谢！

public function Calculate_CRC8(byval crc as uint16,byval n as uint16) as uint16

dim i as uint16

crc=crc xor n

for i=0 to 7

if crc and 1 then

crc=(crc1) xor H8c

else

crc=crc1

end if

next

return crc

end function