南京工业大学vb期末题库

1、09复材高材vb综合练习题第二套满分：100分姓名：_1、单项选择题(本题共计49分)1、执行下面的程序，单击窗体后在窗体上显示的结果是_。Private Sub Form_Click()Dim Strl As String, Str2 As String,I As IntegerStr1=”ab”For I=Len(Str1)To 1 Step-1Str1=Str1&Chr(Asc(Mid(Str1,I,1)+I)Next IPrint Str1End Sub ( )A、abceB、abcdC、abdbD、abfd2、下列语句中的语句可以用来正确地声明一个动态数组。 ( )A、Private

2、 A(n) As IntegerB、Dim A() As IntegerC、Dim A(,) As IntegerD、Dim A(1 to n)3、在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click( )Dim a As Integer,b As IntegerDo While b 20 Then Exit DoLoopPrint a,bEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。 ( )A、50 20B、75 25C、50 25D、75 204、有如下程序：Private Sub Command1_

3、Click( )score=65select Case scoreCase Is60a$=FCase 60 To 69a$=DCase 70 To 79a$=CCase 80 To 89a$=BCase elsea$=AEnd SelectMsgBox a$End Sub程序运行后，消息对话框中显示的内容为_。 ( )A、AB、BC、CD、D5、下列程序：Private Sub Form_Click( )For j=1 To 15a=a+j Mod 3Next jPrint aEnd Sub运行后输出的结果是_。 ( )A、1B、15C、90D、1206、下列程序Private Sub Com

4、mand1_Click( )a=InputBox(请输入)b=InputBox(请输入)Print a+bEnd Sub运行时输入3和4输出的结果是 _ 。 ( )A、7B、34C、3+4D、出错7、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click( )Static A As IntegerStatic B As IntegerClsB = 2B = B+3A= 3+Aprint A, BEnd Sub程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为_。 ( )A、3 5B、6 6C、9 5D、3 38、在

5、窗体上添加一个命令按钮，名为Command1，一文本框，名为Text1,则执行如下事件过程后，文本框中的输出为_。Private Sub Command1_Click( )For i = 1 To 4x = 3For j = 1 To 3For k = 1 To 3x = x+3Next kNext jNext iText1.Text=Str(x)End Sub ( )A、6B、12C、18D、309、在窗体中添加一个命令按钮，并编写如下程序代码：Private Sub Command1_Click( )Dim y As Integery = 0Do While y7y=y+2LoopMsgB

6、ox yEnd Sub程序运行后，消息对话框中显示_。 ( )A、0B、7C、8D、210、设有如下语句： strl=InputBox(输入,练习)从键盘上输入字符串示例后，strl的值是_。 ( )A、“输入”B、“”C、“练习”D、“示例”11、在单击窗体中的按钮Command1第3次后，如下程序打印结果是_。Private Sub Command1_Click( )Static a AS Integera = a+1Select Case aCase 1: Print 欢迎大家Case 2 :Print 努力就能成功Case 3: Print 希望你能通过考试Case 4: Print

7、再见End SelectEnd Sub ( )A、“欢迎大家”B、“努力就能成功”C、希望你能通过考试D、“再见”12、下面是计算1100奇数的和的程序，请补充完整，填空应为_。Private Sub Command1_Click() Dim s As Long, x As Integer s = 0 For x = _ Step -2 s = s + x Next x Print sEnd Sub ( )A、100 To 1B、1 To 100C、99 To 1D、1 To 9913、在窗体上建立3个文本框：Text1、Text2、Text3，如果在Text1中输入200，在Text2中输入

8、150，则执行下列程序段后，Text3的值为_。Dim m As Integer, n As Integerm=Val(Text1)n=Val(Text2)If n*m=0 Then Exit SubIf m<n Thent=m: m=n: n=tEnd IfDor=m Mod nm=nn=rLoop While r<>0Text3=m ( )A、200B、150C、100D、5014、下列程序段的执行结果为_。x = Int(69 - 60) * Rnd + 60)Select Case xCase Is >= 90 Print "优秀"Case

9、80 To 89 Print "良好"Case 60 To 79 Print "合格"Case Else Print "不合格"End Select ( )A、优秀B、良好C、合格D、不合格15、假设X的值是5，则执行以下语句时，可得到的输出结果是 ABCDEF 的 SelectCase 语句是_。 ( )A、Select Case XCase 10 TO 1Print “ABCDEF”End SelectB、Select Case XCase Is15, Is5, 1, 3, TO 10Print “ABCDEF”End Selec

