VB基本知識及選擇、循環(huán)結(jié)構(gòu)習(xí)題

1、.一、 VB 基本知識及選擇、循環(huán)結(jié)構(gòu)習(xí)題一、基本概念題（1） 說明下列哪些是 Visual Basic合法的直接常量，并分別指出它們的類型。100.0%1001E1123D3123,4560100“ ASDF”“ 1234.5 ”#2004/10/7#100#&O78&H123TrueT-1123!345.54#（2）下列數(shù)據(jù)哪些是變量，哪些是常量？是什么類型的常量？Name“ name”Falseff“ 11/16/99” cj“ 120 ”n#11/12/2004#12.345（3） 下列符號中，哪些可以是Visual Basic的合法變量名？A123a12_3123_aa,123a 1

2、23IntegerXYZFalseSin(x)變量名sinx（4）把下列數(shù)學(xué)表達(dá)式寫成Visual Basic 表達(dá)式：（ 1） | xy |z5（ 2） (1xy)610x3 ybb24ac（ 3）xy（ 4）2a1e10 ln 10111sin 45（ 5） r1r2r3x y 1（ 6）（ 5）寫出下列表達(dá)式的值：（ 1） 123 + 23 Mod 10 7 + Asc(A)（ 2） Int(68.555 * 100 + 0.4) / 100（ 3） #11/22/2004# - 10（ 4） ZXY & 123 & abc（ 6）設(shè) a=7， b=3，c=4，求下列表達(dá)式的值：（ 1）

