安卓版随机数软件哪里有下载？要有十分位的,最好是能百分位~~~~

编程工具常用的也有上百种的，你要说明你要用的语言/开发工具才能帮到你 这个可以给你个简单的参考，你自己可改进下Dim a(10), x As IntegerDim ct As IntegerPrivate Sub Command2_Click()Dim sum As Integer For i = 0 To 10 sum = sum a(i) Next Text1.Text = Str(sum)End SubPrivate Sub Form_Load() Timer1.Enabled = False RandomizeEnd SubPrivate Sub Command1_Click() For i = 0 To 9 a(i) = Int(Rnd * 1000) '0-999随机数10个 Next ct = 0 Print ＂begin＂ Timer1.Interval = 1000 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() If ct 追答 ： form上有4个控件二个按钮，一个定时器，一个编辑框按下Command1，每秒显示1个随机数，共10个按下Command2，在编辑框显示它们的和

用excel做一个自动出题器要随机数想用excel制作一个自动出

简单VB代码如下，请LZ参考： Private Sub Command1_Click() Dim i As Long Dim num As Long Dim sum As Long Dim arr(20) As Long sum = 0 Print ＂20个随机数：＂ For i = 0 To 19 Randomize num = Int(101 * Rnd + 100) arr(i) = num Print num Next Print ＂能被7整除的数：＂ For i = 0 To 19 If arr(i) Mod 7 = 0 Then sum = sum + arr(i) Print arr(i) End If Next Print ＂能被7整除的数之和：＂ Print sum End Sub

使用Excel设定10个随机数,在其中随机产生1个特异数使用Ra

只能用宏来实现了。

帮你写了一段可以完成你的任务 Sub OkExcel() Dim i As Integer Dim n As Integer, m As Integer Randomize m = Int(Rnd * 9 + 1) For i = 1 To 10 If i = m Then If m Mod 2 = 1 Then n = 100 + Int(Rnd * 200) Else n = Int(Rnd * 80) End If Else n = Int(Rnd * 20) + 80 End If Worksheets(1).Cells(i, 1) = n Next End Sub 在第一个表的第一列生成10个随机数 如果你还不了解宏怎么用请参见了《参考文献资料》 修改好了： Sub OkExcel() Dim i As Integer Dim n As Integer, m As Integer Randomize Worksheets(1).Range(＂B2:K2＂).Font.Size = 12 m = Int(Rnd * 9 + 1) For i = 1 To 10 If i = m Then If m Mod 2 = 1 Then n = 100 + Int(Rnd * 200) Else n = Int(Rnd * 80) End If Worksheets(1).Cells(2, i + 1).Font.Size = 16 Else n = Int(Rnd * 20) + 80 End If Worksheets(1).Cells(2, i + 1) = n Next End Sub

excel生成随机数,设置按键excel生成随机数。

但是想设置自

这里有个图片批量下载器可以用。

只需要导入图片网址文件并设置保存路径即可批量下载，支持下载错误重试，支持多线程。

你只需要生成图片网址文件，导入这个网址文件，然后让图片下载器去尝试下载，下载不到的就是这个网址不存在。

主要问题在于你的星号太多了，以至于生成全部的图片网址太难，最好能缩小数字范围。

我试了下，从111111111111111111.bmp到200000000000000000.bmp就生成了快800M的txt文本文件，还因为文件太大不能用记事本打开。

这是我生成的网址文件样例，可用来参考。

转载请注明出处51数据库 » 随机数测试 软件下载