10、tD、Select Case XCase 1, 3, Is5Print “ABCDEF”End Select16、下面程序的运行结果是_。Private Sub Command1 Click ( )x=1: y=1For i=1 TO 3x=x+y: y=y+xNext iPrint x;yEnd Sub ( )A、6 6B、5 8C、13 21D、34 3517、下面程序的内层循环次数是_。For i=1 TO 3For j=1 TO iFor k=j TO 3.Next kNext jNext i ( )A、3B、14C、9D、2118、下列程序运行后的输出结果是_。Private Sub

11、 Command1_Click()For i=1 TO 3For j=0 TO i-1k=k+1next jnext iprint kEnd Sub ( )A、6B、5C、4D、319、结构化程序设计方法的核心是规定了三种基本结构：_结构、分支结构、循环结构。 ( )A、条件B、顺序C、当型D、逻辑20、计算机算法可以分为两大类：一类是_算法，另一类是_算法。 ( )A、计算机辅助设计、财务B、数值计算、非数值计算C、步骤管理、通信D、排序、查找21、下列循环能正常结束循环的是_。 ( )A、i=5Doi=i+1Loop Until i0D、i=6Doi=i-2Loop Until i=122

12、、下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是_。 ( )A、If sex=男 And age 0 Then n=n+1B、If sex=男 And age40 and (duty=教授 or duty=副教授) Then n=n+1C、If sex=男 And age40 And Right(duty,2)=教授 Then n=n+1D、If sex=男 And age=40 And duty=教授And duty=副教授 Then n=n+123、在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码:Private

