下面程序段是一个SelectCase选择结构。当num的值为1,3,5,7,9时,显示“输入的整数是小于10的奇数”。当num的值为10~20时,显示“输入的整数在10~20之间”。当num的值为负数时,显示“输入的整数是负数”。否则显示“输入的数据出界”。PrivateForm_Load()numAsIntegernum=InputBox("请输入整数num的值")SelectCasenumCase[1]Print"输入的整数是小于10的奇数"Case[2]Print"输入的整数在10~20之间"Case[3]Print"输入的整负数"CaseElsePrint"输入的整数出界"EndSelectEndSub
下面程序段是一个SelectCase选择结构。当num的值为1,3,5,7,9时,显示“输入的整数是小于10的奇数”。当num的值为10~20时,显示“输入的整数在10~20之间”。当num的值为负数时,显示“输入的整数是负数”。否则显示“输入的数据出界”。PrivateForm_Load()numAsIntegernum=InputBox("请输入整数num的值")SelectCasenumCase[1]Print"输入的整数是小于10的奇数"Case[2]Print"输入的整数在10~20之间"Case[3]Print"输入的整负数"CaseElsePrint"输入的整数出界"EndSelectEndSub
1