vb随机生成十个正整数

如题所述

举报该问题

推荐答案 2016-05-11

Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
    Randomize
    a(i) = Int(Rnd * 90 + 10)
    Print a(i);
Next i
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/UUxiUin2ixn22xDD2Uv.html

相似回答

用vb代码表示随机产生10个整数,并求出最大值答：Dim a(10) '‘定义a数组为窗体变量,且最大下标为10 Private Sub Command1_Click()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 ...

VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平 ...答：Dim p As Integer, i As Integer, sum As Integer For i = 1 To 10 sum = sum + a(i)Next Picture1.Print "平均值为:" & CStr(sum / 10)End Sub Private Sub Command4_Click()Dim i As Integer, m As Integer, b(10) As Integer, j As Integer For i = 1 To 10 b(i) ...

VB编程代码:利用随机函数产生并显示10个两位正整数,计算其平均值(保留...答：Dim i As Integer, a(10) As Integer, s As Integer, valAverage As Single For i = 1 To 10 a(i) = Int(Rnd(i) * 90 + 10)Print a(i);s = s + a(i)Next i Print valAverage = s / 10 Print "平均值为：" + CStr(Format(s / 10, "##.000"))For i = 1 To 10...

编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小...答：= 30 For i = 0 To 9 a(i) = Int(30 + (71 * 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 / 10 End Sub ...

随机产生10个100~200的正整数,输出极差值(vb怎么做)答：Private Sub Command1_Click()Randomize Min = 999: Max = 0 For i = 1 To 20 x = 100 + Int(Rnd * 101)Print x;If x < Min Then Min = x If x > Max Then Max = x If i Mod 10 = 0 Then Print Next i Print "Max="; Max, "Min="; Min, "极差值="; Max - Min...

(Vb 做法)随机产生10个30~100(包括30和100)的正整数,求最大值和平均值...答：avg = avg + N(i - 30)If (max < N(i - 30)) Then max = N(i - 30)Next Print "整个数组："For i = 30 To 100 If ((i - 30) Mod 10 = 0) Then Print Print N(i - 30);Next Print Print Print "其中，最大值为"; max Print "平均值为"; avg / 71 End Sub ...

大家正在搜

vb随机生成10个不同的随机数 vb随机生成1到100随机整数 vb随机生成十个数 vb随机生成一个四位整数 vb随机生成一个数 vb生成随机整数的代码 vb随机生成10个1～100数字随机生成1到100随机数如何生成随机数vb

如何使vb产生随机正整数

vb题随机生成10个两位整数，求出他们的总和及平均数

用VB编写程序，随机生成20个三位正整数，将其中的奇数与偶数...

vb题随机生成10个两位整数，求出他们的总和及平均数

vb中，随机生成十个数字并判断其正负

VB随机产生10个任意的两位正整数存放在一维数组中

如何用vb设计一个程序，随机产生二十个三位整数

随机产生10000个100以内的正整数vb