| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 781 人关注过本帖
标题:VB数组排序的问题
只看楼主 加入收藏
sfwzg123
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2011-3-30
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:5 
VB数组排序的问题
Private Sub Command1_Click()
Dim a(9) As Integer, i, j, t As Integer
  For i = 0 To 9
   a(i) = InputBox("请输入数字!")
    Print a(i);
  Next i
For i = 1 To 8
  For j = 9 To i
      If a(j) < a(j - 1) Then
      t = a(j): a(j) = a(j - 1): a(j - 1) = t
      End If
  Next j
Next i
Print "after compositor the array is :"
  For i = 0 To 9
  Print a(i);
  Next i
End Sub

经过循环后相当于没循环,直接就把输入的数组输出了!怎么解决这个问题?调用函数吗?请高手指导。
用C语言编写上述程序如下:
#include "stdio.h"
main()
{int a[10],i,j,t;
  printf("\nplease input array!\n");
  for(i=0;i<10;i++)
  scanf("%d",&a[i]) ;
  for(i=0;i<9;i++)
  {
  for(j=10;j>i;j--)
     {
      if(a[j]<a[j-1])
      {t=a[j];a[j]=a[j-1];a[j-1]=t;}
     }
  }
  printf("\nafter compositor the array is:\n") ;
  for(i=0;i<10;i++)
  printf("%d  ",a[i]);
 }
搜索更多相关主题的帖子: C语言 
2011-03-31 17:48
qq1023569223
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
来 自:湖南科技大学
等 级:贵宾
威 望:26
帖 子:2753
专家分:13404
注 册:2010-12-22
收藏
得分:5 
Private Sub Command1_Click()
Dim a(9) As Integer, i As Integer, j As Integer, t As Integer
  For i = 0 To 8
   a(i) = InputBox("请输入数字!")
    Print a(i);
  Next i
For i = 1 To 7
For j = 9 To i+1 step -1
      If a(j) < a(j - 1) Then
      t = a(j): a(j) = a(j - 1): a(j - 1) = t
      End If
  Next j
Next i
Print "after compositor the array is :"
  For i = 0 To 8
  Print a(i);
  Next i
End Sub


   唯实惟新 至诚致志
2011-03-31 20:52
sfwzg123
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2011-3-30
收藏
得分:0 
回复 2楼 qq1023569223
谢谢,但我感觉有些数字还是没有排好啊。
2011-04-01 10:40
qq1023569223
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
来 自:湖南科技大学
等 级:贵宾
威 望:26
帖 子:2753
专家分:13404
注 册:2010-12-22
收藏
得分:10 
如果你的C程序是正确的,那我的应该不会错的吧!试一下下面的:
Private Sub Command1_Click()
Dim a(9) As Integer, i As Integer, j As Integer, t As Integer
  For i = 0 To 8
   a(i) = InputBox("请输入数字!")
    Print a(i);
  Next i
For i = 1 To 7
For j = i+1 To 8
      If a(j) < a(i) Then
      t = a(j): a(j) = a(i): a(i) = t
      End If
  Next j
Next i
Print "after compositor the array is :"
  For i = 0 To 8
  Print a(i);
  Next i
End Sub



[ 本帖最后由 qq1023569223 于 2011-4-1 13:23 编辑 ]

   唯实惟新 至诚致志
2011-04-01 13:22
suihuizhang
Rank: 1
等 级:新手上路
帖 子:2
专家分:5
注 册:2011-4-1
收藏
得分:5 
Private Sub Command1_Click()
 Dim a(9) As Integer, i, j, t As Integer
   For i = 0 To 9
    a(i) = InputBox("请输入数字!")
     Print a(i);
   Next i
 For i = 1 To 8
   For j = 1 To 9 - i
       If a(j) < a(j - 1) Then
       t = a(j): a(j) = a(j - 1): a(j - 1) = t
       End If
   Next j
 Next i
 Print "after compositor the array is :"
   For i = 0 To 9
   Print a(i);
   Next i
 End Sub
2011-04-01 23:26
sfwzg123
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2011-3-30
收藏
得分:0 
回复 4楼 qq1023569223
嗯。是对的
2011-04-02 07:59
快速回复:VB数组排序的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030747 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved