曹松松12021315025班选择结构：1.下面程序运行后的结果为（7）x=int(rnd)+3ifx^2>8theny=x^2+1ifx^2=9theny=x^2-2ifx^2<8theny=x^3printy2.下面程序的功能为（统计输入的若干个数中奇数和与偶数和存放在M,N中）Dimn%,m%PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13thenIfIsNumeric(Text1)thenSelectCaseText1Mod2Case0N=n+text1Case1M=m+text1EndSelectEndifText1=””Text1.SelFocusEndifEndSub3.程序填空Dimcount1%PrivateSubText1_KeyPress(KeyAsciiAsInteger)If(keyascii)=”(“thenCount1=count1+1Elseif(keyascii)=”)”then(count1=count1-1)endififkeyascii=13thenif(count1=0)thenPrint“左右括号配对“Elseif(count1>0)thenPrint“左括号多于右括号”;count1;“个”ElsePrint“右括号多于左括号”;－count1;“个”EndifEndifEndsub4.输入字符，统计有多少个元音字母，有多少其他字母，直到按了回车键结束并显示结果。大小写不区分。DimCounty%,countc%PrivateSubText1_KeyPress(KeyAsciiAsInteger)Dimc$C=(ucase(chr(keyascii)))If“A”<=CANDC<=”Z”thenSelectCase(c)Case(“A”,”E”,”I”,”O”,”U”)County=county+1Case(else)Countc=countc+1EndselectEndifIfthen(keyascii=13)Print“元音字母有”;county:“个”Print“其他字母有”;countc;“个”EndifEndsub循环结构：1.以下（）是正确的FOR….NEXT的结构（A）forx=1tostep10(B)forx=3to–3step-3…..……nextxnextx(C)forx=1to10(D)forx=3to10step3re:…….…….NextxnextyIfI=10thengotore2.以下循环能正常结束的是（B）I=5(B)I=1DoDoI=I+1I=I+2LoopwhileI<0loopwhileI=10(C)I=10(D)I=6dodoI=I+1I=I-2LoopwhileI>0loopwhileI=13.下面程序运行的结果为（B）forI=3to1step–1printspc(5-I);forj=1to2*I-1print“*”;nextjprintnextI(A)*(B)*****(C)*****(D)*************************4.当在文本框输入“ABCD”四个字符时候，窗体上显示的是（C）privatesubtext1_change()printtext1;endsub(A)ABCD(B)A(C)AABABCABCD(D)ABABCABCDABCD5.哪个程序不能正确表示1！，2！，3！，4！的值（B）ForI=1to4(B)ForI=1to4N=1forj=1toiForj=1toIn=1N=n*jn=n*jNextjnextjPrintnprintnNextinextI(C)n=1(D)n=1forj=1to4j=1n=n*jdowhilej<=4printnn=n*jnextjprintnj=j+1loop6.要使下列FOR语句循环执行20次，循环变量的初值应当为（33）Fork=()to-5step-27.下面程序段显示（10）个“*”ForI=1to5Forj=2toIPrint“*”NextjNexti8.以下程序运行后。Si,