精华内容
下载资源
问答
  • 比较个数大小并排序。先输入这几数字,然后程序自动按照从大到小的排列
  • VB 三个数排序

    2010-06-07 13:57:05
    VB 三个数排序 VB 三个数排序 VB 三个数排序
  • vb比较三个数大小

    千次阅读 2012-04-25 21:18:17
    代码如下: Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim max As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a > b Then ...ma
    代码如下: 
    
    Private Sub Command1_Click()
    Dim a As Integer, b As Integer, c As Integer
    Dim max As Integer
    a = Val(Text1.Text)
    b = Val(Text2.Text)
    c = Val(Text3.Text)
    If a > b Then
    max = a
    Else
    max = b
    End If
    If c > max Then
    max = c
    Else
    max = max
    End If
    Label4.Caption = max
    End Sub
    展开全文
  • VB作业之比较三个数大小

    千次阅读 2012-05-11 07:35:35
    心得体会:这次作业相比上次作业只是增加了一个个数,但难度似乎增加的很大,摸索出这一类程序的规律,程序就很容易编写了;同样这次用到了“ SetFocus ”使程序更完美,用起来更方便  

    下面是我编写的程序代码:

    Private Sub Command1_Click()
       Dim A As Integer
       Dim B As Integer
       Dim C As Integer
       Dim max As Integer
       A = Val(Text1.Text)
       B = Val(Text2.Text)
       C = Val(Text3.Text)
       If A > B Then
           max = A
        Else
           max = B
       End If
       If C > max Then
           max = C
        End If
        Print max
    End Sub
    接着编写“清除”事件的程序:
    Private Sub Command2_Click()
       Me.Cls
       Text1.Text = ""
       Text2.Text = ""
       Text3.Text = ""
    End Sub
    
    Private Sub Text1_KeyPress(KeyAscii As Integer)
       If KeyAscii = 13 Then
          Text2.Private Sub Command2_Click()
       Me.Cls
       Text1.Text = ""
       Text2.Text = ""
       Text3.Text = ""
    End Sub
    Private Sub Text1_KeyPress(KeyAscii As Integer)
       If KeyAscii = 13 Then
          Text2.SetFocus
          End If
    End Sub
    Private Sub Text2_KeyPress(KeyAscii As Integer)
       If KeyAscii = 13 Then
          Text3.SetFocus
          End If
    End Sub     心得体会:这次作业相比上次作业只是增加了一个个数,但难度似乎增加的很大,摸索出这一类程序的规律,程序就很容易编写了;同样这次用到了“SetFocus”使程序更完美,用起来更方便
    
    
    
    


     

    展开全文
  • 关于vb 多任意数字大小排列问题

    千次阅读 2016-04-04 09:12:35
    今天又开始做老师留的作业了,感觉学了很久还是不知道这vb到底咋用,目前还是只能跟着图片做题。 下面开始就是今天是程序步骤了: 首先打开VB软件,点击按钮,开始编程。(以下用图片显示) 图片大小超过限制...

    今天又开始做老师留的作业了,感觉学了很久还是不知道这vb到底咋用,目前还是只能跟着图片做题。

    下面开始就是今天是程序步骤了:

    首先打开VB软件,点击按钮,开始编程。(以下用图片显示)


    图片大小超过限制。。。。。。

    我来把前一段打上去

    Cls

    Font.size = 30

    Dim n As Integer

    Dim size As Integer

    size = Int(Val.(Me.Text1.Text))

    Dim sierdun() As Integer

    n = LBound(sierdun)

    While n <= UBound(sierdun)

    sierdun(n) = Int(Rnd * 1000)

    n = n + 1

    Wend

    Dim swap As Integer

    m = LBound(sierdun)

    While m <= UBound(sierdun) - 1

    n = LBound(sierdun)

    OK,这就是这个按钮的程序,接下来还需要一个屏幕来写入数字,那就来一个Text1。(结果如下图显示)

    又超过限制。。。。。。也是够了,描述一下这个图片,中部是这个屏幕,正下方就是按钮(名字也叫按钮)。

    那让我们来看看结果吧。

    好的,三张图只出来一张,这次的图片很失败啊,不过大概的东西已经都整出来了,有些地方脑补一下好了。这次就到这里了,下次作业再见。

    展开全文
  • 用if函数实现三个数字从小到大排序

    千次阅读 2020-08-08 10:53:41
    """要求:通过输入三个数字,按从小到大的顺序输出""" x=float(input("请输入x的值:")) y=float(input("请输入y的值:")) z=float(input("请输入z的值:")) if(x>y):#x,y做比较,若x>y则将x,y的值做交换,...
    """要求:通过输入三个数字,按从小到大的顺序输出"""
    x=float(input("请输入x的值:"))
    y=float(input("请输入y的值:"))
    z=float(input("请输入z的值:"))
    if(x>y):#x,y做比较,若x>y则将x,y的值做交换,交换后保证x的值比y小
        x,y=y,x
    if(x>z):#x,z做比较,若x>z则将x,z的值做交换,交换后保证x的值比z小,此时x的值保证为最小值
        x,z=z,x
    if(y>z):#y,z做比较,若y>z则将y,z的值做交换,交换后保证y的值比z小,则此时x<y<z达到排序的效果
        y,z=z,y
    print(x,y,z)
    #多个if的时候要注意两个执行的if语句不能相互产生影响
    #比如此处的比较函数顺序不能改变,否则会出现重复赋值的风险
    

    执行结果:
    第一个if:x=5,y=4,x>y条件成立进行交换,则执行后x=4,y=5
    第二个if:x=4,z=6,x>z条件不成立不进行交换,则执行后x=4,z=6
    第三个if:y=5,z=6,y>z条件不成立不进行交换,则执行后y=5,z=6
    最后结果x=4,y=5,z=6,打印x,y,z的结果如图
    在这里插入图片描述

    展开全文
  • VB数值从小到大排序

    2021-01-28 22:56:38
    '在窗体上画两输入框(Text1、Text2),一Command1按钮,代码如下: Option Explicit '数值从小到大排序的函数 Public Function PPSRS(txt As String) Dim x, y, temp As Integer Dim arr(1 To 10) As Integer Dim K...
  • vb内部排序7大算法

    千次阅读 2019-12-22 14:07:26
    信息技术 VB程序整理排序算法(以数组a(n)降序为例)1、冒泡排序(Bubble Sort)1.0 性质总结1.1 基本思想1.2 具体步骤1.3 代码实现1.4改进的冒泡排序2、直接选择排序(Straight Select Sort)2.0 性质总结2.1 基本...
  • QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA...
  • Private Sub Form_Load() Dim x As Integer,y As Integer,z As Integer Dim diyige As Integer Dim dierge As String,disange As String,disige As String diyige = InputBox("请输入A:","数据输入") ...
  • 实验3 冒泡排序程序

    2020-06-16 23:37:27
    实验3 冒泡排序程序
  • 三个数按照从小到大输出 最最最简单且麻烦的 #define _CRT_SECURE_NO_WARNINGS 1 #include<stdio.h> #include<stdlib.h> int main() { int a = 0; int b = 0; int c = 0; int temp = 0; scanf("%d%d...
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    本章介绍C#语言的基础知识,希望具有C语言的读者能够基本掌握C#语言,以此为基础,能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的,如需进一步学习C#语言...
  • 则同首字母品牌所占高度为字母所占高度+同字母品牌个数*单个品牌所占高度,具体代码为: // 计算列表item高度 getItemHeight(list) { var query = this.createSelectorQuery(); query.select('.car-item')....
  • VB代码, 堆排序

    2021-04-29 20:32:11
    VB代码, 堆排序 VB代码, 堆排序 '算法导论 P85 堆排序 代码实践 Option Explicit Dim a() Dim size As Integer '堆的大小 全局变量 Private Sub Command1_Click() PRINTA a() HEAPSORT a() PRINTA a() End Sub ...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA...
  • #include int main() { float a,b,c,t; scanf("%f%f%f",&a,&b,&c); if(a>b) /*交换ab*/ { t=a; a=b; b=t; } if(a>c) /*交换ac*/ { t=a; a=c; c=t; } if(b>c) /*交换bc*/ { ...pri
  • 对于程序猿而言,算法和数据结构就像一门强大的内功,练的过程中,会比较难,相对于武学招式,需要更多的理解能力和悟性,但是一旦练成,那就能变身强大的武林高手,纵横武林,不再是梦想。本系列武林秘籍主要来自于...
  • 序列索引(排序索引)
  • 随机数排列(vb代码)

    千次阅读 2013-02-19 20:48:09
    VB中,通过编写程序代码,找出最大的数和最小的数很简单,三个数比较大小也很简单,前今天碰到了一个问题,就是,用VB制作一个小程序,实现十个随机数的排列。  我查了一些资料,在网上找到了有几个很有趣的排列...
  • 多行,每行三个浮点数,中间用空格分隔。 Output 多行,每行三个浮点数,中间用英文逗号分隔。参见样例。 Sample Input 1.0 1.1 1.2 2.1 2.02 1.0 3.0 2.5 1.5 Sample Output 2.1,2.02,1.0 1.0,1.1,1.2 3.0,2.5,1.5...
  • 2.在窗体的适当位置创建一commandbutton,在其属性窗口中将caption改为“排序”。 3.在窗体的适当位置创建一textbox。 4.在窗体中双击“排序”,在弹出的对话框中输入代码。 代码如下: Option Base 1...
  • 2.然后在左侧工具栏中找到command button的图标,在Form1的右下角适当大小的创建。 3.在属性窗口中找到capition将它后面“Command1”改为“交换”。 4.在窗体中双击“交换”,在弹出的对话框中输入以下内容 ...
  • 随机生成10整数,冒泡排序算法

    千次阅读 2019-10-11 14:20:26
    public static void main(String[] args) { int[] arr = new int[10];... /* 产生10[0-100]的随机数 */ for (int i = 0; i < arr.length; i++) { arr[i] = (int) (Math.random() * 101); } ...
  • arr1 arr2 arr1.sort((prev,next)=>{ return arr2.indexOf(prev)-arr2.indexOf(next) }) 这是arr1按照arr2排序
  • VB 单击ListView控件某列表头进行排序

    千次阅读 2013-02-01 07:56:32
    VB 单击ListView控件某列表头进行排序,实现方法比较简单,不用写什么函数,ListView控件本身就有排序功能了。 Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) ListView1....
  • 3个数大小

    2016-03-24 17:44:08
    Dim a(3) As Double, i As Integer, t As Integer  For i = 1 To 3 ... a(i) =InputBox("请输入第" &i & "个数")  Next i  If a(1)  If a(1)  If a(2)  MsgBox "排序后的输出是:" & vbCrLf & a(1
  • 排序和查找是计算机中最常用的两种操作。每天你在使用计算机时,系统背后都会执行大量的排序...本文就以C++、C、Java、Python和VB等5种计算机语言为例,演示如何在其中(通过调用现成的内置函数来)进行排序和查找操作

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 5,128
精华内容 2,051
关键字:

vb比较三个数的大小并排序