题目
用VB 找出(1,-5,68,8,-23,0,478,21,5)中的最大值和最小值,不能使用min()t max()之类的函数.
提问时间:2020-10-27
答案
Private Sub Form_Click()
Dim 数组, 最大值%, 最小值%, 临时串$, 计数%
临时串 = "1,-5,68,8,-23,0,478,21,5"
数组 = Split(临时串, ",")
最大值 = 数组(LBound(数组))
最小值 = 数组(LBound(数组))
For 计数 = LBound(数组) To UBound(数组)
If 数组(计数) < 最小值 Then 最小值 = 数组(计数)
If 数组(计数) > 最大值 Then 最大值 = 数组(计数)
Next
Print "最大值=" & 最大值, "最小值=" & 最小值
End Sub
Dim 数组, 最大值%, 最小值%, 临时串$, 计数%
临时串 = "1,-5,68,8,-23,0,478,21,5"
数组 = Split(临时串, ",")
最大值 = 数组(LBound(数组))
最小值 = 数组(LBound(数组))
For 计数 = LBound(数组) To UBound(数组)
If 数组(计数) < 最小值 Then 最小值 = 数组(计数)
If 数组(计数) > 最大值 Then 最大值 = 数组(计数)
Next
Print "最大值=" & 最大值, "最小值=" & 最小值
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1安装实况10时出现you must reboot after previous operation
- 2一个长方形如果宽不变,长增加6米,面积就增加30平方米;如果长不变,宽增加三米,面积就增加24平方米.这个长方
- 3***基因转入微生物细胞的方法主要有哪些
- 4要详细解题思路(如何列出式子)
- 51+5+6+8+3+9等于多少
- 6已知幂函数f(x)=x−2m2+m+3(m∈Z) 为偶函数,且在(0,+∞)上是增函数. (1)求m的值,并确定f(x)的解析式; (2)若g(x)=loga[f(x)-ax](a>0且a≠1)在区间
- 7要列方程解,
- 8(1)试在表中空格处填上与√2、√3相关的数,是表中每行、每列、每条斜对角线上的3个数之和都等于0 (2)
- 9以下情况中,物体处于平衡状态的有( )A.单摆摆球通过平衡位置时 B.竖直方向的弹簧振子通过平衡位置时 选哪一项?为什么?
- 10制氧气用什么法?
热门考点
- 1will you come to my birthday party?yes____
- 2夏商周为什么汇集于黄河流域
- 3急,关于重力式挡土墙稳定计算的!
- 4边际效用是0,意味着什么?
- 5立方根数学题
- 6①_______the biggest ocean with the size of the whole earth,it doesn’t seem big at all.
- 7某服装厂去年加工服装的收入总额是840万元.按国家的税率规定,应缴纳17%的增值税.一共要缴纳多少万元增值税?
- 8-4a²b-6ab²+8ab
- 9陕西历史博物馆英语导游词
- 10已知x,y∈R,且(x-2)^2+y^2=3,那么y/x的最大值是?