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

程序運行后，單擊命令，依次在輸入對話框中輸入5、4、3、2、1、-1，則輸出的結(jié)果為（　　�。�

（A）2                    （B）3                        （C）14                      （D）15

7．       在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Label1的標簽，然后編寫如下事件過程：

Private Sub Command1_Click( )

  s = 0

  For i =1 To 15

x = 2 * i -1

If x Mod 3 =0 Then s = s + 1

                Next i

                Label1.Caption = s

            End Sub

程序運行后，單擊命令按鈕，則標簽中顯示的內(nèi)容是（　　�。�

（A）1                    （B）5                        （C）27                      （D）45

8．       在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1、Text2的文本框，然后編寫如下事件過程：

Private Sub Command1_Click( )

  a = Text1.Text

  Select Case n

    Case 1 To 20

x = 10

Case 2,4,6

  x = 20

Case Is < 10

  x = 30

Case 10

  x = 40

End Select

Text2.Text = x

            End Sub

程序運行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的內(nèi)容是（　　�。�

（A）10                  （B）20               （C）30                      （D）40

9．       有如下程序：

            a = 10

            b = 4

            For j = 1 To 20 Step -2

                a = a + 5

                b = b + 4

            Next j

            Print a;b

運行后，輸出的結(jié)果是（　　�。�

（A）10　4             （B）60　24              （C）110　44            （D）55　40

10．   設(shè)有如下程序：

            Private Sub Command1_Click( )

                Dim sum As Double, x As Double

                sum = 0

                n = 0

                For i = 1 To 5

                   x = n / i

                   n = n + 1