-
VB比较三个数的大小
2012-04-28 21:15:09Private 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 ...PrintPrivate 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 Integera = 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 = maxEnd 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
三·心得体会
三个数的比较大小在两个数的大小程序上加大了难度,但是也还是比较简单,看来打好基础是非常重要的。
-
两个数与三个数比较输出最大值编程
2012-04-26 17:27:09两个数与三个数比较输出最大值的编程时比较多个数的大小输出最大值的编程的基础,简单,易懂,是学习vb基础学者的必修课, 两个数比较输出最大值的编程如下: If a>b then print a else ... -
十个随机数排列(vb代码)
2013-02-19 20:48:09在VB中,通过编写程序代码,找出最大的数和最小的数很简单,三个数比较大小也很简单,前今天碰到了一个问题,就是,用VB制作一个小程序,实现十个随机数的排列。 我查了一些资料,在网上找到了有几个很有趣的排列... -
可视化编程VB-If语句-单双分支结构-习题含复习资料.doc
2020-07-11 05:53:451. 应用窗体单击事件从键盘输入两个数分别放在x和y变量中比较它们大小要求将大数放在x中小数放在y中 分析两个变量交换必须借助第三个变量并且注意赋值语句的写法等价的行是 x的命令按钮输入以下代码 新建一个名称为... -
VB编程资源大全(源码 其它3)
2007-10-18 15:06:06screenres.zip 得到计算机屏幕的大小(2KB) 690,editregistry.zip 编辑注册表 (2KB) 691,stop.zip 锁定计算机的程序(5KB) 692,wbasket.zip 将文件移动到垃圾箱中(2KB) 693,opsys.zip ... -
VB编程资源大全(源码 其它1)
2007-10-18 15:20:26screenres.zip 得到计算机屏幕的大小(2KB) 690,editregistry.zip 编辑注册表 (2KB) 691,stop.zip 锁定计算机的程序(5KB) 692,wbasket.zip 将文件移动到垃圾箱中(2KB) 693,opsys.zip ... -
VB编程资源大全(源码 其它2)
2007-10-18 15:18:10screenres.zip 得到计算机屏幕的大小(2KB) 690,editregistry.zip 编辑注册表 (2KB) 691,stop.zip 锁定计算机的程序(5KB) 692,wbasket.zip 将文件移动到垃圾箱中(2KB) 693,opsys.zip ... -
VB编程资源大全(源码 其它4)
2007-10-18 15:06:41screenres.zip 得到计算机屏幕的大小(2KB) 690,editregistry.zip 编辑注册表 (2KB) 691,stop.zip 锁定计算机的程序(5KB) 692,wbasket.zip 将文件移动到垃圾箱中(2KB) 693,opsys.zip ... -
成百上千个Java 源码DEMO 4(1-4是独立压缩包)
2017-03-29 17:40:59QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA... -
成百上千个Java 源码DEMO 3(1-4是独立压缩包)
2017-03-29 17:39:54QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA... -
1345个易语言模块
2012-01-27 19:41:591345个易语言模块,易语言模块大集合,够你用的啦 1亦思验证码识别1.5免费版.ec 24位转单色位图模块.ec 32张发牌.ec 3D引擎支持库-eOgre.ec 69msn.ec ACCESS 到高级表格.ec Access操作.ec Access数据库压缩修复新建.... -
1350多个精品易语言模块
2015-07-26 12:21:301350多个精品易语言模块提供下载介绍 1亦思验证码识别1.5免费版.ec 24位转单色位图模块.ec 32张发牌.ec 3D引擎支持库-eOgre.ec 69msn.ec ACCESS 到高级表格.ec Access操作.ec Access数据库压缩修复新建.ec ACCSEE... -
surfer9汉化版-单文件未拆分的完整版
2012-04-02 11:35:32----您必须做三个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:09DirectX8VB组件调用模块.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:1718.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:26QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA... -
java源码包2
2013-04-20 11:28:17QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA... -
java源码包3
2013-04-20 11:30:13QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA... -
java源码包4
2013-04-20 11:31:44QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA... -
JAVA上百实例源码以及开源项目源代码
2018-12-11 17:07:42QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA... -
JAVA上百实例源码以及开源项目
2016-01-03 17:37:40QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA... -
WinRAR_4.0.exe
2011-02-04 11:34:33RAR 将使用这个字符串作为命令行的默认参数,并将使用 1024KB 字典大小来创建 “固实”压缩文件。 RAR 控制选项使用下列优先级: 命名行开关 最高优先级 在 RAR 变量中的开关 低优先级 保存在配置文件中的... -
Visual Basic开发实战1200例(第Ⅰ卷).(清华出版.孙秀梅.巩建华).part2
2016-06-14 11:23:42实例146 统计字符个数 实例147 实现字节数组和字符串的相互转换 实例148 用VB分离出文本框的单词 第6章 过程与函数 6.1 自定义过程 实例149 过程值传递参数 实例150 过程引用传递参数 实例151 不借助第3个...
收藏数
65
精华内容
26