精华内容
下载资源
问答
  • VB中关于Array函数与Split函数

    千次阅读 2019-02-11 15:15:53
    一.定义 1.关于Split; Split函数是一个用于分割字符串的函数,它能以一个字符串内容的一个(或几个连续的)特定的字符为切割位点的标志,将这个字符串...数组=array(数值1,数值2,数值3) 二.举例 1.关于Spl...

    一.定义
    1.关于Split;
    Split函数是一个用于分割字符串的函数,它能以一个字符串内容中的一个(或几个连续的)特定的字符为切割位点的标志,将这个字符串分割成若干个小字符串。它的用法是:
    变量 = Split(原字符串变量, 切割标志)
    2.关于Array;
    返回一个包含数组的 Variant,一般定义一个变体数组,然后:
    数组=array(数值1,数值2,数值3)
    二.举例
    1.关于Split:
    Private Sub Form_Load()
    Dim a
    x = “22.214 214.121 1546”
    a = Split(x)
    For i = 0 To UBound(a)
    MsgBox “第” & i + 1 & “段是” & a(i)
    Next i
    End Sub
    2.关于Array:
    Private Sub Command1_Click()
    Dim arr1
    Dim arr2(4) As Integer
    arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
    For i = 1 To 4
    arr2(i) = CInt(arr1(i))
    Next i
    Sort arr2()
    Text1.Text = arr2(1)
    Text2.Text = arr2(2)
    Text3.Text = arr2(3)
    Text4.Text = arr2(4)
    End Sub
    注意事项:使用Array的数组下标是随意的,并非从0开始,然而Split的数组下标必然是从0开始。

    展开全文
  • 以下是代码:作为测试,添加1个按钮,两个listboxPrivate Declare Sub CopyMemory Lib "kernel32" Alias _"RtlMoveMemory" (dest As Any, source As Any, _ByVal numBytes As Long)Sub ...

     

    这是很实用的两个函数,迟早会用到的,作为资源储备。以下是代码:

    '作为测试,添加1个按钮,两个listbox
    Private Declare Sub CopyMemory Lib "kernel32" Alias _
    "RtlMoveMemory" (dest As Any, source As Any, _
    ByVal numBytes 
    As Long)

    Sub InsertStringItem(strArr() As String, ByVal index As Long, _
    ByVal newItem 
    As String)
    Dim lastItem As Long, saveAddr As Long
    lastItem 
    = UBound(strArr)
    saveAddr 
    = StrPtr(strArr(lastItem))
    CopyMemory ByVal VarPtr(strArr(index 
    + 1)), ByVal _
    VarPtr(strArr(index)), (lastItem 
    - index) * 4
    CopyMemory ByVal VarPtr(strArr(index)), saveAddr, 
    4
    strArr(index) 
    = newItem
    End Sub

    Private Sub DeleteStringItem(strArr() As String, ByVal index As Long)
    Dim lastItem As Long, saveAddr As Long
    lastItem 
    = UBound(strArr)
    saveAddr 
    = StrPtr(strArr(index))
    CopyMemory ByVal VarPtr(strArr(index)), ByVal VarPtr(strArr(index 
    + 1)), (lastItem - index) * 4
    CopyMemory ByVal VarPtr(strArr(lastItem)), saveAddr, 
    4
    strArr(lastItem) 
    = vbNullString
    End Sub


    Private Sub Command1_Click()

    Dim a() As String
    ReDim a(5'
    a(0= "1 黄河远上"
    a(
    1= "2 白云一片"
    a(
    2= "3 孤城万仞山"
    a(
    3= "4 羌笛何需怨"
    a(
    4= "5 杨柳春风"
    a(
    5= "6 不渡玉门关"
    '插入元素的时候先redim,再调用InsertStringIte
    ReDim Preserve a(UBound(a) + 1)
    InsertStringItem a, 
    1"mc"
    '测试输出
    Dim i As Long
    For i = 0 To UBound(a)
    List1.AddItem 
    "a(" + CStr(i) + ")=" + a(i)
    Next
    '删除元素的时候,先调用DeleteStringItem,再redim
    DeleteStringItem a, 2
    ReDim Preserve a(UBound(a) - 1)
    '测试输出
    For i = 0 To UBound(a)
    List2.AddItem 
    "a(" + CStr(i) + ")=" + a(i)
    Next
    End Sub
    展开全文
  • 首先在自学Java的第9天,我学到了Java的冒泡排序,于是自己动手按照高中时期的记忆写了一下,先上代码 ... import java.lang.reflect.Array; import java.util.Arrays;... int[] array = {1, 9, 8, 3, 24, 12, 21, 3,

    首先在自学Java的第9天,我学到了Java中的冒泡排序,于是自己动手按照高中时期的记忆写了一下,先上代码

    package com.ycy;
    
    import java.lang.reflect.Array;
    import java.util.Arrays;
    
    public class demo {
            public static void main(String[] args) {
                    int[] array = {1, 9, 8, 3, 24, 12, 21, 3, 5};
                    sort(array);
            }
    
            public static void sort(int[] a) {
                    int temp = 0;
                    for (int i = 0; i < a.length - 1; i++) {
                            boolean flag = true;
                            for (int j = a.length; j > i + 1; j--) {
                                    if (a[j - 1] < a[j - 2]) {
                                            temp = a[j - 1];
                                            a[j - 1] = a[j - 2];
                                            a[j - 2] = temp;
                                            flag = false;
                                    }
                            }
                            if (flag == true){
                                    break;
                            }
                    }
                    System.out.println(Arrays.toString(a));
            }
    }
    

    这里我想说的是,在我自己写这个冒泡排序的时候,程序出现了许多次的报错,我的第一反应是:这么简单的排序怎么会错呢???但是尝试了很多次之后,仍然没法完成程序,于是我翻阅了高中时期学习信息技术的笔记并且通过Java的debug找到了原因


    高中学习VB时的冒泡排序

    For i = 1 to n-1
    For j = n to i+1 step-1
    If a(j)<a(j-1) Then
    t = a(j)
    a(j) = a(j-1)
    a(j-1) = t
    End If
    next j
    next i

    对比程序我总结出自己出错的原因

    那就是

    对Java中For循环和数组下标的认识不够深入

    对比VisualBasic我们可以发现,VB中的For循环有明确的起始和结束范围,并且下标时从一开始的,而Java中For循环的结束是根据boolean表达式来判断的,并且其数组的下标时从0开始的,这让我在编写的时候感到了极大的不适应
    或许是高中的知识先入为主又太过深刻,导致一下子不能拐过这个弯,这个Java的冒泡排序我整整写了15分钟

    在VB已经被彻底淘汰的今天,我不得不感叹人脑的奇妙,对于旧知识的难以忘怀,对于新知识的难以接受,更感叹浙江省教育给学生们带来的"荼毒"(此处其实言过其实了,因为自学一门编程语言本就是充满挑战的事,不应该将遇到的困难归咎于脑子里的“旧思想”)

    总而言之,今天这个冒泡排序让我感慨良多,虽然是大学生了,但还是会回想起当初学信息技术的情景,继续加油吧!!

    展开全文
  • VB中,使用了split函数时Function Split(Expression As String, [Delimiter], [Limit As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) Member of VBA.Strings Split a string into an array

    在VB中,使用了split函数时

    Function Split(Expression As String, [Delimiter], [Limit As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare])     Member of VBA.Strings     Split a string into an array 说明反回一个字符串数组,但没有说明反回数组大小,如在取值时,超大型出数组下标时,程序会出错,如何解决此问题?

     

    展开全文
  • VB 6.0 将数组的数据利用图表分析,也就是用柱状图来显示数组的数据,所有的操作都是从点击按钮开始的,如下代码:  Private Sub Form_Load()  Dim i  i = Array(1, 2, 3, 4, 5, 6, 7)  Dim j  For j = 0 To ...
  • 在实际的编程,数组是运用很多的对象。象Array,List等都是对数组的一种封装。  我们看看下面两种的定义方法,能看出他们的区别吗?  DimtB1()As Byte  DimtB2()As Byte= {}  这两种都是定义一个字节数组,且...
  • TypeName 函数,返回一个 String,提供有关变量的信息。TypeName 函数示例本示例...Dim NullVar, MyType, StrVar As String, IntVar As Integer, CurVar As CurrencyDim ArrayVar (1 To 5) As IntegerNullVar = N...
  • .Range("A1:J1") = Array(Text1(0).Text, Text1(1).Text, Text1(2).Text, Text1(3).Text, Text1(4).Text, Text1(5).Text, Text1(6).Text, Text1(7).Text, Text1(8).Text, Text1(9).Text) .Range("A2:J2") = Array...
  • 一、矩阵定义 方法一: Dimmat1(2, 2) AsDouble'声明一个两行两列的二维数组 二维数组:Mat1={{1, 4, 7},{2 5 8},{3 6 9}} '数组赋值 ...a = DenseMatrix.OfArray(mat1) '创建矩阵 得:a=[1 4 7; 2 5 8; 3 6...
  • If Right(strPath, 1) <> "\" Then strPath = strPath & "\" '如果需要合并文件的工作表数量小于1则退出 '如果需要合并文件的工作表数量小于1则退出 If SheetCount < 1 Then Exit Function '删除掉该路径下...
  • VB Split 函数在 Delphi 的不完全实现

    千次阅读 2009-10-28 14:06:00
    procedure TForm1.Button1Click(Sender: TObject); type//函数返回值不能是array of ...,必须自定义类型,含义还是一样,返回字符串数组 Tas = array of string; //expression:源字符串,delimiter:分隔字符串...
  • CE对unicode汉字的搜索有问题,勾与不...由此可知,要想在CE搜索unicode汉字,只能用数组(array of bytes)的方式来搜索。下面说说如何购造这个unicode的汉字数组。比如说要搜索:武林外传1.找出这4个汉字的unico...
  • 在 C# ,数组实际上是对象,而不只是像 C 和 C++ 那样的可寻址连续内存区域。 Array 是所有数组类型的抽象基类型。 可以使用 Array 具有的属性以及其他类成员。 这种用法的一个示例是使用 Length 属性来获取数组...
  • 建立运行环境-Excel Vba,可移植到VB环境(需修改一些代码) '仿制简单的SQL查询语句,用于对二维数组的查询 '参照SQL语句:Select * From array [Where conditions] [Distinct fields] [ResultWithTitle] ' '...
  • 浏览器:var Main_Tab = null;var selArray="";function ini(){Main_Tab = ExTable; //指向固定表var ...var array_1 = new Array(); for(var i=0;i{ array_1[i]=new Array(); for(var j=0;j array_1[i][j]=Ma
  • 数组类型array的应用

    2014-01-08 15:50:00
    /*在VB中可以直接使用Dim A(1) as integer直接的定义2个数组变量.C#中int[2] A;就不行,声明中不能赋值元素*//*不过对字节型赋值变量很方便直接可以使用而不必先定义元素个数,而在VB中定义了个数之后不能更改只能动态...
  • 那么如何将其写入数组array1(,)呢。在这个问题主要遇到的问题是将文本框中vb.net教程数组按行(vbcrlf)和空格(“ ”)分别split一次,在textbox的属性有lines可以轻松的读取改行的信息。故创建如下ui及...
  • 例如,字符串mArray 分布着不均匀的空格“ ”,调用Split()函数返回的array<string>,存在非期望的 ""元素。 mArray = "1,2, ,4, ,6,7, 8., 9 , 10, " 处理思路是调用array.Contains()、array.Replace()、...
  • 鼠标移动痕迹 C#,Delphi,VB,VB.net四种语言版本(附窗体透明)-思路和源代码(1) 这篇文章介绍了鼠标痕迹四语言版本VB版本,接下来介绍Delphi版本。 思路还是一样的,一个窗体一个Timer Var同样四个变量 size:...
  • vb Script参考文档

    2009-07-28 22:13:02
    未包含在 VBA 的 VBScript 特性 未包含在 Visual Basic 的 VBScript 特性列表:应用程序编辑。 Microsoft Scripting 运行时特性 VBScript 最新的 Scripting 运行时特性列表。 语言元素 说明 Abs 函数 ...
  • 在JS可以使用excel对象range赋值,但不能直接使用js的array,需要预先将js的数组转换成二进制的dictionary才可以。 通过如下函数可以转换将JS的数组转换成VB数组: function toVBArray1(jarray) { var dict1 =...
  • 体育彩票36选7号码分析系统Vb源码版,里面的排序代码主要参考了别人的代码。数组交换值,保持两个Array的对应关系,Myarray2只是跟随MyArray数组调整。功能:10个号码的出6保5型,15个号码的7保5型,10个号码的7保...
  • 不知大家是否注意到NET有一个默认升序排序方法,位于System的Array,属于静态方法。当你使用整数或者字符串数组作为参数传入时它将执行排序操作,代码如下所示: (VB.NET): Dimg()asInteger=New...
  • 我在VB中这样调用 Public Declare Function mzsfglc Lib "yyjk.dll" (ByRef Lb As String, tsf() As tsf, ByRef Toutput As Toutput) As Long '门诊消费 '定义收费结构体 Public Type tsf cintJylb As String '※...
  • 资料为网上收集如遇侵犯转载,请联系我,我会尽快撤销文章。...AppActivate 激活执行的应用程序 Asc 求字符的内码 AscB 求字符的ASCII AscW 求字符的UniCode Atn 求Tan-1 Beep 发出预设的警...
  • 1.例如函数main1中调用了一个下位函数fun1,则需要在源代码的两个地方插入代码: (1)main1调用fun1的上一步插入代码isShield_ fun1 = True,表示确定屏蔽函数fun1。 (2)fun1的第一步插入代码执行屏蔽,如下: ...

空空如也

空空如也

1 2 3 4 5
收藏数 90
精华内容 36
关键字:

vb中array1