13、Sub Form_Click()Dim k As IntegerDim entry As String, item As Stringentry = EDCBAFor k = Len(entry) To 1 Step -1item = LCase(Mid(entry, k, 1) & kList1.AddItem itemNext kEnd Sub运行此程序，单击窗体后在窗体的列表框中显示的第四个列表项内容是_。 ( )A、b4B、b2C、d3D、d224、在过程中有语句ForI=N1 To N2 Step N3，在该循环体内有下列四条语句，其中_会影响循环执行的次数。 N1=N1+I N2=

14、N2+N3 I=I+N3 N3=2*N3 ( )A、B、C、D、25、下列循环能正常结束循环的是_。 ( )A、i=5 Do i=i+1 Loop Until i<0B、i=1 Do i=i+2 Loop Until i=10C、i=10 Do i=i+1 Loop Until i>0D、i=6 Do i=i-2 Loop Until i=126、执行以下语句后，a的值为_。Dim a As Integera=1Do Until a=100 a=a+2 Loop ( )A、99B、100C、溢出D、10127、表达式（-1）*sgn(-100+int(rnd*100)的值是_. (

15、 )A、0B、1C、-1D、随机数28、在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符_，表示下一行是当前行的继续。 ( )A、一个空格加一个下划字符(_)B、一个下划字符(_)C、直接回车D、一个空格加一个连字符()29、在一个语句行内写多条语句时，语句之间应该用_分隔。 ( )A、逗号B、分号C、顿号D、冒号30、下列叙述中不正确的是_. ( )A、变量名的第一个字符必须是字母B、变量名的长度不超过255个字符C、变量名可以包含小数点或者内嵌的类型声明字符D、变量名不能使用关键字31、VisualBasic认为下面_组变量是同一个变量。

16、 ( )A、A1和a1B、Sum 和SummaryC、Aver 和 AverageD、A1 和A_132、下列有关数组的说法中，不正确的是_。 ( )A、在窗体模块中不可以定义全局数据组B、可以使用Erase语句释放所有数组所占据的存储储空间C、语句Dim X(3.6+2)As Integer定义了一个维上界是6的一维的整型数组D、形参数组的类型可以是定长符串类型33、在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有_个。Public A(5) As IntegerPublic N As IntegerPublic St As StringPrivate b() As Intege

17、r ( )A、2B、3C、4D、134、对窗体编写如下代码：Option Base 1Private Sub Command1_Click( )a=Array(237,126,87,48,498)m1=a(1)m2=1For i=2 To 5If a(i)m1 Thenm1=a(i)m2=iEnd IfNext iPrint m1;m2End Sub程序运行后，按回车键，输出结果为_。 ( )A、48 4B、237 1C、498 5D、498 435、在窗体上添加一个命令按钮，名为Command1，事件过程如下。执行结果是_。Sub pb(b( ) As Integer)For i=1 To

18、4B(i)=2*iNext iEnd SubPrivate Sub Command1_Click( )Dim a(1 To 4) As Integera(1)=5:a(2)=6: a(3)=7:a(4)=8pb aFor i=1 To 4Print a(i);Next iEnd Sub ( )A、2 4 6 8B、1 3 5 7C、3 6 6 12D、4 8 12 1636、在窗体上画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click( )Dim a As Varianta = Array(1,2,3,4)j = 1For i =

19、 4 To 1 Step -1s = s + a(i)*jj = j * 10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是_。 ( )A、4321B、12C、34D、123437、程序代码如下，当单击窗体上Command1控件时，窗体上显示的结果是_。Option Base 1Private Sub Command1_Click( )Dim i As IntegerDim x(3,3)As IntegerFor i = 1 To 3For j = 1 To 3x(i,j) = (i-1) * 3+jNext jNext iFor i = 1 To 3Pri

20、nt x(i,4-i)Next iEnd Sub ( )A、1 5 9B、1 4 7C、3 5 7D、3 6 938、以下程序的输出结果是_。Option Base 1Private Sub Command1_Click()Dim a(10) As Integer, p(3) As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3p(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iPrint kEnd Sub ( )A、33B、28C、35D、3739、当发生Command1_Click事件后，程序输出结果是_

21、。Option Base 1Private Sub Command1_Click()Dim a(4, 4) As Integer,i As Integer,s As Integers=0Fori=1 To 4 For j=1 To 4 a(i, j) = (i-1)*4+j*2 Next jNext iFor i = 1 To 4 s=s+a(i, i)Next iPrint sEnd Sub ( )A、28B、32C、30D、4440、下列程序段的输出结果是_。Dim i As IntegerDim a(8) As Integery = 18: i = 0Do a(i) = y Mod 2

22、i = i + 1 y = y 2Loop Until y < 1For j = i - 1 To 0 Step -1 Print a(j);Next j ( )A、1 0 0 0B、1 0 0 1 0C、0 0 1 1 0D、1 0 1 0 041、下列程序的输出结果是_。Dim i As Integer, k As IntegerDim a(10) As Integer, p(3) As Integerk = 5For i = 0 To 9 a(i) = iNext iFor i = 0 To 2 p(i) = a(i * (i + 1)Next iFor i = 0 To 2 k

23、= k + p(i) * 2Next iPrint k ( )A、17B、21C、22D、2342、下列程序段的执行结果是_。Dim A(3,3)For M=1 TO 3For N=1 TO 3If N=M Or N=3-M+1 ThenA(M,N)=1ElseA(M,N)=0End IfNext NNext MFor M=1 TO 3For N=1 TO 3Print A(M,N);Next NPrintNext M ( )A、1 0 00 1 00 0 1B、1 1 11 1 11 1 1C、0 0 00 0 00 0 0D、1 0 10 1 01 0 143、下列程序段的输出结果是_。D

24、im A(5)For I=0 TO 4A(I)=I+1M=I+1If M=3 ThenA(M-1)=A(I-1)ElseA(M)=A(I)End IfIf I=3 Then A(I+1)=A(M-4)Print A(I);Next I ( )A、1 1 1 2 2B、2 1 1 4 4C、1 2 2 4 5D、2 2 1 4 144、以下程序输出的结果是_。Dim aa=Array(1,2,3,4,5,6,7)For i=Lbound(a)To Ubound(a)a(i)= a(i)*a(i)Next iPrint a(i) ( )A、49B、0C、不确定D、程序出错45、如下数组声明语句，则

25、数组a包含元素的个数有_。Dim a(3 , -2 to 2 , 5) ( )A、120B、75C、60D、1346、如下二维数组声明语句，_正确。 ( )A、Dim a3，4 As IntegerB、Dim a(3，4) As IntegerC、Dim a(n，n) As IntegerD、Dim a(34) As Integer47、以下有关数组的说明中，错误的是_。 ( )A、根据数组说明的方式，可将数组分为动态数组和静态数组。B、在过程中，不能用Private语句定义数组。C、利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型。D、数组重新定维后，原有的数组元素内容将不予

26、保留。48、Option Base 1Private Sub Command1_Click()Dim a%(3, 3)For i = 1 To 3For j = 1 To 3If j 1 And i 1 Thena(i, j) = a(a(i - 1, j - 1), a(i, j - 1) + 1Elsea(i, j) = i * jEnd IfPrint a(i, j); ;Next jPrintNext iEnd Sub ( )A、1 2 32 3 13 2 3B、1 2 31 2 31 2 3C、1 2 32 4 63 6 9D、1 1 12 2 23 3 349、要分配存放如下方阵的

27、数据，_数组声明语句能实现(不能浪费空间)。每行三个元素，第一行为：1.1 2.2 3.3第二行为：4.4 5.5 6.6第三行为：7.7 8.8 9.9 ( )A、Dim a(9) As SingleB、Dim a(3，3) As SingleC、Dim a(-1 To l，-5 To -3) As SingleD、Dim a(-3 To -1，5 To 7) As Integer2、填空题(本题共计51分)1、下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是_(1)_。a=InputBox(请输入第一个整数)b=InputBox(请输入第二个整数)Print a+b2、语

28、句Print 125+32=;125+32执行后，窗体上打印结果是_ .3、下列程序执行时，要求输入一个密码，如果密码不正确则显示出非法用户的对话框。请填空：Const PassWord=Dim inpass As StringInpass=_(请输入你的密码,输入密码)If inpass=PassWord ThenExit SubElse_对不起！你是非法用户。，vbOKOnly+vbCritical,拒绝Unload MeEnd If4、InputBox函数返回值的类型为_。5、下面程序的功能是判断100999之间的所有素数，所谓素数是指只能被1和它本身整除的数。完善下列程序。Privat

29、e Sub Form_Click( )Dim i As IntegerDim k As integerFor i=100 To 999For k=2 To i-1If _Then_End IfNext kIf _ThenPrint iEnd IfNext iEnd Sub6、若一个数的各因子之和正好等于该数本身，则该数称为完全数。如6的因子为1，2，3，其和为6，则6为完全数。编程找出1100之间的所有完全数。完善下列程序。Private Sub Command1_Click( )Dim a As Integer, b As Integer, c As Integer, i As Intege

30、rFor a = 2 To 100_(1)_For b = 2 To a-1If a Mod b = 0 Thenc = b+cEnd IfNext bIf_(2)_ThenPrint aEnd IfNext aEnd Sub7、找出110000之间的同构数。所谓同构数，是指此数的平方数的最后几位与该数相等。例如，25的平方为625，25是同构数。完善下列程序。程序代码如下：Private Sub Command1_Click( )Dim i As Integer, y As LongFor x = 1 To 1000y = x * xIf _(1)_ ThenPrint xEnd IfNex

31、t xEnd Sub8、下面和程序功能是将一个由字母与数字相混的字符串中选出字符串，并把该字符串在窗体上打印出来，请完善下面程序。Option ExplicitPrivate Sub Command1_Click( )Dim s As String,k As IntegerDim r As String,i As Integer,t As Strings=“aa11bb22Cc33”For i=1 To Len(s)t=_(1)_If t=“a”And t=“A”And t=“Z”Thenr=r & tEnd IfNext iPrint rEnd Sub9、求满足如下条件的三位数，它除以11所

32、得的商等于各位数字的平方和。例如：550/11=50=5*5+5*5+0。完善下列程序。程序代码如下：Private Sub Form_Click( )Dim a As Integer,b As Integer,c As Integer,n As Integer,j As IntegerFor a= _(1)_For b=0 To 9For c=0 To 9n= _(2)_If (n Mod 11 =0)And(n11=a*a+b*b+c*c)ThenPrint n;/11=;n/11;=；a*a;b*b;c*cEnd IfNext cNext bNext aEnd Sub10、执行下面的程序

33、，在窗体上显示的输出结果的第一行是 _ ，第三行是 _ ，Form_Click( )事件过程中的第二个For-Next循环共执行了 _ 次。Option ExplicitOption Base 1Private Sub Form_Click( )Dim x(6) As Integer,I As Integer,j As IntegerFor i=1 To 6x(i)=i2Print x(i);Next iPrintFor j=1 To i-2Call sub1(x(j),j)Print jNext jEnd SubPublic Sub sub1(x As Integer,m As Intege

34、r)If x-m1.0E-15Text1.Text=termEnd Sub14、下面程序的功能是统计随机产生的10个三位正整数中偶数与奇数的个数，并求出该10个数的总和。请将程序补充完整。Option ExplicitPrivate Sub Form_Click()Dim x As Integer, s1 As IntegerDim n1 As Integer, i As IntegerRandomizeFor i = 1 To 10x= _(1)_Print x;If x Mod 2 = 0 Then_(2)_elsen2 = n2 + 1End Ifs=s+xNext iPrintPrin

35、t奇数个数：;n1;偶数个数为：;n2;和为;sEnd Sub15、下列程序计算！，！，！，！的值。完善下列程序。Private Sub Command1_Click( )for x = 1 To 7 Step 2_For y = 1 To xfact = fact * yNext yPrint x; ! =; factNext xEnd Sub16、宰相达依尔(国际象棋的发明者)想赢得象棋格子的麦子的故事大家都很熟悉，其麦子颗粒数的计算公式为：sum = 1+2+22+23+24+25+.+263，相应的计算程序如下，请将程序补充完整。Private Sub Command1_Click(

36、)Dim x As Single, y As SingleSum = 0For n = 0 To 63x =_Sum = sum + xNext nPrint 麦子的总颗粒数为：；SumEnd Sub17、下列程序的运行结果为_。Private Sub Command1_Click( )x = 1For k = 1 To 3If k = 1 Then a = x * xIf k= 3 Then a = x * x+2Print a;Next kEnd Sub18、下列程序执行后，打印结果是_ 。Option ExplicitPrivate Sub Command1_Click( )Dim i

37、As IntegerDim sum As Integersum = 0For i = 3 To 100If i Mod 3 = 0 And i Mod 11 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub19、运行下面程序，单击窗体后在窗体上显示的第一行结果是_(1)_；第二行结果是_(2)_；第三行结果是_(3)_。Private Sub Form_Click()Dim i As Integer, s As IntegerFor i = 1 To 10s = s + iIf s 10 ThenPrint ss = 0End IfNext i

38、End Sub20、下列程序运行的结果为_(1)_ 。执行完该程序后，共循环了_(2)_次。Private Sub Command1_Click( )Dim intsum As IntegerDim i As IntegerFor i = 1 To 17 Step 2intsum = intsum+iNext iPrint intsumEnd Sub21、窗体上有3个文本框Text1,Text2和Text3,一个Command1。为完成已知圆直径求圆周长和圆面积的功能，完善下列程序。Private Sub Command1_Click()Dim d As Singled = Val(Text1

39、.Text)If d 0 ThenText2.Text = 3.14159 * dText3.Text = _(1)_End IfEnd Sub22、下面程序的功能是统计随机产生的10个三位正整数中被5整除数的个数，并求出这些数的总和。完善程序Option ExplicitPrivate Sub Form_Click( )Dim x As Integer, sl As IntegerDim n1 As Integer,i As IntegerRandomizeFor i = 1 To 10x =_(1)_Print x;If x Mod 5 = 0 Then_(2)_sl = sl+xEnd

40、IfNext iPrint 被5整除数的个数,n1;和为; slEnd Sub23、执行下面的程序段后，s的值为_。Private Sub Command1_Click( )s = 5For i = 2.6 To 4.9 Step 0.6s = s+1Next iPrint sEnd Sub24、本程序用于验证一个自然数N的立方等于N个连续奇数之和，其中最大的奇数P=N*（N+1）-1例如，43=19+17+13，最大奇数为19。当程序执行后，分别给对话框输入4和6时，问计算结果分别为_(1)_和_(2)_ 。Private Sub Command1_Click( )Dim s As Stri

41、ngn = InputBox(输入一个自然数)num = n * n * np = n * (n + 1)-1x = pk = 1Do Until x = nump = p-2x = x + pk = k + 1LoopPrintPrint k; pEnd Sub25、输入一个正整数 k，求各位数字之和。请将下列程序补充完整。 程序代码如下：Option ExplicitPrivate Sub Command1_Click( )Dim Sum As Integer, k As Longk = Val(Text1.Text)Do While K0Sum = Sum + _(1)_k = k10LoopText2.Text = Str(Sum)End Sub26、下面程序的运行结果是在窗体中显示的：Private Sub Command1_Click( )For k=1 To 4If k=1 Then a =2+kIf k=2 Then a =2-kIf k=4 Then a =k/4Print a;Next kEnd Sub运行后窗体上显示的是_。27、下列程序执行后，分别