作业帮用VB 找出（1,－5,68,8,-23,0,478,21,5）中的最大值和最小值,不能使用min()t max()之类的函数.
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/06 05:02:24
x){>eE³}Owa~O=Ov}>ٜK?mtR yE'{
,QM|@mO>A&H _2KR K xl
M2};\P-:PH`Wl';6@^[4Bb*\"g
KKq "1 9%pu
ՁPPO bS~i^?u (P5@B!t( ,4 &BX< #¢td"b_jE Ly%Q7%[
I|
~qAb (? W %
用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