c語(yǔ)言與vb.net先學(xué)那個(gè)好一些 本來(lái)想學(xué)vb.net的，但大多數(shù)人都說(shuō)先學(xué)c好一些，我該選哪個(gè)

VB已經(jīng)沒(méi)有競(jìng)爭(zhēng)力了。沒(méi)有學(xué)習(xí)VB的必要了。C語(yǔ)言、C++語(yǔ)言、Java語(yǔ)言，這三個(gè)語(yǔ)言才是最有用的編程語(yǔ)言。

創(chuàng)新互聯(lián)公司專(zhuān)注于網(wǎng)站建設(shè)，為客戶提供成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)開(kāi)發(fā)服務(wù)，多年建網(wǎng)站服務(wù)經(jīng)驗(yàn)，各類(lèi)網(wǎng)站都可以開(kāi)發(fā)，品牌網(wǎng)站設(shè)計(jì)，公司官網(wǎng)，公司展示網(wǎng)站，網(wǎng)站設(shè)計(jì)，建網(wǎng)站費(fèi)用，建網(wǎng)站多少錢(qián)，價(jià)格優(yōu)惠，收費(fèi)合理。

不要被VB的美麗的界面迷惑了，功能強(qiáng)大才是硬道理。VB那是華而不實(shí)，沒(méi)有用的。用C語(yǔ)言、C++語(yǔ)言做出來(lái)的程序才有實(shí)際功能。

我現(xiàn)在就用 VC 編寫(xiě)一個(gè)簡(jiǎn)易的對(duì)話框給你看看。

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

#include windows.h

int main(void)

{

if ( MessageBox ( NULL , "請(qǐng)您選擇是或否。" , "請(qǐng)選擇" , MB_YESNO ) == IDYES )

MessageBox ( NULL , TEXT("您單擊了是。") , "提示" , MB_OK ) ;

else

MessageBox ( NULL , TEXT("您單擊了否。") , "提示" , MB_OK ) ;

return 0 ;

}

請(qǐng)幫忙將以下C語(yǔ)言代碼轉(zhuǎn)換為VB.NET代碼，謝謝！

Option Explicit On

Option Strict On

Imports System

Module Program

Sub Main()

Dim y,m,t As Integer

begin:

' 輸入數(shù)據(jù)時(shí)一行一個(gè)

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哪個(gè)好學(xué)一點(diǎn)，需要編寫(xiě)個(gè)程序哪個(gè)更好上手，這2個(gè)都可以把程序最后表現(xiàn)成網(wǎng)頁(yè)形式吧

如果你沒(méi)學(xué)過(guò)編程，c#和vb.net都一樣。如果你有Qbasic基礎(chǔ)，vb更容易。

很久很久以前有一種語(yǔ)言叫做Qbasic，其方便快捷，比C語(yǔ)言更貼近與我們的一般用語(yǔ)，所以容易上手。

后來(lái)有了VB，vb又比C++（C++是C語(yǔ)言的進(jìn)化版）更容易上手。所以大家就有了一致的VB易于C語(yǔ)言的特點(diǎn)。但是到了VB.net的時(shí)候，C#是繼承自VB和C以及JAVA的各種特性于一身，現(xiàn)在C#基本上一統(tǒng)天下了，少數(shù)熟悉VB的人還在用,VB.net，不過(guò)新人都不怎么學(xué)VB。net了。話又說(shuō)回來(lái)，VB。net血的人少，不代表沒(méi)用，只要用好了，菜刀一樣殺人。

asp.net可以使用C#也可以使用vb語(yǔ)言。

C#和VB。net其實(shí)是一種語(yǔ)言，就像山東話和陜西話都是中國(guó)話一樣。

學(xué)c#好還是學(xué)vb.net好?哪個(gè)更有前途?

你是dotnet的擁躉，你也許會(huì)碰到一個(gè)查遍了所有資料也得不出一個(gè)結(jié)論的答案：那就是學(xué)vb.net與c#，我也是半路出家的道士，曾經(jīng)也苦苦的尋求的答案。

到頭來(lái)也是一無(wú)所獲反而更加的迷惘了。根據(jù)我個(gè)人的經(jīng)驗(yàn)，特為和我當(dāng)年有同種尋求答案的人提供一種參考。

一、學(xué)vb.net吧，原因：

如果你有過(guò)vb的編程經(jīng)歷，要那就建議你從vb.net開(kāi)始吧，雖然vb.net已經(jīng)與vb有著本質(zhì)的變化了，它看起來(lái)才是一真正的面向?qū)ο蟮恼Z(yǔ)言，但ms又為vb開(kāi)發(fā)保持留了最大平滑過(guò)渡的可能性。

1、vb.net基于vb發(fā)展而來(lái)的語(yǔ)言，但絕不是簡(jiǎn)單的升級(jí)，因?yàn)楸举|(zhì)東西已經(jīng)沒(méi)有共通之處了，但讓你有似曾相識(shí)的感覺(jué)，上手還是比較快的。

2、vb.net與c#編譯后的微軟中間語(yǔ)言msil內(nèi)容都是一致

二、學(xué)c#吧，原因：

如果你是從沒(méi)有開(kāi)的經(jīng)驗(yàn)朋友，那就從c#直接開(kāi)始原

1、因?yàn)樯虡I(yè)的關(guān)系，ms先生們肯定會(huì)有所側(cè)重，把更多的精力投入到這門(mén)新的語(yǔ)言中。

，哪種對(duì)你來(lái)可以取得更多的收益，你就用哪門(mén)語(yǔ)言。

C語(yǔ)言轉(zhuǎn)換為VB.NET

Option Explicit On

Option Strict On

Imports System

Module Program

Sub Main()

Dim y,m,t As Integer

begin:

' 輸入數(shù)據(jù)時(shí)一行一個(gè)

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

請(qǐng)大俠幫我將C代碼轉(zhuǎn)換成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