早教吧作业答案频道 -->数学-->
如何在VB6.0中生成10个20到50的随机数（保留两位小数）
题目详情
如何在VB6.0中生成10个20到50的随机数（保留两位小数）
▼优质解答
答案和解析
Private Sub Command1_Click()
Dim a(10) As Single
For i = 1 To 10
a(i) = Rnd * 31 + 10
Print Format(a(i),"0.00")
Next
End Sub
Dim a(10) As Single
For i = 1 To 10
a(i) = Rnd * 31 + 10
Print Format(a(i),"0.00")
Next
End Sub
看了 如何在VB6.0中生成10个...的网友还看了以下：
0与任何数相乘，积等于，0与任何数相加，和等于，0除以任何非0的数，商等于． 2020-05-13 …
（1）m为何值时,方程x²-2mx-(m-2)=0的一根小于1,另一根大于2（1）m为何值时,方程 2020-05-13 …
一个C、++的编程题,编写程序,用普通迭代法求方程f(x)=x-e^(-x)-2=0的近似实根r( 2020-05-14 …
一道解析几何题对任意实数k,直线(3k+2)x-ky-2=0与圆x^2+y^2-2x-2y-2=0 2020-05-15 …
1.已知x1、x2是关于x的方程x^2+(2a-1)x+a^2=0的两个实数根,且（x1+2）（x 2020-05-16 …
问m为何值时,二次方程2X^2+mxy-3y^2+5y-2=0的图形表示两条直线?并求出这两条直线 2020-05-16 …
一元三次方程如何化成乘积的形式?ax^3+bx^2+cx+d=0的三次方程怎么化成( )( )( 2020-05-17 …
知△ABC的两边AB,AC的长是关于x的方程的一元二次方程解22x-（2k+3)x+k+3k+2= 2020-05-21 …
设X1.X2为方程4X^2-4mx+m+2=0的两个实根当M为何值时,X1^2+X2^2有最小值? 2020-06-03 …
已知：关于x的方程（a-1）x2-（a+1）x+2=0．（1）当a取何值时，方程（a-1）x2-（ 2020-06-12 …