例72使用Sub过程示例2 Private Sub Form Load Show Private Sub Sub Conto Print"VB的基本特点是:" Dim resp As string Call Sub Cont Do While True Print"面向对象的可视化编程 resp= InputBox("是否继续(y/n)?") Call Sub Cont If CAse(resp)=N"Then End Print"事件驱动的编程机制 If UCase(resp)=Y"Then Exit Do Call sub cont Loop Print"结构化的设计语言 End sub End sub 在事件过程 Form Load中,有三处调用Sub过程 Sub contoPrivate Sub Form_Load() Show Print "VB的基本特点是：" Call Sub_Cont Print "面向对象的可视化编程" Call Sub_Cont Print "事件驱动的编程机制" Call Sub_Cont Print "结构化的设计语言" End Sub 在事件过程Form_Load()中，有三处调用Sub过程Sub_Cont() Private Sub Sub_Cont() Dim resp As String Do While True resp = InputBox("是否继续(y/n) ? ") If UCase(resp) = "N" Then End If UCase(resp) = "Y" Then Exit Do Loop End Sub 例7.2 使用Sub过程示例2