某算法的部分流程图如图所示：

若要用VB语言实现该部分算法，正确的代码应为。