[vb对随机产生10个数进行排序]Option Base 1 Dim i As Integer Dim j As Integer Dim a(10) As Integer Private Sub Command1_Click() '1、----------------------------------- 'a(i) = Int(Rnd(1) * 1...+阅读

private sub command1_click()

dim a as integer, b as integer, c as integer

a = (rnd * 80) + 10

b = (rnd * 80) + 10

c = (rnd * 80) + 10

if a >b then t = a: a = b: b = t

if a >c then t = a: a = c: c = t

if b >c then t = b: b = c: c = t

cls

print a, b, c

text1.text = a

text2.text = b

text3.text = c

end sub

可以？

以下为关联文档：

VB中随机产生10个数用直接法对10个数进行降序排序Private Sub main() Dim i, j As Integer Dim min, temp As Integer Randomize For i = 1 To 10 a(i) = 1 + Rnd * 10 print a(i); Next print For i = 1 To 9 min = a(i) F...

VB程序设计：随机产生10个数用两种方法排序1、选择排序发（从小到大） Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 Randomize a(i) = Int(Rnd * 90) + 10 Next i For i = 1 To 9 For j = i + 1...

在 NET中用VB编写随机产生10个数进行排序的代码是什么Randomize() Dim aa(10) As Integer Dim i As Integer Dim j As Integer For i = 0 To 10 aa(i) = Int(100 * Rnd()) Next Dim t As Integer For i = 0 To 10 For j = i To...

任意10个数按所给组合排序1.2.3.4.5.6.7.8.9.10 A B E F G H B D E F G J C E F G I J A B C E F I D E F H I J A C D E G J A C D E H I B C D E H J A C D F G H A B D F G I 01 02 03 04 05 06 0...

如何用Arm汇编语言实现几个数的排序ORG 09B0H QUE: MOV R3,#50H QUE1: MOV A,R3 MOV R0,A MOV R7,#0AH CLR 00H MOV A,R0 Q12: INC R0 MOV R2,A CLR C MOV 22H,R0 CJNE A,22H,Q13 SETB C Q13: MOV A,R2 JC Q11...

冒泡算法升序排序数组中随机生成的10个数public class MaoPiao { /** * 冒泡算法，升序排序数组中随机生成的10个数 */ public static void main(String[] args) { Random rd = new Random(); int a[] = new int[10];...

C中几个数如5 3 7 8 4生成一个单链表并升序排序最简单和#include #define MAXDATA 9999 //最大的数据 struct Node { int data; Node *next; }; Node *Create() { Node *p,*h,*q; q=h=NULL; p=new Node; cin>>p->data; p->next=NU...

VB三个数从小到大排序VB三个数从小到大排序，小班数学：谁大谁小：Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = (Rnd * 80) + 10 b = (Rnd * 80) + 10 c = (Rnd *...

关于进出口贸易按卖方责任的从小到大对13种贸易术语进行排序！关于进出口贸易按卖方责任的从小到大对13种贸易术语进行排序！有关贸易的术语：1。E组（启运） E组仅包括EXW（工厂交货）一种贸易术语。当卖方在其所在地或其他指定的地点（如工厂、工场...