如何用vb设计一个程序,可以将输入的10个以上的数字 按大小顺序排列出来,可以给我思路,也可以给我答案.

其实从思想上来说,就是一个排序的思路问题.排序的方法有很多.说2个最简单的(设让结果从小到大排列)方法一假设10个数把第一个依次与他后面的比较,如果比后面的大,就把位子换下,这样当第一个看完后面9个数

在Vb中,.编写程序,首先判断给出的3条边能否构成三角形,如可以,计算并输出该三角形的面积,输入0结束程序

Subabc()'输入三角形三个边长,计算其面积Dima,b,c,sDos=InputBox("请输入三角形的三个边长,用半角逗号分隔."&Chr(13)&"输入-1时结束程序.")IfVal(s)=

excel算平均值,50多个评委,去掉比较高的三个分数,和三个比较低的分数,然后求平均值,怎么算啊?

把数据放在A栏：除A栏以外的任意位置输入=(SUM($A$1:$A$65535)-SUM(SMALL($A$1:$A$65535,1),SMALL($A$1:$A$65535,2),SMALL($A$

vb:输入10个整数求平均值,并求出大于、等于、小于平均值的数的个数(使用选择结构、循环结构、数组).

Dima(1To10)AsInteger'定义10个数组Dimaa(1To9)AsInteger'定义9个空格数组DimnAsInteger'定义空格数DimsAsInteger'数组和Form1.C

VB编程题:任意输入10个整型数,显示其中奇数和偶数的个数,..

以下代码为输入任意多个数字进行统计如果输入0则退出循环显示出统计结果PrivateSubCommand1_Click()DimiAsIntegerDimqAsIntegerDimoAsIntegerq

VB 连续输入10数字,显示其中奇数的个数和偶数的个数

用一个一维数组a就可以解决了奇数:aimod2=1,则加1偶数:10-i再问：完全小白求帮助再答：新建一个"标准EXE"窗体,拖一个文本框进去,双击,输入如下代码:PrivateSubCommand1

在VB中不停产生随机数,直至有10个质数为止,将所有随机数输入LIST1,将10个质数输入LIST2中.

OptionExplicitPrivateSubCommand1_Click()DimAAsString,iAsInteger,DDAsSingleRandomizeDoDD=Int(Rnd*1000

VB编程,输入n个整数,求它们的最大公约数.

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

输入n个 数,求出它们的最大值,最小值和平均值?用VB怎么编写程序

1.你用自己的方法将这N个数字分别用数组a(1)-a(n)表示2.求最大fori=1ton-1ifa(i)>a(i+1)thenmax=a(i)elsemax=a(i+1)endifnexti3.求最

VB编程 输入七个评委的打分,计算出7个评委的平均成绩

PrivateSubCommand1_Click()Dimsum,aAsIntegerFori=1To7a=InputBox("")sum=sum+aNextPrintsum/7EndSu

求一vb程序代码,输入三个数字判断是等腰三角形,等边三角形,一般三角形还是不是三角形.只要是输出结果有4个的vb代码都可

dima,b,casdoublePrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa+

计算n个电阻并联后的阻值(其中n的值由文本框输入,n个不同的阻值通过循环控制输入.电脑编程 vb 代码

PrivateSubCommand1_Click()Fori=1ToVal(Text1)Sum=Sum+1/Val(InputBox("请输入阻值"))NextMsgBox"并联后的阻值"&1/Val

急!C语言编程：10个评委的给分中,去掉一个最高分,去掉一个最低分,剩余8个分数求平均值.请编程实现之

#include"stdio.h"main(){intinteger,i,max,min,sum;max=0;min=100;sum=0;for(i=1;i100||integermax)max=in

Java编程去掉一个最高分一个最低分计算平均分,输入的第一个数据是n,表示评委人数,然后是n个评委的分数

x=nextDouble();这句应该是kb.nextDouble()才对吧再问：第13行找不到符号。。。再答：你for循环里貌似写的是num=字母o而不是数字0吧。再问：fuck。。。thankyo

VB程序设计大奖赛评分程序设计 编写程序实现在歌手大奖赛中,有10个评委为参赛的选手打分,分数为1到100

PrivateSubCommand1_Click()s=0zf=0Fori=1To10s=InputBox("第"&i&"位评委给分:")zf=zf+sNextiPrint"总得分："&zfEndSu

一个关于评委打分的VB程序.

楼主您好!代码如下：在窗体上画一个按钮,一个标签,然后复制粘贴代码就OK了Public Sub DaFen()    Dim Pi

vb 输入10个整数,计算偶数个数 ,奇数和.

建立一个text1、一个command1,代码如下：PrivateSubCommand1_Click()IfNotIsNumeric(Text1.Text)ThenMsgBox("请先在框中输入数字的

C编程在歌星大奖赛中有10个评委为参赛选手打分 分数为1~100选手得分为去掉最高分和最低分的平均值

似乎你的comments不正确阿：印象里应该是int类型的数据范围是：[-32768,+32767],ifsizeof(int)==2再问：这是原题  如果将max=100,min

VB 输入3个不同的数,将它们从大到小排序.

这个程序需要将Form的AutoRedraw属性设为TrueFunction比大小(a,b,c)Dimmax,minAslongmax=a:min=bifamaxthenPrintc&""&max&"