九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

基本信息：*

班級(jí)：*

1.

7 ^ 2 Mod 11 + 7 \ 4 * 9 / 5 Mod 6 ，上述表達(dá)式的值是____。*

2.

通過(guò)編程求出結(jié)果。把 9786 表示為兩個(gè)加數(shù)之和，使其中一個(gè)加數(shù)能被91整除，而另一個(gè)加數(shù)能被87整除。請(qǐng)求出：在這兩個(gè)加數(shù)中，能被91整除的加數(shù)等于多少？*

3.

通過(guò)編程求出結(jié)果。求 S = 1/5 + 1/10 + 1/15 + 1/20 + 1/25 + … + 1/(5*n) + … 的前 n 項(xiàng)之和，當(dāng) S 第一次大于或等于 1.4 時(shí)終止計(jì)算，此時(shí)項(xiàng)數(shù) n 為____。*

4.

在 Access2010 中的 VBA 過(guò)程里，要運(yùn)行宏可以使用 DoCmd 對(duì)象的______方法。（）*

5.

在宏中，OpenReport 操作可用來(lái)打開指定的_______。（）*

6.

關(guān)于宏的執(zhí)行，以下說(shuō)法不正確的是_______。（）*

7.

在宏中，用于顯示所有記錄的宏命令是_______。（）*

8.

在 VBA 中，表達(dá)式 (5^2 Mod 8) >= 4 的值是_______。（）*

9.

表達(dá)式 IIf(23 \ 5.5 <= 3 Or 5 >= 6, 68, 176) 的結(jié)果是______。（注意：執(zhí)行整除之前，要先把除數(shù)四舍五入。請(qǐng)另外嘗試表達(dá)式 IIf(23 \ 5.4 <= 3 Or 5 >= 6, 68, 176) 的結(jié)果。）*

10.

在 VBA 中，聲明函數(shù)過(guò)程的關(guān)鍵字是_______。（）*

11.

對(duì) VBA 中的邏輯值進(jìn)行算術(shù)運(yùn)算時(shí)，True 值被當(dāng)做 -1，F(xiàn)alse 當(dāng)做_______。（）*

12.

在 VBA 中，類型說(shuō)明符 # 表示的數(shù)據(jù)類型是______。（）*

13.

下列語(yǔ)句中，定義窗體的加載事件過(guò)程的頭語(yǔ)句是______。（）*

14.

現(xiàn)有一個(gè)已經(jīng)建好的窗體，窗體中有一個(gè)命令按鈕，單擊此按鈕，將打開“產(chǎn)品數(shù)量統(tǒng)計(jì)”報(bào)表，如果采用VBA 代碼完成，下面語(yǔ)句正確的是______。（）*

15.

表達(dá)式 IIf(7 Mod 5 > 3, 60, IIf(2^3 > 28, 80, 100)) 的運(yùn)算結(jié)果是______。（）*

16.

在 VBA 中，變量聲明語(yǔ)句“ Dim a!, b AS integer”中的變量 a 的類型是______。（）*

17.

在 VBA 中，“ Dim a(3,3) AS Boolean”語(yǔ)句定義了一個(gè)數(shù)組，該數(shù)組中的全部元素都初始化為____。（）*

18.

執(zhí)行下列程序段后，變量 P 的值是_____。
Dim W As Single
Dim P As Single
W = 68.5
If W <= 50 Then
    P = W * 4
Else
     P = W * 2
End If
*

19.

設(shè) x=9，執(zhí)行下列程序段后，變量 t 的值是_____。
y = x\4 +2^4
If y<>30 Then x = x + y
t = x Mod 12
*

20.

在 VBA 某個(gè)模塊中，有如下聲明語(yǔ)句
Dim a(6,10) AS integer
那么數(shù)組 a(6,10) 總共有______個(gè)元素。*

21.

以下 VBA 程序段運(yùn)行后，變量 j 的值是______。
k = 10
j = 0
Do
    k = k + 10
    j = j + 1
Loop Until k > 20
*

22.

以下 VBA 程序段運(yùn)行后，變量 j 的值是______。
y = 89
j = "不及格"
Do While y > 60
     j = IIf(y < 70, "及格", IIf(y < 90, "良好", "優(yōu)秀"))
     y = y - 50
Loop
*

23.

以下 VBA 代碼程序運(yùn)行結(jié)束后，變量 a 的值是______。
a=0
b=101
Do
   b=b-20
   a=a+b
Loop While b>80
*

24.

以下 VBA 代碼程序運(yùn)行結(jié)束后，數(shù)組元素 a(12) 的值是______。
Dim a(12) As Long, i As Long
i=0
Do Until i>12
   a(i)=i^2 - i
   i=i+1
