Private Sub Command1_Click()
Dim m(9) As Integer
Randomize
For i = 1 To 10
abc = Int(Rnd * 900) + 100
Do While m(abc Mod 10) 0
abc = Int(Rnd * 900) + 100
Loop
m(abc Mod 10) = abc
Next i
For i = 1 To 10
Print m(i - 1)
Next i
End Su
Private Sub Command1_Click()
Dim m(9) As Integer
Randomize
For i = 1 To 10
abc = Int(Rnd * 900) + 100
Do While m(abc Mod 10) 0
abc = Int(Rnd * 900) + 100
Loop
m(abc Mod 10) = abc
Next i
For i = 1 To 10
Print m(i - 1)
Next i
End Su
最新问答: 交流平台用英语怎么说? 怎么用9根火柴拼成3个全等正方形 已知关于X的方程X-3/X+a=1的解是不等式2X+a<0的一个解,求a的取值范围 是聪明人就进来!m为正整数,已知二元一次方程组mx+2y=10和3x-2y=0,即x,y均为整数,则m*m得值是多少? 老师的房间彻夜明亮, 3x∧2-1=6x 文言文:《右溪记》中“胜境”的胜是什么意思 一批货物要运往某地,货主准备租用汽运公司的甲、乙两种货车,已知过去租用这种两货车的情况如下表: Roy made several kites, but _____ of them can fly high in th 公顷和平方千米这两个土地面积单位间的进率是______. 山居即事 后四句赏析 不等式3X+1≤2X-3的解集为? 默写。(每空1分,添字、漏字、错字均不得分)(10分) I have a best friend who is learning in clakson,so I asked h 写出硫酸铜与氢氧化钠反应的文字表达式及化学式 一种商品由于热销,而加价20%,后来因该季,只能打七五折销售,现价90元.这种商品最开始销售?元 在光滑水平面上有一小车A,质量m=2kg,小车上放一个物体B,质量m=1kg,给B一个水平推力F,当F增大到稍大于3N时 She laughed at the ( )show 为测定鸡蛋壳中碳酸钙的含量... 1、建筑桥梁(如长江大桥),桥面越高引桥越长,这是什么道理?