11问答网
所有问题
当前搜索:
vb产生n个随机数
用
vb
怎样
生成
10个不重复的(1到10)
随机数
答:
dim a(1 to 10)for i=1 to 10 a(i)=rnd*10+1 next i
...的:利用随机函数
产生
20个50--100范围内的
随机数
,显示它们的最大值...
答:
Private Sub Form_click()Dim
n
(1 To 20) As Integer Dim i, j, ave, temp Randomize For i = 1 To 20 n(i) = Int((51 * Rnd) + 50)Print n(i)Next i For j = 1 To 19 For i = j + 1 To 20 If n(i) >= n(j) Then temp = n(i)n(i) = n(j)n(j) = ...
在
VB中随机产生
(a,b]范围内整数的公式是什么
答:
1、
vb中产生
[a,b]区间的
随机数
的公式是:Int((b- a+ 1) * Rnd + a)2、根据以上公式得出,根本无法以公式法生成(a,b](半开区间)范围内的随机数。3、Rnd 函数返回小于 1 但大于或等于 0 的值。4、int是取整函数。
VB
,如何
随机产生
三个整数
答:
没要求范围更好呀:Private Sub Form_Click()Dim A As Integer, B As Integer, C As Integer Form1.AutoRedraw = True Randomize A = Int(Rnd * 100 + 1)B = Int(Rnd * 100 + 1)C = Int(Rnd * 100 + 1)Print "
随机产生
的三个整数是:"; A; B; C End Sub 已经运行过。
VB中产生随机数
答:
Private Sub cmdRanAngle_Click()Dim dblAngle As double Dim dblSin As double 'Randomize dblAngle = dbl((90*ran)+60)dblSin = sin(dblAngle)lblScream.Caption = dblAngle lblAnswer.caption = dblSin End sub 最简单的方法,楼上都有错。。。希望楼主采纳,有
VB
问题希望可以探讨,QQ8271702...
VB中
,
随机产生
10个0~100之间的
随机数
,按从小到大的顺序排列怎么做...
答:
Command1.Caption = "选随机数"Command2.Caption = "小到大排序"Command3.Caption = "大到小排序"'*** 安排控件摆放位置 Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 1 - 100 之间选 20
个随机数
Trec = 10 End Sub Private Sub Command1_Click() S ...
vb编程
:
随机产生
10个两位随机奇数,求其中的最大值、最小值和平均值...
答:
Private Sub Form_Load()Dim a(10) As Single Dim i, j As Single For i = 0 To 9 '
产生
10
个随机数
j = 0 Do Until j < 100 And j Mod 2 = 1 Randomize j = Int(Rnd * 100) + 10 Loop a(i) = j Next i Label1.Caption = "这10个数为:"For i = 0 To 9 Labe...
编写
VB
程序
产生
20
个随机数
输出这20个数 分别计算这20个数的奇数之和...
答:
Private Sub Command1_Click() s1 = 0: s2 = 0 For i = 1 To 20 x = Int(Rnd * 101) If x Mod 2 = 1 Then s1 = s1 + x Else s2 = s2 + x Print x, If i Mod 5 = 0 Then Print Next i Print Print "奇数之和="; s1 Print "偶数之和="; s...
用
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
的题目:
随机生成
100个10到1000之间的
随机数
,将它们之中的偶数
个
数统 ...
答:
n
))If Val(List1.List(n)) Mod 2 = 0 Then y = y + 1 Next n Print "偶数个数为:" & y & "奇数之和为:" & x End Sub Private Sub Form_Load()Command1.Caption = "
随机生成
100个10到1000之间的
随机数
"Command2.Caption = "统计偶数
个
数和奇数和"List1.Clear End Sub ...
棣栭〉
<涓婁竴椤
6
7
8
9
11
12
13
14
10
15
涓嬩竴椤
灏鹃〉
其他人还搜