33问答网
所有问题
VB编写以下程序: 随机产生20个100以内的正整数,按从小到大的顺序输出在窗体上,每行打印5个。
如题所述
举报该问题
推荐答案 2010-11-01
Private Sub Command1_Click()
Dim arr(1 To 20)
For i = 1 To 20
arr(i) = Int(Rnd * 99) + 1
Next
For i = 1 To 20
For j = i + 1 To 20
If arr(j) < arr(i) Then
a = arr(j)
arr(j) = arr(i)
arr(i) = a
End If
Next
Next
Print Join(arr)
End Sub
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://33.wendadaohang.com/zd/R5hcRhhP5.html
相似回答
VB编程:
随即
产生100
~500之间的
20个随机整数,按
升序排列后
,在窗体上
按...
答:
Private Sub Command1_Click()Randomize For i = 1 To 20 aaa(i) = Int(Rnd * 401 +
100
)Next i For i = 1 To 19 For j = i To 20 If aaa(i) > aaa(j) Then temp = aaa(i)aaa(i) = aaa(j)aaa(j) = temp End If Next j Next i For i = 1 To 20 Print aaa(i...
用VB
,
随机生成20个100以内的正整数,
将其中的奇数和偶数分两行显示在...
答:
Private Sub Form_Activate()Dim myarray(1 To 20) As Integer Dim myarray2(1 To 20) As Integer Dim myarray3(1 To 20) As Integer Dim j As Integer j = 1 Dim k As Integer k = 1 Dim i As Integer For i = 1 To 20 Randomize myarray(i) = (1 -
100
) * Rnd + 10...
利用
VB
6.0
随机生成20个100以内的正整数,
将其中的奇数和偶数分两行显示...
答:
end function 时候时,在需要的地方调用abc,即可 如在按下按钮时:private sub command1_click()abc end sub
大家正在搜
用高级程序设计语言编写的程序
汇编语言编写的程序通常
编写一个程序
用c语言编写的代码程序
c语言编写的程序被称为
关于编译程序说法正确的是
VB程序编写
程序怎么编写
程序编程软件
相关问题
vb编写代码:在窗体的单击事件中完成:随机产生100个三位正...
随机产生20个100以内的数,输出;按从小到大的顺序排序,输...
vb编程 产生10个50-100(包括50和100)的随机整...
用VB,随机生成20个100以内的正整数,将其中的奇数和偶数...
求大神用VB编写这个题目”随机产生100个两位正整数,在窗体...
VB随机产生10个两位数整数(正整数),要求分别用选择排序法...
VB 编程题 产生30个两位随机整数、并按从小到大的顺序存入...
VB编程问题:1使用随机函数产生10个10~100之间的随机...