vb.net与c转换 vbnet cint

请大侠帮我将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
在vs2008中怎样将vb的项目转换成c#的项目?这需要三个步骤vb.net与c转换:
第一步:创建一个C#项目,在其中添加相应vb.net与c转换的窗体和引用,将VB2008中相应窗体上vb.net与c转换的控件复制到C#相应的窗体上;
第二步:使用C#与VB.NET转换工具软件或者到“”,将VB2008 的代码转换成C#代码 。
第三步:工具软件或者在线转换 , 转换后的代码会有一些错误或者无法转换的部分,进行简单的人工修正 。
OK,你成功vb.net与c转换了vb.net与c转换!
如何把下面用vb.net语言编写的代码改成c#给vb.net与c转换你个网站看
可在线将vb.net代码转成c#vb.net与c转换的vb.net与c转换,我用过,还可以vb.net与c转换的,但是转后也要改动一些 。这里还有将c#转vb.netvb.net与c转换的 。
这是我转的:
string[] ArrValue = https://www.04ip.com/post/new string[43];
int Nums;
public void Page_Load(object Sender, EventArgs E)
{
int I;
if (!IsPostBack) {
for (I = 1900; I = 2101; I) {
ListItem IItem = new ListItem();
IItem.Text = (string)I;
if (I == Year(Now)) {
IItem.Selected = "True";
}
DropYear.items.add(IItem);
}
for (I = 1; I = 12; I) {
ListItem IItem = new ListItem();
IItem.Text = (string)I;
if (I == Month(Now)) {
IItem.Selected = "True";
}
DropMonth.items.add(IItem);
}
}
DispDetail(Conversion.Val(DropYear.SelectedItem.Text), Conversion.Val(DropMonth.SelectedItem.Text));
}
public void DispDetail(int YYear, int MMonth)
{
System.DateTime theDate;
int theYear;
int theMonth;
int theDay;
int theWeek;
int theFirstNum;
int NumOfMonth;
int i;
string theStr;
theYear = YYear;
theMonth = MMonth;
theDay = 1;
//获得所要查询的月的第一天日期
theDate = DateSerial(theYear, theMonth, theDay);
//确定所要查询的第一天是星期几
theWeek = weekday(theDate);
theFirstNum = theWeek;
//确定所要查询的月的天数
NumOfMonth = GetDayNum(theyear, themonth);
for (i = 0; i = 41; i) {
ArrValue(i) = "";
}
for (i = 0; i = NumOfMonth - 1; i) {
ArrValue(theFirstNum - 1i) = i1;
}
}
public object GetDayNum(int YYear, int MMonth)
{
object functionReturnValue = https://www.04ip.com/post/null;
if (MMonth == 1 | MMonth == 3 | MMonth == 5 | MMonth == 7 | MMonth == 8 | MMonth == 10 | MMonth == 12) {
functionReturnValue = https://www.04ip.com/post/31;
}
else {
if (MMonth == 4 | MMonth == 6 | MMonth == 9 | MMonth == 11) {
functionReturnValue = https://www.04ip.com/post/30;
}
else {
if (((YYear % 4 == 0)(YYear % 100 != 0)) | (YYear % 400 == 0)) {
functionReturnValue = https://www.04ip.com/post/29;
}
else {
functionReturnValue = https://www.04ip.com/post/28;
}
}
}
return functionReturnValue;
}
C语言转换为VB.NETOption 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
【vb.net与c转换 vbnet cint】vb.net与c转换的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vbnet cint、vb.net与c转换的信息别忘了在本站进行查找喔 。

    推荐阅读