66问答网
所有问题
当前搜索:
vb随机函数10~100
vb
编写程序,利用
随机函数
产生并显示10 个1~
100
之间的随机整数并找出这...
答:
Private Sub Command1_Click() Dim a(10) As Integer Randomize Max = 1 For i = 1 To 10 a(i) = 1 + Int(Rnd *
100
) Print a(i); If a(i) > a(Max) Then Max = i Next i Print Print "a("; Max; ")="; a(Max)End Sub ...
计算机
VB中
,利用
随机函数
产生10个10-
100
的随机数,并将其赋值给数组a...
答:
Private Sub Command1_Click() Dim a(
10
) As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd() * 91) + 10 Print a(i); s = s + a(i) Next i Print Print "平均值="; s / 10End Sub
vb编程
,用
随机函数
产生50个10~
100
之间的互不相同的整数存于一数组中...
答:
Private Sub Command1_Click()Dim x(90) As Integer '高效代码,产生无重复
随机
数 For i =
10
To
100
x(i - 10) = i Next Randomize For i = 1 To 50 j = Int(Rnd * (91 - i)) + i t = x(i)x(i) = x(j)x(j) = t Next '排序 For i = 1 To 50 For j = 1 ...
VB
用
随机函数
产生50个【10-
100
】的随机整数,并按照从小到大的顺序打印...
答:
Dim A(50) As IntegerPrivate Sub Command1_Click()RandomizeFor i = 1 To 50A(i) = Int(Rnd * 90 +
10
)Next iPicture1.ClsPicture1.Print "排序前数据:"For i = 1 To 50Picture1.Print A(i);If i Mod 10 = 0 Then Picture1.PrintNextEnd SubPrivate Sub Command2_Click()For ...
VB编程
:使用
随机函数
产生50个10~
100
之间的互不相同的整数,存于一数组中...
答:
Private Sub Command1_Click()Dim a(10 To
100
) As Boolean Randomize n = 0 While n < 50 x = Int(91 * Rnd) + 10 If Not a(x) Then a(x) = True n = n + 1 End If Wend n = 0 For i = 10 To 100 If a(i) Then Picture1.Print i;n = n + 1 If n Mod 10 ...
VB 中
怎么用
随机函数
产生50个10—
100
之间的互不相同的整数
答:
Dim a%(90), rNum%, rid '循环90次 For i = 0 To 90 '为数组赋值,每个值为当前i+10 即对应10-
100
a(i) = i + 10 Next 'Do while循环 条件为小于50 Do While rid < 51 Randomize '初始化
随机
种子 rNum = Int(Rnd * 91) '生成随机量 0-90 If a(rNum) <> 0 Then '判断...
vb
编写程序,将利用
随机函数
产生的10个不大于
100
的整数保存在数组中...
答:
Dim aver As Single '定义aver放平均值 sum = 0 max = 0 min =
100
Randomize For i = 1 To 10 '生成
随机
数存入数组,并求出和、最大值、最小值 a(i) = Int(Rnd * 100 + 1)sum = sum + a(i)Print a(i)If a(i) > max Then max = a(i)If a(i) < min Then ...
VB
题目:用
随机函数
产生10个0到
100
之间的随机整数存入一堆数组A中...
答:
Dim n(1 To 10) As Integer Dim i%,nMax%,pos Dim str As String '产生10个0-
100
的
随机
数并写入数组 Randomize For i = 1 To 10 ...
在
VB中
,利用
随机函数
产生 10个 1---
100
之间的随机整数,找出其中能被...
答:
= SDA End If Next JNext IText1.Text = Text1.Text & "生成的20个
随机
数:" & vbCrLfFor I = 1 To 20If AA(I) <
10
ThenText1.Text = Text1.Text & "0" & AA(I) & Space(3)ElseText1.Text = Text1.Text & AA(I) & Space(3)End IfIf I Mod 10 = 0 ThenTex...
vb 中
从10-99中
随机
产生
100
个数,然后找出这
一百
个数中的奇数,并进行排...
答:
Dim x(1 To
100
) As Integer, qs(100) As Integer, qn As IntegerPrivate Sub Command1_Click()Dim k As Integer Randomize For k = 1 To 100 x(k) = Int(Rnd * 90 + 10) Next k For k = 1 To 100 Print x(k); If k Mod 20 = 0 Then Print Next k...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
VB102到333之间的随机数
vb随机生成10个1~100数字
vb随机数代码怎么写
vb生成指定范围的随机数
vb随机生成1到100随机数代码
vb随机函数的格式
vb随机真随机速
vb语言随机产生随机数
vb生成10个随机数