66问答网
所有问题
当前搜索:
vb随机生成十个数
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之间的随机整数,存放在一个数组中,然后求个...
答:
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 "大于平均值的元素
个数
=" & j Print "大于平均值的元素:" & y Me.Refresh End Su...
用
VB
语言,怎么编写以下这个程序:
随机生成10个
100到200之间的整数,并...
答:
Option Explicit On Option Strict On Imports System Module Program Sub Main()Dim r As New Random(Date.Now.Millisecond)Dim j,k,len,n,a(9),ssh(9) As Integer len=0 Console.WriteLine("
随机生成
的
10个
100到200之间的整数是:")For i As Integer=0 To 9 a(i)=r.[Next](100,201)...
vb
语句 设计一个
随机数
程序,
生成10个
范围是1到100随机整数,并求出这...
答:
msgbox ("最大值:" & cstr(Max_num) & vbcrlf & "最小值:" & cstr(Min_num) & vbcrlf & "平均数:" & cstr(cint(Sum_num)/
10
) & vbcrlf)
利用
VB
如何设计下面问题:利用
随机数产生10个
1~100之间的随机数,显示...
答:
Print "
10个数
中的最大值为" & max 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 +...
VB编程
题目:
随机产生10个
0-100之间的整数放入数组,显示数组各元素的值...
答:
sum = 0: min = 100: max = 0 For i = 0 To 9 a(i) = Int(101 * Rnd))sum = sum + a(i)If a(i) < min Then min = a(i)If a(i) > max Then max = a(i)Print a(i);Next i Print vbCrLf & "最大值:"; max Print "最小值:"; min Print "平均值:"; sum ...
用
vb
代码表示
随机产生10个
整数,并求出最大值
答:
Randomize '‘随机播种语句 For i = 1 To 8 '‘
随机产生
8个1000之内的正整数,赋予数组a的各个变量 a(i) = Fix(Rnd * 1000) + 1 Next i For i = 0 To 7 Label2(i) = a(i + 1)Next i Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Cl...
vb
程序通过
随机
函数
生成10个
正整数,存放在数组中,然后查找这
10个数
...
答:
Private Sub Command1_Click()Dim a(10) As Integer Randomize j = 1 Print "
产生
的
10个数
是"For i = 1 To 10 a(i) = 1 + Rnd * 100 If a(i) < a(j) Then j = i Print a(i);Next i Print Print "最小数是第"; j; "个,"; a(j)End 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个随机数
,且在1~50之间
答:
采纳数:555 获赞数:553 LV10 擅长:
VB
其他编程语言 数据库DB 参与团队:
vb
解答团 向TA提问 私信TA 展开全部 创建一个数组,A(50),把数字1~50,存在相应的数组中,让后根据
随机数
的值,交换对应下标的数组存放的值,最后把数组的前
10个数
保存,或是输出即可,这样就不会出现重复值,也可简化算法。 抢首...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb随机生成10个不同的随机数
vb随机生成1到100随机数
vb随机生成一个数
vb随机生成10个1~100数字
vb随机生成一个四位整数
如何生成随机数vb
生成随机数vb
vb随机生成两位数
vb生成随机数的代码