3、 a + 3 * c（ 2） a 2 / 4（ 3） a / 2 + 3 2（ 4） a Mod 3 + b 3 / c 5（7）寫出下列函數(shù)的值：（ 1） Int(-3.14159)（ 2） Fix(-3.14159)（ 3） Sqr(Sqr(81)（ 4） Len(Visual Basic程序設(shè)計(jì) )（ 5） Int(Abs(99 - 100) / 2)（ 6）Sgn(7 * 3 + 2)（ 7） LCase(Hellow VB!)（ 8） Mid(Hellow VB!, 4, 3)（ 9） Left(Hellow VB!, 3)（ 10）Val(16 個(gè)加 23個(gè) )（ 11） Str(

4、-459.55)（ 12）UCase(Visual Basic)二、 選擇題（ 1）可以同時(shí)刪除字符串前導(dǎo)和尾部空格的函數(shù)是。A. LtrimB. RtrimC. TrimD. Mid（ 2）函數(shù) Int(Rnd(1) * 10) 是在哪個(gè)范圍產(chǎn)生隨機(jī)整數(shù)。A. (0,1)B. (0,9)C. (1,10)D. (1,9)（ 3）數(shù)學(xué)式子 sin25o寫成 Visual Basic 表達(dá)式是。A.Sin25B. Sin(25)C. Sin(25 o)D. Sin(25*3.14/180)（ 4）表達(dá)式 16/423 * 8/4 Mod 52 的值是。A. 14B. 4C. 20D. 2（ 5）

5、數(shù)學(xué)關(guān)系式3 x 10 表示成正確的 VB 表達(dá)式為。A. 3= x = 3 And x=3 Or x10D. 3= x And “ ABC”B.“ THA” “ THE”C. 9 “ H” D.“ A” “ a”（ 16）表達(dá)式a+b=c 是。A. 表達(dá)式B. 字符表達(dá)式C. 算 表達(dá)式D. 關(guān)系表達(dá)式（ 17）在下列表達(dá)式中，非法的是。A. a=b+cB. ab+cC. a bcD. ab+c（ 18） 句 Print Format (“HELLO”, )“的” 出 果是。A. HELLOB. helloC. HeD. he（ 19）MsgBox 函數(shù)的返回 的 型是。A. 整數(shù)B. 字符

6、串C. 邏輯值D. 日期（ 20）用 句Dim A(-3 to 5) As Long定 的數(shù) 元素個(gè)數(shù)是。A. 7B. 8C. 9D.10三、判斷 (1) VB6.0 中 &H12是 8 制的數(shù) 常數(shù)。(2) 設(shè) A=123,B=123, 則 A+B的 果 246， A-B 的 果 0。(3)已知 A$=87654321 ， 表達(dá)式Val(Left$(A$， 4)+Mid$(A$,4,2)的 是： 876554。(4) Rnd 函數(shù) 生的是（ 0,1) 之 不包括 0、 1 的隨機(jī)小數(shù)。(5)表示 x 是 5 的倍數(shù)或是9 的倍數(shù)的 表達(dá)式 :x Mod 5=0 OR x Mod 9=0。(6

7、) Len( 等 考 ) 和 LenB( 等 考 ) 的 果相同。(7) VB6.0 中字符串常量是用雙引號或 引號括起來的字符串。的 果 0。(9) 固定數(shù) 中的數(shù) 元素個(gè)數(shù)一旦定 好后，在程序運(yùn)行 程中不再會 生 化，并且數(shù) 中數(shù) 元素的 也不會 化。(10) 數(shù) 元素的下 可以是常數(shù)、 量或表達(dá)式。(11) 在 For Next 循 中，其中 Step 步 可以是正數(shù) , 也可以是 數(shù)。(12) 在 DoLoop While Until 循 中， While 關(guān) 字或 Until 關(guān) 字必 其中之一。(13) 在 For.Next循 中， Exit For子句是可 ，它可以放置在循 體

8、句中的任何位置。(14) 數(shù) 在定 已被分配存 空 。(15)在 VB6.0 中， Option Base 句的參數(shù)只能是0 或 1。四、程序 （2） 行下面程序段后， 量的 。.Dim x As Integerx = 5For i = 1 To 20 Step 3x = x + i 5Next i（ 3）執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()Dim x As IntegerFor i = 1 To 3For j = 1 To iFor k = j To 3x = x + 1Next kNext jNext iPrint xEnd Sub（ 4）執(zhí)行下面

9、程序后，輸出的結(jié)果是。Private Sub Form_Click()Dim x As Integerx = 0Do While x 50x = (x + 2) * (x + 3)n = n + 1LoopPrint x=; x; n=; nEnd Sub（ 5）執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()Dim x As Integer, a As Integerx = 0For j = 1 To 5a = a + jNext jx = jPrint x, aEnd Sub（6）以下程序的循環(huán)次數(shù)是。For j = 8 To 35 Step 3Print j

10、;Next j（7）執(zhí)行下面程序輸入后，程序輸出的結(jié)果是。Private Sub Form_Click()x = InputBox(x)If x 2 15 Then y = x 2 + 1Print yEnd Sub（8）執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()Dim sum As Integersum% = 19sum = 2.23Print sum%; sumEnd Sub（9）執(zhí)行下面程序后，輸出的結(jié)果是。.Private Sub Form_Click()a = 100Dos = s + aa = a + 1Loop Until a 100Print

11、 aEnd Sub(10) 執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()a = ABCDb = efghc = LCase(a)d = UCase(b)Print c + dEnd Sub（11） 執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()x = 2: y = 4: z = 6x = y: y = z: z = xPrint x; y; zEnd Sub（12）執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()Dim count As Integercount = 0While count 20c

12、ount = count + 1WendPrint countEnd Sub（13）執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()a = *: b = $For k = 1 To 3x = Str(Len(a) + k) & bPrint x;Next kEnd Sub（14）執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()k = 0: a = 0Do While k =i) Then Print Tab(j*3);Format(b(i,j),# # #);Next j.PrintNext iEnd SubA. 1 2 3B. 1C

13、. 1 4 7D.1 2 34 5 64 52 4 64 67 8 97 8 93 6 99五、填空 (1) 在 VB中聲明符號常量的關(guān) 字是 _。(2)設(shè) a=1,b=2,c=3,則 VB6.0 表達(dá)式： ab or bc and ca的 是 _。(3)a,T,Z,9， 四個(gè)字符中， _的 ASCII 最大。(4) 行 句 B = MsgBox(XXX,YYY)后 , 在消息框中的 信息是 _。(5)函數(shù) Len(Hello!+Space(2)+Mid(Shanghai,5,3)的 是 _ 。(6)表達(dá)式 Ucase(Mid(abcdefgh,3,4)的 是 _。(7)表達(dá)式 Int(123

14、4.555*100+0.5)/100的 果是 _。(8)使用數(shù) 聲明 句Dim a(3, -2 TO 2, 5)， 數(shù) a 包含元素的個(gè)數(shù)有 _。(9)For-Next 循 的 子句缺省 ，循 量每次改 的 是_。(10) 填空，使得程序運(yùn)行后，能在窗體上打印如 所示的 案。Private Sub Form_Click()PrintFor i = 1 To 4Print Tab(8 - i);For j = 1 To 8Print *;( )PrintNext iEnd Sub(11) 下面程序的功能是利用隨機(jī)函數(shù) 生 10 個(gè)（ 1100）之 的隨機(jī)整數(shù)，打印其中能被 5 整除的數(shù)并求其和，

15、 用正確的內(nèi)容填空。Private Sub Form_Click()Dim sum As Integer, x As IntegerFor i = 1 To 10x = Int(Rnd * 100 + 1)If（）= 0 Thensum = sum + xPrint x=; xEnd IfNext iIf sum 0 ThenPrint sum=; sumEnd IfEnd Sub(12 )用正確的內(nèi)容填空，使得以下程序能 找出50 以內(nèi)所有能構(gòu)成直角三角形的整數(shù)。Private Sub Form_Click()Dim a As Integer, b As IntegerDim c As Si

16、ngleFor a = 1 To 50For b = a To 50c = Sqr(a 2 + b 2)If（）Then Print a, b, cNext bNext aEnd Sub( 13) 用正確的內(nèi)容填空，使得以下程序能 算1+1/3+1/5+ +1/(2N+1) ，直到 1/(2N+1).小于 10-5。Private Sub Form_Click()sum = 1: n = 1Don = n + 2temp = 1 / nsum = sum + tempIf temp cj ThenMin = cjElseIf Max cj ThenMax = cjEnd IfEnd Ifsum

17、 = sum + cjNext iaver =（）Print 手的成 ： , averEnd Sub(15) 以下程序用隨機(jī)函數(shù)模 骰子， 50 次骰子出 各點(diǎn)的次數(shù)， 用正確的內(nèi)容填空。Private Sub Form_Click()Dim a(1 To 6) As IntegerRandomizeFor i = 1 To 50n =（）a(n) = a(n) + 1Next iFor i = 1 To 6Print i; 點(diǎn)出 ; a(i); 次 Next iEnd Sub六、 程 （ 1） 寫程序?qū)?1100 自然數(shù)中能被 3 和 5 同 整除的數(shù)打印出來，并 其個(gè)數(shù)。（ 2）我國 有人

18、口13 ， 年增 率 0.75， 寫程序， 算多少年后將超 16 。（ 3） 寫程序 出100200 之 不能被3 整除的自然數(shù)。（ 4） 程序，求s=1+(1+2)+(1+2+3)+ +(1+2+3+ +n)的 。（ 5） 寫程序 算S 的近似 ， 直到最后一 的 小于10-5 止。并用 Print 方法 出 算 果。其中：.111(1)k 11S 134K（ 6）2假設(shè)某項(xiàng)稅收的規(guī)定如下：收入在 500 元以內(nèi)，免征；收入在 500 1000 元內(nèi)，超過 500 元的部分納稅3%；收入超過1000 元時(shí)，超過的部分納稅4%；收入超過2000 元時(shí)，超過的部分納稅5%。試編程實(shí)現(xiàn)上述操作。（ 7）編寫程序，用InputBox 函數(shù)輸入3 個(gè)正整數(shù)，打印其中最大的數(shù)。（ 8）編寫程序，任意輸入三個(gè)整數(shù)A ，B， C，按由大到小順序把它們打印出來。sin xxx 3x 5(1) n 1 x 2 n 1（ 9）編寫程序，計(jì)算3!5!( 2 n 1)! 直到第 n 項(xiàng)的絕對值小于10-8（ 10） 分別編寫兩個(gè)程序，在窗體上分別打印出如下所示的圖形。（ 11） 編寫程序，輸出1000 之內(nèi)的所有完數(shù)。 “完數(shù)”是指一個(gè)數(shù)恰好等于它的因子之和，如 6 的因子為1、 2、 3，而 6=1+2+3 ，因而 6 是完數(shù)。（ 12） 一只小球從10