鸭子tv国产极品在线观看_成人69视频在线播放_91精品免费在线观看_亚洲AT永久偷窥无码精品_国产精品自产拍在线观看涩浪潮久

（單選題）  

下面關(guān)于自定義函數(shù)的說法，不正確的是_________。

A.   函數(shù)既可以嵌套定義，也可以嵌套調(diào)用

B.   在函數(shù)體中可以多次給函數(shù)名賦值

C.   如果使用Call語句調(diào)用函數(shù)，將放棄函數(shù)的返回值

D.   執(zhí)行函數(shù)體中的Exit Function語句，將會(huì)退出該函數(shù)，返回函數(shù)的調(diào)用處

A

解析: 函數(shù)不可以嵌套定義，可以嵌套調(diào)用   。

7

下列四條語句，能在文本框T1中顯示出“2017”字樣的有_________條語句。
(1)T1.Text=20+”17”    (2)T1.Text=20 & ”17”
(3)T1.Text=”20”+”17”  (4)T1.Text=17+”2e3”

A.   1

B.   2

C.   3

D.   4

C

解析: 20+”17”返回的結(jié)果是37，因?yàn)?/SPAN>20是數(shù)值型，”17”是字符型,兩者通過+連接在一起時(shí),會(huì)強(qiáng)制將字符型”17”轉(zhuǎn)換為數(shù)值型然后加在一起; 20 & “17”這里的&是強(qiáng)制連接符,會(huì)強(qiáng)制將20與17連接在一起,所以是2017; ”20”+”17”返回2017,兩者因?yàn)槎际亲址��?/SPAN>,所以這里的+號(hào)是連接的意思; 17+”2e3” 因?yàn)?/SPAN>17是數(shù)值型，”2e3”是字符型,兩者通過+連接在一起時(shí),會(huì)強(qiáng)制將字符型”2e3”轉(zhuǎn)換為數(shù)值型,因?yàn)?/SPAN>e在VB中表示10的次方,所以2e3就是2×10^3=2000,然后加上17,所以是2017   。

2

若有數(shù)組聲明：Dim a(3,-2 To 2)As Integer,則a數(shù)組共有______個(gè)元素。

A.   6

B.   12

C.   15

D.   20

D

解析:因?yàn)槟�認(rèn)情況下,數(shù)組的下標(biāo)從0開始, 所以a數(shù)組的第一維是從0到3,第二維是-2 to 2，所以是  a(0,-2), a(0,-1),a(0,0),a(0,1),a(0,2), a(1,-2), a(1,-1),a(1,0),a(1,1),a(1,2), a(2,-2), a(2,-1),a(2,0),a(2,1),a(2,2), a(3,-2), a(3,-1),a(3,0),a(3,1),a(3,2)共有20個(gè)元素。

6

以下關(guān)于名為win的Sub過程，定義正確的是__________。

A.    Private Sub win(a As String * 3 , b() As Integer)

B.   Private Sub win(ByVal a As String , ByVal b() As Integer)

C.   Sub win(a As String , b(10) As Integer)

D.   Sub win(a() As String * 3 , b() As Integer)

D

解析:A錯(cuò), 形參是定長字符串時(shí)只能是數(shù)組,不允許變量;B錯(cuò),b()是數(shù)組,作為形參時(shí),不允許前面加Byval; C錯(cuò),數(shù)組作為形參時(shí)只能是b() 這樣寫法,不允許里面加常量。

7

1.         （單選題）：

a為整型變量且a = 2.5，則表達(dá)式Len(Str(12.3)) + Len(CStr(4.5)) + Len(a) + a的值為__________。

A.    10

B.    11

C.    12

D.    13

C

