【文章內容簡介】
Dim sum As Integer Dim arr(6) As Integer arr(0) = 1:arr(1) = 2:arr(2) = 3:arr(3) = 6:arr(4) = 8:arr(5) = 9 For i= 0 To 5 If arr(i) 0 Then sum = sum + arr(i) Next i Print sum End Sub 上面程序運行后,單擊Command1命令按鈕,輸出結果是 。 sub form_click()dim a(3,3)for i=1 to 3 for j=1 to 3 t=t+1 a(i,j)=t next j next ifor i=1 to