33问答网
所有问题
当前搜索:
vb随机函数10~100
计算机
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
】的随机整数,并按照从小到大的顺序打印...
答:
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
题目:用
随机函数
产生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编程
,用
随机函数
产生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
之间的互不相同的整数,存于一数组中...
答:
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 个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个1~
100
之间的随机数,显示出最大值最小值,平均...
答:
a(i) = Int(Rnd *
100
) + 1 arg = arg + a(i) If i = 0 Or a(i) > max Then max = a(i) If i = 0 Or a(i) < min Then min = a(i) Print a(i);NextPrintPrint "最大值:"; maxPrint "最小值:"; minPrint "平均值:"; arg / 10End Sub ...
VB
如何生成
随机
数
答:
1、打开“Microsoft Visual Basic 6.0 中文版”软件,准备一个空白的工程文件:2、然后需要一个命令按钮,单击左侧工具箱中的“命令按钮”,在窗体中右侧拖动鼠标左键画出即可:3、双击该命令按钮,这里演示输入代码打印0
~10
之间的任意随即整数,生成其他范围的
随机
整数公式为“int((上限-下限+1)*...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb中随机数生成10到100
VB102到333之间的随机数
vb随机生成10个1~100数字
vb生成指定范围的随机数
vb随机生成1到100随机数代码
vb随机函数rand公式
vb生成10个随机数
vb产生10到100的随机数
vb随机数代码怎么写