双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何用VB写一个参数数目可变的函数

2001-08-16 11:59:52 856 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

masterz 墨衍会员 · AI 创作全网分发关注 + 加入社区

ubunut 系统安装k8s集群修改配置文件 kube-metrics-server.yaml 添加监控数据采集容器启动参数，启动 tls 证书验证，否则监控容器接口验证不通过，无法采集监控数据。kube-metrics-server.yaml 140行左右添加参数 --kubelet-insecure-tls。服务器添加配置(配置三台阿里云时间同步服务器作为时间源，本机作为时间同步服务器)客户端配置(第一个源选用集群内的 192.168.10.20 )时间同步配置文件参考如下。阅读详情

就像int printf( const char *format [, argument]... );
可以使用任意数目的参数

...全文

SDR实战（四）-AD9361使用手册（三）本节定义了并行数据端口和串行外设接口（SPI），它们使得AD9361与基带处理器（BBP）之间能够传输数据和控制/状态信息。图63展示了这些接口，并提供了AD9361和BBP在宽带无线系统中使用方式的高级概述。数据接口以两种模式之一运行：兼容标准CMOS模式或兼容低压差分信号（LVDS）模式。每个接口都具有以下部分描述的独特特性。使用CMOS模式时：保持了单端-CMOS逻辑兼容性。可以使用一个或两个数据端口。使用两个端口可以提高数据吞吐量。阅读详情

masterz

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

ByTheWay 2001-11-10

打赏
举报

　
在自制的控件中，可能需要对某个属性传递多个值：

Property Let Test (arg1 As String, arg2 As String, arg3 As Integer)
End Property

'用以下的方法传递参数：
Test(arg1,arg2) = arg3

masterz 2001-11-10

打赏
举报

int wsprintf(
LPTSTR lpOut, // output buffer
LPCTSTR lpFmt, // format-control string
... // optional arguments
);

Amoon 2001-11-10

打赏
举报

Faint~~~~~~！还不会用ParamArray ?!!!!!

masterz 2001-11-10

打赏
举报

无聊的问题，大家灌水吧

lanren_me 2001-08-17

打赏
举报

anddee 2001-08-16

打赏
举报

Function Sum(ParamArray intNums() As Variant)
Dim x As Variant
Dim y As Integer
For Each x In intNums
y = y + x
Next x
Sum = y
End Function

hydnoahark 2001-08-16

打赏
举报

masterz的意思指的在C中定义一个函数的参数个数是不固定的，而不是VB中的Option参数的意思
一个变通的方法是你传递一个数组给函数，在数组中包含真正的参数，然后在函数中处理数组以获得真正的参数。

zeng_zhh 2001-08-16

打赏
举报

要不這樣用:
Ｆunction Your_Fun( tt() as Variant )
這樣妳想傳几個就几個,當然調用之前要指定要几個.

it_seeker 2001-08-16

打赏
举报

Public Function CallMethod(MethodName As String, ParamArray arg() As Variant)
肯定能满足你的要求

outer2000 2001-08-16

打赏
举报

你只有自己先定义出来。

masterz 2001-08-16

打赏
举报

失望
default参数我也知道
可是default参数和任意数目参数是有区别的

bicom 2001-08-16

打赏
举报

以上都正确！

zeng_zhh 2001-08-16

打赏
举报

可以自定義一個結构作為參數
Type Your_Name
aa as string=''
bb as ingter=0
cc as byte=0
...
end type
function Your_Fun(Your_Pa as Your_Name)
....
end function

ozw 2001-08-16

打赏
举报

Eunction MutiParameter(byval BiXu as string,Optional opt1 as string="A",Optional opt2 as string="B",Optional opt3 as string="C"...)
....
End Function

以上函数中，第一个参数是必须的（也可以不要，去掉就行了)
后面的参数可选，如果想跳过其中一个（使用默认值），调用的时候光写个，跳过就可以了。

applekiller 2001-08-16

打赏
举报

上面是对的。

masterz 2001-08-16

打赏
举报

你这个函数最多使用1个参数
如何任意？请知道printf用法的大虾回复

y1g1y1 2001-08-16

打赏
举报

Option Explicit

Function k(Optional a As Integer = 1)
MsgBox a
End Function

Private Sub Form_Load()
Call k(100)
Call k
End Sub

chenangle 2001-08-16

打赏
举报

呵呵，都可以阿

hydnoahark 2001-08-16

打赏
举报

但是感觉上ParamArray实际就是传递数组的一个变化，不知道理解对不对？
一个例子：
Dim x As Variant
Dim y As Integer
Dim intSum As Integer

Sub Sum(ParamArray intNums())
For Each x In intNums
y = y + x
Next x
intSum = y
End Sub

Private Sub Command1_Click()
Sum 1
List1.AddItem intSum
End Sub

Salas 2001-08-16

打赏
举报

好象楼上说的都是制定默认的参数值,这样才能达到可选,但是这样的参数数目还是需要定义函数时候来制定的

加载更多回复（6）

✦双11狂欢大促✦

如何用VB写一个参数数目可变的函数

相关推荐

双11狂欢大促