（8 ）有如下程序：Private Sub Form_Click （）n=10i=0Doi=i＋nn=n－2Loop While n>2Print iEnd Su

设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load（) Show Text1.Text=

编写如下程序:Private Sub Form_Click()a$=54321:b$=abcdeFor j=1 To 5Print Mid$(a$ 6-j 1)

( 18 )在窗体上有如右图所示的控件 各控件的名称与其标题相同 并有如下程序:Private Sub Form_Lo

有如下程序:Private Sub Form_Click( )Dim i As Integer Sum As Integer Sum = 0 For i = 2 To

在窗体上画两个文本框 其名称分别为Text1和Text2 然后编写如下程序:Private Sub Form_Load()Show

设有如下程序:Option Base 0Private Sub Form_Click( )Dim aDim i As Integera=Array(1 2 3 4 5