一个数组由十个元素组成，元素值分别由键盘输入。要求实现从大到小的排序。用vb编程_百度知道
一个数组由十个元素组成，元素值分别由键盘输入。要求实现从大到小的排序。用vb编程
提问者采纳
题目有点儿简单,估计你学VB的时间应该不长,文本框中数字有 &quot, 1)
Select Case Asc(S)
Case 48 To 57
Case 65 To 90,
Print &quot, 97 To 122
End Select
Print &quot,文本框中字母有 &quot, & X & &quot,但是能提这个问题,所以给你添加了一些注释,Text)
S = Mid(Text1, I,Private Sub Command1_Click()
Dim I As Integer
Dim X As Integer, 个&quot, Y As Integer
Dim S As String
For I = 1 To Len(Text1,End Sub,Text, 个&quot, & Y & &quot,
提问者评价
这个比较简洁
其他类似问题
请输入您需要的数字,Option ExplicitDim arr(10) As IntegerDim arr1(10) As IntegerDim i As Integer, tmp As IntegerPrivate Sub Command1_Click()
For i = 1 To 10
arr(i) = Val(InputBox(&quot,&quot,))
For i = 1 To 10
For j = i To 10
If arr(i) &lt, arr(j) Then
tmp = arr(i)
arr(i) = arr(j)
arr(j) = tmp
Next iFor i = 1 To 10
Print arr(i),
End Sub, j As Integer,
vb编程的相关知识
其他2条回答
qsort(head,mx]of longint,
end,冒泡排序冒泡排序也是一种简单的排序方法。其基本思想是, end,
n,=d[j], b, while (i&lt,=1 to n do read(d[i]),把它插入到有序部分的合适位置,基准元素的所在位置就是排序后的最终位置。
然后再对基准元素的前后两个区间分别进行快速排序, end,j)and(d[j]&gt,
5,=d[i],i,=1,无序部分包含n个元素。排序时每次从无序部分中选出最小的元素, end
else begin c[k],把它与无序部分的第一个元素交换位置,,=d[head],那么该元素必大于（或等于）有序部分中的所有元素,=d[i],无序部分有n-1个元素。排序过程中每次取出无序部分的第一个元素,是否有序 begin
readln(n),=i+1, for i, arrl2=array[1,一般是选取区间内的第一个元素)作为基准元素,m] of integer,从而使有序部分元素个数增1,j,i-1),则交换,k,d[j] then
sorted,=i+1 to n do
&#47,n] of integer,=n then for r, var
d, const mx=10000,longint,),再重复上面的合并操作,=a[i],Output data,longint,, var
d, if i&lt,=1 to m do read(a[i]),=1 to n do read(b[i]),=1 to n do writeln(d[i]),使较小的元素前移,无序部分元素个数减1。经过n-1次选择和交换后,&#39,&#39,
for i,tail,&gt,Enter l2(sorted),=x)do i,j,整个排序过程结束。
program selectpro,
d[j+1],说明尚未排好序
end,arrl1,k, const mx=10000,k, var
n,直至每个区间为空或只包含一个元素,
&#47,有序部分有n-1个元素,n),
i,=m) and (j&lt,=1 to n do read(d[i]),=false,1,tail),i,=head,&#47,i,有序部分有n个元素,),=i to m do c[m+r], end,整个冒泡排序结束。
program maopao1,n]）中选取一个元素(方便起见,
d[i], begin
for i,d[n]的最小元素
if d[j]&lt,=a[r], write(&#39,=k+1,d[k] then k,
首先从待排序区间（初始时为[1,
归并排序充分应用分治算法的策略,array[1, end,arrl,&#47,
while not sorted do
sorted,=1 to m+n do write(c[i],=1 to n do read(d[i]),Enter l1(sorted),较大的元素后移,i,i then
&#47,arrl2,将n个数分成n个单独的有序数列,选择排序 选择排序是一种简单的排序方法。其基本思想是,快速排序
快速排序是一种基于分治策略的排序方法。其基本思想是,j,
j,r,tail then
qsort(i+1,d[n-1], const mx=10000,=2 to n do
k,array[1,,,际庇行虿糠治, arrl=array[1,
for i, end,=tail,=j,=x,有交换发生,
sorted, begin
readln(n),=j-1,=1,=0, begin
readln(n),第一趟排序结束,
while(j&gt,直到合成一个有序数列。
program gbpx1,=j,n=7,j,=x)do j,boolean,=i,=1 to n do writeln(d[i]), var a,
首先比较d[n]和d[n-1],j,=true,然后从两端向中间依次进行比较和交换,把位于基准元素之后且比基准元素小的交换到前面,
while i&lt,mx]of longint,&#47,=1 to n do read(d[i]),j,longint,归并排序
归并排序的基本思想,mx]of longint,array[1,排序结束。
program insert,&#47,
end, writeln(&#39,=m then for r, for i,交换
j,则d[1]为最小的元素。然后在d[2],j do
while(i&lt, begin write(&#39,=n-1 downto i do
if d[j+1]&lt,=d[i],=k,无序部分只有1个元素,就像水底的气泡一样逐渐向上冒。 具体过程如下,=j-1,直至基准元素位于前后两部分的交界处。这样前面部分的所有元素都小于等于基准元素,k,
for j,,=d[j], type arrl1=array[1,=d[k],i, 2,
for i, for i,
while(i&lt,
通过相邻元素之间的比较和交换使较小的元素逐渐从后向前移动,=k,&#39, 3,=d[j+1], d[i],,每个数列中仅有一个数字,k)do
d[j+1],),=i+1,且该元素大于（或等于）有序部分中的所有元素,直到比较d[2]和d[1]并使较小的元素前移,
&#47,integer,
把待排序的n个元素看作一个有序部分和一个无序部分, i, 4,接着比较d[n-1]和d[n-2],后面部分的所有元素均大于等于基准元素,
d,插入排序 插入排序也是一种简单的排序方法。其基本思想是,d[n]间进行第二趟排序,
sorted, d[k],假定已有序
for j,n-1趟排序后,
if head&lt,
end,d[k]为d[i],,=j to n do c[n+r],,=1 to n do writeln(d[i]), const m=3,经过n-1次这样的处理后, const mx=10000, writeln,
for i,以此类推,,array[1,使有序部分元素个数增1,每个数列中有2个数(最后一列可能仅有一个数),mx]of longint,再将相邻的两列数据合并成一个有序数列, c,,end,=n) do begin k,=i-1, if a[i]&lt,
把待排序的n个元素看作一个有序部分和一个无序部分,
d,integer,m+n] of integer,k,=d[j],0)and(d[j]&gt,若d[n]&lt,longint), procedure qsort(head,
j,=b[j],5),, begin
readln(n),
i+1&lt,&#47,=1, var
x,整个快速排序结束。
program quicksort, if j&lt, end,j)and(d[i]&lt,使第二小元素前移到d[2]位置,际庇行虿糠种挥1个元素,
d[j+1],把位于基准元素之前且比基准元素大的交换到后面,longint,
i,=b[j] then begin c[k],=b[r],=1 to n-1 do
冒泡泡..Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim sl() As Integer
Dim n As Integer
n = Val(InputBox(&请输入一组数用来排序.&))
If n = 0 Then
ReDim sl(1 To n)
For i = 1 To n
sl(i) = InputBox(&Enter data:&)
For i = 1 To n
Print sl(i);
For i = n To 2 Step -1
For j = 1 To i - 1
If sl(j) & sl(j + 1) Then
sl(j) = sl(j + 1)
sl(j + 1) = t
For i = 1 To n
Print sl(i);
Next iEnd Sub
等待您来回答
您可能关注的推广回答者：
下载知道APP
随时随地咨询
出门在外也不愁怎样用vb编程使在文本框中输入的秒数，单击命令按钮后转换成时分秒并在便签上显示_百度知道
怎样用vb编程使在文本框中输入的秒数，单击命令按钮后转换成时分秒并在便签上显示
提问者采纳
Private Sub Command1_Click()
Dim i, j, iHour, iMinute, iSecond As Integer
i = Val(Text1.Text)
iSecond = i Mod 60
i = i \ 60
iMinute = i Mod 60
i = i \ 60
iHour = i Mod 60
Label1.Caption = Str(iHour) & &小时& & Str(iMinute) & &分& & Str(iSecond) & &秒&End Sub
提问者评价
实在是太太太感谢了~~~
其他类似问题
按默认排序
其他2条回答
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As Integera = Val(Text1.Text)If a & 60 Thenc = a Mod 60b = (a - c) / 60Elseb = 0: c = aEnd IfLabel1.Caption = Str(b) & &分& & Str(c) & &秒&End Sub数值输入的不要太大 否则会溢出
我没有考虑小时的问题~
MsgBox DateAdd(&s&,:00&)
命令按钮的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁用VB编写一个求三个数中最大值MAX和最小值MIN的过程，然后用这个过程分别求三个数，五个数，七个数中的最大值和最小值。
用VB编写一个求三个数中最大值MAX和最小值MIN的过程，然后用这个过程分别求三个数，五个数，七个数中的最大值和最小值。
哪位高手帮帮忙。
Private Sub Form_Load()Dim a(2) As SingleDim b(4) As SingleDim c(6) As Singlea(0) = InputBox("请输入第一个数(共3个):")b(0) = a(0)c(0) = a(0)a(1) = InputBox("请输入第二个数(共3个):")b(1) = a(1)c(1) = a(1)a(2) = InputBox("请输入第三个数(共3个):")b(2) = a(2)c(2) = a(2)MsgBox "这三个数中的最大数是:" & Max(a) & "，这三个数中的最小数是:" & Min(a)b(3) = InputBox("请输入第四个数(共5个):")c(3) = b(3)b(4) = InputBox("请输入第五个数(共5个):")c(4) = b(4)MsgBox "这五个数中的最大数是:" & Max(b) & "，这五个数中的最小数是:" & Min(b)c(5) = InputBox("请输入第六个数(共6个):")c(6) = InputBox("请输入第七个数(共7个):")MsgBox "这七个数中的最大数是:" & Max(c) & "，这七个数中的最小数是:" & Min(c)End SubFunction Max(ByRef a() As Single) As Single '比较一些数找出最大数Dim i As IntegerDim b As Singleb = a(0)For i = 1 To UBound(a)
If b & a(i) Then
End IfNextMax = bEnd FunctionFunction Min(ByRef a() As Single) As Single '比较一些数找出最小数Dim i As IntegerDim b As Singleb = a(0)For i = 1 To UBound(a)
If b & a(i) Then
End IfNextMin = bEnd Function把代码直接复制到窗体中测试即可
的感言：太感谢了！！！
其他回答 (2)
Max1(val1,val2)
if val1&val2 then Max1=val1 else Max1=val2
end function
Min1(val1,val2)
if val1&val2 then Min1=val2 else Min1=val1
end function
不管比较多少个数，都是从两个数比较做起
可以迭代这个函数即可
s1=Max1(max1(34,23),47)
即为求三个数的最大数
麻烦说的仔细点，不太明白！！！
input "n=";n dim a[n] as integer for i=1 to n input a[i] next i
dim max as integer
dim min as integermax=a[1]
mix=a[1] for i=2 to n if max&a[i] then max=a[i]next i
for i=2 to n if min&a[i] then min=a[i]next i print "最大值为：" & max & "，最小值：" & minend
这个可以根据你输入的个数，再输入对应的值求出最大值和最小值
语法不对吧！！怎么运行不了啊！！
等待您来回答
编程领域专家用VB编程输出3——200之间的所有素数_百度知道
用VB编程输出3——200之间的所有素数
VB 初级入门，求教各位高手
提问者采纳
Private Sub Command1_Click()
Dim a() As Double, nStr As StringDim n#, m#, x&, t#Label4.Caption = &这是求一个数域里面有多少个质数并且把那些是质数输入到值中！&Label6.Caption = &&n = InputBox(&请输入要求质数数域的下限：&, &求一个数域里面的全部质数：&)m = InputBox(&请输入要求质数数域的上限：&, &求一个数域里面的全部质数：&)t = Now()
Call FindSuShu(n, m, a, x) '查找大于17的5个素数存入数组a
'Call FindSuShu(1, 100, a)
'查找1到100之间的所有个素数
'显示到 Text1
For i = LBound(a) To UBound(a)
nStr = nStr & a(i) & &； &
Next t = Now - tt = Round(t * 10 ^ 8, 0)TextBox1.Text = & 从（& & n & &）到（& & m & &）的数域里面质数个数为：（& & x & &）个；用个时间为：（& & t & &）毫秒；质数清单如下：& & nStrEnd SubPrivate Sub FindSuShu(FromS As Double, ToS As Double, Su() As Double, m As Long, Optional Ge As Long)
'查找位于 FromS 和 ToS 之间的质数（素数），存入数组 Su()
'Ge 表示查找个数， 如果指定 Ge，则忽略 ToS
Dim i As Double, j As Double, SuAll() As Double, S As Long, MaxN As Double
Dim ReS As Long
ReDim SuAll(1 To 1): SuAll(1) = 2
ReDim Su(1 To 1)
If FromS &= 2 And ToS &= 2 Then ReS = 1: Su(1) = 2
If Ge & 1 And i & ToS Then Exit Do
MaxN = i ^ 0.5 '比较 I 的一半
For j = 1 To S
If i Mod SuAll(j) = 0 Then GoTo NextI
'不是质数
If SuAll(j) & MaxN Then Exit For
'是质数
S = S + 1 '找到质数的总个数
ReDim Preserve SuAll(1 To S)
SuAll(S) = i
If i & FromS Then GoTo NextI
ReS = ReS + 1 '返回质数的总个数
ReDim Preserve Su(1 To ReS)
Su(ReS) = i
If Ge & 0 And ReS &= Ge Then Exit DoNextI:
For j = 1 To S
If SuAll(j) & FromS Then S = S - 1
If SuAll(j) & FromS Then Exit For
Next jm = SEnd Sub
其他类似问题
素数的相关知识
其他2条回答
Private Sub Command1_Click()For i = 3 To 200
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next If j & Int(Sqr(i)) Then Print iNextEnd Sub
Private Sub Command1_Click()For i = 3 To 200
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next If j & Int(Sqr(i)) Then Print iNextEnd Sub 回答者：
tianqing20wen - 同进士出身 六级
等待您来回答
您可能关注的推广回答者：
下载知道APP
随时随地咨询
出门在外也不愁