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

1． 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：

Private Sub Command1_Click()

Dim num As Integer

num = 1

Do Until num > 6

Print num;

num = num + 2.4

Loop

End Sub

程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是

（A）1  3.4  5.8 　　（B）1  3  5　�。–）1  4  7　�。―）無(wú)數(shù)據(jù)輸出

2． 有如下函數(shù)：

　　Function Facn ( x As Integer ) As Long

　　　Dim p As Long , i As Integer

　　　p = 1

　　　For i = 1 To x

　　　　p = p * i

　　　Next i

　　　Facn = p

　　End Function

　調(diào)用它的事件過(guò)程如下：

　　Private Sub Command1_Click ( )

　　　i = Val ( InputBox ( “請(qǐng)輸入數(shù)據(jù)”))

　　　a = Facn (( i ) )                ‘實(shí)參i用圓括號(hào)括起，則強(qiáng)制為值傳遞

　　　Print a

　　End Sub

　若輸入數(shù)據(jù)6，則程序運(yùn)行結(jié)果為（ 【73】 ）

�。ˋ）60　　　　　（B）120　　　　�。–）600　　　　　（D）720

3． 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：

Private Sub Command1_Click()

Dim a As Integer, s As Integer

a = 8

s = 1

Do

s = s + a

a = a－1

Loop While a <= 0

Print s; a

End Sub

程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是

（A） 7  9      （B） 34  0      （C） 9  7      （D）死循環(huán)

4． 下列程序的執(zhí)行結(jié)果為（ 【74】 ）

　　　Dim IntSum As Integer , i As Integer

　　　IntSum = 0

　　　For i = 30.2 To 1 Step -5.3

　　　　IntSum = IntSum + i

　　　Next i

　　　Print IntSum

�。ˋ）106　　　　（B）105　　　�。–）102　　　　（D）101

5． 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程，該過(guò)程執(zhí)行結(jié)果為（ 【75】 ）

　　Option Base 1

Private Sub Command1_Click ( )

　　　Dim a As Variant , s As Integer

　　　a = Array ( 2 , 4 , 6 , 8 )

　　　j = 1

　　　For i = 1 To 4 Step 1

　　　　s = s + a ( i ) * j

　　　　j = j *10

　　　Next i

　　　Print s

　　End Sub

�。ˋ）0　　　�。˙）1110　　　�。–）2468　　　　（D）8642

設(shè)有如下通用過(guò)程：

Public Function f(x As Integer)

Dim y As Integer

x = 20

y = 2

f = x * y

End Function

6． 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：

Private Sub Command1_Click()

Static x As Integer

x = 10

y=5

y = f(x)

Print x; y

End Sub

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

（A）10  5　　　 （B）20  5　　　（C）20  40 　　�。―）10 40

7． 對(duì)窗體編寫如下代碼：

　　Option Base 1

　　Private Sub Form_KeyPress( KeyAscii As Integer)

　　　a = Array (123 , 86 , 57 , 248 , 32)

　　　m1 = a ( 1 )

　　　m2 = 1

　　　If KeyAscii = 13 Then

　　　　For i=2 To 5

　　　　　If a ( i ) > m1 Then

　　　　　　m1 = a ( i )

　　　　　　m2 = i

　　　　　End If

　　　　Next i

　　　End If

　　　Print m1 , m2

　　End Sub

　程序運(yùn)行后，按回車鍵，輸出結(jié)果為（ 【76】 ）

�。ˋ）32  5　　　（B）248  4　　　（C）32  1　　�。―）248  5

設(shè)有如下通用過(guò)程：

Public Sub Fun(a(), ByVal x As Integer)

For i = 1 To 5

x = x + a(i)

Next

End Sub

8． 在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下的事件過(guò)程：

Private Sub Command1_Click()

Dim arr(5) As Variant

For i = 1 To 5

arr(i) = i

Next

n = 10

Call Fun(arr(), n)

Text1.Text = n

End Sub

程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是

（A）10 　　　�。˙）15 　　　　�。–）25 　　　　　（D）24

9． 閱讀程序：

　　Function Func ( a As Integer )

　　　b = 1

　　　Static c As Integer

　　　b = b +1

　　　c = c +1

　　　Func = a + b + c

　　End Function

　　Private Sub Command1_Click( )

　　　Dim a As Integer

　　　a = 3

　　　For i =1 to 3

　　　　Print Func( a )

　　　Next i

　　End Sub

　運(yùn)行上面的程序，單擊命令按鈕后，輸出結(jié)果為（ 【77】 ）

　（A）6　　　 　 （B）6　 　　　（C）6             （D）6

　　　 7               6               8                  13

       8               6               10                 21

10．   在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下代碼：

Option Base 1

Private Sub Command1_Click()

d = 0

c = 10

x = Array(10, 12, 21, 32, 24)

For i = 1 To 5

If x(i) > c Then

d = d + x(i)

c = x(i)

Else

d = d－c

End If

Next i

Print d

End Sub

程序運(yùn)行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容為

（A）89　　　　 （B）99 　　　　（C）23 　　　�。―）77