66问答网
所有问题
当前搜索:
vb产生十个随机数
VB
程序:编写一程序,
产生10个随机数
,从小到大排序,求答案!!!
答:
Const N =
10
Dim a(1 To N) As IntegerPrivate Sub Form_Click()Dim m As Integer, k As Integer, t As IntegerFor m = 1 To N a(m) = 10 + Int(Rnd * 90)Next mFor m = 1 To N For k = 1 To N - m If a(k) > a(k + 1) Then t = a(k): a(k) = a...
计算机
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个
不重复的(1到10)
随机数
?
答:
vb生成10个
不重复的
随机数
代码:Private Sub Command1_Click()Dim a(9) As Integer For i = 0 To 9 GoTo way1 End If Next p End If Print a(i)Next i End Sub
vb编程 产生10个
50-100(包括50和100)的
随机
整数,并用“冒泡排序”按从小...
答:
Dim i As Integer, j As Integer Print "
随机
取到
的10个
50-100(包括50和100)的随机整数为"For i = 1 To 10 Randomize a(i) = Int(Rnd() * 51 + 50)Print a(i);Next i Print Print "用“冒泡排序”按从小到大的顺序排序后"For i = 1 To 10 For j = 1 To 10 - i If a(...
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个随机数
,且在1~50之间
答:
采纳数:353 获赞数:311 LV9 擅长:
VB
操作系统/系统故障 系统软件 工程技术科学 C/C++ 参与团队:永霸天下 向TA提问 私信TA 展开全部 1 2 3 4 5 6 7 8 9
10
11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 '作者:星空无月(xkwy) Private Sub Command1_Click() Dim i As ...
利用
VB如何
设计下面问题:利用
随机数产生10个
1~100之间的随机数,显示...
答:
Print "
10个数
中的最小值为" & min For p = LBound(m()) To UBound(m())sum = sum + m(p)Next p avg2 = sum / UBound(m())Print "10个数中偶数之平均数为" & avg2 sum = 0 For q = LBound(n()) To UBound(n())sum = sum + n(q)Next q avg1 = sum / UBound...
如何用
VB
的for循环编写
产生10个
100~200直接的数,求最大值
答:
使用
VB
语言编写的程序,实现产生10个100~200的随机数,并求它们的最大值:```Dim num(9) As Integer '定义数组存储随机数Dim maxNum As Integer '定义变量存储最大值Randomize '初始化随机数种子For i = 0 To 9 '循环
产生10个随机数
num(i) = Int((200 - 100 + 1) * Rnd + 100) '...
用
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编程
,
产生10个随机数
,然后求和,求平均数,找出所有大于平均数的数
答:
Rnd(i) * 900 + 100) Print a(i); intSum = intSum + a(i) Next i Print intAverage = intSum /
10
Print "Sum="; intSum, "Average="; intAverage For i = 1 To 10 If a(i) > intAverage Then Print a(i); Next i Print PrintEnd Sub ...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb随机生成10个不同的随机数
vb随机生成1到100随机数
vb随机产生不重复的n个数
vb重新产生随机数
vb中如何产生随机数
vb产生随机数的代码
vb产生10到100的随机数
vb生成10个随机数
vb每次产生的随机数都一样