亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

            End Sub

程序運行后，單擊命令按鈕，如果輸入3，則在窗體上顯示的內(nèi)容是（　　　）

（A）3                    （B）4                 （C）5                        （D）6

5．       在窗體上畫一個命令按鈕，然后編寫如下事件過程：

            Private Sub Command1_Click( )

                For i = 1 To 4

                   x = 4

                   For j = 1 To 3

                       x = 3

                       For k = 1 To 2

                          x = x + 6

                       Next k

                   Next j

                Next i

                Print x

            End Sub

程序運行后，單擊命令按鈕，輸出結(jié)果是（　　�。�

（A）7                    （B）15               （C）157                    （D）538

6．       在窗體上畫一個命令按鈕，然后編寫如下事件過程：

            Private Sub Command_Click( )

                x = 0

                Do Until x = -1

                   a = InputBox(“請輸入A的值：”)

                   a = Val(a)

                   b = InputBox(“請輸入B的值：”)

                   b = Val(b)

                   x = InputBox(“請輸入x的值：”)

                   x = Val(x)

                   a = a + b + x

                Loop

                Print a

            End Sub