VB基本知识及选择、循环结构习题

1、.一、 VB 基本知识及选择、循环结构习题一、基本概念题（1） 说明下列哪些是 Visual Basic合法的直接常量，并分别指出它们的类型。100.0%1001E1123D3123,4560100“ ASDF”“ 1234.5 ”#2004/10/7#100#&O78&H123TrueT-1123!345.54#（2）下列数据哪些是变量，哪些是常量？是什么类型的常量？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）把下列数学表达式写成Visual Basic 表达式：（ 1） | xy |z5（ 2） (1xy)610x3 ybb24ac（ 3）xy（ 4）2a1e10 ln 10111sin 45（ 5） r1r2r3x y 1（ 6）（ 5）写出下列表达式的值：（ 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）设 a=7， b=3，c=4，求下列表达式的值：（ 1）

3、 a + 3 * c（ 2） a 2 / 4（ 3） a / 2 + 3 2（ 4） a Mod 3 + b 3 / c 5（7）写出下列函数的值：（ 1） Int(-3.14159)（ 2） Fix(-3.14159)（ 3） Sqr(Sqr(81)（ 4） Len(Visual Basic程序设计 )（ 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 个加 23个 )（ 11） Str(

4、-459.55)（ 12）UCase(Visual Basic)二、 选择题（ 1）可以同时删除字符串前导和尾部空格的函数是。A. LtrimB. RtrimC. TrimD. Mid（ 2）函数 Int(Rnd(1) * 10) 是在哪个范围产生随机整数。A. (0,1)B. (0,9)C. (1,10)D. (1,9)（ 3）数学式子 sin25o写成 Visual Basic 表达式是。A.Sin25B. Sin(25)C. Sin(25 o)D. Sin(25*3.14/180)（ 4）表达式 16/423 * 8/4 Mod 52 的值是。A. 14B. 4C. 20D. 2（ 5）

5、数学关系式3 x 10 表示成正确的 VB 表达式为。A. 3= x = 3 And x=3 Or x10D. 3= x And “ ABC”B.“ THA” “ THE”C. 9 “ H” D.“ A” “ a”（ 16）表达式a+b=c 是。A. 表达式B. 字符表达式C. 算 表达式D. 关系表达式（ 17）在下列表达式中，非法的是。A. a=b+cB. ab+cC. a bcD. ab+c（ 18） 句 Print Format (“HELLO”, )“的” 出 果是。A. HELLOB. helloC. HeD. he（ 19）MsgBox 函数的返回 的 型是。A. 整数B. 字符

6、串C. 逻辑值D. 日期（ 20）用 句Dim A(-3 to 5) As Long定 的数 元素个数是。A. 7B. 8C. 9D.10三、判断 (1) VB6.0 中 &H12是 8 制的数 常数。(2) 设 A=123,B=123, 则 A+B的 果 246， A-B 的 果 0。(3)已知 A$=87654321 ， 表达式Val(Left$(A$， 4)+Mid$(A$,4,2)的 是： 876554。(4) Rnd 函数 生的是（ 0,1) 之 不包括 0、 1 的随机小数。(5)表示 x 是 5 的倍数或是9 的倍数的 表达式 :x Mod 5=0 OR x Mod 9=0。(6

7、) Len( 等 考 ) 和 LenB( 等 考 ) 的 果相同。(7) VB6.0 中字符串常量是用双引号或 引号括起来的字符串。的 果 0。(9) 固定数 中的数 元素个数一旦定 好后，在程序运行 程中不再会 生 化，并且数 中数 元素的 也不会 化。(10) 数 元素的下 可以是常数、 量或表达式。(11) 在 For Next 循 中，其中 Step 步 可以是正数 , 也可以是 数。(12) 在 DoLoop While Until 循 中， While 关 字或 Until 关 字必 其中之一。(13) 在 For.Next循 中， Exit For子句是可 ，它可以放置在循 体

8、句中的任何位置。(14) 数 在定 已被分配存 空 。(15)在 VB6.0 中， Option Base 句的参数只能是0 或 1。四、程序 （2） 行下面程序段后， 量的 。.Dim x As Integerx = 5For i = 1 To 20 Step 3x = x + i 5Next i（ 3）执行下面程序后，输出的结果是。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）执行下面

9、程序后，输出的结果是。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）执行下面程序后，输出的结果是。Private Sub Form_Click()Dim x As Integer, a As Integerx = 0For j = 1 To 5a = a + jNext jx = jPrint x, aEnd Sub（6）以下程序的循环次数是。For j = 8 To 35 Step 3Print j

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

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

12、ount = count + 1WendPrint countEnd Sub（13）执行下面程序后，输出的结果是。Private Sub Form_Click()a = *: b = $For k = 1 To 3x = Str(Len(a) + k) & bPrint x;Next kEnd Sub（14）执行下面程序后，输出的结果是。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中声明符号常量的关 字是 _。(2)设 a=1,b=2,c=3,则 VB6.0 表达式： ab or bc and ca的 是 _。(3)a,T,Z,9， 四个字符中， _的 ASCII 最大。(4) 行 句 B = MsgBox(XXX,YYY)后 , 在消息框中的 信息是 _。(5)函数 Len(Hello!+Space(2)+Mid(Shanghai,5,3)的 是 _ 。(6)表达式 Ucase(Mid(abcdefgh,3,4)的 是 _。(7)表达式 Int(123

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

15、 用正确的内容填空。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 )用正确的内容填空，使得以下程序能 找出50 以内所有能构成直角三角形的整数。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) 用正确的内容填空，使得以下程序能 算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) 以下程序用随机函数模 骰子， 50 次骰子出 各点的次数， 用正确的内容填空。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; 点出 ; a(i); 次 Next iEnd Sub六、 程 （ 1） 写程序将 1100 自然数中能被 3 和 5 同 整除的数打印出来，并 其个数。（ 2）我国 有人

18、口13 ， 年增 率 0.75， 写程序， 算多少年后将超 16 。（ 3） 写程序 出100200 之 不能被3 整除的自然数。（ 4） 程序，求s=1+(1+2)+(1+2+3)+ +(1+2+3+ +n)的 。（ 5） 写程序 算S 的近似 ， 直到最后一 的 小于10-5 止。并用 Print 方法 出 算 果。其中：.111(1)k 11S 134K（ 6）2假设某项税收的规定如下：收入在 500 元以内，免征；收入在 500 1000 元内，超过 500 元的部分纳税3%；收入超过1000 元时，超过的部分纳税4%；收入超过2000 元时，超过的部分纳税5%。试编程实现上述操作。（ 7）编写程序，用InputBox 函数输入3 个正整数，打印其中最大的数。（ 8）编写程序，任意输入三个整数A ，B， C，按由大到小顺序把它们打印出来。sin xxx 3x 5(1) n 1 x 2 n 1（ 9）编写程序，计算3!5!( 2 n 1)! 直到第 n 项的绝对值小于10-8（ 10） 分别编写两个程序，在窗体上分别打印出如下所示的图形。（ 11） 编写程序，输出1000 之内的所有完数。 “完数”是指一个数恰好等于它的因子之和，如 6 的因子为1、 2、 3，而 6=1+2+3 ，因而 6 是完数。（ 12） 一只小球从10