用VB 找出(1,-5,68,8,-23,0,478,21,5)中的最大值和最小值,不能使用min()t max()之类的函数.

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/07 00:40:14
用VB 找出(1,-5,68,8,-23,0,478,21,5)中的最大值和最小值,不能使用min()t max()之类的函数.

用VB 找出(1,-5,68,8,-23,0,478,21,5)中的最大值和最小值,不能使用min()t max()之类的函数.
用VB 找出(1,-5,68,8,-23,0,478,21,5)中的最大值和最小值,不能使用min()t max()之类的函数.

用VB 找出(1,-5,68,8,-23,0,478,21,5)中的最大值和最小值,不能使用min()t max()之类的函数.
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

用VB 找出(1,-5,68,8,-23,0,478,21,5)中的最大值和最小值,不能使用min()t max()之类的函数. vb编程 1 已知三个数abc(用随机数产生)找出其中最大值 2输入一个整数,判断它能否被3,5,7整除用vb编程解决 用VB语言找出大于200的最小的质数 用VB语言找出大于2345的最小的质数 找出能被3,5,7除,余数为1的最小正整数的VB代码怎么写? 用VB语言编程,在1-10000中,找出同时能满足用3除余2,用5除余3,用7除余4的所有整数 vb 用[1,100]之间的随机数生成5行5列的矩阵,将其写入d盘顺序文件a1.txt中,然后找出其中最小值,将最小值追加到a1.txt文件中 VB中的阶乘累加求和1!+2!+3!+4!+5!+6!+7!+8!+9!+10!我是VB的初学者 用for循环解 急用! 输入一个正整数,找出大于该数的最小素数用vb怎么编 用VB程序编写 和数能表示1到23的5个正整数 (1+2+3-4+5)+(6+7+8-9+10)+.+(29996+29997)用VB怎么写? 找出所有4位数的升序数和回文数,使用函数实现回文数和升序数的判断.用VB编程,马上啊.1、单击“回文数”按钮,找出所有4位数中的回文数.2、单击“升序数”按钮,找出所有4位数中的升序数.3 找出1000以内所有的个位数为3素数,并统计其个数.用vb写的程序 VB中IIF(a>5,-1, 有一组数列,2/1+3/2+5/3+8/5+13/8+21/13……,求数列的前20项,用VB中的循环来做是vb,不要其他 vb编程 用递归函数求数列1,1,2,3,5,8,13,21.的第N项RT VB作业,求助.数组1、求 Fibonacci序列1、1、2、3、5、8、13、.前50项的和.2、随机输入20个元素存放到数组,找出其中的最大值、最小值及它们的位置.Do Loop循环 1、利用pi/4=1-1/3+1/5-1/7+…,求pi的值 第一题 用vb随机生成8个两位数,前四个是偶数,后四个是奇数.在线等,急.第二题查找出100以内的孪生素数(孪生素数是数本身和比它大2的数都是素数,如3和5),查找结果显示在列表框.好的追加2