大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
这是我以前的回答,是个两数加法的例子,看了就明白了
创新互联公司自2013年起,是专业互联网技术服务公司,拥有项目网站建设、成都网站制作网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元子长做网站,已为上家服务,为子长各地企业和个人服务,联系电话:028-86922220
你的dll不必用h头文件,你用的是显式声明导出函数
vc在显式声明函数时会出现与vb不匹配的问题,他会把函数名改了,你必须用隐式声明,就是def文件声明才可以。
你的cpp里直接写
int __stdcall add(int a, int b)
{
return (a+b);
}
然后再在工程里添加一个文本文件,注意,文件名是 makedll(如果不对就是工程名).def
里面写
LIBRARY makedll
EXPORTS
add @1
然后保存
编译、连接
得到的dll就是vb可以调用的了
vb里呢,不用怎么改
如下
Public Declare Function add Lib "makedll.dll" (ByVal a As Integer,ByVal b As Integer) As Integer
Private Sub Command1_Click()
Dim c As Integer
c = add(1, 2)
MsgBox c
End Sub
这有就应该没问题了
stdio.h是c的头文件,包含了对你使用的函数的声明。
当你决定使用某个函数的时候,你去查它的帮助信息,都会看到这个函数的声明是包含在哪个头文件的,这样你就可以把它包含进来,从而使用这个函数。
具体请查阅c语言对于include的讲解,还有对于函数,变量的声明部分。 include stdio.h 是C的输入输出函数,但在C++中使用可以省略.
#include math.h 是数学函数,譬如你要用到squar()函数时就必须添加这个头文件.
#include string.h是字符窜函数.
#include stdlib.h呵呵,这个有点忘记了,好久没有用了,不好意思啊
反正这几个是常用的,其他还有很多很多,呵呵,自己可以看书后面的几页都有介绍的呢!~ #includeiostream.h:此头文件申明了所有I/O操作所需的基本服务,即支持流的输入输出操作,譬如程序中有cin ,cout
#includeiomanip.h:此头文件说明可以使用控制数据的输出格式,如设置数制、填充字符、精度、数据宽度等等,譬如使用setw()、setfill() 、setprecision()等
#include string.h是字符窜处理函数
#includeafx.h程序中要使用CString类
#include stdlib.h程序中要使用C语言系统提供的库函数gets和puts函数
回答者:雨之泪1988 - 助理 二级 2-6 08:35
stdio.h是输入输出头文件,所有有关输入输出的语句如"printf","scanf","putchar","getchar"等,都要用该头文件,头文件其实就是定义了这些函数的文件,它是系统提供给我们的接口
math.h是再进行数学运算时要包含的头文件,它提供了取绝对值,开方,求幂等数学运算
#includeconio.h与#includestdio.h 一样,是头文件包含。
这个头文件包含有许多库函数像#includestdio.h包含printf与
scanf一样,getch()也是其中一个函数,它的功能是无回显得到一
字符,常用这个函数做密码之类的程序。在TC中编译不需要加头文件
可以,编译器默认包含。就像在TC是不用加#includestdio.h一样。
但在VC中编译就要加了。否则系统认为你的函数没有定义。
其它头文件你只要再TC文件夹中看看include这个文件夹里面的文件就可以了
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