转为vb.net 转为一般纳税人之前取得专票

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

下面的VB6.0编写的代码怎么转为VB.net

        Dim file1 As FileStream

        filename = "c:\temp\MyTest.txt"

        Dim GetData(4) As Byte, s(4) As Char

        file1 = System.IO.File.OpenRead(filename)

        Dim CMGs As Long

        Dim DPBo As Long

        Dim i As Integer = 0, j As Integer

        While file1.Read(GetData, 0, 5)  0

            i = i + 1

            For j = 0 To 4

                s(j) = ChrW(GetData(j))

            Next

            If s = "CMG=""" Then CMGs = i

            If s = "[Host" Then DPBo = i - 2 : Exit While

        End While

主要是vb.net取消了定长字符串, 所以用字节数组读入, 还得转成字符数组来比较.

vb的回调函数转为vb.NET

先声明一个委托：

Public Delegate Function EnumChildProc(hwnd As Integer, iParam As Integer) As Integer

然后才能使用回调函数，回调函数的参数要和委托完全一致。

然后那个 API 函数需要这样声明：

Declare Function EnumChildWindows Lib "user32" (hWndParent As Integer, lpEnumFunc As EnumChildProc, lParam As Integer) As Integer

关于转为vb.net和转为一般纳税人之前取得专票的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。