77问答网
所有问题
当前搜索:
vb随机生成1到100随机整数
vb
求解!用
随机数产生100
个
整数
(其取值范围为1~100),存放在数组x中,输 ...
答:
Private Sub Command1_Click()Dim Nrep(
100
) As Integer Dim a As Integer Randomize For i = 1 To 100 a = Int(Rnd * 100 + 1)Nrep(a) = Nrep(a) + 1 Debug.Print a;Next Debug.Print For i = 1 To 100 If Nrep(i) = 3 Then Print i;Next i Print End Sub BTW, 楼上...
VB随机生成
20个1-
100
之间的
随机数
,点一下按钮打印一个,共点20次打印...
答:
Dim A(20) As Integer, j As IntegerPrivate Sub Command1_Click()Dim i As Integer, st As StringDim max As Integer, min As Integer, maxp As Integer, minp As IntegerFor i = 1 To 20A(i) = Int(
100
* Rnd) + 1st = st & Str(A(i))If i Mod 10 = 0 Then st = st...
VB
:
随机产生
20个1-
100
的正
整数
放入数组中
答:
Dim n As Long, i As Long, j As Long, s As String Dim a() As Long Randomize n = Int(Rnd * 80 + 20)ReDim a(n - 1)For i = 0 To n - 1 Randomize a(i) = Int(Rnd *
100
)Next m = 0 Me.Show For i = 0 To n \ 10 s = ""For j = 0 To 9 If i * ...
vb
.net程序,利用
随机
函数
产生100
个
1到100
之间的
整数
,求其中的最大最小...
答:
Dim max As Integer, min As Integer '声明两个变量存最大值和最小值 min = 1000 : max = 0 '设置初值 For i = 0 To 99 '循环
100
次 a(i) = Int(Rnd() * 1000 + 1) '用rnd
生成一
个
随机数
由于rnd范围为0-1之间的小数.所以*1000设置他的范围为0到999之间 加1变成
1到
1000...
利用
VB
制作一个“
随机生成
十个数字(1-
100
之间的
整数
)求极值(最大最小...
答:
代码:Dim max, min As IntegerDim avg As DoublePrivate Sub Command1_Click()Dim num(10) As IntegerText1.Text = ""Label4.Caption = ""Label5.Caption = ""Label6.Caption = ""Dim i, j, temp, sum As Integersum = 0For i = 1 To 10num(i) = Int(Rnd * (
100
+ 1))sum...
vb生成1
-
100随机数
,挑出大于50的数
答:
代码:Private Sub Command1_Click()'单击command1按钮dim nRandomizen = Int((
100
- 1+ 1) * Rnd + 1)If n > 50 then'判断print n '如果大于50msgbox "
生成
的
随机数
是 " & n & " 大于50"'这里n就是随机数Else '如果小于等于50msgbox "随机数 " & n & " 小于等于50"End IfEnd...
VB
计算:
随机产生
20个1~
100
的正
整数
放入数组中,显示产生的数,并求出...
答:
For i = 0 To 19 '
产生
10个数据 V = 1 + 99 * Rnd() '
1到100
aNum(i) = V Print V; If (V > nMax) Then nMax = V If (i Mod 10 = 9) Then Print Next Print Print "最大数是:" & nMaxEnd Sub ...
...利用随机函数
产生
10个 1---
100
之间的
随机整数
,找出其中能被 5...
答:
AA(J) = AA(J +
1
) AA(J + 1) = 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) & ...
随机生成100
个
随机数
,并输出最大值的
VB
代码怎么编写?
答:
dim n as single dim a as single dim i as integer for i=1 to
100
n=rnd()if n>a then a=n next i print a 因为你没有要求,所以这里
产生
的是大于等于0而小于1的数。如果要求要产生从K到J之间的数字(k<j),把 n=rnd()换成 n=(j-k+1)*rnd()+k 如果要求是
整数
,则换成 ...
vb编程
:
随机产生
10个1–
100
之间的
整数
,并按从小到大顺序输出,谁能帮我...
答:
Private Sub Command1_Click()Dim a(10), i, j As Integer For i = 0 To 9 a(i) = Int(Rnd *
100
) + 1 Print a(i);Next For i = 0 To 8 For j = i To 9 If a(i) > a(j) Then t = a(i)a(i) = a(j)a(j) = t End If Next Next Print For i = 0 To...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
表格随机2位整数怎么设置
vbs随机生成1到100随机数
vb随机数函数范围
vb随机函数10~100
VB程序发给别人打开要哪些东西
随机数求最小值vb
vb随机数代码怎么写
VB程序生成寝室号
表格随机生成指定范围数字小数