廣東藥學院VB考試復習題

1、廣東藥學院VB考試復習題一、單選題（每題2分，共30分）1.我們通常說的U盤屬于計算機部件中的_( )_。(A) 輸出設備 (B) 輸入設備 (C) 存儲設備 (D) 打印設備2.下列表示存儲容量的數(shù)據(jù)中，_( )_是最小的。(A)20480 KB (B) 1.44 MB (C) 1 GB (D)486 Byte3. 一個完整計算機系統(tǒng)應包括_()_。(A) 主機和顯示器 (B) 硬件系統(tǒng)和軟件系統(tǒng)(C) 系統(tǒng)軟件和應用軟件 (D) 內存和外存4.二進制數(shù)10101轉換為十進制是_()_。(A) 17 (B) 21 (C) 42 (D) 101015.在VB中，保存一個工程至少應保存兩個文件，

2、這兩個文件分別是_()_。 (A)文本文件和工程文件 (B)窗體文件和工程文件 (C)窗體文件和標準模塊文件 (D)類模塊文件和工程文件6.設a=6，則執(zhí)行 x= IIf(a > 5, -1, 0) 后，x的值為_()_。(A)5 (B)6 (C)0 (D)-17.以下Case語句中錯誤的是_()_。 (A) Case 0 To 10 (B) Case Is>10 (C) Case Is>10 And Is<50 (D) Case 3,5,Is>108.一般情況下，控件的大小是由_()_屬性確定的(A) Width和Height (B) Top和Left (C)

3、Width和Left (D) Top和Width9. 下列變量名中，合法的變量名是_()_。(A)t24 (B)iun-k (C)24t (D)t+p10.對象的三個要素是：_。A) 屬性、方法、事件 B) 色彩、高度、寬度C)事件、屬性、色彩 D) 屬性、高度、寬度11. 符號是聲明_類型變量的類型定義符。A)Integer B)Variant C)Single D)String12. 以下表達式中_與其他幾個的值不同。(A) Left(Right("ABCDEDEFG", 6), 4) (B) Right(Left("ABCDEDEFG", 7),

4、4)(C) Mid("ABCDEDEFG", 4, 4) (D) String(2, "DE")13. 設x=4，y=8，z=7，則表達式 x<y And (Not y>z) Or z<x 的值是_。(A) 1 (B) -1 (C) True (D) False14. 關于Name屬性，以下敘述中_( )_是正確的。(A) 窗體的Name屬性指定窗體的名稱，用于標識一個窗體。(B) 窗體的Name屬性用于設置顯示在窗體標題欄的文本。(C) 可以通過代碼在程序運行中改變某個對象的Name屬性值。(D) 對象的Name屬性值可以設置為空。1

5、5. 要求出變量x和y中較大的一個并保存在變量Max中，下面的程序段中_( )_是不正確的。(A) Max = IIf(x > y, x, y)(B) If x > y Then Max = x Else Max = y(C) Max = xIf y >= x Then Max = y(D) If y > x Then Max = yMax = x二、填空題（50分，每空2分，請在實驗報告上標明每個空的編號） 下面這段程序要在窗體顯示20個100，200間的隨機整數(shù)，求這些數(shù)的和，并顯示其中5的倍數(shù)請完成程序。 For i = 1 To 20 x = Int(_1_)

6、(1)Int(Rnd*101+100) _2 _ (2)s=s+x If _3 _ (3)x mod 5=0 then print x Next I Print "總和：" s 執(zhí)行下面這段程序后，窗體中顯示_4 _和_5 _。(4) 5 (5) 5.6 s = 2 For i = 3.2 To 4.9 Step 0.8 s = s + 1 Next i Print s, i 在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()x=0Do Until x=-la=InputBox(請輸入A的值)a=Val(A)b=Input

7、Box（請輸入B的值)b=Val(B)x=InputBox(請輸入x的值)x=Val(x)a=a+b+xLoopPrint aEnd Sub程序運行后，單擊命令按鈕，依次在輸入對話框中輸入5、4、3、2、1、-l，則輸出結果為_ 6_。(6)2 u 請完善以下判斷完數(shù)的程序。一個數(shù)如果恰好等于它的因子之和，這個數(shù)就被稱為“完數(shù)”。一個數(shù)的因子是指除了該數(shù)本身以外能夠被其整除的數(shù)。例如6是一個完數(shù)，因為6=1+2+3。Private Sub Command1_Click()Dim m%, k%, i%m = Val(Text1.Text)k = 0For i = _ 7_ (7)1 to m-1

8、 If m Mod i = 0 Then k = k + i ' 因數(shù)和 _8 _ (8)end ifNext i If _9 _Then (9)k=m or m=k Print m & "是完數(shù)" Else Print m & "不是完數(shù)" End IfEnd Subu 如下圖，窗體上有兩個命令按扭C1, C2及一個文本框Text1，當按下C1時，將C2的標題與Text1中的內容交換。C2C1 Private Sub C1_Click()Dim a As StringForm1.Caption = "交換后"

9、a = _ 10_ (10) Text1.Text Text1.Text = _11 _ (11) C2.CaptionC2.Caption = aEnd Sub 編程鍵盤輸入5個數(shù)字，求出其中最接近100的數(shù)字。Private Sub Command1_Click()Dim i%, x%, Nu%Nu =Val(InputBox("請輸入第一個數(shù)字")Print "你輸入的五個數(shù)分別是:" & Nu;For i = 2 To 5 x =_12_("請輸入第" & i & "個數(shù)") (12

10、)inputbox Print x; If Abs(x - 100) _13 _ Abs(Nu - 100) Then (13) < _ 14_ (14) nu=x End IfNext iPrint vbCrLf & "最接近100的數(shù)是_15 _ (15)nuEnd Sub 若一個三位數(shù)，它的個、十、百位數(shù)字的立方和恰巧等于這個數(shù)本身，則把這個數(shù)稱為水仙花數(shù)。完善程序求出所有水仙花數(shù)。Private Sub Command1_Click()Dim x%, a%, b%, c%For x = _ 16_ Step 1(16)for 100 to 1000 or for

11、 100 to 999 a = Int(x / 100) b = _17 _ (17) (x-a*100)10 or int(x-a*100)/10 c = x - 100 * a - 10 * b If _ 18_ Then (18) a3+b3+c3=x or x=a3+b3+c3 Print x End IfNext xEnd Sub 完善程序，統(tǒng)計文本框中大小寫字母各有多少個。s = Text1.TextFor i = 1 To _19 _ (19) len(s) c = _ 20_ (20)mid(s,i,1) If c >= "A" And c <=

12、 "Z"Then t = t+1 Else m = m +1 End If_ 21_ (21)next iPrint "大寫字符有" & t & "個" "小寫字符有" & m & "個" 完善程序，輸入x，求：Sin（x）=x/1-x3/3!+x5/5!-x7/7!+(-1)n-1*x2n-1/(2n-1)!要求當?shù)贜項的精度小于10-5時結束運算，自變量x單位為弧度。提示：t（當前項） = -1 * t（前一項） * x 2 / (i - 1) * i)Dim x!Dim Sx!Dim i%, t!x = Val(InputBox("x=")i = 1t = x / 1Do Until _22 _ < 10 (-5) (22)abs(t) _23 _ (23)sx=sx+t i = i + 2 t = -1_24 _ x 2 / (i - 1) * i) (24)*t*_25_ (25)loopMsgBox "計算結果Sin(" & x