精华内容
下载资源
问答
  • 数组讲解各位朋友,今天我们来学习VB编程中最重要的知识——数组的相关知识。为了解决大批量的数据处理问题,VB中提供了数组(Array)变量。数组是一种重要的数据结构,在许多程序设计语言中,都要直接或间接用到...

    数组讲解

    各位朋友,今天我们来学习VB编程中最重要的知识——数组的相关知识。

    为了解决大批量的数据处理问题,VB中提供了数组(Array)变量。数组是一种重要的数据结构,在许多程序设计语言中,都要直接或间接用到数组这种数据结构。

    数组的概念

    在VB中,如果把一组有序的数或变量作为一个整体来处理,这一组数或变量称为数组,数组中的每一个数或变量称为数组元素,每一个数组给定一个名称,叫做数组名,一个数组中各个数组元素之间的区别用数组名的下标来表示,放在数组名后的圆括号内。数组中的任意一个数组元素都可以存放一个数据,和使用简单变量一样,所以又称数组元素为下标变量。

    例如:用A来表示一个班50个同学的数学成绩,用A(1)表示1号同学的成绩;A(2)表示2号同学的成绩;A(3)表示3号同学的成绩;...;A(50)表示第50号同学的成绩。则A为数组名,A(1)、A(2)、A(3)等都称为A数组的元素。

    数组也有数值型和字符串型等类型之分。在一个数组中通常只能放置一种类型的数据,并且与数组的类型一致。

    此外,数组还有静态数组和动态数组之分。

    注意:在使用数组前通常都要对数组进行维数、类型及大小等内容的定义或说明。

    静态数组

    一、静态数组定义

    静态数组是在定义数组时就指定了数组维数的多少及数组的大小。

    1语法

    Dim  4a06c5eab5f7e759fb537b6f77f0b3aa.gif

    redim

    Static

    Public

    2、语法说明:

    (1)Dim:定义窗体模块数组。ReDim:在过程中定义。Static:在过程中定义。Public:在标准模块中定义全局数组。

    (2)数组名的命名规则和变量命名规则相同,但是数组名不能与一般变量同名。

    (3)凡是VB的数据类型,在数组中都可以说明和使用,当“As类型”省略时,为变体型数组(Variant)。

    (4)下限值和上限值的大小范围是从-32768至32767。下限值及关键字TO可以省略,当省略时下限值为0。使用数组时,其下标不能超出所定义的范围。下标可以是负数。

    (5)维数可以多达60维。

    (6)数组要先定义后使用。

    (7)在一个过程内部,数组名不能与某个变量同名。

    (8)Dim语句定义数据组,数值型元素置0,字符型元素置空字符串。

    (9)可用类型说明符说明数组类型。

    (10)若在定义时不指明下标,下标为0,这里可用Option Base 1定义下标为1。

    例子:数组定义举例

    定义的例子

    数组维数

    数组元素

    Dim A(5) As Integer

    整型

    一维

    A(0), A(1),A(2), A(3), A(4), A(5)

    Dim A(1 To 5) As String

    字符型

    A(1),A(2), A(3), A(4), A(5)

    Dim B(2,3) As Single

    单精度实型

    二维

    B(0,0)B(0,1)B(0,2)B(0,3)

    B(1,0)B(1,1)B(1,2)B(1,3)

    B(2,0)B(2,1)B(2,2)B(2,3)

    Dim B(1 To 2,1 To 3) As Integer

    ‘整型

    B(1,1)B(1,2)B(1,3)

    B(2,1)B(2,2)B(2,3)

    Dim C#(2,3,2) ‘双精度实型

    三维

    C(0,0,0)C(0,0,1)C(0,0,2)

    C(0,1,0)C(0,1,1)C(0,1,2)

    C(0,2,0)C(0,2,1)C(0,2,2)

    C(0,3,0)C(0,3,1)C(0,3,2)

    C(1,0,0)C(1,0,1)C(1,0,2)

    C(1,1,0)C(1,1,1)C(1,1,2)

    C(1,2,0)C(1,2,1)C(1,2,2)

    C(1,3,0)C(1,3,1)C(1,3,2)

    C(2,0,0)C(2,0,1)C(2,0,2)

    C(2,1,0)C(2,1,1)C(2,1,2)

    C(2,2,0)C(2,2,1)C(2,2,2)

    C(2,3,0)C(2,3,1)C(2,3,2)

    二、测试数组上、下标函数

    1、测试数组下标函数:Lbound(数组[,维])

    2、测试数组上标函数:Ubound(数组[,维])

    例子:

    Dim D(3, 5, 7,9) As String

    Private Sub Form_Click()

    Print LBound(D, 1),

    Print UBound(D, 1)

    Print LBound(D, 2),

    Print UBound(D, 2)

    Print LBound(D, 3),

    Print UBound(D, 3)

    Print LBound(D, 4),

    Print UBound(D, 4)

    End Sub

    结果显示:

    0    3

    0    5

    0    7

    0    9

    三、变体型(默认)数组

    若定义数组时不指定类型,则该数组是一个变体型数组。其元素的类型可以不同。

    即:Dim A(2,3)等同于:Dim A(2,3) As Variant

    例子:

    Dim A(5)

    Private Sub Form_Click()

    A(1) = "中华人民共和国"

    A(2) = 12345

     A(3) = 3456789

     A(4) = 987654321

     A(5) = "ABCDE" + "abcde"

     Print A(1)

    Print A(2)

    Print A(3)

    Print A(4)

    Print A(5)

    End Sub

    四、数组的操作

    数组的操作包括对数组元素进行数值的输入、输出和复制。

    1、数组元素的赋值

    方法一:用赋值语句对数组元素逐个赋值。

    例子:

    Dim A(5)

    Private Sub Form_Click()

     A(1) = "中华人民共和国"

    A(2) = 12345

     A(3) = 3456789

     A(4) = 987654321

     A(5) = "ABCDE" + "abcde"

     Print A(1)

     Print A(2)

     Print A(3)

     Print A(4)

     Print A(5)

    End Sub

    方法二:用赋值语句结合For循环语句。

    Dim D(0 To 2, 1 To 3) As Integer

    Private Sub Form_Click()

     For i = 0 To 2

       For j = 1 To 3

         D(i, j) = 100

         Print D(i, j)

       Next j

    Next i

    End Sub

    方法三:用InputBox函数。

    Dim array1(5) As Variant

    Private Sub Form_Click()

    For i = 1 To 5

     array1(i) = InputBox("输入元素的值:")

    Next i

    For i = 1 To 5

     Print array1(i)

    Next i

    End Sub

    方法四:对于 变体型一维数组,可应用Array()函数赋值。

    格式Array(值1,值2,值3… …)

    例子:设一个一维变体型数组ABC,不指定维数,用Array()函数赋值,然后显示元素值。

    Option Base 1

    Dim ABC

    Private Sub Form_Click()

     ABC = Array("One", "Two", "Three", "Four", 1, 2, 3, 4, 5, 6)

     For i = 1 To 10

       Print ABC(i)

     Next i

    End Sub

    2、数组元素值的输出

    用Print语句显示输出。前面有相应的例子。这里讨论如何进行“格式”输出。

    例子:设有一个单精度实型三维数组array2(2,3,4),其元素值:

    11 12 13 14

    15 16 17 18

    19 20 21 22

    31 32 33 34

    35 36 37 38

    39 40 41 42

    源程序如下:

    Option Base 1

    Dim array2(2, 3, 4) As Single

    Private Sub Form_Click()

    For i = 1 To 2

      For j = 1 To 3

         For k = 1 To 4

          array2(i, j, k) = InputBox("输入元素的值:")

    Next k

     Next j

    Next i

    For i = 1 To 2

      For j = 1 To 3

         For k = 1 To 4

           Print array2(i, j, k); "";

         Next k

         Print

     Next j

     Print

    Next i

    End Sub

    3、For Each … Next语句

    该语句是专门用于数组操作的语句。

    (1)语句格式

    For Each 成员 in 数组

    循环体

    [ Exit For]

    … …

    Next 成员

    (2)说明

    利用语句中的成员变量可实现数组元素的赋值、计算、显示等操作。

    例子:设一个二维数组array5(3,4),将其中的第一个元素赋值100,后面的元素依次再加1赋值

    Option Base 1

    Dim array5(3, 4)

    Private Sub Form_Click()

     n = 100

     For Each x In array5        ’x为成员

    x = n

       n = n + 1

       Print x

     Next x

    End Sub

    五、嵌套数组

    Visual Basic中,可以用一个数组作为另一个数组的元素。在使用时,可将一个数组(嵌套数组)赋值给另一个数组(被嵌套数组)的元素,嵌套数组名后面加空括号。

    要求:嵌套数组是数据类型,被嵌套数组不指定类型。

    例子:将数组a(4)赋给数组b(2)

    Dim a(4) As Integer

    Dim b(2)

    Private Sub Form_Click()

    For i = 1 To 4

     a(i) = i

     Next i

     b(1) = a()

    b(2) = a()

    Print b(1)(1)

    Print b(1)(2)

    Print b(1)(3)

    Print b(1)(4)

    Print

     Print b(2)(1)

    Print b(2)(2)

    Print b(2)(3)

    Print b(2)(4)

    End Sub

    动态数组

    动态数组是指其数组的维数及大小可以重新定义,根据应用的环境不同随时说明其维数及大小。“动态数组”是由变量作为下标的数组,其下标在程序运行时完成定义。

    一、动态数组的定义

    第一步:用Dim语句或Public语句定义一个只有空括号而无下标的数组。

    第二步:用ReDim定义带下标的数组。语句的格式:

    ReDim [Preserve] 变量(下标) As 类型

    在定义时,类型与Dim语句中的类型要一致。下标通过变量赋值解决。

    例子:

    Dim A() As Integer

    Private Sub Form_Click()

    n = InputBox("输入n的值:")

    ReDim A(n)

    For i = 1 To n

     A(i) = 12345

     Print A(i)

    Next i

    End Sub

    可以动态地定义多个数组。例子:

    Dim A() As Integer, B() As Integer

    Private Sub Form_Click()

    n = InputBox("输入n的值:")

    m = InputBox("输入m的值:")

    ReDim A(n, m)

    ReDim B(n, m)

    For i = 1 To n

      For j = 1 To m

        A(i, j) = 12345

        B(i, j) = 23456

        Print A(i, j), B(i, j)

    Next j

     Next i

    End Sub

    二、数组的清除和重定义

    数组一经定义,在内存中会分配相应的存储单元,其大小是不能改变的。即:在一个程序中,同一个数组只能定义一次。若清除数组内容或重新定义,要使用Erase语句。

    格式:

    Erase 数组名[,数组名]… …

    例子:

    Erase A,B,C

    1、清除静态数组的影响

    数组类型

    对元素的影响

    数值类型数组

    将元素值置0

    字符类型数组(变长)

    将元素值设为空字符串

    字符类型数组(定长)

    将元素值置0

    变体类型数组

    将元素值设为Empty

    用户定义类型数组

    将元素设为单独的变量

    对象数组

    将元素值设为Nothing

    例子:

    Dim A(3) As Integer

    Private Sub Command1_Click()

    For i = 1 To 3

       A(i) = 12345

       Print A(i)

    Next i

    End Sub

    Private Sub Command2_Click()

    Erase A

     For i = 1 To 3

       Print A(i)

    Next i

    End Sub

    2、清除动态数组的影响

    (1)系统会删除数组结构,并释放内存空间。

    (2)下次引用动态数组前,要用ReDim语句重新进行定义。

    三、数组应用算法--数据统计

    利用数组进行数据统计运算

    利用随机函数生成十个100以内的随机整数,计算出这十个数的总和及其平均值,并输出这十个数、总和及其平均值。

    问题分析对象设置把结果使用Print方法直接输出到窗体中,不用设置专用对象

    程序代码

    DimA(10)AsInteger

    Dim B As Single

    Sub Form_Load()

    Form1.Show

    Print  " 十个整数为:"

    For i=1 To 10             '循环产生10个随机整数

    A(I)=Int(Rnd*100)   '生成随机第i个整数

    PrintA(I);             '显示第i个数

    A(0)=A(0)+A(I)   '累加求和

    Next i

    Print

    B=A(0)/10            '求平均值

    Print "总和为:";A(0)

    Print "平均值为:";B

    End  Sub

    大家在学习过程中有不懂之处,可以添加微信号:vbyjk521 ,学习问题在线答疑。

    eee7e5668a08e47e93c9735fdc8fa27f.png

    4273e98c9e91895e4046241b27d7f67c.png



    393d48d28e9b60885e49652736a3e466.gif9ebea03bf13fc23fae2c502d5bcfa27e.png

    长按上图,关注跟我学VB公众平台

    更多VB知识,尽在跟我学VB

    展开全文
  • 太多的例子讲如何如何实现VC编写动态链接库,VB中声明后使用,但没有一个好的文章来深入探讨这个问题,本文负责解决此类问题。 关键字:VB结构数组,VC,DLL,SAFEARRARY
  • 数组元素的输入数组声明后,数组元素的值均为其数据类型的初始值,比如数值型初始值为0。因此,通常在正式使用数组前,我们需要为数组赋值。为数组元素赋值有几种方式。方式一:像为变量赋值一样,逐一为每个元素...
    前面两节课程,我们已经将数组的概念、数组的分类以及如何声明数组一起深入的学习过了。本节课程,我们学习数组的基本操作。数组的基本操作包含:数组元素的输入输出、插入和删除元素、查询等。数组元素的输入在数组声明后,数组元素的值均为其数据类型的初始值,比如数值型初始值为0。因此,通常在正式使用数组前,我们需要为数组赋值。为数组元素赋值有几种方式。方式一:像为变量赋值一样,逐一为每个元素赋值。例如:
    Dim Student(1 To 3) as StringA(1)="张三"A(2)="李四"A(3)="王五"
    方式二:采用Array函数为动态数组赋值,可以一次赋值多个元素。注意,此方法只能为变体型的动态数组赋值。例如:
    Dim Grade()Grade=Array(76,88,65,92)
    说明:
    Array函数语法格式如下:语法:Array(arglist)作用:返回一个包含数组的 Variant。
    Array函数中,所需的 arglist 参数是一个用逗号隔开的值表,这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数,则创建一个长度为 0 的数组。方式三:使用循环语句为数组中的元素赋值,此方法通常用于数据量较大时。例如,为一个9*9的二维数组随机赋值1-100之间的数,代码如下:
    Dim A%(1 To 9,1 To 9)Dim i%,j%For i=1 To 9    For j=1 To 9                A(i,j)=100*rnd()+1    Next jNext i
    该方法,也可以在其中使用InputBox函数来实现交互式输入。数组元素的输出所谓数组元素的输出就是获取数组元素的值。其方法与访问变量值类似。直接使用数组名(下标)的方式即可取出元素值。举例:以上面,数组元素的输入中方式三的例子来说,获取数组A的每个数组元素并打印出来,代码如下:
    For i=1 To 9    For j=1 To 9                Print "第" & i & "-" & j & "个数组元素为:"& A(i,j)    Next jNext i
    数组元素的插入数组的插入是指在数组指定位置插入一个新的元素,其后面的元素全部依次往后顺延,其效果如下面两张图片所示:b15bf61b592aa1c153da39152c4b451a.pngc4eb3c3f1f1ae383cbd24ac23a64f41f.png由于对数组插入新的元素后,将会改变数组的长度,因此该方法只能针对动态数组而言。
    例:Option ExplicitPrivate Sub Command1_Click()        Dim A(), i%                '为数组赋值        A = Array(1, 2, 3, 4)    '打印插入前的数组        For i = 0 To 3                Print "A(" & i & ")=" & A(i) & "    ";        Next i                '重新定义数组,增加1个元素        ReDim Preserve A(4)    '将数组元素重新赋值        A(4) = A(3)        A(3) = A(2)        A(2) = A(1)        A(1) = 6    Print   '换行    '打印插入后的数组        For i = 0 To 4                Print "A(" & i & ")=" & A(i) & "    ";        Next i    End Sub
    运行效果如图所示:f04a079b3bb73f79039a4b1ad7f7e653.png

    删除数组元素

    数组元素的删除与数组元素的插入是类似的,都会改变数组的长度,一个是增加长度,而另一个则是减少长度。其效果如下图所示:

    4d7304a04b2fc56d8d757dc7426a8436.png

    数组元素的查找查找操作,即需要在数组中查找指定的数据。需要采用遍历方法,即采用循环结构,将数组中的每一个元素取出,并与需要的数据比对,看是否是需要的结果。举例,在一个二维数组中,存储了一个班级的学生姓名以及对应的成绩,输入一个学生姓名后,可以查找其对应的成绩,如果没有查到则提示无此学生。程序界面如下:

    522d669c5c8bb95b9880bdd6f51c0da7.png

    程序代码如下:

    Option ExplicitOption Base 1   '声明数组下标从1开始Dim Student$(9, 2)  '定义二维数组Private Sub Form_Load()     Dim i%    '输入学生姓名    Student(1, 1) = "孙悟空": Student(2, 1) = "猪八戒": Student(3, 1) = "达摩"    Student(4, 1) = "韩信": Student(5, 1) = "刘邦": Student(6, 1) = "项羽"    Student(7, 1) = "李白": Student(8, 1) = "小乔": Student(9, 1) = "大乔"    '为每个学生随机一个成绩    For i = 1 To 9        Randomize        Student(i, 2) = Int(50 * Rnd + 50)    Next i End SubPrivate Sub Command1_Click()    Dim i%    Text2.Text = ""    '遍历法查找学生姓名    For i = 1 To 9        If Student(i, 1) = Text1.Text Then            Text2.Text = Student(i, 2)  '找到后将其成绩赋值给Text2文本            Exit For    '退出循环        End If    Next i    '如果Text2文本框为空,说明没有找到该学生    If Text2.Text = "" Then        MsgBox "无此学生"    End IfEnd Sub

    程序代码截图如下:

    b423e83b17f9e79e47233111496c1b33.png

    好了,关于数组的基本操作,本节课程先讲到这么多。下节课程,学习数组的排序。我们下节课再见。

    fde8d80d8df1f63f75d74b1256cb4267.png

    展开全文
  • 前言 太多的例子讲如何如何实现VC编写动态链接库,VB中声明后使用,但没有一个好的文章来深入探讨这个问题,本文负责解决此类问题。 下载本文示例源代码 大小:125K 1.一般情况 VB中定义为: Private Declare Function F....


    前言
    太多的例子讲如何如何实现VC编写动态链接库,VB中声明后使用,但没有一个好的文章来深入探讨这个问题,本文负责解决此类问题。

    下载本文示例源代码 大小:125K

    1.一般情况

    VB中定义为:

    Private Declare Function FuncFoo Lib "MyStDll.DLL" _
    (ByVal lParam1 As Long, ByVal lParam2 As Long) As Long

    VC中定义为:

     UINT WINAPI FuncFoo(UINT lParam1, UINT lParam2);

    不用说大家就知道两个long参数,按值传递的

    2.实现类型数组:

    VB中定义为:

    Private Declare Function FuncFoo Lib "MyStDll.DLL" _
    (lParam1 As Long, ByVal lParam2 As Long) As Long

    VC中定义为:

    UINT WINAPI FuncFoo(UINT lParam1[DATASIZE], UINT lParam2);
    其中DATASIZE为定义常数

    ByRef 按地址传参数,当然VB缺省参数形式ByRef,将数组的第一个数据传入,就是这个类型数组的地址了
    用法如下:

    ...
    Dim oData(1 to 3) as Long
    oData(1) = 100
    oData(2) = 200
    oData(3) = 300
    Call FuncFoo(oData(0),3)
    ...

    3.实现结构数组:

    如果此时用上述方法
    在VB中来这样写:

    Private Type LPDATA
    Row as Long
    Col as Long
    Tips as String
    Data as double
    End Type
    Private Declare Function FuncFoo Lib "MyStDll.DLL" _
    (lParam1 As LPDATA, ByVal lParam2 As Long) As Long

    在VC中这样写:
    typedef struct tagData {
    UINT Row;
    UINT Col;
    BSTR Tips; //注意一般关于字符串最好用 BSTR ,后面解释为什么
    double Data;
    } * LPDATA;
    UINT WINAPI FuncFoo(LPDATA lParam1[DATASIZE] ,UINT lParam2);或
    UINT WINAPI FuncFoo(LPDATA *lParam1 ,UINT lParam2);
    这样的结果大家不妨试一试,数据乱的毫无规律,我也很不解,搞不懂,网上SOS,HELP me,目前最流行的方式,我也用上了,国内外知名的,被遗忘的角落,等等,大家没人理我,可能看到了不解,个中高手过着深入简出的生活,没有回答,没人解 答,我从MSDN终于搞到一个东西他就是SAFEARRARY
    typedef struct FARSTRUCT tagSAFEARRAY {
    unsigned short cDims;
    unsigned short fFeatures;
    unsigned short cbElements;
    unsigned short cLocks;
    unsigned long handle;
    void HUGEP *pvData ;
    SAFEARRAYBOUND rgsabound[1];
    } SAFEARRAY;
    下次我再单独写篇稿子讨论这个东西,解决问题先. 应该这么做
    在VB中来这样写:
    Private Type LPDATA
    Row as Long
    Col as Long
    Tips as String
    Data as double
    End Type
    Private Declare Function FuncFoo Lib "MyStDll.DLL" _
    (lParam1() As LPDATA, ByVal lParam2 As Long) As Long
    用法如下:
    ...
    Dim oData(1 to 3) as Long
    oData(1) = 100
    oData(2) = 200
    oData(3) = 300
    Call FuncFoo(oData(),3)
    ...
    在VC中这样写:
    typedef struct tagData {
    UINT Row;
    UINT Col;
    BSTR Tips; //注意一般关于字符串最好用 BSTR ,后面解释为什么
    double Data;
    } * LPDATA;
    UINT WINAPI FuncFoo(LPSAFEARRAY FAR * Param1,UINT lParam2);
    在VC中访问VB传入的结构数据:
    LPDATA lparDataSet;
    lparDataSet = (LPDATA)((*Param1)->pvData);
    for (UINT u=0;u<((*Param1)->rgsabound->cElements);u++,lparDataSet++)
    {
    UINT aa = lparDataSet->Row;
    CString bb = lparDataSet->Tips;
    double cc = lparDataSet->Data;
    }

    注意:为什么用BSTR不用什么LPCTSTR xxx,TCHAR xxx[mmm],char xxx[mmm],我举个例子大家试一试就知道了

    1. VB送入字符 "个大12"

    2. 正常VC显示数据为 B8 F6 B4 F3 31 32

    3. VC结构传入显示为 2A 4E 27 59 31 00 32 00 (unicode?)

    第一部分写到这里吧,剩下的东西还是等各位朋友自己慢慢去摸索,仓促难免有疏漏之处,请各位谅解。

     

    from: http://www.vckbase.com/document/viewdoc/?id=274


    转载于:https://www.cnblogs.com/no7dw/archive/2011/04/21/2023311.html

    展开全文
  • OnerNIX 是 什 么? OnerNIX 是一种用来各位网友们进行自由交流任意文件类型的工具, 就是Peer-To-Peer工具软件,采用公开的插件技术,完成对下载的文档察看功能, 采用插件来达到听音乐,看笑话,看图片等功能,用户根据...
  • 数组在编程中的重要性不言而喻,在每种编程语言中数组都占据非常重要的...2、通过InputBox输入对话框输入要插入的数据;3、插入的数据与数组已有元素值比较,按照升序排列。代码实现:程序代码:Dim a%(11) '定义...

    数组在编程中的重要性不言而喻,在每种编程语言中数组都占据非常重要的地位,所以熟练应用数组去解决程序中的问题就显得尤为必要了。

    今天,我们共同来学习如何把一个元素插入到数组中。

    78b0b162f080a4cecd809318aa25e436.png

        程序窗体界面

    程序实现功能:

    1、通过For循环对数组元素赋值;

    2、通过InputBox输入对话框输入要插入的数据;

    3、插入的数据与数组已有元素值比较,按照升序排列。

    代码实现:

    023c1d78d614b0322a1b39395184f05d.gif023c1d78d614b0322a1b39395184f05d.gif

    程序代码:

    Dim a%(11) '定义数组a

    Private Sub Form_Load() '窗体载入时,初始化数组

        Dim i%

        Text1 = ""

        For i = 1 To 10 '给元素赋值

            a(i) = 3 * i

            Text1 = Text1 & " " & a(i) '将元素值显示在文本框中

        Next i

    End Sub

    Private Sub Command1_Click() '插入输入的元素值

        Dim x%, i%

        x = Val(InputBox("输入要插入的值"))

        i = 10

        Do While a(i) >= x And i >= 1

            a(i + 1) = a(i)

            i = i - 1

        Loop

        a(i + 1) = x

        Text1 = ""

        For i = 1 To 11

            Text1 = Text1 & " " & a(i)

        Next i

    End Sub

    Private Sub Command2_Click() '退出程序

        End

    End Sub

    13edceb208125009fe598544bd331d86.png

    6974fa47e260933d21c3364ac981999b.png

    2965df701ece87d799816655ad85b810.png

      实际运行图

    大家在学习VB的过程中有学习问题,可以添加小编微信号:vbyjk521 ,提供在线解答。

    f1d78ff504a5f49c61cfa6888164edbb.png

    展开全文
  • vb 数组删除元素

    2011-12-12 15:04:00
    引用:... Private Sub Command1_Click() Dim n(1 To 100) As Integer num = InputBox("请输入数组元素个数", "输入框") Print "原始数组为:" For i = 1 To num n(i) = i * 5 + 1 Pri...
  • 目的培养综合利用VB语言进行程序设计的能力,主要是培养动态生成控件数组的方法进行创新设计。2.基本要求u 要求使用面向对象和结构化程序设计的编程思路。u LED显示器是由控件数组构成。u 在文本框中输入数字单击...
  • vb数组定义

    万次阅读 2005-06-16 11:56:00
    一、一维数组只有一个下标,数学上形如数列{ai}表示的数据均可用一维...注意数组输入与输出方法。Private Sub Command1_Click() Dim a(100) As Integer Dim s As Integer For i = 1 To 100 a(i) = i Next i End
  • 目的培养综合利用VB语言进行程序设计的能力,主要是培养动态生成控件数组的方法进行创新设计。2.基本要求1、要求使用面向对象和结构化程序设计的编程思路。2、LED显示器是由控件数组构成。3、在文本框中输入数字单击...
  • VB数组编写的例子,求100个学生的平均成绩,程序为了突出数组的作用,因此在程序细节方面没有过多顾及,输入学生成绩时候比较麻烦,需要一个一个输入,有些麻烦。程序异常处理也不太完善。
  • VB数组应用实例-成绩统计 输入成绩部分: Private Sub Command1_Click() Dim i As Integer Picture1.Cls For i = 1 To N score(i) = Val(InputBox("请输入第" & i & "位学生的成绩")) Picture1.Print score(i); ...
  • 爱学习,更爱VB编程大家好,数组在编程中应用广泛。在各种编程语言中,数组都占据非常重要的地位,所以熟练应用数组去解决程序中的问题就显得尤为必要了。今天,我们共同来学习如何把一个元素插入到数组中。数组插入...
  • Private Sub Command1_Click() Text1.Text = “” Dim s As Long, i As Long ...a(s) = InputBox(“请输入字符串,输入空串时结束”, “输入”) s = s + 1 Loop Until a(s - 1) = “” For i = 0 To s - 2 Text1...
  • 时 间:2012-05-27 22:56:30作 者:摘 要:设计一个程序,输入n,再输入n个数,把他们从大到小排序,并把排序后的数组从大到小显示出.正 文:程序如下Private Sub Command1_Click()Dim N As Integer, Ar() As Integer, i...
  • 利用结构类型声明的数组结构,输入不超过100个学生信息,全部显示学生查询情况
  • 目的培养学生综合利用VB语言进行程序设计的能力,主要是培养学生利用系统提供的基本控件、数组和循环等进行创新性设计。2.基本要求1、要求使用面向对象和结构化程序设计的编程思路。 2、自动售货机中有4*4中商品,每...
  • 我准备了 1000 本电子书...01、题目分析我们先来看一道题目:第350题:两个数组的交集给定两个数组,编写一个函数来计算它们的交集。示例 1:输入:nums1=[1,2,2,1],nums2=[2,2]输出:[2,2]示例 2:输入:nums1=[4,9,5],...
  • 我准备了 1000 本电子书...01、题目分析我们先来看一道题目:第350题:两个数组的交集给定两个数组,编写一个函数来计算它们的交集。示例 1:输入:nums1=[1,2,2,1],nums2=[2,2]输出:[2,2]示例 2:输入:nums1=[4,9,5],...
  • 一个VB动态数组例子,输入需要生成的数组大小,自动生成数组,挺简单,还不能应用于实践中,仅供参考。
  • 点击上方“爱VB” 关注我们上篇文章讲到二维数组(点此查看),最后有一道题:假如说有一个程序,要求我们输入5名同学的学号,数学成绩,语文成绩,并且只要输入学号就能查到这名同学的数学和语文成绩。不知道各位朋友...
  • 点击上方“爱VB” 关注我们数组对于初学者来说比较枯燥,我理解,因为我刚开始学的时候也是这种感受,相比之下我更愿意学看得见的东西,比如一些控件的属性,方法,怎样能让它达到我想要的效果等等,但是越往后越...
  • 请问在vb中怎么实现不知道源文件行列,将其数据输入到二维动态数组,看他有几行几列?
  • 1126:矩阵转置时间限制: 1000 ms内存限制: 65536KB【题目描述】输入一个n行m列的矩阵A,输出它的转置AT。【输入】第一行包含两个整数n和m,表示矩阵A的行数和列数(1≤n≤100,1≤m≤100)。接下来n行,每行m个整数,...
  • Variant输入出参数,ocx传递byte数组,safearray使用方法,vc写ocx在vb下调用
  • 总时间限制:1000ms内存限制:65536kB描述输入第一行包含两个整数n和m,表示矩阵A的行数和列数。1 <= n <= 100,1 <= m <= 100。接下来n行,每行m个整数,表示矩阵A的元素。相邻两个整数之间用单个空格隔...
  • vb第八章《数组》课后习题 求指正

    千次阅读 2019-02-08 15:13:00
    1、从键盘上输入10个整数,并放入一个一维数组中,然后将其前5个元素与后5个元素对换,即:第1个元素与第10个元素互换,第2个元素与第9个元素互换……第10个元素与第1个元素互换。分别输出数组原来各元素的值和对换...

空空如也

空空如也

1 2 3 4 5 ... 12
收藏数 229
精华内容 91
关键字:

vb输入数组