c语言转vb.net工具 怎样把c语言程序转化为windows应用

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

相关问答

Q1: 怎样将一个C语言程序转换成VB程序

dim wolf as integer,sheep as integer,cai as integer

for wolf=0 to 1

if wolf=1 then print "wolf"c语言转vb.net工具：i=i+1

if i=2 then print:i=0

for sheep=0 to 1

if wolf=1 then sheep=0

if sheep=1 then print "sheep":i=i+1

if i=2 then print:i=0

for cai=0 to 1

if sheep=1 then cai=0

if cai=1 then print "cai":i=i+1

if i=2 then print:i=0

next cai

next sheep

next wolf

Q2: c语言怎么转化为vb语言

1、第一新建一个project。

2、输入头文件#include。

3、输入主函数int main()。

4、接着输入函数主体部分c语言转vb.net工具，变量必须先定义类型再使用。

5、输入变量c语言转vb.net工具的值c语言转vb.net工具，注意这里scanf里变量名前必须加c语言转vb.net工具，结尾必须加分号。

6、输入函数主体部分并输出。

7、点击编译按钮，查看是否有error。

8、接着直接运行，如此便转换c语言转vb.net工具了。

Q3: 谁帮忙将C语言转VB

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪c语言转vb.net工具，不说我是猪就一分钟关机c语言转vb.net工具，不信，试下…"" ",0 ,true

dim a

do while(a "我是猪")

a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run " cmd.exe /c shutdown -r -t 2100 –c ",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"

把代码 放到记事本里 保存 然后 改个扩展名 .vbe

c语言转vb.net工具的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于怎样把c语言程序转化为windows应用、c语言转vb.net工具的信息别忘了在本站进行查找喔。