解析:Str的作用是將數(shù)值型轉(zhuǎn)換為字符型,并保留符號(hào)位,通過Str(12.3)將數(shù)值12.3轉(zhuǎn)換為字符 12.3,注意轉(zhuǎn)換后 12.3的前面有一個(gè)空格,所以Len(Str(12.3))的返回值是5, CStr(4.5)直接將數(shù)值型4.5轉(zhuǎn)換為字符型4.5,不保留符號(hào)位,所以Len(CStr(4.5))的返回值是3,因?yàn)?/SPAN>a是整型,不是字符型, Len(a)返回a所占的字節(jié)數(shù),所以是2,如果a是double型,Len(a)返回結(jié)果是8,因?yàn)?/SPAN>a是整型,當(dāng)執(zhí)行a=2.5時(shí),實(shí)際賦值給a是2,因?yàn)樵?/SPAN>VB中有個(gè)特殊約定,”當(dāng)小數(shù)點(diǎn)只有1位時(shí),如果個(gè)位數(shù)是偶數(shù),則五舍六入,其他情況都是四舍五入”,題目如果改為是a=2.51那么a就是3.。

2

執(zhí)行下面程序，單擊窗體，窗體上第一行顯示的內(nèi)容是____________   ，最后一行顯示的內(nèi)容是____________   。

Option Explicit

Private Sub Form_Click()

    Dim i As Integer, n1 As Integer, n2 As Integer

    n1 = 10: n2 = 1

    For i = n1 To n2 Step -2

        Print "8";

        n1 = n1 - 1

        n2 = n2 + 1

        i = i - 1

    Next i

    Print

    Print i

    Print n2

End Sub

8888@5

解析:因?yàn)槲淖置枋霾蝗缫曨l清晰,具體見視頻詳細(xì)講解。

5

執(zhí)行下面程序，單擊窗體，則窗體上顯示的第二行內(nèi)容是____________   ，第三行內(nèi)容是____________   。

Option Explicit

Private Sub Form_Click()

    Dim n As Integer

    n = 1

    Call Star(n)

End Sub

Private Sub Star(n As Integer)

    Dim i As Integer

    If n < 4 Then

        Call Star(n + 1)

        Print n;

        For i = 1 To n

            Print "*";

        Next i

        Print

    End If

End Sub

2**@1*

解析: 因?yàn)槲淖置枋霾蝗缫曨l清晰,具體見視頻詳細(xì)講解。

7

執(zhí)行下面程序，單擊命令按鈕Command1，則數(shù)組元素a(1,2)的值是____________   ，a(2,1)的值是____________   ，a(3,3)的值是____________   。

Option Explicit

Option Base 1

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, k As Integer, a() As Integer

    k = 3: ReDim a(k, k)

    For i = 1 To k

        a(1, i) = (k - i + 1) ^ 3

    Next i

    For i = 2 To k

        For j = 2 To k

            a(i, j) = a(i - 1, j - 1)

        Next j

        a(i, 1) = a(i - 1, k)

    Next i

    For i = 1 To k

        For j = 1 To k

            Print a(i, j);

        Next j

        Print

    Next i

End Sub

8@1@27

解析: 因?yàn)槲淖置枋霾蝗缫曨l清晰,具體見視頻詳細(xì)講解。

7

執(zhí)行下面程序，單擊命令按鈕Command1，則窗體上顯示的第一行內(nèi)容是____________   ，第二行內(nèi)容是____________   ，第三行內(nèi)容是____________   。

Option Explicit

Option Base 1

Private Sub Command1_Click()

    Dim n As Integer, i As Integer, st As String

    Dim ary() As Integer

    st = "CAD"

    For i = 1 To Len(st)

        ReDim Preserve ary(i)

        ary(i) = Asc(Mid(st, i, 1)) - 64

    Next i

    Call sortary(ary)

    Print st

    For i = 1 To UBound(ary)

        Print Chr(ary(i) + 64);

        n = n * 10 + ary(i)

    Next i

    Print

    Print n

End Sub

Private Sub sortary(sort() As Integer)

    Dim i As Integer, j As Integer, temp As Integer

    For i = 1 To UBound(sort)

        For j = 1 To UBound(sort) - i

            If sort(j) < sort(j + 1) Then

                temp = sort(j)

                sort(j) = sort(j + 1)

                sort(j + 1) = temp

            End If

        Next j

    Next i

End Sub

CAD@DCA@431

解析: 因?yàn)槲淖置枋霾蝗缫曨l清晰,具體見視頻詳細(xì)講解。

7