case o case 1 end select print"*★2大★ end select 2,dima(10,10) for I=2 to 4 for j=4 to 5 next 3 ext工 print 四、下面的程序用于检查文本框Text1中输入的表达式中的圆括号是否配对, 并给出相应的提示。(10分 Dim num as integer Private sub text keypress (keyascii as integer) the Num=num+1 Elseif then End if If keyascii=13 then 工f Print"左右括号配对 Elseif Print"左括号多于右括号";num;"个“ Print"右括号多于左括号〃;-num;"个case 0 print “**0**” case 1 print “**1**” end select case 2 print “**2**” end select 2, dim a(10,10) for I=2 to 4 for j=4 to 5 a(I,j)=I*j next j next I print a(2,5)+a(3,4)+a(4,5) 四、下面的程序用于检查文本框 Text1 中输入的表达式中的圆括号是否配对， 并给出相应的提示。( 10 分) Dim num as integer Private sub text1_keypress(keyascii as integer) If =” ( “ then Num=num+1 Elseif =” )” then End if If keyascii=13 then If then Print “左右括号配对” Elseif then Print “左括号多于右括号”; num ;”个“ Else Print “右括号多于左括号”；-num ;”个