[高等教育]VB练习题集.doc

VB课程练习题集第五章 选择分支与循环姓名 班级 序号 成绩 知识点回顾题：1要退出ForNext循环，可使用的语句是（ ）。AExit BExit ForCEnd Do DExit Do2、阅读以下程序段，写出运行结果： private Sub form_click() a=150 b=100 if a>b then print "较大数是："a else print "较大数是："b end ifEnd Sub运行结果：3、阅读以下程序段，写出运行结果：x=8 For i=3 to 5 print x, Next i运行结果：4、阅读以下程序段，写出运行结果：s=0For i=10 to 4 Step -3 s=s+iNext iprint "s="s运行结果：5、阅读以下程序段，写出运行结果：s=1 Do while s<10 s=s+s Loop Print 运行结果：6、阅读以下程序段，写出运行结果： s=1 for i=10 to 4 step -3 s=s*i Print i, s next i运行结果：7. 阅读下列程序并写出运行结果Option ExplicitPrivate Sub Command1_Click() Dim S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print SEnd Sub8. 阅读下列程序并写出运行结果S = 0: T = 0For X = 1 To 3 For Y = 1 To 3 S = S + 1 Next Y T = T + 1 Next X Print S; T9、阅读下列程序并写出运行结果Dim i As Integer, j As Integer, k As Integer k = 0 For i = 0 To 10 Step 3 For j = 1 To 10 If j > 5 Then k = k + 4: Exit For k = k + 1 Next j Print i, k If i > 8 Then Exit For Next i Print i, k10. 阅读下列程序并写出运行结果Private Sub Command1_Click() x = 0 Do While x < 50 x = (x + 2) * (x + 3) n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x)End Sub11. 阅读下列程序并写出运行结果Private Sub Command1_Click() Dim Sum1 As Integer, Sum2 As Integer Sum1 = 0: Sum2 = 1 For i = 1 To 4 For j = 1 To i Sum2 = Sum2 * j Next j Sum1 = Sum1 + Sum2 Next i Print Sum1End Sub12. 阅读下列程序并写出运行结果Private Sub form_Click() A = 1 b = A Do Until A >= 5 X = A * b Print Str(A) & "*" Str(b) & "=" Str(X) A = A + b b = b + A LoopEnd Sub13. 阅读下列程序并写出运行结果For i = 1 To 3 For j = 1 To i For k = j To 3 A = A + 1 Next k Next j Next i14. 执行下面程序段后，变量x的值为。x=5For i=1 To 20 step 2 x=x+I5Next iA、21 B、22 C、23 D、2415. 下面程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为。Private Sub Command1_Click() x=0Do Until x=-1 a=InputBox("请输入A的值：") a=Val(a)b=InputBox("请输入B的值：") b=Val(b)x=InputBox("请输入X的值：") x=Val(x) a=a+b+x Loop Print aEnd SubA、2 B、3 C、14 D、1516. 执行下面程序段后，变量a的值为。For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next jNext iA、3 B、9 C、14 D、2117. 下面程序运行后，单击命令按钮，在两个文本框中显示的值分别为。Private Sub Command1_Click() x=0 Do While x<50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n)Text2.Text=Str(x) End SubA、1和0 B、2和72 C、3和50 D、4和16818. 执行下面程序后，变量x的值为。Private Sub Command1_Click() For j=1 To 5 a=a+j Next jx=j MsgBox xEnd SubA、4 B、5 C、6 D、1719. 以下程序的循环次数是。Private Sub Command1_Click()For j=8 To 35 Step 3 Print j; Next jEnd SubA、10 B、9 C、27 D、2820. 以下程序的输出结果是。Private Sub Command1_Click() a=100 Do s=s+a a=a+1 Loop Until a>100 print aEnd SubA、100 B、120 C、201 D、10121. 当输入4时，以下程序的输出结果是。Private Sub Command1_Click()x=InputBox(x) If x2<15 Then y=1/x If x2>15 Then y=x2+1 Print yEnd SubA、4 B、17 C、18 D、0.2522.运行下面程序后，在弹出的消息窗口中显示的是。Private Sub Form_Click()Dim countercounter=0 While counter<20 counter=counter+1 Wend MsgBox counterEnd SubA、0 B、21 C、20 D、1923. 运行下面程序后，在窗体中显示的是。Private Sub Form_Click() a$="*": b$="$" For k=1 To 3 x$=String$(Len(a$)+k,b$) Print x$; Next kPrint End SubA、* * * B、*$*$*$ C、1*$2*$3*$ D、$24.运行下面程序后，在弹出的消息窗口中显示的是。Private Sub Form_Click() score=Int(Rnd)+5 Select Case scoreCase 5 a$="Good" Case 4 a$="Ok" Case 3 a$="Pass" Case Else a$="Bad" End Select MsgBox a$End SubA、Bad B、Pass C、Ok D、Good25.运行下面程序后，在弹出的消息窗口中显示的是。Private Sub Form_Click() k=0Do While k<70 k=k+2 k=k*k+k a=a+kLoop MsgBox aEnd SubA、64 B、72 C、78 D、14826请用正确的内容填空。下面程序的作用是利用随机函数产生10个(1200)之间的随机整数，打印其中7的整数倍的数并求其和。Private Sub Form_Click() For i=1 To 10 x=Int(Rnd*200+1) If (3) Then k1=k1+x Print x End If Next iPrint Print "k1="k1End Sub27请用正确的内容填空。以下程序找出50以内所有能构成直角三角形的整数组。Private Sub Form_Click() For a=1 To 50 For b=a To 50 c=Sqr(a*a+b*b) If (4) Then Print a; b; c Next b Next a PrintEnd Sub28. 请用正确的内容填空。以下程序计算1+1/3+1/5+1/(2N+1)，直至1/(2N+1)小于10-4。Private Sub Form_Click()Sum=1: n=1Don=(6)term=1/nSum=Sum+termIf term<0.0001 Then (7)LoopPrint "N="nPrint "sum="SumEnd Sub29. 请用正确的内容填空。以下程序的功能是统计字符串a中出现字符串b的次数，然后输出。Private Sub Form_Click()a$="ABCDEHGABCDEFABCDEABCDABCABA"b$="AB"c=InStr(a$, b$)x=0While c<>0x=x+1a$=Mid$(a$,(8)+2)c=InStr(a$,b$)Wend(9)End Sub30. 请用正确的内容填空。下面程序的功能是通过InputBox对话框接受一个二进制数，并把它转换成一个十进制数，结果显示在窗体中。Private Sub Form_Click()b=InputBox("请输入一个二进制数")m=Len(b)For j=(10)dec=dec*2+(11)(Mid(b,j,1)Next jPrint b;"转换后的十进制数为："decEnd Sub31、阅读以下程序段，写出运行结果：i=1t=0do while i <= 100 i=i*2 t=t+1loopprint i , t运行结果：32、阅读以下程序段，写出运行结果：a = 3a = a + 1b = aa = b + 1print a, bprint “a=“ ; a, ”b =“ ; b运行结果：33、阅读以下程序段，写出运行结果：a = 1b = 2print a, ba = a + bb = a + bprint a, b运行结果：34、阅读以下程序段，写出运行结果：x = 1y = 2if x > y then print x, yelseprint y, x运行结果：35、阅读以下程序段，写出运行结果：x = 2y = 2if x > 2 then y = x*xend ifprint x, y运行结果：第六章 数组姓名 班级 序号 成绩 知识点回顾题：1. 设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为 。答案：Dim A (1 To 5, -2 To 6) As String2.在运行下面程序时会显示出错信息，出错的原因是。Private Sub Form_Click() x=5 Dim a(x) For m=1 To 6 a(m-1)=m+1 Next m End SubA、 第四行数组元素a(m-1)下标超过下界B、 第二行数组说明语句不能用变量来定义下标 C、第四行不能用循环变量m进行运算D、程序无错，可能是计算机病毒3用下面的语句所定义的数组的元素个数是（ ）。 Dim A（-1 To 3）As IntegerA2B3C4D5 答案：D4.下列一维数组说明语句错误的是（c）A) Dim b(100) As DoubleB) Dim b(-5 To 0) As ByteC) Dim b(-10 To -20) As IntegerD) Dim b(5 To 5) As String5. 二数组说明语句Dim d(-1 To 2, 5) As String定义的数组元素的个数为（24）6. Private Sub Form_Click() Dim A(1 To 5) As Integer Dim b As Integer For b = 1 To 5 A(b)=b Next b Text1.Text=A(b-2) End Sub文本框Text1的结果是：答案：程序运行后，单击Command1按钮，文本框Text1的结果是：47. Private Sub Command1_Click() Dim A(1 To 4) As Integer Dim b As Integer For b = 1 To 4 A(b) = b Next b Text1.Text = A(b - 2)End Sub答案：运行结果： Text1显示38. 以下程序的输出结果是。Option Base 1Private Sub Command1_Click() Dim a(10),p(3) As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next iFor i=1 To 3 k=k+p(i)*2 Next i Print kEnd SubA、33 B、28 C、35 D、379. 以下程序的输出结果是。Option Base 1Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=3 To 0 Step 1 s=s+a(i)*j j=j*10 Next i Print sEnd SubA、4321 B、12 C、34 D、123410.下面程序的输出结果是。Private Sub Form_Click()Dim a(10) For i=1 To 10 a(i)=i2 Next i Print a(i-1)End SubA、99 B、100 C、101 D、9811.运行下面程序后，在弹出的消息窗口中显示的是。Private Sub Form_Click()Dim Week,Day Week=Array("Mon","Tue","Wed","Thu","Fri","Sat","Sun") Day=Week(2)Day=Week(4) MsgBox DayEnd SubA、Fir B、Tue C、Wed D、Thu12请用正确的内容填空。下面程序运行后，输出的结果是如下矩阵：471058116912Private Sub Form_Click()Dim a(3,3) For j=1 To 3 For k=1 To 3 a(j,k) = ( ) Print a(j,k); Next kPrint Next jEnd Sub13请用正确的内容填空。下面程序运行后，输出的结果是： * * * *Private Sub Form_Click() For i=1 To 4Print Tab(10+i); For j=1 To 8 Print "*"( ) Print Next i End Sub14请用正确的内容填空。以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数。Private Sub Form_Click() Dim d(6) For i=1 To 50 n=( ) d(n)=d(n)+1 Next i For i= To 6 Print i;”点出现”;d(i);”次” Next iEnd Sub15. 请用正确的内容填空。下面程序用“冒泡”法将数组a中的10个整数按升序排列。Option Base 1Private Sub Form_Click()Dim aa = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823)For i=1 To 9For j=(12) To 10If (13)Thent=a(i): a(i)=a(j): a(j)=tEnd IfNext jNext iFor i=1 To 10Print a(i);Next iEnd Sub二级真题：第七章 过程姓名 班级 序号 成绩 1、关于过程的作用域的说明正确的有（ABC）1) 全局级过程的作用域为整个工程2) 某个窗体模块中定义的全局级过程，若被该过程外部模块调用，必须在该过程名称之前加上窗体的名称3) 不同模块中定义的模块级别过程可以同名2. Sub过程与Function过程最根本的区别是 。答案：Sub 过程的过程名不能返回值，而 Function过程能够通过过程名返回值。第八章 文件1Visual Basic根据计算机访问文件的方式将文件分为（ A ）。A顺序文件、随机文件和二进制文件B文本文件和数据文件C数据文件和可执行文件DASCII文件和二进制文件2如果准备向随机文件中写入数据，常用的语句是（ C ）。A Print #1,recB Write #1,recC Put #1,recD Get #1,recVB考试客观练习题(附答案)一、单项选择题（1-251题）1.以下4种描述中，错误的是_ D _。A. 常量在程序执行期间其值不会发生改变B. 根据数据类型不同，常量可分为字符型常量、数值常量、日期/时间型常量和布尔常量C. 符号常量是用一个标识符来代表一个常数，好象是为常数取一个名字，但仍保持常数的性质D. 符号常量的使用和变量的使用没有差别2.下面合法的常量是_ D _。A. 1/2 B. 'abcd' C. 1.2*5 D. False3.Visual Basic中可以用类型说明符来标识变量的类型，其中表示货币型的是_ C _。A. % B. # C. D. $4.下面_ B_是不合法的整常数。A.100 B.%O100 C.&H100 D.&O1005.以下关键字中，不能定义变量的是_A_。A. Declare B. Dim C. Public D. Private6.表达式16/4-25*8/4 MOD 52的值为_B_。A. 14 B. 4 C. 20 D. 27.用十六进制表示Visual Basic的整型常数时，前面要加上的符号是_A_。A. &H B. &O C. H D. O8.Visual Basic日期型常量的定界符是_A_。A. # B. C. () D. 9.数学关系式3x<10表示成正确的VB表达式为_B_。A. 3<=x<10 B. 3<=x AND x<10 C. x>=3 OR x<10 D. 3<=x AND <1010.下面正确的赋值语句是_C_。A. x+y=30 B. pi*r*r=y C. y=x+30 D. x=3y11. ，/，Mod，*四个算术运算符中，优先级别最低的是_C_。A. B. / C. Mod D. * 12.表达式ASC("F")的类型是_C_。A. 字符表达式 B. 关系表达式 C. 算术表达式 D. 逻辑表达式13.下面语句中有非法调用的是_C_。A. x=Sgn(-1) B. x=Fix(-1) C. x=Sqr(-1) D. x$=Chr$(65)14.表达式23/5.8、235.8、23 Mod 5.8的运算结果分别是_B_。A. 3、3.9655、3 B. 3.9655、3、5 C. 4、4、5 D. 3.9655、4、315.如果变量 a=2、b="abc"、c="acd"、d=5，则表达式 a<d OR b>c AND b<>c 的值为_A_。A. True B. False C. Yes D. No16.下面不正确的赋值语句是_B_。A. x=30-y B. y=r.r C. y=x+30 D. y=x317.为了给x,y,z三个变量赋初值1，下面正确的赋值语句是_A_。A. x=1y=1z=1 B. x=1,y=1,z=1 C. x=y=z=1 D. xyz=118.以下4类运算符，优先级最低的是_D_。A. 算术运算符 B. 字符运算符 C. 关系运算符 D. 逻辑运算符19.如果在立即窗口中依次执行下列命令：a=8 b=9 Print a>b 则输出的结果是_C_。A. 1 B. 0 C. False D. True20.已知a="12345678"，则表达式Left(a, 4) + Mid(a, 4, 2)的值是_B_。A. 123456 B. "123445" C. 123445 D. 127921.在Visual Basic中，y1+z2=a*Sin(b*x+c)+k表达式的类型是_B_。A. 算术表达式 B. 关系表达式 C. 逻辑表达式 D. 字符表达式22.下列表达式的值为真的是_C_。A. "A">"a" B. "9">"a" C. "That">"Thank" D. 12>12.123.在下列算术运算符中，运算等级最高的是_A_。A. 取负（-） B. 乘、除（*，/） C. 取模（MOD） D. 加、减（+，-）24.如果变量a=2,b=3,c=4,d=5，表达式NOT a>b AND NOT d<>c的值是_B_。A. True B. False C. 1 D. 025.在一个有（1）逻辑运算、（2）算术运算、（3）关系运算混合在一起的表达式（无括号）中，其运算顺序为_C_。A. （1）（2）（3） B. （3）（2）（1） C. （2）（3）（1） D. （2）（1）（3）26.表达式A%+B&+C!-D#的结果为_D_。A. 整型 B. 长整型 C. 单精度型 D. 双精度型27.下列符号中，可以用作VB变量名的是_C_。A. c%ab B. 3sum C. sum3 D. Len28.在下列表达式中，正确的日期型常量是_D_。A. "12/04/01" B. 12-04-2001 C. 12/04/01 D. #12/04/01#29.条件:1<X<=2或10<=X<15，在Visual Basic语言中应写成条件表达式_A_。A. X>1 AND X<=2 OR X>=10 AND X<15 B. X>1 OR X<=2 OR X>=10 OR X<15C. X>1 OR X<=2 AND X>=10 OR X<15 D. X>1 AND X<=2 AND X>=10 AND X<1530.设有如下的记录类型Type Student number As String name As String age As IntegerEnd Type则正确引用该记录类型变量的代码是_B_。A. Student.name="张红" B. Dim s As Student s.name="张红"C. Dim s As Type Stuent D. Dim s As Type s.name="张红" s.name="张红"31.下列程序运行时，从键盘输入字符"-"，则输出结果是_A_。Private Sub Form_Click() op$=InputBox("op=") If op$="+" Then a=a+2 If op$="-" Then a=a-2 Print aEnd SubA. -2 B. 0 C. +2 D. +032.表达式Not（a+b=c-d）是_A_。A. 逻辑表达式 B. 字符表达式 C. 算术表达式 D. 关系表达式33."-32768"的数据类型是_D_。A. 整型常量 B. 浮点型常量 C. 符号常量 D. 字符串型常量34.在下列4个表达式中，非法的表达式形式是_C_。A. A+B=C B. 0=1 C. "ABC"+112 D. 1/2=0.535.设 x=5，表达式 x>=10 or x<=20 的值是_A_。A. True B. False C. 0 D. 表达式非法36.下列数据类型不可能占8个字节的是_ D _。A. Date B. Currency C. String D. Integer37.下列各项不是Visual Basic的基本数据类型的是_ A _。A. Char B. String C. Integer D. Double38.逻辑表达式 Not "a">"b" And 9<3 or 9>3的值为_ A _。A. True B. False C. 表达式有错 D. 条件不足39.在窗体模块的声明段中声明变量时，不能使用的关键字是_ D _。A. Private B. Public C. Dim D. Static40.选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的表达式为_ C _。A. T<=1.7 And W>=62.5B. T>1.7 Or W<62.5C. T>1.7 And W<62.5D. T<=1.7 Or W>=62.541.在过程内部定义的局部变量，仅在声明它的_ B _中有效。A. 方法B. 过程C. 属性D. 对象42.假设A="Good Morning."，B="Afternoon,Boys."，下列表达式中结果是"Good Boys."的是_ A_。A) Left(A,5)+Right(B,5)B) Right(A,5)+Left(B,5)C) Mid(A,1,5)+Mid(B,1,6) D) Right(A,5)+Right(B,5)43.下列关于变体类型的描述，其中正确的是_ C _。A. 变体是一种没有类型的数据B. 变体的空值就表示该变体的值为0C. 一个变量没有定义就赋值，该变量即为变体类型D. 变体是赋给变量某一种类型数据后，就不能再赋给它另一类型的数值44.下列程序段的运行结果为_B_。For i=3 To 1 Step -1 Print Space(5-i); For j=1 To 2*i-1 Print "*" Next j PrintNext iA. * B. * C. * D. * * * * * * * * *45.执行 PRINT 18/2*3,-32 命令后，输出结果为_C_。A. 3 9 B. 3 -9 C. 27 -9 D. -9 2746.执行 PRINT 9.43.7,9.4 MOD 3.7 命令后，输出结果为_ A _。 A. 2 1 B. 3 0 C. 2 20