用vb写一个随机生成三位数的程序

以下是用 VB 编写的随机生成三位数的程序：

Private Sub btnGenerate_Click()
Dim num As Integer
Randomize
num = Int((999 - 100 + 1) * Rnd + 100)
lblResult.Caption = num
End Sub

该程序使用 Randomize 函数生成随机数种子，然后使用 Rnd 函数生成一个介于 100 和 999 之间的随机整数，并将其显示在标签控件上。