Private Sub Command1_Click()
Randomize
Call rand_val
End SubPrivate Sub rand_val()
For i = 1 To 10
MsgBox Rnd * 2
Next
End Sub
Randomize
Call rand_val
End SubPrivate Sub rand_val()
For i = 1 To 10
MsgBox Rnd * 2
Next
End Sub
解决方案 »
- 求助 VB 中统计数据
- 为什么我的程序有部份文字不显示?
- 我在1996年用QB编写了一个中型DOS软件mmsi.exe,现在有那种软件可以将其逆向工程,还原出设计框架。
- 如何利用shell调用DOS命令中的net time \\机器名来同步机器的时间??
- 求教数据库连接以及数据显示问题!
- 【求助】如何让ShellExecute的执行结果保存到起来?
- 在线等候:怎样在程序运行时使鼠标……
- ListBox 的一个问题
- 散分,欢迎讨论(Timer控件的Timer事件是否会出现重入),发表观点即有分(不论是否重复)
- 还是关于EXCEL的问题
- 电脑报上的24点程序好象有点问题,大家来看看
- 在VB里怎样播放MP3文件?
似乎也是凑或能用的