Loop
*

25.

假定有如下的 Function 過(guò)程：
Function ppfun(x As Single, y As Single)
    ppfun=x^3-y^2
  End Function
在窗體上添加一個(gè)命令按鈕（名為 cmd10）,然后編寫如下事件過(guò)程：
Private Sub cmd10_Click()
    Dim a As Single, b As Single
    a = 5
    b = 4
    MsgBox ppfun(a,b) mod 50
  End Sub
打開窗體運(yùn)行后，單擊命令按鈕，消息框中的輸出內(nèi)容是______。
*

26.

在窗體上添加一個(gè)命令按鈕（名為 cmd2）,然后編寫如下事件過(guò)程：
Private Sub cmd2_Click()
    Dim pi As Single, n As Integer
    pi = 3.14
    n = Len(Str(pi) & Space(2) & "是本字符串長(zhǎng)度")
    MsgBox n
  End Sub
打開窗體運(yùn)行后，單擊命令按鈕，消息框中的輸出內(nèi)容是______。
*

27.

在窗體上添加一個(gè)命令按鈕（名為 cmd13）,然后編寫如下事件過(guò)程：
Private Sub cmd13_Click()
    Dim x As String, y As String
    x = "龍洞華美路中山大學(xué)新華學(xué)院法學(xué)院"
    y = "2006級(jí)法學(xué)專業(yè)學(xué)生"
    MsgBox Mid(x,6,4) & Right(x,3) & Left(y,9)
  End Sub
打開窗體運(yùn)行后，單擊命令按鈕，消息框中的輸出內(nèi)容是______。
*

28.

下列程序段,建立如圖所示的數(shù)組d（下標(biāo)從1開始），填寫所缺部分：
1 2 3 4 5 6
2 1 2 3 4 5
3 2 1 2 3 4
4 3 2 1 2 3
5 4 3 2 1 2
6 5 4 3 2 1

Dim d(1 To 6, 1 To 6)
For j = 1 To 6
    For k = 1 To 6
        d(j,k) = Abs( _____ ) + 1         '選答案
    Next k
Next j
*

29.

在窗體上添加一個(gè)命令按鈕（名為 cmd），然后編寫如下事件過(guò)程。單擊該命令按鈕，便將數(shù)組 p(6,8)中各個(gè)元素都賦予其對(duì)應(yīng)的兩個(gè)下標(biāo)值平方之和，請(qǐng)完善程序。
Private Sub cmd_Click()
   Dim p(6,8) As integer, i As integer, j As integer
   For i=0 To 6
      For j=0 To 8
            p(i,j) = ___[1]___        '選答案
      Next j
   Next i
End Sub*

30.

在窗體上已經(jīng)建立1個(gè)文本框控件txt1和1個(gè)命令按鈕控件cmd1。請(qǐng)完善程序，使之完成以下操作：
    程序運(yùn)行時(shí)，文本框上顯示“VBA程序設(shè)計(jì)”，命令按鈕的標(biāo)題上顯示“隱藏”；單擊命令按鈕時(shí)文本框消失；單擊窗體時(shí)顯示出文本框。
Private Sub cmd1_Clic()
        txt1.Visible = False
End Sub
Private Sub Form_Click()
        txt1.___[1]____ = True     '選答案
End Sub
Private Sub Form_Load()
        txt1.Value = "VBA程序設(shè)計(jì)"
        txt1.Visible = True
        cmd1.Caption = "隱藏"
End Sub*

31.

在窗體上已經(jīng)建立1個(gè)標(biāo)簽控件lab1和1個(gè)命令按鈕控件cmd1。請(qǐng)完善程序，使之完成以下操作：
   打開窗體后單擊命令按鈕，則通過(guò)輸入對(duì)話框分別輸入3個(gè)數(shù)值，然后求出其中最大的數(shù)，并將最大的數(shù)顯示在標(biāo)簽lab1中。
Private Sub cmd1_Click()
    Dim a As Single, b As Single, c As Single
    Dim k As Single
    a = Val(InputBox("輸入第一個(gè)數(shù)"))
    b = Val(InputBox("輸入第二個(gè)數(shù)"))
    c = Val(InputBox("輸入第三個(gè)數(shù)"))
    If a<b Then
         k = b
    Else
         k = a
    End If
    If k<c Then
         k = c
    End If
    _______[1]_____ '選答案
End Sub*

32.

下面______是合法的變量名。* 【多選題】

33.

在 VBA 中，對(duì)于 Sub (或 Function) 過(guò)程中的每一個(gè)形參,可用于聲明其參數(shù)傳遞方式的關(guān)鍵字包括_______。* 【多選題】