精华内容
下载资源
问答
  • VBA源代码,根据某列中的最大值,拿到该行的行号。此代码为取出若干小区的信息,7*24小时,拿到某列值最大的行号,精简成7行
  • 最大值函数:max() 代码如图所示: 输出:

    最大值函数:max()

    代码如图所示:

    输出:

    方法二:

    输出:

     

    展开全文
  • 算法:最大值,最小值及位置  Dim A%() = {8, 6, 9, 3, 2, 7}  Dim intMin%, intPos%, i%  intMin = A(0) ‘最小值’  intPos = 0 ‘位置’  For i = 1 To 5  If A(i)  
    算法:最大值,最小值及位置
    
      Dim A%() = {8, 6, 9, 3, 2, 7}
            Dim intMin%, intPos%, i%
            intMin = A(0)   ‘最小值’
            intPos = 0     ‘位置’
            For i = 1 To 5
                If A(i) < intMin Then
                    intMin = A(i)
                    intPos = i
                End If
            Next
            Debug.Print(intMin & " " & intPos)
        End Sub
    算法:排序——选择法
            Dim xx%() = {18, 6, 9, 13, 2, 7}
        Dim i As Integer, j As Integer
            For i = 0 To 4
                For j = i + 1 To 5
                    ‘“>”从小到大排列,XX(1)最小
                    If xx(i) > xx(j) Then
                        Swap(xx(i), xx(j))
                    End If
                Next j
            Next i
            For i = 0 To 5
                Label1.Text &= xx(i) & Space(3)
            Next i
    算法:排序——冒泡法
       Dim xx%() = {8, 6, 9, 3, 2, 7}
       Dim i%, j%
       Label1.Text = "排序前: 8, 6, 9, 3, 2, 7 " & vbCrLf & "排序后 :"
            For i = 0 To 3
                For j = 0 To 4 – i
                     ‘“>”从小到大排列,XX(1)最小
                    If xx(j) > xx(j + 1) Then
                        Swap(xx(i), xx(j + 1))
                    End If
                Next
            Next
            For i = 0 To 5
                Label1.Text &= xx(i) & ","
            Next
    展开全文
  • vb实验7-找出小于18000的最大素数———–写给女朋友的题解

    vb实验7-找出小于18000的最大素数

    ———–写给女朋友的题解


    1. 在窗体上画一个文本框,名称为TEXT1,两个命令按钮,C1和 C2,标题分别为“计算”和“退出”,并编写一个函数过程isprime可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回True,否则返回False。
      请编写适当的事件过程,使得在运行时,单击“计算”按钮,则找出小于18000的最大素数,并显示在文本框中。

      • 我们先来画窗体,拖一个TextBox,然后清空Text属性
        清空Text属性
        名字已经是TEXT1了
        这里写图片描述

      • 然后拖两个CommandButton,修改名字为C1,C2。修改方法如上图。然后修改Caption属性值分别为“计算”和“退出”。
        附效果图:
        这里写图片描述

      • 界面部分就差不多好了。开始写判断一个树是不是素数的函数吧。

    Private Function Prime(n As Integer) As Boolean
    '函数参数为Integer,如果是素数则返回True,不是则返回False
        '如果n小于2,就不是素数
        If n < 2 Then
    
            Prime = False
    
            Exit Function
    
        End If
    
        Dim i As Integer
    
        '先让返回值等于True
        Prime = True
    
        '然后检查2到根号n是不是有数能整除n
        For i = 2 To Sqr(n)
    
            '如果有数能被整除,就返回False
            If n Mod i = 0 Then
    
                Prime = False
    
                Exit Function
    
            End If
    
        Next i
    
    '如果没有被前面的if查到,那就是通过了层层筛选而产生的素数
    End Function
    • 函数写好了,就开始找找出小于18000的最大素数吧
      在C1_Click里面写如下代码
    Dim i As Integer
    
    '从18000开始,每次-1,(为什么不从1-18000?因为low)
    For i = 18000 To 2 Step -1
    
        '如果找到一个,就输出到Text1,然后退出
        If Prime(i) = True Then
    
            Text1.Text = i
    
            Exit Sub
    
        End If
    
    Next i

    这里写图片描述

    展开全文
  • 找出矩阵中的最大值

    千次阅读 2021-05-15 16:22:43
    1、找矩阵a每列的最大值 [max_a,index]=max(a); 或者[max_a,index]=max(a,[],1); 其中max_a是最大的数值,index是最大的数值所处的位置。【最小值由min替换max即可】 2、找矩阵a每行的最大值 [max_a,index]=max(a,...

    已知矩阵a:

    1、找矩阵a每列的最大值

    [max_a,index]=max(a);

    或者[max_a,index]=max(a,[],1);

    其中max_a是最大的数值,index是最大的数值所处的位置。【最小值由min替换max即可】

    2、找矩阵a每行的最大值

    [max_a,index]=max(a,[],2);

    其中max_a是最大的数值,index是最大的数值所处的位置。【最小值由min替换max即可】

    【注意,有时需要找除0以外的最小值,可以将矩阵中的0值置为NaN: a(find(a==0))=NaN;

    将NaN重新置为0:a(find(isnan(a)==1))=0;】

    例如:

    a =

     1     2     3
     2     4     5
     6     1     3
    

    [max_a,index]=max(a)

    max_a =

     6     4     5
    

    index =

     3     2     2
    

    找矩阵a每行的最大值

    [max_a,index]=max(a,[],2);

    例如:

    a =

     1     2     3
     2     4     5
     6     1     3
    

    [max_a,index]=max(a,[],2)

    max_a =

     3
     5
     6
    

    index =

     3
     3
     1
    
    展开全文
  • 文摘: 文件中特定字符串的寻找与替换是一种...针对这一问题,笔者用Visual Basic 5.0编制了一个小程序,使用它可以快速地完成在多个文件中查找与替换的任务。 正文: 众所周知,文本文件中特定字符串的寻找与...
  • %% 一位数组 a=[1 5 6 8115 3 6]; [m,index]=max(a); %% 二维数组 b=[1 5 6 27;14 18 5 1]; n=max(max(b)); [row,cell]=find(b==n);
  • VB access 多条件混合查询

    热门讨论 2011-05-10 16:13:08
    代码实现vb+access 多个条件混合查询。有朋友在网上问到了,有时间做了一个。也许代码很复杂,但感觉还可以。至少实现了。帮助需要的朋友吧。
  • datatable 获取最大值

    2011-11-23 18:13:00
    往往在很多情况下,数据已经取出叫去获取极值,就可以用这种方法: dt.Compute("max(temperature)", "")  Compute函数 转载于:https://www.cnblogs.com/tony312ws/archive/2011/11/23/2260661.html...
  • 查找最大字母并加入(max)

    千次阅读 2019-05-19 16:34:27
    对于输入的每个字符串,查找其中的最大字母,在该字母后面插入字符串“(max)” Input 输入数据包括多个测试实例,每个实例由一行长度不超过100的字符串组成,字符串仅由大小写字母构成 Output 对于每个测试实例...
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    类可以认为是对结构的扩充,它和C中的结构最大的不同是:类中不但可以包括数据,还包括处理这些数据的函数。类是对数据和处理数据的方法(函数)的封装。类是对某一类具有相同特性和行为的事物的描述。例如,定义一...
  • 取双元素法: 把数组中相邻的两个元素分为一组,然后比较这两个元素,较大者和max比较,如果大于max则更新max 较小者和min比较,小于min则更新min。 算法的时间复杂度为O(1.5*n)。 注意:数组长度为奇数还是偶数...
  • VB ADODB 小小和代码.rar

    2020-08-05 15:02:13
    VB ADODB 数值平均值、VB ADODB 数值最大值VB ADODB 添加新表、新字段、新记录(连续使用SQL)(Execute方法)、VB ADODB 通过此表的某数据查找另表的行数据
  • int DATA_SIZE = 20 ; int data [] = new int[ DATA_SIZE ]; //generate random data for(int i = 0 ;i< DATA_SIZE ;i++){ data [i] = ( int ..."个元素,为" + data [maxIndex]);
  • 同系列的第五篇,上一篇在:http://blog.csdn.net/jiluoxingren/article/details/9633139。讲述如何写SQL语句实现提取表中前n条或前n%的记录,以及讲述使用带有WHERE关键字的SQL:Select语句进行查找初步。
  • VB6.0中如何用inputbox函数实现输入10个数字,求最大的哪一个?
  • VB 使用总结

    2019-11-26 16:22:30
    VB参考 官方文档 调用方法 function 参数1,参数2..... 清除单元格内容不清除公式 Worksheets("Sheet1").Range("a2:I1000000").SpecialCells(2).ClearContents 读取数据库表数据到excel表中 Dim rs As New ...
  • 特别是在递归中对多个文件进行查找时,这个问题会更加突出,有时甚至会导致VB程序挂掉。为避免这种情况,同时加快大型文件中字符串的查找速度,俺基于内存影射文件和VB模拟指针技术,编写了一个通...
  • VB学习记录

    千次阅读 多人点赞 2017-11-25 16:47:56
    一、什么是VB VB程序设计是要干什么? 1.添加、设置对象; 2.对对象添加功能。 编程的基本要素 - 对象object - 类class - 属性property - 方法method - 事件event 事件过程的一般格式: ...
  • 第二步,也是较为关键的一步,即找出每一行的最大值并标记,这一步又是怎样实现的呢? 很简单,也是通过循环,还记得比较几个数大小的方法吗?其实方法类似,假设a>b,只不过在这里如果为假我们并不交换两个数,...
  • 在对象浏览器中查找它们,它们都倾向于以“ D3DERR_”或“ E_”开头。 在继续讨论之前,我最后要讲的最后一件事是枚举主题。您可能以前没有听说过-但是如果您花任何时间在DirectX中进行编程,就会变得熟悉。枚举是...
  • VB常用控件介绍

    千次阅读 2018-02-16 16:24:30
    为true 时显示最大化按钮,为false 时不显示最大化按钮。 (11)MinimizeBox 属性:用来获取或设置一个,该指示是否在窗体的标题栏中显示最小化按钮。为true 时显示最小化按钮,为false 时不...
  •  对于求vb中的用vb编写给定数组中的最大值,我的编程如下: Public Function calcMax( a() As Integer) As Integer  max=0  For Each aArrayElement in a  If max  max=aArrayElem
  • vb常用函数一览表

    千次阅读 2018-08-05 17:10:29
    取整(取小于或等于参数的最大整数) Int(-99.8) Int(99.8) -100 99   Log(x) 常用对数 Log(1) 0 求自然对数值 Rnd 随机产生0~1的单精度 Int(6*Rnd)+1 1~6 要产生一个从...
  • vb第八章《数组》课后习题 求指正

    千次阅读 2019-02-08 15:13:00
    1、从键盘上输入10个整数,并放入一个一维...分别输出数组原来各元素的和对换后各元素的。 蛮简单的题,po一下交换元素的代码段吧。我的解法: For i = 0 To 9 Print a(i); Next i Print For i = 0 To 9 ...
  • vb正则表达式

    万次阅读 2016-12-08 16:46:40
    请回想一下在硬盘上是如何查找文件的。您肯定会使用 ? 和 * 字符来帮助查找您正寻找的文件。? 字符匹配文件名中的单个字符,而 * 则匹配一个或多个字符。一个如'data?.dat' 的模式可以找到下述文件: data1.dat ...
  • VB中对EXCEL的各种操作

    万次阅读 多人点赞 2017-02-08 15:20:15
     objExl.Application.WindowState = xlMaximized 'EXCEL的显示方式为最大化  objExl.ActiveWindow.WindowState = xlMaximized '工作薄显示方式为最大化  objExl.SheetsInNewWorkbook = 3 '将默认新工作薄...
  • 求二维数组中的最大值及所在位置

    千次阅读 2008-09-07 16:23:00
    #include #include #define M 3#define N 4void main(){ int a[M][N],i,j,x=0,y=0,max; printf("please input %dnumbers:",M*N); i=0; while(i { j=0; while(j { scanf("%d",&a[i][j]);...
  • VB6.0学习笔记

    2021-08-25 08:22:20
    for i=1 to length-1 step 1 for j=0 to m step 1 '数值交换 if n(j)>n(j+1) then dim t As Integer t=n(j) n(j)=n(j+1) n(j+1)=t end if next j '每一趟比较之后会出现一个最大值放在数组的最后面 '因此,下一趟的...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 8,863
精华内容 3,545
关键字:

vb查找最大值