09秋VB模擬試卷一

1、中國藥科大學(xué) 程序設(shè)計模擬試卷一2009-2010學(xué)年第一學(xué)期專業(yè) 班級 學(xué)號 姓名 請在答題卡上完成一、基本概念（每小題1分，共25分）1已知a被定義為整型變量，執(zhí)行語句a=6 ：a=a+6.5后，此時a的值為 。A0 B1 C2 D32以下使用方法正確的語句是 。ACombo1.Cls BForm1.ClsCPicture1.ClearDText1. Clear3A為整形變量，調(diào)用已定義的Sub過程：Private Sub change(B As Integer)，以下不是按值傳遞的語句是 。ACall Change (A) Bchange (A)CCall Change (A) DCha

2、nge 14若要定義一個變量，使它僅能夠在當前過程中訪問，可以將其定義為_ 靜態(tài)變量 局部變量 窗體/模塊級變量 全局變量 A B C D5在Select Case X結(jié)構(gòu)中，如果5X10是其中的一個判斷條件，則正確描述5X10的測試項應(yīng)該寫成 。ACase 5 To 10BCase Is <= 10, Is >= 5 CCase 5 <= X And X <= 10 DCase 5 <= X <= 106窗體上有一個文本框Text1，假設(shè)已存在三個整型變量a、b和c，且變量a 、b和c的值分別為1、2和3，以下_語句可以使文本框中顯示的內(nèi)容為：3=1+2

3、AText1.Text = c = a + b BText1.Text = "c=a+b" CText1.Caption= c & "=" & a & "+" & b DText1 = c & "=" & a & "+" & b7以下敘述中錯誤的是  。AVB中控件的某些屬性只能在運行時通過代碼來設(shè)置 BVB工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性  CVB的一個應(yīng)用程序是由若干個不同

4、類型的文件組成，即一個工程  DVB 是事件驅(qū)動型的可視化編程工具8針對語句If X=True Then Y=False，下列說法正確的是 。AX= True是賦值語句，Y= False是關(guān)系表達式 BX= True 和Y= False都是關(guān)系表達式CX= True 和Y= False都是賦值語句 DX= True是關(guān)系表達式，Y= False是賦值語句9下列有關(guān)變量的說法，正確的共有 個。全局變量既可在窗體模塊中定義，也可在標準模塊中定義，訪問時也一樣當訪問的變量存在同名變量時，優(yōu)先訪問作用范圍小的變量靜態(tài)變量，從本質(zhì)上來說是一個全局變量所謂模塊級變量，即專指在模塊的通用

5、聲明中用Private定義的變量A1 B2 C3 D410在Visual Basic中，以下敘述 是錯誤的。A控件數(shù)組中的控件可以是不同類型的控件 B控件數(shù)組中的控件都有相同的名字 C控件數(shù)組中的控件響應(yīng)同一個事件 D控件數(shù)組中的控件可以在運行時用代碼生成11以下敘述中正確的是 。 A可以在運行期間改變對象的Name屬性的值B窗體的Name屬性的值是顯示在窗體標題欄中的文本 C對象的Name屬性值可以為空D窗體的Name屬性指定窗體的名稱，用來標識一個窗體12若在一個應(yīng)用程序的窗體上，先后創(chuàng)建Label、Frame、OptionButton等控件，則運行程序顯示該窗體時，會首先獲得焦

6、點是 。A窗體 BLabel CFrame DOptionButton13定義三個變量i,j,k 均為Integer類型，i = 3: j = 3.4: k = 2.5，執(zhí)行語句Print k = i = j后，窗體上顯示的是  。  ATrue  BFalse  C-1  D014窗體上有一個名為Commandl的命令按鈕，編寫如下程序：Private Sub Commandl_Click() Static n As Integer Dim m As Integer Cls :m = 10 :m = m + 30 : n = m + n :

7、Print m, n End Sub 程序運行后，三次單擊Commandl命令按鈕，窗體上的顯示結(jié)果為 。A120 120 B40 40 C 40 120 D 120 4015在一個多窗體程序中，如果要將窗體Form1從內(nèi)存中卸載，其他窗體仍然可用，則下列語句正確的是 。AForm1.Unload BForm1.End CUnload Form1DForm1.Hide16列表框中的列表項的數(shù)目可通過以下 屬性的值獲得。 ACount BListCount CListIndex DIndex17關(guān)于Visual Basic的基本語句， 不是必須成對使用的。AIf和End If BDo和Loop

