作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 关於和excel的连结
时间Sun Jun 24 18:44:11 2007
※ 引述《dxsrx (金门人)》之铭言：
: 我先用excel作3个乱数
: A1:1~1000
: B1:500~5000
: C1:800~2500
: 请问能在list上展示吗?
: (就是我点command,让ABC产生,在show出来,还是有别的方式?谢谢(_ _))
Private Sub CommandButton1_Click()
Dim A1 As Long, B1 As Long, C1 As Long
ListBox1.Clear
A1 = RndNumber(1, 1000)
B1 = RndNumber(500, 5000)
C1 = RndNumber(800, 2500)
ListBox1.AddItem A1
ListBox1.AddItem B1
ListBox1.AddItem C1
End Sub
Public Function RndNumber(ByVal Min As Long, ByVal Max As Long) As Long
Randomize Timer
RndNumber = Fix(Rnd * (Max - Min) + Min)
End Function
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.224.174
1F：推 dxsrx:谢谢,我试试看^_^ 06/26 15:09