2007年9月計(jì)算機(jī)二級(jí)VB模擬試題(3)及答案

(1) 棧和隊(duì)列通常采用的存儲(chǔ)結(jié)構(gòu)是 【1】 。
(2) 在程序設(shè)計(jì)階段應(yīng)該采取 【2】 和逐步求精的方法，把一個(gè)模塊的功能逐步分解，細(xì)化為一系列具體的步驟，進(jìn)而用某種程序設(shè)計(jì)語(yǔ)言寫成程序。
(3) 軟件結(jié)構(gòu)是以 【3】 為基礎(chǔ)而組成的一種控制層次結(jié)構(gòu)。
(4) 數(shù)據(jù)庫(kù)系統(tǒng)階段的數(shù)據(jù)具有較高獨(dú)立性，數(shù)據(jù)獨(dú)立性包括物理獨(dú)立性和 【4】 兩個(gè)含義。
(5) 數(shù)據(jù)庫(kù)保護(hù)分為：安全性控制 、 【5】 、并發(fā)性控制和數(shù)據(jù)的恢復(fù)。
(6) 為了選擇多個(gè)控件，可以按住 【6】 鍵，然后單擊每個(gè)控件。
(7) 浮點(diǎn)數(shù)由3部分組成，即符號(hào)、 【7】 和尾數(shù)。
(8) 下面程序運(yùn)行后，單擊命令按鈕，輸出的結(jié)果是 【8】
Private Sub Command1_Click()
   Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2#
   For i=1 To 4
      a(i) =i
   Next i
   For i=2 To 6
      b(i) =i
   Next i
   str1=YAG(A)
   str2=YAG(b)
   Print "str1="; str1; "str2="; str2
End Sub
Function YAG(a() As Integer)
   Dim t#, i%
   t=1
   For i=LBound(A) To UBound(A)
     t=t * a(i)
   Next i
   YAG=t
End Function
(9) 下面程序的作用是用InputBox函數(shù)輸入一個(gè)整數(shù)，然后判斷能否同時(shí)被2，5和7整除，如果能則輸出該數(shù)及平方值。請(qǐng)?zhí)羁铡?BR>Private Sub Command1_Click()
   Dim numX As Integer
   numX=Val(InputBox("請(qǐng)輸入一個(gè)整數(shù)") )
   If 【9】 Then
      Form1.Print 【10】
   End If
End Sub
(10) 下列程序計(jì)算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一項(xiàng)為n個(gè)。
例如： a=5 ， n=4時(shí)，則Sn=5+55+555+5555。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Command1_Click()
   Dim a As Integer, n As Integer, Cout As Integer
   Dim Sn As Long, Tn As Long
   Cout=1
   Sn=0
   Tn=0
   a=InputBox("請(qǐng)輸入a的值：")
    【11】
   Do
      Tn=Tn * 10 + a
      Sn=Sn + Tn
      Cout=Cout + 1
     【12】
    Debug.Print a, n, Sn
End Sub
(11) 在窗體上有一個(gè)"背景色變換"按鈕和一個(gè)"結(jié)束"按鈕。單擊"背景色變換"按鈕，背景色變?yōu)榧t色；再單擊，背景色變?yōu)榫G色；再單擊，背景色變?yōu)樗{(lán)色；再單擊背景色變?yōu)榧t色……如此循環(huán)。單擊"結(jié)束" 按鈕，程序運(yùn)行結(jié)束。請(qǐng)?zhí)羁铡?BR>Private Sub cmdChange_Click()
   If Mark=0 Then
       【13】
      Mark=1
      ElseIf 【14】 Then
      Form1.BackColor=vbGreen
      Mark=2
      ElseIf Mark=2 Then
      Form1.BackColor=vbBlue
       【15】
   End If
End Sub
Private Sub cmdExit_Click()
   End
End Sub

填空題參考答案：

1、鏈?zhǔn)酱鎯?chǔ)或順序存儲(chǔ)
2、自頂而下
3、模塊
4、邏輯獨(dú)立性
5、完整性控制
6、Shift或Ctrl
7、指數(shù)
8、strX=24  str2=720
9、numX Mod 2 = 0 And numX Mod 5 = 0 And numX Mod 7 = 0；numX, numX ^ 2
10、(n=InputBox("請(qǐng)輸入n的值!"))，(Loop While Cout<=n或Loop)
11、Form1.BackColor = vbRed，Mark = 1，Mark = 0

希望與更多計(jì)算機(jī)等級(jí)考試的網(wǎng)友交流，請(qǐng)進(jìn)入計(jì)算機(jī)等級(jí)考試論壇

更多信息請(qǐng)?jiān)L問(wèn)：考試吧計(jì)算機(jī)等級(jí)考試欄目