第1个的代码：
Private Sub Form_Load()
Dim c
c = #8/5/1999#
c = c - 10
Debug.Print c
End Sub

这样对不对？

试试不就知道了.

我也没看懂你说的意思，你试试吧。
第一个
Private Sub Form_Click()
Dim c
c = #8/5/1999#
c = c - 10
Print c
End Sub
第二个
Private Sub Command1_Click()
Randomize
Print Int(1000 * Rnd + 10),
End Sub

第一个答案是#7/26/1999#。日期型表示1899.12.31为0，往后为加，往前为减。你这个直接在1999.8.5往前减10天
第二个为int(rnd*991)+10

[此贴子已经被作者于2007-3-21 21:27:14编辑过]

14楼兄弟说的对

版主啊，拜托不要叫人老看MSDN。

int(990*rnd)+10

第一题13楼的说得对
第二题：
function GetRndVal() as integer
dim i%
i=100
i=int(rnd(i)*1000)
do while i<10
i=int(rnd(i)*1000)
loop
GetRndVal=i
end function

取得Max与Min之间的随机数,用(max-min)*rnd+min这个公式

不知道什么意思