66问答网
所有问题
当前搜索:
vb中产生随机10个整数
vb中随机生成10个
10~90的
整数
, 把能被3整除的随机数从小到大排序_百度...
答:
Randomize初始化随机数发生器 Rnd()获取0~1之间
的随机
数,乘以90后再加上
10
,取整后就是10~90之间的了 然后挑选出来 Mod 3 = 0的数据排序就是了 求采纳为满意回答。
用
VB
写代码
产生10个
100-200
的随机
数,保存在数组中,从小到大排序,输出...
答:
Private Sub Form_Click() Dim a%(9), i%, j%, t% Randomize For i = 0 To UBound(a) a(i) = Int(Rnd * 101) + 100 Next For i = 0 To UBound(a) - 1 For j = 0 To UBound(a) - i - 1 If a(j) > a(j + 1) Then t = a(j):...
vb
随机产生10个
[10~100]之间
整数
,按升序输出到label1控件中
答:
Private Sub Form_Click()Randomize Dim v(9) As Long For n = 0 To 9 w:r = Int(Rnd * 91) +
10
ii = 9 For i = 9 To 0 Step -1 If r = v(i) Then GoTo w If r > v(i) Then ii = i: Exit For Next For j = 0 To ii - 1 v(j) = v(j + 1)Next v(...
随机产生10个
三位数
的
正
整数
存入数组中,并将数组中的最大值,最小值...
答:
Dim d(
10
) As Integer Dim i As Integer Dim mymax As Integer Dim mymin As Integer Dim myavg As Single Dim mysum As Single Randomize For i = 1 To 10 d(i) = Int(Rnd * (999 - 100 + 1) + 100)Next i mymax = d(1)mymin = d(1)mysum = d(1)For i = 2 To ...
vb
:编写一程序
产生10个
100~200间
的随机整数
,找出其中的最大数和最...
答:
Private Sub Command1_Click()Dim a(1 To
10
) As Integer Dim i, min, max As Integer For i = 1 To 10 a(i) = Int((200 - 100 + 1) * Rnd + 100)Next i max = a(1)min = a(1)For i = 2 To 10 If max < a(i) Then max = a(i)If min > a(i) Then min =...
vb
:编写一程序
产生10个
100~200间
的随机整数
将其中的偶数按由小到大的...
答:
这个很简单
的
啊 我就给你说说
产生随机
数的 rnd 产生的是0或者1 产生100-200之间的随机数 rnd(100-200-1)+200
VB
题目:用随机函数
产生10个
0到100之间
的随机整数
存入一堆数组A中...
答:
Private Sub Form_Click() Me.Cls Dim n(1 To 10) As Integer Dim i%,nMax%,pos Dim str As String '
产生10个
0-100
的随机
数并写入数组 ...
vb
6.0用do while循环
产生10个
0-100之间
的随机整数
求它们的和并输出...
答:
dim i as Integer,x as Integer dim s as Long s=0 i=1 randomize() do while i<11 x=101*rnd() s=s+x i=i+1 console.writeline(x) loop console.writeline(s)
随机产生十个
10-100
的整数
,用选择排序法按值从小到大顺序排序,我是学
VB
...
答:
急什么啊,百度上很多啊,随便搜一下就有了.Private Sub Command1_Click()Dim su(1 To 10) As Integer '定义数组 '
产生随机
数 For i = 1 To 10 su(i) = Rnd * 90 + 10 '
产生10
-100
的
数 Print su(i);Next Print '排序 '这样好像是选择排序吧,先选一个最小的数放在前面 For i =...
VB产生10个
[1,100]
的随机
数
答:
Sub Form_Load()Dim fo As Long Randomize Timer For fo = 1 To
10
Label1 = Label1 & Rand(1, 100) & vbCrLf Next Label1.Height = TextHeight("") * 10 End Sub Function Rand(Left As Long, Right As Long) As Long Rand = Left + (Right - Left) * Rnd End Function ...
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