2,dima(10,10) f print a(2,5)+a(3,4)+a(4,5) 四、下面的程序用于检查文本框Text1中输入的表达式中的圆括号是否配 对,并给出相应的提示。(10分) Elseif =) then If keyascii=l3 then Print w左右括号配对〃 Print"左括号多于右括号";num;"个“case 1 select case b 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