22问答网
所有问题
当前搜索:
vb产生10到100的随机数
VB中
,
随机产生10
个0~
100
之间
的随机数
,按从小到大的顺序排列怎么做?
答:
新建一个form1添加command1添加label1label1高度设的稍高一点,以显示数据。form代码视图中加入以下语句.Private Sub Command1_Click() '定义变量 Dim a(9) As Integer Dim i As Integer Dim r As Integer Dim t As Integer '
产生随机数
Randomize For i = 0 To 9 a(i) = CInt(Rnd(...
VB编程
:使用一维数组编写程序,
随机产生10
个0~
100的
整数,求出最大值...
答:
min As Integer max = 0 min =
100
For i = 1 To 10 If max < a(i) Then max = a(i) If min > a(i) Then min = a(i) Next i Print "max"; max; "min"; minEnd SubPrivate Sub Command3_Click() Dim ave As Double For i = 1 To 10 ...
利用
VB如何
设计下面问题:利用
随机数产生10
个1~
100
之间
的随机数
,显示...
答:
avg1 = sum / UBound(n())Print "
10
个数中奇数之平均数为" & avg1 End Sub
VB 产生
【10.100】之间
的随机
整数,每行
10
个
答:
Private Sub Form_Click()Dim i, n Cls For i = 1 To 100 '
产生100个10-100的随机数
Randomize Print Int(Rnd * 91) + 10;n = n + 1 If n Mod 10 = 0 Then Print Next End Sub
用
VB编程
:
随机产生10
个0~
100
之间
的随机
整数,存放在一个数组中,然后求个...
答:
For i = 0 To 9 Randomize a(i) = Int(Rnd(1) * 101)x = x + a(i)Next i Print "元素和=" & x Print "平均值=" & x /
10
For i = 0 To 9 If a(i) > (x / 10) Then j = j + 1: y = y & CStr(a(i)) & " "Next i Print "大于平均值的元素个数=...
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中
,利用随机函数
产生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中
,如何
产生10
-
100
内不重复的10个
随机数
?
答:
Private Sub Command1_Click()Dim a(
10
) As Integer, n As Integer Dim i As Integer, k As Integer Randomize a(1) = Int(Rnd * 90) + 10 k = 1 Do n = Int(Rnd * 90) + 10 For i = 1 To 10 If a(i) = n Then Exit For Next i If i > 10 Then k = k + 1 a...
vb
语句 设计一个
随机数
程序,
生成10
个范围是1
到100
随机整数,并求出这...
答:
dim Min_num as int dim Max_num as int dim Sum_num as int dim Arr_num(9) as int '赋予初始值 Min_num=101 Max_num=-1 Sum_num=0 '循环10次获得10个
随机数
for i=1 to 10 randomize Arr_num(i-1)=int(rnd*
100
)+1 '判断后赋值最小值 if Arr_num(i-1)<Min_num then ...
VB产生10
个[1,
100
]
的随机数
答:
Sub Form_Load()Dim fo As Long Randomize Timer For fo = 1 To 10 Label1 = Label1 & Rand(1,
100
) & vbCrLf Next Label1.Height = TextHeight("") * 10 End Sub Function Rand(Left As Long, Right As Long) As Long Rand = Left + (Right - Left) * Rnd End Function ...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb随机生成1到100随机数代码
VB102到333之间的随机数
vb随机生成10个不同的随机数
vb生成指定范围的随机数
vb随机生成10个1~100数字
vb随机数代码怎么写
vb产生10个不重复随机数
vb生成10个随机数
vb语言随机产生随机数