8、CSelect Case和End Select DFor和Next 18以下有關(guān)數(shù)組作為形參的說明中錯誤的是 。A形參數(shù)組只能按地址傳遞B實參為動態(tài)數(shù)組時，可在過程中用ReDim語句改變形參數(shù)組的維界C調(diào)用過程時，只需把要傳遞的數(shù)組名填入實參表D形參若為數(shù)組就必須說明它的維界是多少19在默認狀態(tài)下，若有數(shù)組聲明：Dim a(5, 4 To 6) As Integer,下面數(shù)組元素引用中正確的是 。A a(0,1) Ba(3,3)Ca(6,6) Da(0,4)20表示“A、B之一為零但不得同時為零”的VB邏輯表達式是 。AA=0 Or B=0 BA=0 Xor B=0 C(A=0 Or B<

9、;>0) And (A<>0 Or B=0) D(A=0 And B<0) Or (A<0 And B=0)21以下有關(guān)對象屬性的說法，錯誤的是 。A工具箱中的控件并不是VB中所有的控件 B對象的所有屬性都可以在屬性窗口中設(shè)置C每個對象必須有Name屬性值 D當Frame1.Enable=False，里面的控件也都不可用22執(zhí)行下列語句：Dim A As Integer, B As String ： A = 123 ： B = 123 ： Print Len(A) + Len(B), 會在窗體上打印出 。A246 B6 C5 D12312323下列 控件不能夠響應(yīng)

