C#代碼轉(zhuǎn)VB.Net代碼

Private?Sub?wmp_PlayStateChange(sender?As?Object,?e?As?AxWMPLib._WMPOCXEvents_PlayStateChangeEvent)

站在用戶的角度思考問題，與客戶深入溝通，找到大祥網(wǎng)站設(shè)計(jì)與大祥網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、主機(jī)域名、網(wǎng)站空間、企業(yè)郵箱。業(yè)務(wù)覆蓋大祥地區(qū)。

If?DirectCast(e.newState,?WMPLib.WMPPlayState)?=?WMPLib.WMPPlayState.wmppsReady?Then

wmp.Ctlcontrols.play()

End?If

End?Sub

Private?Sub?axWindowsMediaPlayer1_PlayStateChange(sender?As?Object,?e?As?AxWMPLib._WMPOCXEvents_PlayStateChangeEvent)

If?axWindowsMediaPlayer1.playState?=?WMPLib.WMPPlayState.wmppsMediaEnded?Then

Me.axWindowsMediaPlayer1.currentPlaylist.clear()

Me.axWindowsMediaPlayer1.currentPlaylist.appendItem(Me.axWindowsMediaPlayer1.newMedia("f:\b.wmv"))

axWindowsMediaPlayer1.settings.setMode("loop",?True)

timer1.Enabled?=?True

End?If

End?Sub

Private?Sub?timer1_Tick(sender?As?Object,?e?As?EventArgs)

timer1.Enabled?=?False

axWindowsMediaPlayer1.Ctlcontrols.play()

End?Sub

求把這句C語言翻譯成VB.net

Public?Overrides?Sub?VerifyRenderingInServerForm(control?As?Control)

'MyBase.VerifyRenderingInServerForm(control)

End?Sub

請(qǐng)幫忙將以下C語言代碼轉(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#代碼能不能轉(zhuǎn)換成VB.NET？

沒有這樣的軟件

首先，語言代碼需要編譯器把它們轉(zhuǎn)化為機(jī)器語言才能夠讓計(jì)算機(jī)識(shí)別

代碼轉(zhuǎn)換只有兩種思路

1.C#編譯器編譯后（成為機(jī)器或匯編語言）再運(yùn)用反編譯技術(shù)轉(zhuǎn)化為BASIC語言

2.程序員看懂了C#代碼后再重新使用BASIC語言寫出

如果把轉(zhuǎn)換工作交給軟件完成是非常危險(xiǎn)的，因?yàn)椴煌Z言之間理念不同，語句結(jié)構(gòu)不同

BASIC語言不是結(jié)構(gòu)化語言

而C語言是結(jié)構(gòu)化語言

它們二者的差別其實(shí)非常大

應(yīng)用上只能說各有所長

目前沒有這樣的軟件可以實(shí)現(xiàn)這些轉(zhuǎn)換，可能以后也不會(huì)有

C語言轉(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

網(wǎng)頁名稱：c轉(zhuǎn)vb.net c轉(zhuǎn)vbnet 在線
文章來源：http://jinyejixie.com/article42/hepjhc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App開發(fā)、移動(dòng)網(wǎng)站建設(shè)、定制網(wǎng)站、網(wǎng)頁設(shè)計(jì)公司、小程序開發(fā)、網(wǎng)站維護(hù)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)