(9) 在窗體上有一個(gè)名稱為Label1的標(biāo)簽和一個(gè)名稱List1的列表框。程序運(yùn)行后，在列表框中添加若干列表項(xiàng)。當(dāng)雙擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽Labe1中顯示所選中的項(xiàng)目，如圖所示。請?jiān)诳瞻滋幪钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form_Load()
   List1.AddItem "北京"
   List1.AddItem "上海"
   List1.AddItem "河北"
End Sub
Private Sub List1 【9】 ()
   Labe1.Caption= 【10】
End Sub
正確答案:  1.(DblClick) 2.(List1.Text)

(10) 執(zhí)行語句Open "TC.dat" For Random As #1 Len=50后，對文件TC.dat中的數(shù)據(jù)能執(zhí)行的操作是 【11】 。
正確答案:  1.(既可以讀，也可以寫)

 (11) 下面程序的功能是統(tǒng)計(jì)字符串中"i"的個(gè)數(shù)，請?zhí)羁铡?BR>Sub COU()
    a$="Beijing University of Technology"
    Dim n As Integer
    n=Len(a$)
    For i=1 To n
    b$= 【12】
    If 【13】 Then x=x + 1
   Next i
   Print "x="; x
End Sub
正確答案:  1.(Mid＄(a＄, i, 1) ) 2.(b＄ = "i")

(12) 下列事件過程的功能是：建立一個(gè)名為Datal的隨機(jī)文件，存放角度值及這些角度的正弦函數(shù)值和余弦函數(shù)值，角度為1，2，3，…，90。請?jiān)诳瞻滋幪钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Type Ang
   K As Integer
   Sinx As Single
   Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form_Click()
   Dim Y As Single
   Open 【14】
   Y=3.14159 / 180
   For I=1 To 90
     Ksc.K=I
     Ksc.Sinx=Sin(I * Y)
     Ksc.Cosx=Cos(I * Y)
      【15】
      Next I

      Close #2
End Sub
正確答案:  1.("c:＼Data1.txt" For Random As #2 Len = 10) 2.(Put #2, I)

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

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