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
强制类型转换在VB.NET中用Ctype()函数实现的。
Dim drv As DataRowView = CType(comboBox1.SelectedItem, DataRowView)
另外：comboBox1.SelectedItem 不是 string 类型，而是 object 类型。ComboBox 下拉显示文字是通过调用 Object.ToString() 方法实现的。
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
不过
我找到了一个网址
打开就可以了
在线翻译
1.定义量
我首先看第例:
#define STD_COPY1//COMMCTRL.H
VC++代码用#define定义量,VB用Const定义,转换VB代码:
Public ConstSTD_COPY=1
第二例:
#define LB_SELECTSTRING0x018C//WINUSER.h
问题,VC++所"0x"值十六进制,VB表示十六进制要用"H".转换VB代码:
Const LB_SELECTSTRING=0x018C
Public Sub responseMsg(postStr As String)
Dim postObj As System.Xml.XmlDocument = New System.Xml.XmlDocument()
postObj.LoadXml(postStr)
WriteLog("responseMsg:-------" + postStr)
Dim FromUserNameList = postObj.GetElementsByTagName("FromUserName")
Dim FromUserName As String = String.Empty
For i As Integer = 0 To FromUserNameList.Count - 1
If FromUserNameList(i).ChildNodes(0).NodeType = System.Xml.XmlNodeType.CDATA Then
FromUserName = FromUserNameList(i).ChildNodes(0).Value
End If
Next i
Dim toUsernameList = postObj.GetElementsByTagName("ToUserName")
Dim ToUserName As String = String.Empty
For i As Integer = 0 To toUsernameList.Count - 1
If toUsernameList(i).ChildNodes(0).NodeType = System.Xml.XmlNodeType.CDATA Then
ToUserName = toUsernameList(i).ChildNodes(0).Value
End If
Next i
Dim keywordList = postObj.GetElementsByTagName("Content")
Dim Content As String = String.Empty
For i As Integer = 0 To keywordList.Count - 1
If keywordList(i).ChildNodes(0).NodeType = System.Xml.XmlNodeType.CDATA Then
Content = keywordList(i).ChildNodes(0).Value
End If
Next i
Dim time = DateTime.Now
Dim textpl = "xmlToUserName![CDATA[" + FromUserName + "]]/ToUserName" + _
"FromUserName![CDATA[" + ToUserName + "]]/FromUserName" + _
"CreateTime" + ConvertDateTimeInt(DateTime.Now) + "/CreateTimeMsgType![CDATA[text]]/MsgType" + _
"Content![CDATA[欢迎来到微信世界---" + Content + "]]/ContentFuncFlag0/FuncFlag/xml "
context.Response.Write(textpl)
context.Response.End()
End Sub