以下是一个简单的VB程序示例，它是一个基础的猜数字游戏。用户需要猜测计算机随机生成的数字。程序会根据用户的猜测给出反馈，直到用户猜对为止。这是一个很好的方式来学习VB编程的基础知识。
```vb
Imports System
Imports System.Random
Public Class Program
Public Sub Main()
Dim secretNumber As Integer ' 随机生成一个数字作为秘密数字
Dim guess As Integer ' 用户猜测的数字
Dim numberOfTries As Integer = 0 ' 用户尝试猜测的次数
Dim random As New Random() ' 创建随机对象
secretNumber = random.Next(1, 100) ' 生成一个介于1和100之间的随机数作为秘密数字
Console.WriteLine("我已经选择了一个介于1和100之间的数字，你能猜到吗?") ' 提示用户开始猜测
While guess <> secretNumber ' 如果用户猜的数字不等于秘密数字，继续循环
Console.Write("请输入你的猜测: ") ' 提示用户输入猜测的数字
guess = Convert.ToInt32(Console.ReadLine()) ' 获取用户的输入并转换为整数类型
numberOfTries += 1 ' 用户尝试猜测的次数加1
If guess < secretNumber Then ' 如果用户猜的数字小于秘密数字，给出提示信息
Console.WriteLine("你猜的数字太小了!")
ElseIf guess > secretNumber Then ' 如果用户猜的数字大于秘密数字，给出提示信息
Console.WriteLine("你猜的数字太大了!")
End If ' 结束条件判断语句
End While ' 结束循环，当用户猜对秘密数字时跳出循环
Console.WriteLine("恭喜你，你猜对了!") ' 用户猜对秘密数字时输出提示信息
Console.WriteLine("你尝试了 " & numberOfTries & " 次") ' 输出用户尝试猜测的次数信息
End Sub ' 结束主程序过程定义
End Class ' 结束程序定义
```
这是一个简单的VB控制台应用程序，如果你正在学习VB编程，我建议你尝试修改这个程序，让它变得更有趣或者更复杂。例如，你可以增加一些新的功能，比如限制用户的猜测次数或者让用户可以通过解决一些数学难题来增加游戏的趣味性等。