4.有如下程序段: Dim i As Integer,Sum As Integer Dim a(1To 11)As Integer Sum=6 a(11)=49 For i=10To 1Step-1 a(i)=a(i+1)-1 If a(i) Mod 3=0Then Sum=Sum+a(i) Next i Text1.Text=Str(Sum) 該程序段運行后,文本框text1中顯示的內容是( ?。?/h2>
5.某對分查找算法的VB程序段如下: Key=Val(Text1.Text):i=1:j=10 Do While i<=j m=(i+j+1)\2 t(m)=2 If Key<=a(m) Then j=m-1 Else i=m+1 End If Loop For i=1 To 10 s=s+t(i) Next i 數組元素t(1)至t(10)初值均為0,數組元素a(1)至a(10)的值依次為“4,7,9,11,16,19,22,24,28,29”,在文本框Text1中輸入待查找數,執行該程序段后,下列選項中,s的值可能的是( ?。?/h2>
6.有如下VB程序段: s=“python“:b=0 For i=1 To Len(s)-1 a=Abs(Asc(Mid(s,i,1))-Asc(Mid(s,i+1,1))) If a>b Then b=a Next i Label1.Caption=Str(b) 執行該程序段后,標簽Label1上顯示的內容是( ?。?/h2>