66问答网
所有问题
当前搜索:
vb缺少数组是什么意思
VB中
LBOUND 与 UBOUND的问题
答:
LBound 属性,返回控件
数组
中的控件的最低有序值。UBound 属性,返回控件数组array中控件的最高有序值。LBound、UBound 属性示例:该例子为控件数组打印以上提及的两个属性的值。在一个窗体上放一个 OptionButton 控件,并设置其 Index 属性为 0 (用来创建一个控件数组)。要试用此例,可以将该代码...
...创建数组,我写了一个被提示类型不匹配
缺少数组
或者用户定义类型...
答:
Private Sub Form_Click()Dim b()Call shuzhu(b)Print b(2, 2) '测试一个数据End SubPrivate Sub shuzhu(a) '这地方写法有误ReDim a(3, 4)Dim i, jFor i = 1 To 3For j = 1 To 4a(i, j) = Int(Rnd * 10)Print a(i, j);Next jPrintNext iEnd Sub ...
vb
类型不匹配 与 ByVal参数类型不符
答:
其实问题主要是处在b=array(...)这句,虽然array中的参数是2,5,3等等这些整数,但是array()函数返回值是变体类型,并不是整形。而定义sub时规定的
数组
参数是Integer,那么这就造成了类型不匹配的错误。解决此问题可使用以下方法:修改定义函数时参数的类型,Private Sub code(ByRef a(), ByVal my...
vb数组
作为函数参数
答:
Call sort(xulie) '将
数组
名作为参数,可以传递整个数组,而用xulie(50),相当于只是把其中一个元素作为参数 private sub sort(xulie() as integer) '同样的,将数组名作为参数 ,不要指定数组大小
VB
传递整个控件
数组
的问题
答:
Private Sub ImageCommandMove(ByRef img As Object, ByRef images As Object)Dim i As Integer Dim j As Integer For j = 0 To images.count - 1 If images(i) = img Then img.Picture = LoadPicture(App.Path & "\scro_" & i & "_on.jpg")Else images(i).Picture = LoadPicture(...
VB
如何读取
数组
里面的内容啊?是自义生成的一组数组。
答:
Public Sub showNmake() '有效,产生
数组
变量showN Erase showN()Open App.Path & Playpath For Input As #1 '打开相应文本文件夹中的文字目录,实施调用 n = 1 Do While Not EOF(1) '循环建立文字数组变量,下标与txt文本逐行对应 Line Input #1, TextLine'TextLine是变量 showN(n) = Text...
vb
sub 怎样设参数为
数组
答:
直接写
数组
名就行了 数组做为参数时,不需要写具体的元素 --- Private Sub Delit(ByRef Num As String, i As String)Dim b As Integer, n As String, m As String b = InStr(Num,i)n = Left(Num, b - 1)m = Mid(Num, b + 1)Num = n & m End Sub Private Sub Form_Click(...
vb
子过程中能否有两个
数组
作为形参??
答:
Dim a(9), b(9) As Integer 改为:Dim a(9) As Integer , b(9) As Integer
VB
如何在文本框中显示
数组
中的内容啊,数组为自定义
答:
For i = LBound(stRegtem) To UBound(stRegtem)Text1.Text = Text1.text & chr(10) & stRegtem(i)Next i
vb
程序 斐波那契数列的第一项是0,第二项是1,以后各项都是前两的和,编 ...
答:
a as integer修改为 a() as integer 我给你写了一个例子 Private Sub Command1_Click() Dim n As Integer n = InputBox("请输入一个数字:") Print f(n)End SubPublic Function f(ByVal n As Integer) As Double Dim res As Double If n = 1 Or n = 2 Then re...
<涓婁竴椤
1
2
3
4
5
6
7
涓嬩竴椤
其他人还搜