精华内容
下载资源
问答
  • VB 嵌套查询

    2010-06-08 09:31:08
    VB 嵌套查询 VB 嵌套查询 VB 嵌套查询
  • VB.Net允许在另一个循环内使用一个...语法VB.Net中嵌套的For循环语句的语法如下:For counter1 [ As datatype1 ] = start1 To end1 [ Step step1 ] For counter2 [ As datatype2 ] = start2 To end2 [ Step step2 ] ...

    VB.Net允许在另一个循环内使用一个循环,以下部分显示了几个例子来说明这个概念。

    语法

    VB.Net中嵌套的For循环语句的语法如下:

    For counter1 [ As datatype1 ] = start1 To end1 [ Step step1 ] For counter2 [ As datatype2 ] = start2 To end2 [ Step step2 ] ... Next [ counter2 ] Next [ counter 1]

    VB.Net中嵌套的While循环语句的语法如下:

    While condition1 While condition2 ... End While End While

    VB.Net中嵌套的Do ... While循环语句的语法如下:

    Do { While | Until } condition1 Do { While | Until } condition2 ... Loop Loop

    关于循环嵌套的最后一个注意事项是,可以把任何类型的循环放在任何其他类型的循环中。 例如,for循环可以在while循环内,反之亦然。

    示例

    以下程序使用嵌套for循环来查找从2到100之间的素数:

    Module loops Sub Main() ' local variable definition ' Dim i, j As Integer For i = 2 To 100 For j = 2 To i ' if factor found, not prime' If ((i Mod j) = 0) Then Exit For End If Next j If (j > (i j)) Then Console.WriteLine("{0} is prime", i) End If Next i Console.ReadLine() End Sub End Module

    执行上面示例代码,得到以下结果 –

    2 is prime 3 is prime 5 is prime 7 is prime 11 is prime 13 is prime 17 is prime 19 is prime 23 is prime 29 is prime 31 is prime 37 is prime 41 is prime 43 is prime 47 is prime 53 is prime 59 is prime 61 is prime 67 is prime 71 is prime 73 is prime 79 is prime 83 is prime 89 is prime 97 is prime

    ¥ 我要打赏 纠错/补充 收藏

    展开全文
  • VB 函数嵌套求组合数

    2010-06-07 14:52:03
    VB 函数嵌套求组合数 VB 函数嵌套求组合数 VB 函数嵌套求组合数
  • VB的循环嵌套

    2020-06-06 17:44:06
    VB允许你将不同类型的循环(For和Do循环)“嵌套”在同一个过程里。当你编写循环嵌套时,请确保每个内部的循环在外部循环里面已经完成。另外,每个循环都必须有其自己独特的计数器变量。如果使用循环嵌套,你可以更...

    在编程中,一循环总是放在另外一循环中的。VB允许你将不同类型的循环(For和Do循环)“嵌套”在同一个过程里。当你编写循环嵌套时,请确保每个内部的循环在外部循环里面已经完成。另外,每个循环都必须有其自己独特的计数器变量。如果使用循环嵌套,你可以更有效地执行特定的任务。

    Sub ColorLoop()
    Dim myRow As Integer
    Dim myCol As Integer
    Dim myColor As Integer
    myColor = 0
    For myRow = 1 To 8
    For myCol = 1 To 7
    Cells(myRow, myCol).Select
    myColor = myColor + 1
    With Selection.Interior
    .ColorIndex = myColor
    .Pattern = xlSolid
    End With
    Next myCol
    Next myRow
    End Sub
    

    上面的过程ColorLoop使用了两个For…Next循环来改变工作表中前面八行和七列里的每个单元格的颜色。当外部的循环在追踪行号的时候,内部的循环在做更多的事情,它首先确定当前的列号,基于当前的行号的列号选择适当的单元格,然后给所选的单元格设置颜色。


    内部的For…Next循环给工作表的第一行的七个单元格(A1, B1, C1, D1, E1, F1和G1)设置不同的颜色。当变量myCol大于7时,VB跳回外部循环并且变量myRow增加1,再回到内部循环去设置下一行单元格的颜色。当过程结束时,56个单元格(8*7)被设置了当前调色板上可用的所有颜色。第一个单元格,A1,被设置了黑色(颜色索引号为1),第二个单元格B1则被设置为白色了(颜色索引号为2)。每次单元格地址变化——Cells(myRow, myCol).Select——变量myColor的内容也会改变——myColor = myColor + 1

    展开全文
  • 这么大的数据,要一个个去算去核对,估计一个月下来核对这个对账单都不能干别的活了~~曾经姑娘我想过用VB宏,可是VB宏很多人都不会写,如果能用函数解决最巧当不过了,今天我就分享下运用函数求物流运费。...

    姑娘我半年多前有遇到一家电商公司,每个月有10来家物流公司的账要核对,每家物流公司每个月多则50000多个物流快递要核对,少则7000 8000多个物流快递核对。这么大的数据,要一个个去算去核对,估计一个月下来核对这个对账单都不能干别的活了~~曾经姑娘我想过用VB宏,可是VB宏很多人都不会写,如果能用函数解决最巧当不过了,今天我就分享下运用函数求物流运费。

    如下图:

    a98dc418e85f7370a694d956adf547b2.png

    如何根据省份和计费重量来自动求运费呢?很简单,用IF和VLOOKUP函数相互嵌套就可以完成了,如下图:

    e81c0d305b9c55b169c8627f7ba2c705.png

    IF($F3<=3,VLOOKUP($G3,$A:$B,2,FALSE),VLOOKUP($G3,$A:$D,4,FALSE))+IF($F3<=3,$F3-1,0)*VLOOKUP($G3,$A:$C,3,FALSE)+IF($F3>3,F3-1,0)*VLOOKUP($G3,$A:$E,5,FALSE)

    下面姑娘我来分三段解释下这函数

    IF($F3<=3,VLOOKUP($G3,$A:$B,2,FALSE),VLOOKUP($G3,$A:$D,4,FALSE))

    确定首重金额:

          如果F3单元格计费重量小于等于3KG,则根据G3单元格省份来匹配3KG以内对应的首重金额;

          如果F3单元格计费重量大于3KG,则根据G3单元格省份来匹配3KG以外对应的首重金额;

    IF($F3<=3,$F3-1,0)*VLOOKUP($G3,$A:$C,3,FALSE)

    确定续重金:1:

          如果F3单元格计费重量小于等于3KG,则(F3单元格计费重量-1)*根据G3单元格省份来匹配3KG以内对应的续重金额;如果F3单元格计费重量大于3KG,则为0;

    IF($F3>3,F3-1,0)*VLOOKUP($G3,$A:$E,5,FALSE)

    确定续重金额2:

           如果F3单元格计费重量大于3KG,则(F3单元格计费重量-1)*根据G3单元格省份来匹配3KG以外对应的续重金额;如果F3单元格计费重量小于或等于3KG,则为0;

    运费总金额=首重金额+续重金额1+续重金额2

    这函数其实不复杂,都是IF函数和VLOOKUP函数相互嵌套。

    展开全文
  • VB程序中嵌套其它应用程序

    千次阅读 2012-02-26 22:00:12
    本文重点介绍如何将一个已经存在的应用程序嵌套VB程序中。 新建工程,执行“外接程序”—“外接程序管理器”,选择加载“VB6 资源管理器”并确定。点击工具栏上的“VB资源管理器”图标打开“VB 资源管理器”...
     
    

    运行主程序时被嵌套其中的另一个应用程序会被释放出来,当然也可以转而执行这个被释放出来的应用程序,网上好多破解程序就是采用这种方法实现的。本文重点介绍如何将一个已经存在的应用程序嵌套到VB程序中。

    新建工程,执行“外接程序”—“外接程序管理器”,选择加载“VB6 资源管理器”并确定。点击工具栏上的“VB资源管理器”图标打开“VB 资源管理器”窗口。点击该窗口工具栏中的“添加自定义资源...”图标,选取欲嵌套的程序后保存资源文件,该程序即会以默认的101资源号加入到自定义资源CUSTOM库中。

    代码如下:

     

     

    Private Sub Form_Load()

    Dim TAO() As Byte

    Dim i As Long

    '你的相关程序可以写在这里,作为示例当然也可空着。

    If Dir(App.Path & "\ASPack!.exe") <> "" Then'欲释放的程序已存在运行之并中断主程序的运行

    Shell App.Path & "\Aspack!.Exe", vbNormalFocus

    Unload Me

    End If

    TAO = LoadResData(101, "CUSTOM") '将自定义资源中101号资源读入数组TAO

    On Error GoTo 1

    Open App.Path & "\Aspack!.exe" For Binary As #1 '写嵌套的Exe文件到当前路径

    For i = 0 To 198144- 1 '这里的198144是被嵌套的Exe文件准确字节数(大小)

    Put #1, ,TAO(i)

    Next i

    Close #1

    Shell App.Path & "\Aspack!.Exe", vbNormalFocus '运行刚生成Exe

    1

    Unload Me

    End Sub

    展开全文
  • VB中数组的嵌套循环

    2019-02-20 15:08:27
    两套程序中, 一种是将条件进行分开,分别进行判定, 另一种是判定条件达到,执行下一步的if—end if程序
  • vb函数嵌套定义删除中间数组的时候这个数组位置的内存会被释放么?如果插入新的数组需要重新分配么?什么时候需要new分配内存
  • As String DecodeBase64String = StrConv(DecodeBase64Byte(str2Decode), vbUnicode) End Function Public Function DecodeBase64Byte(str2Decode As String) As Byte() Dim lPtr As Long Dim iValue As Integer Dim...
  • VB:利用嵌套循环输出塔型星号

    千次阅读 2018-04-12 18:40:29
    题目来源:大工慕课 链接 作者:Caleb Sung 题目要求 要求输出以下形状: * ** *** **** ***** 参考代码 Private Sub Command1_Click() Print For i = 1 To 5 Print String(i, "... ...
  • 当遇到语句 var a = 10 的时候,内存会分配一个位置用于存储 a 的值 可用内存是有限的,而复杂的程序可能有很多变量和嵌套对象,因此合理地使用可用内存非常重要。 和诸如 C 这种需要显式分配和释放内存的语言不同...
  • 今天我们为大家带来的则是有关VB.NET窗体嵌套的一些操作方法,希望能够帮助大家解决一些问题。 .NET框架组件太大了,比任何以前所写的封装功能的库都要大。这样有好处,因为它大幅削减了建立应用程序所需编写的...
  • vb编程数组嵌套中的子数组被删除后,对应的内存去了哪里?是不是内存就不连续了?vb是怎么重新分配删除的内存的呢?
  • VB获取系统消息、窗体嵌套、菜单变换例子,请在窗口标题上按下鼠标右键可看到功能演示,不过我没搞明白是怎么回事。详细情况请下载源代码学习。
  • VB.NET普通窗体使用嵌套作用

    千次阅读 2009-12-03 20:57:00
    .NET框架组件太大了,比... 窗体嵌套 经验丰富的Visual Basic开发者知道多文档界面(MDI)应用程序能够包含子窗体,那些子窗体由MDI父窗体管理。但是如果没有MDI的能力你怎样实现包含嵌套窗体?例如一个MDI子窗体也可
  • 运行效果: 程序代码: Public A As Long                   '定义全局变量,用于储存生成的随机数 Private Sub Command1_Click()  Randomize            ...
  • 代码如下: 模块声明: Public Structure aaa2 Dim s As String ...也就是嵌套结构aaa2在复制的过程中仅仅只是传了数据地址给kb而已,并没有将所有数据一起复制给kb。请问如何才能在复制时完全新建一个kb。
  • Imports System.Runtime.Serialization.Json Imports System.IO Partial Class _Default Inherits System.Web.UI.Page ... Protected Sub Button1_Click(ByVal sender As Object, ByVal e As Sys...
  • 本视频讲解了使用嵌套If和多分支语句解决的两个问题,讲解非常详细,基础不够扎实的同学可以看一看。视频勘误:本堂课是超长假期复课后在机房上的第一节课,学生有些生疏了,我在授课时间把握上也不够好,内容没有讲...
  • 怎么通过vb用自定义函数的方式实现函数返回值类型嵌套的做法?怎么像vb的内置函数那样实现嵌套
  • 关于VB.NET中实现嵌套数据控件中数据绑定的问题document.title="关于VB.NET中实现嵌套数据控件中数据绑定的问题(原创) - "+document.title关于VB.NET中实现嵌套数据控件中数据绑定的问题LanFan [原创] 在ASP.NET中...
  • 运行效果: 编写总结  完数:它的因子之和恰好等于它的本身;  亏数:它的因子之和小于本身;  盈数:它的因子之和大于本身; 程序代码: Private Sub Form_Click()  Dim n, r, j, i As ... ...
  • vb的数组嵌套实现中,头数组的长度可以和其余数组的长度也不同么?那么使用下标的写法是什么,用字符串呢?
  • 本视频讲解了使用嵌套If和多分支语句解决的两个问题,讲解非常详细,基础不够扎实的同学可以看一看。视频勘误:本堂课是超长假期复课后在机房上的第一节课,学生有些生疏了,我在授课时间把握上也不够好,内容没有讲...
  • 当遇到语句 var a = 10 的时候,内存会分配一个位置用于存储 a 的值 可用内存是有限的,而复杂的程序可能有很多变量和嵌套对象,因此合理地使用可用内存非常重要。 和诸如 C 这种需要显式分配和释放内存的语言不同...
  • 要求: 能够读取按照 INI文件的Section和Key来读出相应的Value。 比如一个配置文件 mail.ini --------------------------------- [MailInfo] user=123 ...   --------------------------------- 主体程序(方...

空空如也

空空如也

1 2 3 4 5 ... 16
收藏数 309
精华内容 123
关键字:

vb嵌套