VB多条件匹配与组合编程技巧解析

VB高手写多条件匹对

OptionExplitic

privenasinteger

privateKasinteger

privatea（10001）asinteger

privateatesubcommand1_click（） <）<）<）<）<）<）<）<）<）<）<）<）<）<）text1.text）

endub

privatesubc（byvaltasinteger）

dimiasinteger，jasinteger，t1asinteger，t1asinteger，t2asinteger，t2asinteger，t3asinteger，t3asintegert3asintegert3asintegert3asintegert3asintegert3asinteger t4asinteger

1）+1ton

a（t）= i

ift = kthen

forj = 1ton：b（j） = 0：nextJ

forj = 1tok：b（a（j））= 1：nextj

t1 = b（1）+b（2）+b（2）+b（3）+ B（4）+B（5）

T2 = B（2）+B（4）+B（6）+B（8）+B（10）+B（10）+B（12）

t3 = b（1）+b（2）+b（3）+b（5）+b（6）+b（8）+b（11）+b（15）

t4 = b（5）+b（10）+b（15）

ift1 <3andt2> 0andt2 <4andt3> 1andt3 <4andt4 <2thenmyprint

else

else

callc（t+1）

endif

nextli

endub

staticnasinteger

dimlinstraststring

n = n+1

linstr =“ no。
”

font = 1tok-1

list1.additemlinstr

endub

vb if语法多条件判断

 if（条件1和条件2和条件3）3条件同时对应于结果1LSEIF（条件1或条件2或条件2或条件3）。
  

   最少的结果是第二，如果
                        
                        
                        
VB 从33个数中选出能满足条件的6个数的所有组合
DIMX＆（6），S＆PrivatesUbCommand1_Click（）x（0）= 0open“ reply.xls” aveste＃1getNum1'选择第一期CLOSS＃1loadmendCtinttitnum（K.＆）'递归范围的k多部分程序forx（k k k.＆） ）= x（k-1）+1to33'保证KK = 6then'选择6个数字的数量等于特定数字s = s+x（k）'选定的数字数量的总和邮件结果prop＃1，x（1）和chr（9）的记录结果数量数量的数量；  3）＆chr（9）;  （k）选择k = k+1'选择的累积数和getnumk'递归选择的设置号endifnextk = k-1'back trace s = s-x（k）'以删除最终终点功能