精华内容
下载资源
问答
  • VB比较三个数的大小

    千次阅读 2012-04-28 21:15:09
    Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer   a = 44 b = 36 c = 9   If a > b Then  Max= a Else Max = b End If If c > Max Then ...Print

    Private Sub Command1_Click()

    Dim a As Integer

    Dim b As Integer

    Dim c As Integer

     

    a = 44

    b = 36

    c = 9

     

    If a > b Then

      Max= a

    Else

    Max = b

    End If

    If c > Max Then

    Max = c

    End If

    Print Max

     

    End Sub

    展开全文
  • 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
    下面是我编写程序代码: 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)

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

    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”使程序更完美,用起来更方便
    
    
    
    


     

    展开全文
  • 比较三个数的大小

    2012-04-25 21:42:38
     实现三个数的大小比较比较出最大的一个数。 二·实验内容  在对象窗口画出一个command按钮,点击command按钮,输入以下vb程序语言: Private Sub Command1_Click() Dim a As Integer Dim b As Integer ...

    一·实验目的

        实现三个数的大小比较,比较出最大的一个数。

    二·实验内容

       在对象窗口画出一个command按钮,点击command按钮,输入以下vb程序语言:

    Private Sub Command1_Click()

    Dim a As Integer

    Dim b As Integer

    Dim max As Integer

    Dim c As Integer

     

     a = 45

     b = 78

     c = 123

     

     If a > b Then

     max = a

     Else

     max = b

     End If

     If c > max Then

     max = c

     End If

     Print max

     

    End Sub

     

    三·心得体会

     三个数的比较大小在两个数的大小程序上加大了难度,但是也还是比较简单,看来打好基础是非常重要的。

    展开全文
  •  两个数与三个数比较输出最大值的编程时比较个数的大小输出最大值的编程的基础,简单,易懂,是学习vb基础学者的必修课,  两个数比较输出最大值的编程如下:  If a>b then  print a  else   ...
  • 随机数排列(vb代码)

    千次阅读 2013-02-19 20:48:09
    VB中,通过编写程序代码,找出最大数和最小数很简单,三个数比较大小也很简单,前今天碰到了一个问题,就是,用VB制作一个小程序,实现十个随机数排列。  我查了一些资料,在网上找到了有几个很有趣排列...
  • 1. 应用窗体单击事件从键盘输入两个数分别放在x和y变量中比较它们大小要求将大数放在x中小数放在y中 分析两个变量交换必须借助第三个变量并且注意赋值语句写法等价行是 x命令按钮输入以下代码 新建一个名称为...
  • screenres.zip 得到计算机屏幕的大小(2KB) 690,editregistry.zip 编辑注册表 (2KB) 691,stop.zip 锁定计算机的程序(5KB) 692,wbasket.zip 将文件移动到垃圾箱中(2KB) 693,opsys.zip ...
  • screenres.zip 得到计算机屏幕的大小(2KB) 690,editregistry.zip 编辑注册表 (2KB) 691,stop.zip 锁定计算机的程序(5KB) 692,wbasket.zip 将文件移动到垃圾箱中(2KB) 693,opsys.zip ...
  • screenres.zip 得到计算机屏幕的大小(2KB) 690,editregistry.zip 编辑注册表 (2KB) 691,stop.zip 锁定计算机的程序(5KB) 692,wbasket.zip 将文件移动到垃圾箱中(2KB) 693,opsys.zip ...
  • screenres.zip 得到计算机屏幕的大小(2KB) 690,editregistry.zip 编辑注册表 (2KB) 691,stop.zip 锁定计算机的程序(5KB) 692,wbasket.zip 将文件移动到垃圾箱中(2KB) 693,opsys.zip ...
  • QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击事件,并得到好友编号,把聊天界面加入到管理类,设置密码保护等。 Java编写网页版魔方游戏 内容索引:JAVA...
  • QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击事件,并得到好友编号,把聊天界面加入到管理类,设置密码保护等。 Java编写网页版魔方游戏 内容索引:JAVA...
  • 1345易语言模块

    2012-01-27 19:41:59
    1345易语言模块,易语言模块大集合,够你用啦 1亦思验证码识别1.5免费版.ec 24位转单色位图模块.ec 32张发牌.ec 3D引擎支持库-eOgre.ec 69msn.ec ACCESS 到高级表格.ec Access操作.ec Access数据库压缩修复新建....
  • 1350多精品易语言模块提供下载介绍 1亦思验证码识别1.5免费版.ec 24位转单色位图模块.ec 32张发牌.ec 3D引擎支持库-eOgre.ec 69msn.ec ACCESS 到高级表格.ec Access操作.ec Access数据库压缩修复新建.ec ACCSEE...
  • ----您必须做三个Gridding后才能开始用New 2-Grid Vector ----X,Y,Z 几何位置用(当底图用,可以立体显示) ----X,Y,X1 x向量分量 ----X,Y,Y1 y向量分量 --d.如果您数据是X,Y,Z,Angle,Length ----其中Angle,...
  • 1350多精品易语言模块提供下载

    热门讨论 2011-06-06 17:51:09
    DirectX8VB组件调用模块.ec disk.ec DisplaySettings.ec DIY 热键框模块.ec DLL.ec DLL注入模块.ec DOS命令模块.ec dqf1996.ec EC.EC edb-html.ec EdbServer1.0 客户端.ec EDB、高级表格、XLS互换.ec edb到...
  • C#微软培训教材(高清PDF)

    千次下载 热门讨论 2009-07-30 08:51:17
    本书着重介绍语言本身,比较少涉及应用,不错入门书,从头讲起,不怕不明白。 <<page 1>> page begin==================== 目 目目 目 录 录录 录 第一部分 C#语言概述.4 第一章 第一章第一章 第...
  • C#微软培训资料

    2014-01-22 14:10:17
    18.2 在 C #代码中调用 C++和 VB 编写组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 小 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...
  • java源码包---java 源码 大量 实例

    千次下载 热门讨论 2013-04-18 23:15:26
     QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击事件,并得到好友编号,把聊天界面加入到管理类,设置密码保护等。 Java编写网页版魔方游戏 内容索引:JAVA...
  • java源码包2

    千次下载 热门讨论 2013-04-20 11:28:17
     QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击事件,并得到好友编号,把聊天界面加入到管理类,设置密码保护等。 Java编写网页版魔方游戏 内容索引:JAVA...
  • java源码包3

    千次下载 热门讨论 2013-04-20 11:30:13
     QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击事件,并得到好友编号,把聊天界面加入到管理类,设置密码保护等。 Java编写网页版魔方游戏 内容索引:JAVA...
  • java源码包4

    千次下载 热门讨论 2013-04-20 11:31:44
     QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击事件,并得到好友编号,把聊天界面加入到管理类,设置密码保护等。 Java编写网页版魔方游戏 内容索引:JAVA...
  • QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击事件,并得到好友编号,把聊天界面加入到管理类,设置密码保护等。 Java编写网页版魔方游戏 内容索引:JAVA...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击事件,并得到好友编号,把聊天界面加入到管理类,设置密码保护等。 Java编写网页版魔方游戏 内容索引:JAVA...
  • WinRAR_4.0.exe

    2011-02-04 11:34:33
    RAR 将使用这字符串作为命令行默认参数,并将使用 1024KB 字典大小来创建 “固实”压缩文件。 RAR 控制选项使用下列优先级: 命名行开关 最高优先级 在 RAR 变量中开关 低优先级 保存在配置文件中...
  • 实例146 统计字符个数 实例147 实现字节数组和字符串相互转换 实例148 用VB分离出文本框单词 第6章 过程与函数 6.1 自定义过程 实例149 过程值传递参数 实例150 过程引用传递参数 实例151 不借助第3个...

空空如也

空空如也

1 2 3 4
收藏数 65
精华内容 26
热门标签
关键字:

vb比较三个数的大小