第33次VB筆試試卷第二部分VB程序設(shè)計

1、第33次VB筆試試卷第二部分VB程序設(shè)計一、單項選擇題（1分/小題，共10分）1、語句PRINTSGN(-26)=;SGN(-26)的輸出結(jié)果為(16).16 （A）SGN(-26)=26 （B）SGN(-26)=-26（C）SGN(-26)=+1（D）SGN(-26)=-12、VB應(yīng)用程序保存在磁盤上,至少會有以(17)為擴展名兩個文件.17 （A）.DOC和.TXT （B）.COM和.EXE （C）.VBW和.BAS （D）.VBP和.FRM3、組合框有三種風(fēng)格,它們由Style屬性所決定,其中為下拉列表框時,Style屬性值應(yīng)為(18).18 （A）0 （B）1 （C）2 （D）34、I

2、nt(198.555*100+0.5)/100的值(19).19 （A）198 （B）199.6 （C）198.56 （D）2005、若要訪問組合框Comb1中被用戶選中的表項，應(yīng)使用（20） 20 （A）Comb1.Text （B）Comb1.List （C）Comb1.ListIndex （D）Comb1.ListCount6、下列各項變量中,哪一項所占的內(nèi)存空間最多(21).21 （A）dim x as currency x=99 （B）dim st1 as string st1=good（C）dim st2 as string st2=goodbye （D）dim d as data

3、d=1898/09/127、清除列表框的所有選項應(yīng)選擇下列哪種方法(22).22 （A）Clear （B）Cls （C）ClearItem （D）RemoveItem8、如果在窗體上已經(jīng)創(chuàng)建了一個文本框?qū)ο骉ext1,可以通過(23)事件獲得輸入鍵值的ASCII碼.23 （A）Change （B）LostFocus （C）KeyPress （D）GotFocus9、以下不屬于VisualBasic系統(tǒng)的文件類型是(24).24 （A）.frm （B）.bat （C）.vbg （D）.vbp10、控件是(25).25 （A）建立對象的工具 （B）設(shè)置對象屬性的工具（C）編寫程序的編輯器 （D）建

4、立圖形界面的編輯窗口二、程序閱讀（3分/題，共45分）1、在窗體上畫一個名稱為Label1、標題為VisualBasic考試的標簽,兩個名稱分別為Command1和Command2、標題分別為開始和停止的命令按鈕,然后畫一個名稱為Timer1的計時器控件,并把其Interval屬性設(shè)置為500. 編寫如下程序: Private Sub Form_Load()Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.

5、Enabled = FalseEnd SubPrivate Sub Timer1_Timer()If Label1.Left = eps) s = s + t t = t * x / n n = n + 1 Loop 【】 End FunctionSub jishu2(s#, x!, eps#) Dim n%, t# n = 1: s = 0: t = 1 Do While (Abs(t) = eps) s = s + t t = t * x / n n = n + 1 Loop End SubPrivate Sub Command1_Click() Dim f1#, f2# f1 = jis

6、hu1(2#, 0.) 【】 jishu2(f2, 2#, 0.) Print f1=; f1, f2 = ; f2End Sub3、用輸入對話框輸入x，根據(jù)如圖公式計算對應(yīng)的y，在窗體上輸出y的值。Private Sub Command1_Click() Dim x As Single, 【】 As Single x = Val(【】(Please input x :, 輸入X的值) If x = 10 Then 【】 ElseIf x 10 Then y = Sqr(x) 【】 Else y = 2 * x 3 + 6 End If Print yEnd Sub4、以下程序段實現(xiàn)的功能是：

7、查找一數(shù)列中是否存在某數(shù)字x，若數(shù)列中存在該數(shù)字，則輸出其出現(xiàn)的次數(shù)，否則輸出不存在信息。Private Function Search(a() As Integer, ByVal key, n%) As Boolean Dim i% Search = False For i = LBound(a) To 【】 If key = a(i) Then Search = True 【】 End If Next iEnd FunctionPrivate Sub Form_Click()Dim x As Integer, k As Integer, num As IntegerDim b() As I

8、ntegernum = Int(Rnd * 10) + 1ReDim b(num)For i = 0 To num b(i) = Int(Rnd * 70) + 20 Print b(i);Next iPrintx = Val(InputBox(輸入待查找數(shù)據(jù))If Search(【】, x, k) ThenPrint x; 在數(shù)列中出現(xiàn); k; 次Else Print x; 未在數(shù)列中出現(xiàn)End IfEnd Sub5、在文本框內(nèi)輸入一串字符后，統(tǒng)計并顯示各字母出現(xiàn)的次數(shù)不區(qū)分大小寫字母。Private Sub Command1_Click() Dim a(1 To 26) As Integer, c As String * 1【】 = Len(Te