我用VB编了一个小程序（.exe)，能不能到指定日期后不能再运行呢，这个怎么写谢谢了

最简单方法是用系统日期：

private sub form_load

if date>datevalue(md) then msgbox "已过测试期",48:end

end sub

其中md为你的指定日期，如：md="2011-12-31"

这种方法最大的bug是修改系统日期后程序会继续运行。

Dim n As Integer

Dim a()

Private Sub Command1_Click()

If n = 0 Then '第点击执行

m = Val(Text1)

ReDim a(1 To m)

For i = 1 To m '数组a元素1至mm数

a(i) = i

Next

For i = 1 To m - 1 '随机打乱数组a元素

r = Int(Rnd m + 1)

tmp = a(i)

a(i) = a(r)

a(r) = tmp

Next

End If

n = n + 1 '计数点击数

If n > Val(Text1) Then '数超指定数抽奖结束

MsgBox "抽奖结束"

Exit Sub

End If

Text2 = a(n) '数组抽第n数由于数组随机排列所相于随机数并且重复

End Sub

以上就是关于我用VB编了一个小程序（.exe)，能不能到指定日期后不能再运行呢，这个怎么写谢谢了全部的内容，包括:我用VB编了一个小程序（.exe)，能不能到指定日期后不能再运行呢，这个怎么写谢谢了、怎么用vb编个随机抽取人名的小程序，做到不重复并能直接打印显示已抽到的人名、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！