学编程，中大奖
?牐犗刃陆ㄒ桓龃疤澹╢orm）取名“PEPSI”。建一个文本框（textbox），属性为：名称=text1，text=“”，用于输入环盖中的数字；再建三个按钮（commandbutton）属性分别为：名称=command1，Caption=“输入”，用于对输入的数字进行确认；名称=command2，Caption=“计算”，用于对已输入的数字进行计算；名称=command2 Caption=“退出”，用于退出程序；五个图画框（picturebox），一个用于显示已经输入的数字，其它四个用于排列出满足相加条件满足100，300，500，1000的数字。现在界面基本完成，如果你想界面再好看些可以再加上几个标签（label）用于说明。完成后的界面如^34020501a^。
?牐犗乱徊骄褪潜嘈闯绦颍?
?牐犞饕枷刖褪前咽淙氲幕犯呛判纬墒椋儆醚泛脱≡裼锞湔页雎闾跫幕犯呛拧?
?牐燚im a（0 To 1000） As Integer ＇定义静态数组a（），使每一个a都对应一个已输入的环盖号
?牐燚im j As Integer ＇变量
?牐燚im i As Integer ＇数组下标
?牐燩rivate Sub Command1＿Click?煟ǎ?＇对command1进行编程
?牐燼（i）=Val（Text1．Text） ＇把text1中的值赋予对应的元素，val（）用于把数字字符串转换为数值
?牐燩icture1．Print a（i） ＇把已有的元素显示出来
?牐爄=i+1 ＇使其每被按一次，数组的下标加1
?牐燭ext1=“” ＇完成赋值后把text1中的数字清空
?牐燭ext1．SetFocus
?牐燛nd Sub
?牐牐?数组已经被赋值，下面就是最关键的部分是对满足条件的元素进行筛选
?牐燩rivate Sub Command2＿Click （）＇对command2进行编程
?牐燩icture2．Cls ＇把用于显示满足条件的图画框清空
?牐燩icture3．Cls
?牐燩icture4．Cls
?牐燩icture5．Cls
?牐燚im k As Intege ＇定义变量
?牐燚im n As Integer
?牐燜or j=0 To i-1
?牐燜or n=j+1 To i-1
?牐牐?顺序取a（j），再用 a（j）之后的元素a（n）按顺序分别与a（j）相加
?牐營f a（j）+a（n）=100 Then ＇条件一
?牐燩icture2．Print a（j）； “+”； a（n） ＇满足条件在Picture2中显示出来，下同
?牐燛lseIf a（j）+a（n）=300 Then
?牐燩icture3．Print a（j）； “+”； a（n）??
?牐燛lseIf a（j）+a（n）=500 Then
?牐燩icture4．Print a（j）； “+”； a（n）??
?牐燛lseIf a（j）+a（n）=1000 Then
?牐燩icture5．Print a（j）； “+”； a（n）
?牐燛nd If
?牐燦ext n
?牐燦ext j
?牐牐б陨咸跫嵌呦嗉樱韵绿跫侨呦嗉?
?牐燜or j=0 To i-1 ＇按顺序取a（j）
?牐燜or n=j+1 To i-1 ＇按顺序取a（j）之后的元素a（n）
?牐燜or k=n+1 To i-1 ＇按顺序取a（n）之后的元素a（k）
?牐牐г硗?
?牐營f a（j）+a（n）+a（k）=100 Then ＇条件一
?牐燩icture2．Print a（j）； “+”； a（n）； “ + ”； a（k） ＇满足条件后在Picture2中显示出来，下同
?牐燛lseIf a（j）+a（n）+a（k）= 300 Then
?牐燩icture3．Print a（j）； “+”； a（n）； “ + ”； a（k）
?牐燛lseIf a（j）+a（n）+a（k）=500 Then
?牐燩icture4．Print a（j）； “+”； a（n）； “ + ”； a（k）
?牐燛lseIf a（j）+a（n）+a（k）=1000 Then
?牐燩icture5．Print a（j）； “+”： a（n）； “ + ”； a（k）
?牐燛nd If
?牐燦ext k
?牐燦ext n
?牐燦ext j
?牐燭ext1．SetFocus
?牐燛nd Sub
?牐燩rivate Sub Command3＿Click（） ＇对command3进行编程
?牐燛nd
?牐燛nd Sub
?牐牶昧耍旅婢涂梢栽诵辛耍峡彀聪翭5把自己的环盖号输进去吧。说不定你会惊喜地发现自己中了音乐宝盒呢！