10、雙擊事件。AFormBCommandButtonCListBoxDTextBox24下列選項中，所包含的所有表達式能夠?qū)晌徽麛?shù)X的個位數(shù)與十位數(shù)對調(diào)（例如可以將12轉(zhuǎn)換成21）的是 。 Val(Right(X,1) & Left(X,1) Val(Right(Str(X),1) & Left(Str(X),1) Val(Right(CStr(X),1) & Left(CStr(X),1) Val(Mid(X,2,1) + Mid(X,1,1)A B C D25下列有關(guān)數(shù)組的說法中， 是錯誤的。A在模塊中若沒有Option Explicit聲明語句，數(shù)組不先定義就可以使

11、用，數(shù)組會被當作Variant類型來處理B過程定義中，形參數(shù)組可以是定長字符串類型CErase語句的作用是對固定大小數(shù)組的值重新初始化或收回分配給動態(tài)數(shù)組的存儲空間D定義數(shù)組時，數(shù)組維界值可以不是整數(shù)請在答題卡上完成二、運行結(jié)果（每小題2分，共30分）1、運行程序，單擊窗體時，窗體上顯示的第一行是 （26） ，第二行是 (27) ，第三行是 （28） 。Private Function p(m As Integer, ByVal n As Integer) m = m + 2 x = 2 * m n = x Mod 3 Print m; n p = x + yEnd FunctionOptio

12、n ExplicitDim x As Integer, y As IntegerPrivate Sub Form_Click() x = 2: y = 3 Print p(y, x) Print x; yEnd Sub（26） A1 5 B5 1 C8 2 D2 3（27） A15 B6 C10 D11（28） A8 3 B2 5 C10 5 D1 52執(zhí)行下面程序，單擊Command1按鈕，多行文本框Text1中顯示的第一行是 （29） ，第二行是 (30) ，第四行是 （31） 。 Private Sub Command1_Click() Print money(1)End SubPriv

13、ate Function money(ByVal n As Integer) As Single If n > 2 Then money = 0 Else money = (money(n + 1) + 10) / 2 End If Print moneyEnd Function(29)A0 B1 C10 D5 (30)A3 B15 C5 D10(31)A8.75 B7.5 C5 D63、執(zhí)行下列程序，單擊按鈕后窗體上打印的第一行為 （32） 、第二行為 （33） 、第三行結(jié)果為 （34） 。第 11 頁 共 11 頁Private Sub Command1_Click() Dim a

14、As Integer, i As Integer a = 7 For i = 1 To 3 Print F(a) Next iEnd SubFunction F(a As Integer) Dim b As Integer Static c As Integer b = b + 1： c = c + 2F = a + b - c End Function（32） A8 B6 C4 D9（33） A6 B5 C4 D-1（34） A-1 B4 C-2 D24執(zhí)行下面的程序，當單擊命令按鈕Command1時，窗體的第一行顯示的是 (35) ，第二行顯示的是 (36) ，第三行顯示的是 (37) 。

15、 Private Sub Command1_Click() Dim s As String, i As Integer, s1 As String i = Asc("a") : s1 = "A" Do i = i + 1 s = s1 + UCase(Chr(i) s1 = Right(s, 2) & Mid(s, 2, 1) Print s1 Loop Until i >= 100End Sub (35)ABAB BABB CBAA DABA(36)ABCB BABC CBAB DCBA(37)ACCB BDCB CBDC DABC5、執(zhí)

16、行下列程序，單擊按鈕后窗體上打印的第一行為 （38） 、第二行為 （39） 、第三行為 （40） 。Private Sub Command1_Click() Dim a(1 To 9) As Integer, b(1 To 3, 1 To 3) As Integer, i As Integer, j As Integer For i = 1 To 9 a(i) = i Next i For i = 1 To 3 For j = 1 To 3 b(i, j) = a(i * j) If j >= i Then Print b(i, j); Next j Print Next iEnd Su

17、b（38） A1 2 3 B2 3 C3 D 3 2 1（39） A4 5 6 B4 6 C5 6 D 2 4 9（40） A3 B6 C8 D 9請在答題卡上完成三、完善程序（每小題2分，共30分）1、找出10000以內(nèi)的所有完數(shù)并在列表框中輸出，完數(shù)的個數(shù)在Text1中輸出。所謂完數(shù)，是指它的所有的質(zhì)因子之和等于它本身的數(shù)，如6=1+2+3。Private Function wshu(n As Integer) As （43） Dim i As Integer, s As Integer For i = 1 To n - 1 If n Mod i = 0 Then （44） Next i

18、If s = n Then （45） End FunctionPrivate Sub 運算_Click() Dim i As Integer For i = 1 To 10000 If wshu(i) Then （41） Next i Text1 = List1. （42） End Sub(41) AList1.Print iBList1.text= iCList1= iD List1.AddItem i(42) AList BListCount CListIndexDText(43) ALongBInteger CString DBoolean (44) As = s + iBs = s &

19、amp; iCExit ForDExit Function (45) Awshu = nBwshu = sCwshu = TrueDwshu = s + n2、本程序的功能是，利用下列公式求通項和S的近似值，規(guī)定通項的絕對值10-5時結(jié)束累加。Private Function fact(a As Integer) As Long Dim i As Integer (48) For i = 1 To a fact = fact * i Next iEnd FunctionPrivate Sub Command1_Click() Dim sum As Single, x As Single Dim

20、 sign As Integer, t As Single Dim i As Integer x = Val(Text1) sum = 0: i = 1 Do t = (46) sum = sum + t i = i + 1 Loop (47) Text2 = Format(sum, "#0.000")End Sub (46) A(-1) (i + 1) * x (2 * i + 1) / fact(i)Bx (2 * i + 1) / fact(i)C(-1) (i + 1) * x (2 i + 1) / fact(i)D(-1) i * x (2 * i + 1) /

21、 fact(i)(47) AUntil t<1e-5BWhile Abs(t)>1e-5CUntil Abs(t)>=10 (-5)DWhile t>1e-5(48) AIf a = 1 then fact =1Bfact = aCfact = 1Dfact = 0 3、編程實現(xiàn)求32和12這兩個數(shù)的最大公約數(shù)，單擊單選按鈕“過程1”或 “過程2”都可以在文本框Text1中顯示如圖所示的結(jié)果。Option ExplicitPrivate Sub Option1_Click(Index As Integer) Dim a As Integer, b As Integer,

22、 r As Integer a = 32: b = 12 If Index = 0 Then r = gcd1(a, b) ElseIf Index = 1 Then (49) End If Text1 = CStr(a) & "和" & CStr(b) & "的最大公數(shù)為" & CStr(r)End SubPrivate Function gcd2(x As Integer, y As Integer) As Integer Dim r As Integer Do r = x Mod y x = y: y = r Loo

23、p While r <> 0 (52) End FunctionPrivate Function gcd1(ByVal x As Integer, ByVal y As Integer) As Integer Dim r As Integer (50) Do While r <> 0 x = y: y = r r = x Mod y Loop (51) End Function（49）Ar = gcd2(a, b) Br = gcd1(a, b) Cr = gcd1(a), (b) Dr = gcd2(a), (b)（50）Ar=0 Br = x Mod y Cr =

24、x Dr = y（51）Agcd1 = x Bgcd1 = y Cgcd1(x,y) = x Dgcd1 (x,y) = y（52）Agcd2 = x Bgcd2 = y Cgcd2(x,y) = x Dgcd2 (x,y) = y4、本程序的功能是產(chǎn)生10個數(shù),統(tǒng)計其中不相同數(shù)據(jù)的個數(shù)。Option ExplicitDim a(10) As IntegerPrivate Sub Command1_Click() Dim i As Integer Randomize For i = 1 To 10 a(i) = Int(90 * Rnd) + 10Private Sub Command2_Cl

25、ick() Dim i As Integer, j As Integer, f As Boolean, n As Integer For i = 1 To 10 f = True For j = i + 1 To 10 If (54) Then f = False Next j If f = True Then ( 55) Next i Text2 = nEnd Sub Text1 = Text1 & (53) Next iEnd Sub（53）ACStr(a(i) BStr(a) CCStr(a) DStr(a(i)（54）Aa(i) >= a(j) Ba(i) = a(j)

26、Ca(i+1) = a(j)Da(i) <= a(j)（55）A n = n + 1 B n = i Cn = i + 1 Dn = True 請在答題卡上完成四、編程題（每小題3分，共15分）1、單擊“產(chǎn)生數(shù)組”按鈕產(chǎn)生10個兩位隨機整數(shù)，并顯示在圖片框中；單擊按鈕“排序”用選擇法排序?qū)?shù)組進行從小到大排序；單擊“素數(shù)統(tǒng)計”按鈕，將素數(shù)的個數(shù)顯示在文本框中。Dim a(10) As IntegerPrivate Sub 產(chǎn)生數(shù)組_Click() Dim i As IntegerPicture1.Print "排序前"Private Sub 排序_Click() Di

27、m temp As Integer, i As Integer, j As Integer 請在（57）選項中選擇正確的語句組合 Next j Next i Picture1.Print "排序后" For i = 1 To 10 Picture1.Print a(i);If prime(a(i) Then s=s+1 Next iText1=sEnd Sub請在（56）選項中選擇正確的程序段 Picture1.PrintPrivate Function prime(n As Integer) As BooleanDim i As Integer 請在(58)選項中選擇正確

28、程序段End Function End Sub（56）下面兩段代碼中，能正確實現(xiàn)題目要求的程序段有 （56） 。 For i=1 to 10 a(i)=Fix(Rnd*90)+10 Picture1.Print a(i); Next i For i = 1 To 10 a(i)=Int(Rnd*90)+10 Print a(i); Next iA只有可以 B 都可以 C只有可以 D都不可以(57) 下面四段程序中功能正確的有： （57） 。 For i = 1 To 9 For j = 1 to 10 iIf a(i) > a(j) Thentemp = a(i) a(i) = a(j)

29、a(j) = tempEnd If For i = 1 To 9 For j = 1 to iIf a(i) > a(j+1) Thentemp = a(j) a(j) = a(i) a(i) = temp End If For i = 1 To 9 For j = i + 1 To 10If a(i) > a(j) Thena(i) = a(i) + a(j)a(j) = a(i) a(j)a(i) = a(i) a(j) End If For i = 1 To 9 For j = i + 1 To 10If a(i) > a(j) Thena(j) = a(i) + a(

30、j)a(i) = a(j) a(i)a(j) = a(j) a(i) End IfA B C D（58）以下正確的語句組合是 （58） 。 For i = 2 To x/2 If x Mod i = 0 Then prime = False Next i prime = True For i = 2 To x - 1 If x Mod i = 0 Then Exit For Next i prime = True For i = 2 To Sqr(x) If x Mod i = 0 Then Exit FunctionEnd If Next i prime = True For i = 2 T

31、o x-1 If x Mod i = 0 Then Exit For Next i If i=x Then prime = TrueA B C D2、文本框1中有小寫字母和數(shù)字混合的字符串，編程將其中的數(shù)字篩選出來，并求出它們的平均值顯示在文本框2中，結(jié)果必須保留兩位有效位，對第3位四舍五入。If str2 <> "" Then k = k + 1 ReDim Preserve num(k) num(k) = Val(str2) End If For i = 1 To k s = s + num(i) Next i 請在（60）選項中選擇正確的語句End SubPrivate Sub Command1_Click() Dim str1 As String, str2 As String, st AsString, num() As Integer, i As Integer,k As Integer, s As Single str1 = Text1 For i = 1 To Len(str1) st =