精华内容
下载资源
问答
  • 今天,从数组的定义、数组赋值、求最大值、交换的内容出发,帮助大家理解数组的实际应用。有数组的地方,必会用到数组的定义与控制结构(多为循环和条件语句)知识的应用。接下来是一个VB的实际应用题目,我们共同来...

    在VB编程中,数组占据着非常重要的地位。

    而数组的知识点又很多,让初学者非常容易混淆与难于掌握。比如数组的定义、数组的初始化、多维数组、动态数组、控件数组、数组排序、插入、交换等。

    今天,从数组的定义、数组赋值、求最大值、交换的内容出发,帮助大家理解数组的实际应用。

    有数组的地方,必会用到数组的定义与控制结构(多为循环和条件语句)知识的应用。

    接下来是一个VB的实际应用题目,我们共同来学习如何解决、实现它。

    实现功能

    1、首先定义一个包含10个元素的数组,通过随机数的方式为其中每个元素赋值,并且输出到窗体上;

    2、得到数组中的最大值,并且输出;

    3、将数组中的最大值与位置是10的元素值交换,并输出。

    如何用vb编程实现此效果?

    VB代码实现

    Dim a(1 To 10) As Integer '定义数组

    Dim max As Integer, xb As Integer '定义最大值、最大值对应下标

    Private Sub Form_click()

    Me.FontSize = 16Me.FontName = "楷体"Print Tab(2); "产生的数组元素值为:"max = 0For i = 1 To 10a(i) = Int(Rnd * 900 + 100)Me.FontSize = 12Me.ForeColor = vbRedPrint Tab(2); a(i)Next iFor j = 1 To 10If a(j) > max Then max = a(j): xb = jNext jMe.ForeColor = vbBlackPrint Tab(2); "数组元素最大值为:" & maxPrinthm = a(10)Print Tab(2); "顺序交换后数组元素值为:"For k = 1 To 10a(xb) = hma(10) = maxMe.FontSize = 12Me.ForeColor = vbBluePrint Tab(2); a(k)Next k

    End Sub

    dfc80df1d2b4c6c889fe5bf0cc29583e.png

    正在学VB的你赶快实际运行一下吧~

    VB学习中有遇到问题或者需要VB视频教程可添加下图小编微信,学习问题在线答疑。

    ea1e13355cf707e017af7b7e2c4da516.png

    cae7a703eedc3b76c37d3f3f3025a338.png点分享c9cfa52d032edd5f796755d4db9461f8.png点点赞fa89987e61cb4cbd588f4c9f69bf48d5.png点在看
    展开全文
  • 程序窗体界面程序实现功能:1、通过For循环对数组元素赋值;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的实际应用题目,我们共同来...

    在VB编程中,数组占据着非常重要的地位。

    而数组的知识点又很多,让初学者非常容易混淆与难于掌握。比如数组的定义、数组的初始化、多维数组、动态数组、控件数组、数组排序、插入、交换等。

    今天,从数组的定义、数组赋值、求最大值、交换的内容出发,帮助大家理解数组的实际应用。

    有数组的地方,必会用到数组的定义与控制结构(多为循环和条件语句)知识的应用。

    接下来是一个VB的实际应用题目,我们共同来学习如何解决、实现它。

    实现功能

    1、首先定义一个包含10个元素的数组,通过随机数的方式为其中每个元素赋值,并且输出到窗体上;

    2、得到数组中的最大值,并且输出;

    3、将数组中的最大值与位置是10的元素值交换,并输出。

    如何用vb编程实现此效果?

    VB代码实现

    Dim a(1 To 10) As Integer '定义数组

    Dim max As Integer, xb As Integer '定义最大值、最大值对应下标

    Private Sub Form_click()

    Me.FontSize = 16Me.FontName = "楷体"Print Tab(2); "产生的数组元素值为:"max = 0For i = 1 To 10a(i) = Int(Rnd * 900 + 100)Me.FontSize = 12Me.ForeColor = vbRedPrint Tab(2); a(i)Next iFor j = 1 To 10If a(j) > max Then max = a(j): xb = jNext jMe.ForeColor = vbBlackPrint Tab(2); "数组元素最大值为:" & maxPrinthm = a(10)Print Tab(2); "顺序交换后数组元素值为:"For k = 1 To 10a(xb) = hma(10) = maxMe.FontSize = 12Me.ForeColor = vbBluePrint Tab(2); a(k)Next k

    End Sub

    47014eb2a53459a8a3d7b6600f8530b0.png

    正在学VB的你赶快实际运行一下吧~

    VB学习中有遇到问题或者需要VB视频教程可添加下图小编微信,学习问题在线答疑。

    ab2470ece9d0dc911dcbe11f745a46e0.png

    e6a42399f562f3ccc1432333a3d85dcd.png点分享cbbae6838e8f46ea7320922f35f73ed6.png点点赞097e25c067700b47fc15e3adea9802e8.png点在看
    展开全文
  • 使用数组动态赋值SQL IN ()条件 VB sql = "SELECT * FROM TABLE WHERE AA IN (" '初始化查询字符串 For i = 0 to UBound(Ary) '从0循环数组最大下标 sql = sql & Ary(i) & "," '将数组...
    VB
    sql = "SELECT * FROM TABLE WHERE AA IN (" '初始化查询字符串
    For i = 0 to UBound(Ary) '从0循环到数组最大下标
    sql = sql & Ary(i) & "," '将数组中每个值加在查询字符串后面
    Next
    sql = Left(sql,Len(sql)-1) & ")" '将最后一个逗号换为反括号

    C#

     

    static void Main(string[] args)
      {
      
        string str = "aaaa,bbbb,cccc,dddd,eeee";

        string[] condititons = str.Split(',');

      
       string ss = "select * from table where aa in (";
       for (int i=0;i<condititons.Length;i++)
       {
        ss = ss+condititons[i]+",";
       }
       //sql.Substring(0,sql.Length-1);
       //ss = ss.Substring(0,sql.Length-1);
       ss = ss.Substring(0,ss.Length-1);
       ss = ss +")";
       Console.WriteLine(ss);

      }
     }


    posted on 2008-03-11 10:04 Eric.Chai 阅读(...) 评论(...) 编辑 收藏

    转载于:https://www.cnblogs.com/chairongzhen/archive/2008/03/11/1100038.html

    展开全文
  • 使用数组动态赋值SQL IN ()条件

    千次阅读 2008-11-07 12:59:00
    VBsql = "SELECT * FROM TABLE WHERE AA IN (" 初始化查询字符串 For i = 0 to UBound(Ary) 从0循环数组最大下标 sql = sql & Ary(i) & "," 将数组中每个值加在查询字符串后面 Next sql = Left(sql,Len(sql)-1) & ...
  • vb中给字符串数组赋值

    万次阅读 2006-08-23 17:30:00
    前段时间用vb.net写程序,遇到一个给字符串数组赋值的问题。用google搜索了很长时间,找到的大都使用循环方法赋值的,我觉得那样有些麻烦,就一直在找新的方法。虽然后来找到了,时间长了, 我居然又给忘了。 今天...
  • vb自定义函数的方式是不是可以代替循环直接给数组的一个范围赋值?函数代替循环的做法是什么?怎么使用函数代替循环给范围赋值
  • 爱学习,更爱VB编程大家...数组插入 程序窗体界面程序实现功能:1、通过For循环对数组元素赋值;2、通过InputBox输入对话框输入要插入的数据;3、插入的数据与数组已有元素值比较,按照升序排列。代码实现:程序代码...
  • VB编程中,数组占据着相当重要的作用,往往结合循环控制结构、函数过程出现在程序代码中。今天,以求解数组最大值、最小值为例,带领大家学习一下数组的基本应用。首先是定义一个数组,然后再用Rnd随机函数给数组...
  • [color=red]把整型转换成字符串[/color] CStr(int) [color=red]不等于的表示方法...[color=red]数组的声明和赋值[/color] Dim xh(100) As String '声明 xh(0) = "第一个" '赋值 黑色头发:http://heisetoufa.iteye.com/
  • 本来从MSFlexGrid或MSHFlexGrid导出数据到Excel中,是一个非常简单的问题,但论坛里还是经常有人问如何导出,有的虽然知道用单元格赋值方式循环导出,但速度太慢,因此写了一个通用的数据导出函数,由于以数组方式一...
  • C#实现控件循环赋值

    千次阅读 2009-10-11 19:54:00
    【转】http://blog.sina.com.cn/s/blog_4b4570920100cah8.html http://dev.csdn.net/develop/article/20/20241.shtm DotNet里取消了控件数组,这让习惯了使用VB控件的程序员非常不适应。有什么办法能够实现控件...
  • VB中关于STEP的使用

    千次阅读 2019-01-22 09:50:56
    解析:此循环的计算公式推导为a(4) * 1+a(3) * 10+a(2) * 100 +a(1) * 1000=1234 第一次循环因初始J=1,第二次循环j=1 *10 第三次j=10 *...也可以理解在STEP中将数组循环赋值,例如: step 2表示每次循环步进增2...
  • VB算法;1;算法概念及特征;流程图基本符号;基本数据类型;类对象属性;事件方法;变量命名规则;单个变量VS一维数组;赋值语句;运算符;常用函数;常用函数几个要点;三种基本结构;行If;块If;For循环;Do While 循环;For和Do的...
  • 专业VB课件这个程序的目的是为了实现得到文本框1中的 数组b 和 内置 数组a 的交集,并以交集元素的个数作为 文本框二 显示可以执行的条件。代码如下: Private Sub Command1_Click() Dim a(0 To 9) As String '定义...
  • 关于vb的二三事(2)

    2017-06-23 01:11:00
    VB语言基本套路:赋值,选择,循环数组。 1.赋值 赋值语句其实很简单,就是等于号"=" VB中“=”是赋值的意思,也有相等的意思 比如说a=b 就是把b的值赋给a 我更喜欢说令b = a 来个例子 给定a和b,交换他们;...
  • ShowDialog是VB.NET中模式窗体的调用方式。...如果在子窗体里进行过循环赋值你会发现,如果在赋值前没有对数组进行清空动作,数组会不断被不断累计。导致出现这些问题的原则是因为在VB.NET中,被ShowD...
  • vb常用语句

    热门讨论 2021-02-27 15:41:04
    Dim 数组名(1 To n) As 数据类型 4、赋值语句 变量名 = 表达式 5、注释语句 ‘注释文字 6、分支语句 ①单分支语句 If 条件 Then 语句组 EndIf ②双分支语句 If 条件 Then 语句组A Else 语句组B EndIf 7、循环语句 ...
  • VB的基本使用2

    2015-10-31 16:50:33
    '并将整数1到10依次赋值数组的各个元素,然后打印显示数组的第五个元素。 Option Explicit '强制显式声明模块中的所有变量  Dim a(9),i '数组元素个数确定为10  'Sub num  For i=0 to 9'For Next 循环...
  • DotNet里取消了控件数组,这让习惯了使用VB控件的程序员非常不适应。有什么办法能够实现控件数组的功能吗?答案是肯定的。 众所周知,控件数组最主要的两个优点:可以循环附值;可以响应同一个事件。从而大大简化了...
  • VB--视频大纲

    2010-04-15 21:39:00
    1.语言/环境基础--项目的组成--语言基础 ----变量的作用域和生存期 ----基本语句(for循环,赋值语句let(普通变量赋值),set(对象的赋值,只用set),分支语句) ----静态数组和动态数组(数组的声明,上下界确定,动态数组...
  • ShowDialog是VB.NET中模式窗体的调用方式。...如果在子窗体里进行过循环赋值你会发现,如果在赋值前没有对数组进行清空动作,数组会不断被不断累计。 导致出现这些问题的原则是因为在VB.NET中,...
  • VB程序设计及应用

    2012-11-26 14:07:12
    5.1 赋值语句 5.2 条件语句 5.2.1 分支结构 5.2.2 情况语句 5.3 循环语句 5.3.1 For循环 5.3.2 Do循环 5.3.3 多重循环 5.3.4 GoTo语句 5.3.5 End语句 5.3.6 应用举例 习题一 5.4 ...
  • 问题1:如何把Worksheet中的Range对象整体赋值数组,减少循环读入的次数? 这个问题查了好久,也试了很多种方法,但好使的就只有一种,亲测好使。 在Range对象所处的Sub下,添加Object类型的变量声明:Public ...
  • '以下部分是将存储在数组变量 m(i)中的字符分类存放到方向、边长、已知坐标、网型信息等数组中 k = k + 1 For j = 1 To 5 jd(k, j) = Val(tr(j)) Next j zjd = k Loop ts.Close MsgBox "转角数据已成功读入", 0 + 64...
  • 其主要课程内容包括VB程序设计语言概述,VB集成开发环境简介,面向对象程序设计方法简介,VB语法基础(基础语法、程序结构、数组、子程序和函数等),各种常用控件的使用,以及在图形、文件操作和数据库应用等方面的...
  • vb.net做的俄罗斯方块

    2010-06-14 20:59:23
    Vb写的俄罗斯方块 基本功能全'声明一个整数常量Width,表示游戏界面横向的小正方形数目,初始化为16 Public Const Width As Integer = 16 '声明一个整数常量Height,表示游戏界面横向的小正方形数目,初始化为30 ...

空空如也

空空如也

1 2 3
收藏数 51
精华内容 20
关键字:

vb数组循环赋值