11问答网
所有问题
当前搜索:
vb产生n个随机数
VB编程
急求
随机产生n个
1~100之间的数(包含1和100),求最大值,最小值...
答:
For I = 1 To 5 '数组里面有5个不同数值a1,a2,a3,a4,a5,此处I的最大值
n
对应Dim中的a(n)(可以改变最大值来改变需要的输出的数据数量)' I = 0 to n 表示I的取值有n-0+1个 a(I) = Int(Rnd * 99) + 1 '数组内
产生
1~100的
随机数
Print a(I);z = z + a(I)s = z /...
用
VB
来写代码,用循环if或do来写:
随机产生n个
(1~100)之间的数,求它们的...
答:
Text1 = Text1 & vbCrLf & "最大:" & da & vbCrLf & "最小:" & xiao & vbCrLf & "平均:" & s /
n
End Sub Private Sub Form_Load()Label1 = "输入
随机数个
数:"Text2 = 0 Text1 = ""Command1.Caption = "
生成随机数
"End Sub 不用数组的话直接在第一个for里让text1= ...
...的click事件中编写程序:利用
随机
函数Rnd
生成N个
[10,100]之间的整数...
答:
所要的程序如下:Private Sub Form_Click()
n
= Val(InputBox("
N
="))Print n; "
个随机数
:"For i = 1 To n x = 10 + Int(90 * Rnd)Print x;If i Mod 10 = 0 Then Print If x Mod 2 = 0 Then ou = ou + 1 Else ji = ji + 1 Next i Print Print "其中偶数有"; ou...
随机产生n个
100以内的正整数的
VB
代码
答:
n = InputBox("请输入你要
产生随机数
的个
数n
,n∈(0,100],若不输入或超过该范围,将随即产生属于该范围的数据个数!", , 100)If n > 100 Or Val(n) = 0 Then n = Int(Rnd * 100) + 1 End If Dim a(0 To 100) As Variant For i = 0 To n - 1 a(i) = Int(Rnd * ...
VB
:输入整数N,
产生
一个
N个
[0,50]之间的
随机数
存入数组X中,单击“求 ...
答:
b = b + x(i)Else a = a + x(i)End If Next i End Sub Private Sub Command1_Click()
n
= Val(InputBox("输入整
数N
"))ReDim x(n)Randomize For i = 1 To n x(i) = Int(Rnd * 50)Next i End Sub Private Sub Command2_Click()Call sum Print "奇数之和=" & a Print...
高分求助
vb产生几个
不重复
随机数
答:
在窗体内加入控件text1,text2,text3,command1,然后复制下面代码,运行即可。当你在text1内输入数字后,在text2内输入数字范围,按command1按钮,text3就会显示
N个
不重复
随机数
。Option Explicit Private Sub Command1_Click()Dim i As Integer, j As Integer, k As Integer, ss, tt() As Integer...
随机产生n个
-10~10无序
随机数
,存储到数组中,并显示结果,将数组中重复...
答:
随机
产生n个
-10~10无序
随机数
,存储到数组中,并显示结果,将数组中重复的数删除,并输出新的结果
vb
语言程序设计... 随机产生n个-10~10无序随机数,存储到数组中,并显示结果,将数组中重复的数删除,并输出新的结果vb语言程序设计 展开 我来答 1
VB如何产生随机数
?
答:
1、首先我们需要打开“MicrosoftVisualBasic6.0中文版”软件,然后准备一个空白的工程文件。2、然后需要一个命令按钮,单击左侧工具箱中的“命令按钮”,在窗体中右侧拖动鼠标左键画出即可。3、接着双击该命令按钮,这里演示输入代码打印0~10之间的任意随即整数,
生成
其他范围的
随机
整数公式为“int((上限...
vb随机数产生
公式?如要产生m 到
n
之间的随机数该怎么办?要详细的公...
答:
Dim m As Integer,
n
As Integer, r As Integer m = 1 n = 5 Randomize '随机数初始化声明 '再用Rnd函数
产生随机数
'如果产生一个
N
到M之间的随机数(n>m,包含n,m)表达式可为;r = Int(Rnd * (n - m + 1) + m)MsgBox r ...
急需解决的
VB编程
问题,取
N个
不重复
随机数
。
答:
你好:可以这样:Private Sub Command1_Click()Dim b As Long, a As Long, c As String b = Val(Text3.Text)For a = 1 To b Randomize c = c + CStr(Int(Rnd() * (Val(Text2.Text) - Val(Text1.Text)) + Val(Text1.Text))) & ","Next Text4.Text = c End Sub 我软件...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb随机生成10个不同的随机数
vb随机产生不重复的n个数
vb随机生成1到100随机数
vb重新产生随机数
vb中如何产生随机数
vb产生随机数的代码
vb产生10到100的随机数
vb生成10个随机数
vb每次产生的随机数都一样