
dim max as interage
dim a(3) as interage
for i=1 to 4
text1=val(inputbox("要输入的数","计算"))
if text1="" then
msgbox"请输入"
elseif text1>0 or text<1000 then
a(i)=text1
else
msgbox"输入错误"
endif
next i
'上面是用于输入的
max=a(1)
for j=2 to 4
if max<a(j+1) then
max=a(j+1)
endif
next j
print max
'这是查找最大值的
还有什么疑问的问我以前 50 中有 Max() 和 Min() 函数用来求最大/小值;但 60 后没有了,你只能自己写,
参考:
Public Function Max(ByRef SZtmp()) As Double
Dim i%
Max = 0
For i = LBound(SZtmp) To UBound(SZtmp)
If CDbl(SZtmp(i)) > Max
Then Max = CDbl(SZtmp(i))
Next i
End Function
Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说,VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
对象与类
对象(Object)
Visual Basic 具有“面向对象”的特性,Visual Basic 应用种程序的基本单元是对象,用 Visual Basic 编程就是用“对象”组装程序。这种“面向对象”的编程方法与传统的全部用代码编制程序的方法有很大区别,就像用集成电路芯片组装电视机和用三极管,二极管组装电视机的区别一样。显然,“面向对象”的编程方法比传统的编程方法更简单,更方便,并且编写出的程序也更加稳定。因此,“对象”可以被看做 Visual Basic 程序设计的核心。
在 Visual Basic 程序设计中,对象中还可以包含头,手,腿,脚等部位,其中的每个部位又可以单独作为作为被研究的对象。在 Visual Basic 程序设计中,整个应用程序就是一个对象,应用程序中又包含着窗体(Form),命令按钮(Command),菜单(Menu)等对象。
类(Class)
在 Visual Basic 中,对象是由类创建的,因此对象可以说是类的具体实例,这就好比是蛋糕和做蛋糕的模具之间的关系。
各种不同的对象分属于各种不同的种类。同一类对象可能具有一些不同的特征(或是说同一类对象不一定具有完全相同的特性);具有某些相同的特性的对象,不一定是同一类对象,这就好比是人和猴子虽然都有身高、性别等特征,但二者之间还存在着智商、语言等特性差异,这两个对象之间的特性相差很多,根本就不能算是同一类对象。而男人和女人,虽然有着性别、生理等方面的差异,但他们绝大部分特性相同,可以算是同一种类。由此,可以归结为一句话:同一类对象的绝大部分特性相同。1、在窗体上添加一个命令按钮。
2、对控件进行命名,分别为“输出”和“退出”,并设置窗体中命令按钮的属性。
3、双击“输出”命令按钮,编辑其代码。
4、双击“退出”命令按钮,编辑其代码。
5、运行程序,点击“输出”命令按钮,跳出下面的页面。随机输入三个数字,比较它们的大小。假设比较6,3, 7 三个数字的大小。
6、在页面中输入数字“6”,点击“确定”,再依次输入“3”,“7”数字。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)