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

8一、VB基本知识及选择、循环结构习题一、基本概念题（1） 说明下列哪些是Visual Basic合法的直接常量，并分别指出它们的类型。 100.0 %100 1E1 123D3 123,456 0100 “ASDF” “1234.5” #2004/10/7# 100# &O78 &H123 True T -1123! 345.54#（2）下列数据哪些是变量，哪些是常量？是什么类型的常量？ Name “name” False ff “11/16/99” cj “120” n #11/12/2004# 12.345（3） 下列符号中，哪些可以是Visual Basic的合法变量名？ A123 a12_3 123_a a,123 a 123 Integer XYZ False Sin(x) 变量名 sinx （4）把下列数学表达式写成Visual Basic表达式：（1） （2）（3） （4）（5） （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）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(-459.55) （12）UCase(Visual Basic)二、 选择题（1）可以同时删除字符串前导和尾部空格的函数是 。 A. Ltrim B. Rtrim C. Trim D. Mid（2）函数Int(Rnd(1) * 10)是在哪个范围产生随机整数 。 A. (0,1) B. (0,9) C. (1,10) D. (1,9)（3）数学式子sin25写成Visual Basic表达式是 。 A.Sin25 B. Sin(25) C. Sin(25) D. Sin(25*3.14/180)（4）表达式16/4 23 * 8/4 Mod 52的值是 。A. 14 B. 4 C. 20 D. 2（5）数学关系式表示成正确的VB表达式为 。 A. 3= x = 3 And x=3 Or x10 D. 3= x And “ABC” B. “THAT” “THE” C. 9 “H” D. “A” “a”（16）表达式a+b=c是 。 A. 赋值表达式 B. 字符表达式 C. 算术表达式 D. 关系表达式（17）在下列表达式中，非法的是 。 A. a=b+c B. ab+c C. abc D. ab+c（18）语句Print Format (“HELLO”, “”) 的输出结果是。 A. HELLO B. hello C. He D. he（19）MsgBox函数的返回值的类型是。 A. 整数B. 字符串C. 逻辑值D. 日期（20）用语句Dim A(-3 to 5) As Long定义的数组元素个数是 。 A. 7 B. 8 C. 9 D.10三、判断题(1) VB6.0中&H12是8进制的数值常数。(2) 设A=123,B=123,则A+B的结果为246，A-B的结果为0。(3) 已知A$=，则表达式Val(Left$(A$，4)+Mid$(A$,4,2)的值是：。(4) Rnd函数产生的是（0,1)之间不包括0、1的随机小数。(5) 表示x是5的倍数或是9的倍数的逻辑表达式为:x Mod 5=0 OR x Mod 9=0。(6) Len(等级考试)和LenB(等级考试)的结果相同。(7) VB6.0中字符串常量是用双引号或单引号括起来的字符串。(8) Print InStr(Visual Basic, I)的结果为0。(9) 固定数组中的数组元素个数一旦定义好后，在程序运行过程中不再会发生变化，并且数组中数组元素的值也不会变化。(10)数组元素的下标可以是常数、变量或表达式。(11)在ForNext循环中，其中Step步长可以是正数,也可以是负数。(12)在DoLoopWhileUntil循环中，While关键字或Until关键字必须选择其中之一。(13)在For.Next循环中，Exit For子句是可选项，它可以放置在循环体语句中的任何位置。(14)动态数组在定义时已被分配存储空间。(15) 在VB6.0中，Option Base语句的参数只能是0或1。四、 程序阅读题（2）执行下面程序段后，变量的值为。Dim x As Integerx = 5For i = 1 To 20 Step 3 x = x + i 5Next i（3）执行下面程序后，输出的结果是。Private Sub Form_Click()Dim x As IntegerFor i = 1 To 3 For j = 1 To i For k = j To 3 x = x + 1 Next k Next jNext iPrint xEnd Sub（4）执行下面程序后，输出的结果是。Private Sub Form_Click()Dim x As Integerx = 0Do While x 50 x = (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 5 a = a + j Next j x = j Print x, aEnd Sub（6）以下程序的循环次数是。For j = 8 To 35 Step 3 Print j;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 = 100Do s = s + a a = a + 1Loop Until a 100Print 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 20 count = 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 Print Next iEnd Sub A. 1 2 3 B. 1 C. 1 4 7 D.1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 9五、 填空题(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(1234.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 4 Print Tab(8 - i); For j = 1 To 8 Print *; ( ) Print Next iEnd Sub(11)下面程序的功能是利用随机函数产生10个（1100）之间的随机整数，打印其中能被5整除的数并求其和，请用正确的内容填空。 Private Sub Form_Click()Dim sum As Integer, x As IntegerFor i = 1 To 10x = Int(Rnd * 100 + 1) If （） = 0 Then sum = sum + x Print x=; x End IfNext iIf sum 0 Then Print sum=; sumEnd IfEnd Sub(12)用正确的内容填空，使得以下程序能够找出50以内所有能构成直角三角形的整数。 Private Sub Form_Click()Dim a As Integer, b As IntegerDim c As SingleFor a = 1 To 50 For b = a To 50 c = 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 Then Min = cjElseIf Max cj Then Max = cj End If End If sum = sum + cj Next i aver = （） Print 该选手的成绩为：, averEnd Sub(15)以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数，请用正确的内容填空。 Private Sub Form_Click()Dim a(1 To 6) As IntegerRandomizeFor i = 1 To 50 n = （） a(n) = a(n) + 1 Next iFor i = 1 To 6 Print i; 点出现; a(i); 次Next iEnd Sub六、 编程题（1） 编写程序将1100自然数中能被3和5同时整除的数打印出来，并统计其个数。（2） 我国现有人口13亿，设年增长率为0.75，编写程序，计算多少年后将超过16亿。（3） 编写程序输出100200之间不能被3整除的自然数。（4） 设计程序，求s=1+(1+2)+(1+2+3)+(1+2+3+n)的值。（5） 编写程序计算S的近似值，直到最后一项的绝对值小于10-5为止。并用Print方法输出计算结果。其中：（6） 假设某项税收的规定如下：l 收入在500元以内，免征；l 收入在5001000元内，超过500元的部分纳税3%；l 收入超过1000元时，超过的部分纳税4%；l 收入超过2000元时，超过的部分纳税5%。试编程实现上述操作。（7） 编写程序，用InputBox函数输入3个正整数，打印其中最大的数。（8） 编写程序，任意输入三个整数A，B，C，按由大到小顺序把它们打印出来。（9） 编写程序，计算直到第n项的绝对值小于10-8（10） 分别编写两个程序，在窗体上分别打印出如下所示的图形。（11） 编写程序，输出1000之内的所有完数。“完数”是指一个数恰好等于它的因子之和，如6的因子为1、2、3，而6=1+2+3，