选择结构程序设计 Private sub form click Visual basic提供了一种控制If.goto 语句,这种控制语句主要用于程 Dim x as integer 序的出错处理或者是根据条件提 前结束程序的操作。这种语句的 X=va( inputbox(“请 格式是: 输入一个整数x2”) If<表达式>goto行号/标签 If x>=10 goto exits 程序段1> X=x^2+2*x+32 行号/标签: print X <程序段2> exits 当表达式的值为“真”时,程序跳到 X=x+100 行号/标签处,继续执行程序段2, 否则将就先执行程序段1,然后再 print x 执行程序段2。这种结构就相当于 End subIf...Goto结构 Visual Basic提供了一种控制If...goto 语句，这种控制语句主要用于程 序的出错处理或者是根据条件提 前结束程序的操作。这种语句的 格式是： If<表达式> goto 行号/标签 <程序段1> 行号/标签： <程序段2> 当表达式的值为“真”时，程序跳到 行号/标签处，继续执行程序段2， 否则将就先执行程序段1，然后再 执行程序段2。这种结构就相当于 单分支的选择结构。 选择结构程序设计 Private sub form_click （） Dim x as integer X=val(inputbox(“请 输入一个整数x”)) If x>=10 goto exits x=x^2+2*x+32 print x exits: x=x+100 print x End sub