Private Sub Form_Load()
'函数
'MID 取字符串中间N个字符
'调用格式 mid(要取部分字符的字符串,要取的字符的位置,要取的字符的长度)
'三位数的个位数就是 mid(三位数,3,1) 个位在第3的位置 长度是1
'定义变量 英语不好 所以用拼音表示
Dim gws,bws,sws,num
For num = 100 To 999 'for循环取值100-999 可遍历所有三位数
gws = Mid(num,3,1)
bws = Mid(num,1,1)
sws = Mid(num,2,1)
'判断
If bws < sws Then '如果不满足这个条件 直接跳出,满足就检查下一个条件
If sws < gws Then '2个条件都满足 输出该数
'为便于显示 添加一个文本框textbox 清空 并设置MULTILINE属性为TRUE 即多行文本
'并适当拉宽 拉高该文本框.
Text1.Text = Text1.Text & num & " " '&连接 加空格分开各个数
End If
End If
Next
End Sub