vb编程 用for循环向一维数组中输入10个数,找出其中的最大值和最小值,并且交换最大值_百度知道
vb编程 用for循环向一维数组中输入10个数,找出其中的最大值和最小值,并且交换最大值
输入十个整数&quot我的代码是：Dim x(1 To 10);0&))Label4;, &quot, max, min As Stringx(10) = Val(InputBox(&, &输入十个整数&quot
我有更好的答案
没用循环是做不了这件事的。Dim x(1 To 10) As Integer, max As Integer, min As Integer,i As IntegerLabel1, &0&quot题目不是交代了要用循环，但是你没用啊.Caption = Label4.Caption & x(i) & &quot.Caption = Label4.Caption & vbCrlf & & &Next iLabel4;Max=& & max & &
Min=& & min还有你没有说什么是“交换最大值”.Caption = &For i = 1 To 10
x(i) = Val(InputBox(&输入第“ & i & &quot: min = x(1)
If x(i) & max Then max = x(i)
If x(i) & min Then min = x(i)
If i = 1 Then max = x(1) ;个整数&, &输入整数&;&quot
采纳率：83%
&&End&If&&&&&&&&End&Dim&x(1&&&&&&&&&&10);&&min&1&Then&&&&&&&&&&&&max&=&max&&Then&&&If&b;=&Val(x(i)):&min&&&&&If&i&=&max&&max&&&&Print&&&&To&&&max,&&&&&&vbNewLine&&&&max=&&&=&i&nbsp,&&&&Val(x(i))&&&&&&&&&&&&&&&&b&,&i,&Int(Rnd&&&nbsp,&&nbsp,&&&nbsp,&&&a&=&&&a&&&&&&&&Else&&&&&&&&&&&&If&Val(x(i))&&&&i;&*&100))&&&&nbsp,&&&&&&nbsp:&&&&&&&&&Print&Join(x)&&=&min:&x(b)&=&=&InputBox(&a;&&&&a&=&&&&&&&t&&&&For&&min&=&&Next&LBound(x)&To&UBound(x)&&i;&&&&&&&&&x(a)&x(i)&&&&&&nbsp:&i&&&&&&&&&&&&End&If&&i&=&&&&b&=&max&Then&&&&&&&&&&&&&&&&max&nbspPrivate&Sub&&Val(x(i))&&&min&If&&&&=&Val(x(i))&mim=&Join(x)End&Command1_Click()&&vbNewLine&&&nbsp
为您推荐：
其他类似问题
vb编程的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。一个vb程序,从n个数中挑出最大的数_百度知道
一个vb程序,从n个数中挑出最大的数
1,读入n的值
2,读入第一个数,则将此数值赋值给max,赋值给max
3,依次读入后n-1个数,与max比较,若数值大于max分析
我有更好的答案
请输入第&quotDim n,)For i = 1 To n 'n为要输入几个数a = InputBox(& & i & &个数值！&)If a & max Then max = aNext iPrint &请输入n的数值！&quot, aPrivate Sub Form_Click()max = 0n = InputBox(&quot
max=num[i];/把n-1个数 弄成数组 然后遍历 每一个进行比较for(int i=0;i&i++){
if( num[i]& int[] num=new int[n-1]; 第一个数int max=num1我用C#写把 只要思想懂了 就可以了int num1=9
着你不是在百度上问过了么？我看见了
为您推荐：
其他类似问题
您可能关注的内容
vb程序的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。姹倄:閫氳繃姣旇緝For璇?彞涓?殑鍚庨」鍑忓墠椤瑰緱鍑簓鏈夋渶澶у}