&&&&用VB编写的求一个数的绝对值，调用function函数来实现
用VB编写的求一个数的绝对值，调用function函数来实现
求一个数的绝对值，调用function函数，带EXE文件和整个工程，适合初学者
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
VIP下载&&免积分60元/年（1200次）
您可能还需要
开发技术下载排行VB函数function的用法_百度知道查看: 5910|回复: 6
VB中如何调用有多个返回值的函数
阅读权限10
在线时间 小时
不知道问这种问题是不是很傻。。。在网上搜了一下，没搜到。。。
一个函数，有两个返回值，用了数组来赋值给函数。
想在另外的函数中调用这个函数，用的时候就报错了 。。。
Function calPQ(ByVal AR As Double, ByVal Km As Double, ByVal mium As Double)&&
& && &............
& && &.........
这里算到了两个值，并赋给了数组PQ(1 to 2)
& && & PQ(1) = 3 * F1 / F2
& && & PQ(2) = 2 / F3 + 1 / F4 + (F4 * F5 + F6 * F7 - F8 * F9) / (F2 * F4)
& & calPQ = PQ()
End Function
Function calKmiu(ByVal phi As Double, ByVal Km As Double, ByVal mium As Double, _
ByVal Vc As Double, ByVal ARc As Double, ByVal ARs As Double)
Dim Kmiu(1 To 2) As Variant, PQs(1 To 2) As Variant, PQc(1 To 2) As Variant
For i = 1 To N Step 1
这里调用了函数 calPQ,但是报错” can not assign to array” 之类的，我把它们都定义为 variant 都不行
& && &&&PQs() = calPQ(ARs, Km, mium)
& && &&&PQc() = calPQ(ARc, Km, mium)
& && && &A = (Kfl - Km) * (Vs * PQs(1) + Vc * PQc(1)) * (phi / N) / (3 * Km + 4 * mium)
& && && &K = (4 * mium * A + Km) / (1 - 3 * A)
& && && &B = (miufl - mium) * (Vs * PQs(2) + Vc * PQc(2)) * (phi / N) / (25 * mium * (3 * Km + 4 * mium))
& && && && && &
& && && &miu = (mium + mium * (9 * Km + 8 * mium) * B) / (1 - 6 * (Km + 2 * mium) * B)
& && && &Km = K
& && && &mium = miu& && &
& & Next i
& & Kmiu(1) = Km
& & Kmiu(2) = mium
& & calKmiu = Kmiu()
End Function
想问一下大家遇到这种情况的时候一般怎么弄，刚接触VBA不久。。
阅读权限95
在线时间 小时
PQs = calPQ(ARs, Km, mium)
阅读权限10
在线时间 小时
还想问一下，这里的PQs是什么啊，如果后面想用的时候 怎么引用呢
阅读权限95
在线时间 小时
可以用中断模式调试，本地窗口里，可以看出来它是什么。
阅读权限10
在线时间 小时
好的，我看看，非常感谢[em01]~
阅读权限10
在线时间 小时
回复 4楼 lb_bn 的帖子
问题解决了，谢谢~
阅读权限10
在线时间 小时
咋弄的。。。。。。？
最新热点 /1
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师关于VB调用模块中的函数的问题?
考生文件夹下有一数据文件data.txt，其中包含很多数值。'当程序运行后，单击统计按钮（Cmdsum）时，统计数据文件中偶数个数和偶数和，分别显示在标签Lblcount、标签Lblsum上'单击保存按钮（Cmdsave）时，将偶数个数和偶数和存放到考生文件夹下的out.txt文件中，out.txt文件自己建立'要求考生判断一个数是否为偶数，必须调用模块中的函数Iseven完成'部分程序已经给出，请勿修改给定的程序'不允许考生再定义变量Private Sub Cmdsave_Click()Dim fnDim i '偶数个数Dim s '偶数和fn = FreeFilei = Val(Lblcount.Caption)s = Val(Lblsum.Caption)'添加代码完成指定功能Close #fnEnd SubPrivate Sub Cmdsum_Click()Dim fnDim i '存放偶数个数Dim s '存放偶数和Dim t As Integerfn = FreeFilei = 0s = 0'添加代码完成指定功能Lblcount.Caption = iLblsum.Caption = sClose #fnEnd Sub
09-06-01 &
Private Sub Cmdsave_Click()Dim fnDim i '偶数个数Dim s '偶数和fn = FreeFilei = Val(lblcount.Caption)s = Val(lblsum.Caption)'添加代码完成指定功能Open &d:\out.txt& For Output As #fn  Write #fn, i, sClose #fnEnd SubPrivate Sub Cmdsum_Click()Dim fnDim i '存放偶数个数Dim s '存放偶数和Dim t As Integerfn = FreeFilei = 0s = 0'添加代码完成指定功能'当然是先打开文件啦Open App.Path & &\data.txt& For Input As #fn'我读Do Until EOF(fn)  Input #fn, fn  If Iseven(CInt(Val(fn))) Then    i = i + 1    s = s + Val(fn)  End If  fn = FreeFile - 1Looplblcount.Caption = ilblsum.Caption = sClose #fnEnd Sub
请登录后再发表评论!
窗体：form1 模块：module1 Form1中创建文本输入text1 Form1内容如下： Private Sub Command1_Click() MsgBox &文本内容是& & Tx MsgBox &窗体标题是& & Tc MsgBox &窗体大小是& & Ts End Sub 模块内容如下： Function Tx() As String With Form1 Tx = .Text1.Text End With End Function Function Tc() As String With Form1 Tc = .Caption End With End Function Function Ts() As String With Form1 Ts = .Width & &-& & .Height End With End Function
请登录后再发表评论!
给你看段代码吧：    Dim xApp As Object    Dim xSheet As Object    Dim sAlpha As String        Set xApp = CreateObject(&Excel.Application&)    xApp.DisplayAlerts = False        xApp.Workbooks.Add    Set xSheet = xApp.Worksheets(1)        xSheet.Cells(1, 1) = &test&        xSheet.SaveAs &D:test.xls&        xApp.Workbooks.Close    Set xApp = Nothing基本顺序就是，打开Excel对象，打开其中的一个Sheet，用Cells属性填入要写的数据，然后保存、关闭对象。另外，我用的是后期绑定，你可以在工程--&引用里加入Excel对象，然后xapp和xsheet也分别改成相应的对象。具体的，分少，不答了。最后，如果这段代码还不明白的话，建议你就不要再琢磨编程了。
请登录后再发表评论!
给你看段代码吧：    Dim xApp As Object    Dim xSheet As Object    Dim sAlpha As String        Set xApp = CreateObject(&Excel.Application&)    xApp.DisplayAlerts = False        xApp.Workbooks.Add    Set xSheet = xApp.Worksheets(1)        xSheet.Cells(1, 1) = &test&        xSheet.SaveAs &D:test.xls&        xApp.Workbooks.Close    Set xApp = Nothing基本顺序就是，打开Excel对象，打开其中的一个Sheet，用Cells属性填入要写的数据，然后保存、关闭对象。另外，我用的是后期绑定，你可以在工程--&引用里加入Excel对象，然后xapp和xsheet也分别改成相应的对象。具体的，分少，不答了。最后，如果这段代码还不明白的话，建议你就不要再琢磨编程了。
请登录后再发表评论!
给你看段代码吧：    Dim xApp As Object    Dim xSheet As Object    Dim sAlpha As String        Set xApp = CreateObject(&Excel.Application&)    xApp.DisplayAlerts = False        xApp.Workbooks.Add    Set xSheet = xApp.Worksheets(1)        xSheet.Cells(1, 1) = &test&        xSheet.SaveAs &D:test.xls&        xApp.Workbooks.Close    Set xApp = Nothing基本顺序就是，打开Excel对象，打开其中的一个Sheet，用Cells属性填入要写的数据，然后保存、关闭对象。另外，我用的是后期绑定，你可以在工程--&引用里加入Excel对象，然后xapp和xsheet也分别改成相应的对象。具体的，分少，不答了。最后，如果这段代码还不明白的话，建议你就不要再琢磨编程了。
请登录后再发表评论!
给你看段代码吧：    Dim xApp As Object    Dim xSheet As Object    Dim sAlpha As String        Set xApp = CreateObject(&Excel.Application&)    xApp.DisplayAlerts = False        xApp.Workbooks.Add    Set xSheet = xApp.Worksheets(1)        xSheet.Cells(1, 1) = &test&        xSheet.SaveAs &D:test.xls&        xApp.Workbooks.Close    Set xApp = Nothing基本顺序就是，打开Excel对象，打开其中的一个Sheet，用Cells属性填入要写的数据，然后保存、关闭对象。另外，我用的是后期绑定，你可以在工程--&引用里加入Excel对象，然后xapp和xsheet也分别改成相应的对象。具体的，分少，不答了。最后，如果这段代码还不明白的话，建议你就不要再琢磨编程了。
请登录后再发表评论!
给你看段代码吧：    Dim xApp As Object    Dim xSheet As Object    Dim sAlpha As String        Set xApp = CreateObject(&Excel.Application&)    xApp.DisplayAlerts = False        xApp.Workbooks.Add    Set xSheet = xApp.Worksheets(1)        xSheet.Cells(1, 1) = &test&        xSheet.SaveAs &D:test.xls&        xApp.Workbooks.Close    Set xApp = Nothing基本顺序就是，打开Excel对象，打开其中的一个Sheet，用Cells属性填入要写的数据，然后保存、关闭对象。另外，我用的是后期绑定，你可以在工程--&引用里加入Excel对象，然后xapp和xsheet也分别改成相应的对象。具体的，分少，不答了。最后，如果这段代码还不明白的话，建议你就不要再琢磨编程了。
请登录后再发表评论!
Private Sub Cmdsave_Click() Dim fn Dim i '偶数个数 Dim s '偶数和 fn = FreeFile i = Val(lblcount.Caption) s = Val(lblsum.Caption) '添加代码完成指定功能 Open d:\out.txt For Output As #fn Write #fn, i, s Close #fn End Sub Private Sub Cmdsum_Click() Dim fn Dim i '存放偶数个数 Dim s '存放偶数和 Dim t As Integer fn = FreeFile i = 0 s = 0 '添加代码完成指定功能 '当然是先打开文件啦 Open App.Path & \data.txt For Input As #fn '我读 Do Until EOF(fn) Input #fn, fn If Iseven(CInt(Val(fn))) Then i = i + 1 s = s + Val(fn) End If fn = FreeFile - 1 Loop lblcount.Caption = i lblsum.Caption = s Close #fn End Sub
请登录后再发表评论!
将你的vb程序放在模拟器目录下，然后给它创建一个快捷方式发送到桌面就可以了或者调用之前加入以下两条语句ChDrive &模拟器所在的驱动器& '如ChDrive &D&ChDir &模拟器的目录& '如ChDir &D:\游戏\模拟器\&你要换成你的路径啊还有，你的是什么模拟器我的是neogeo，以上两种方法通过测试
请登录后再发表评论!
给你看段代码吧：    Dim xApp As Object    Dim xSheet As Object    Dim sAlpha As String        Set xApp = CreateObject(&Excel.Application&)    xApp.DisplayAlerts = False        xApp.Workbooks.Add    Set xSheet = xApp.Worksheets(1)        xSheet.Cells(1, 1) = &test&        xSheet.SaveAs &D:test.xls&        xApp.Workbooks.Close    Set xApp = Nothing基本顺序就是，打开Excel对象，打开其中的一个Sheet，用Cells属性填入要写的数据，然后保存、关闭对象。另外，我用的是后期绑定，你可以在工程--&引用里加入Excel对象，然后xapp和xsheet也分别改成相应的对象。具体的，分少，不答了。最后，如果这段代码还不明白的话，建议你就不要再琢磨编程了。
请登录后再发表评论!
这样可以解决你的问题：看一看代码：Private Sub Command1_Click()Shell App.Path & &1.exe&, vbNormalFocusEnd SubApp.Path & &1.exe&, 的意思就是到应用程序所在的路径来找1.exe，你可以把你的shell函数加上app.path的路径。然后拟你只要将你用VB生成了可执行文件以及1.exe文件放在一个目录下就可以了！！！
请登录后再发表评论!
这样可以解决你的问题：看一看代码：Private Sub Command1_Click()Shell App.Path & &1.exe&, vbNormalFocusEnd SubApp.Path & &1.exe&, 的意思就是到应用程序所在的路径来找1.exe，你可以把你的shell函数加上app.path的路径。然后拟你只要将你用VB生成了可执行文件以及1.exe文件放在一个目录下就可以了！！！
请登录后再发表评论!
这样可以解决你的问题：看一看代码：Private Sub Command1_Click()Shell App.Path & &1.exe&, vbNormalFocusEnd SubApp.Path & &1.exe&, 的意思就是到应用程序所在的路径来找1.exe，你可以把你的shell函数加上app.path的路径。然后拟你只要将你用VB生成了可执行文件以及1.exe文件放在一个目录下就可以了！！！
请登录后再发表评论!君，已阅读到文档的结尾了呢~~
SUB过程的定义与调用 参数传递 可选参数和可变参数 递归在VB中,系统提供了常用的内部函数过程,如SIN函数,ABS函数,系统也预定义了一些事件过程,如CLICK( ),LOAD(...
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
FUNCTION过程的定义与调用
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口