VB语言程序设计题库含答案.docx

《VB语言程序设计题库含答案.docx》由会员分享，可在线阅读，更多相关《VB语言程序设计题库含答案.docx（21页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、一、单项选择题（50道小题，共50分）1、VB是一种面向对象的程序设计语言，构成对象的三要素是（A） （1分）错误!未找到引用源。A、属性、事件、方法错误!未找到引用源。B、控件、属性、事件错误!未找到引用源。C、窗体、控件、过程错误!未找到引用源。D、窗体、控件、事件2、有程序代码如下：Text 1. Text =欢迎学习VB程序设计”，那么Textl、Text、”欢迎学习；B程序 设计”分别代表（B）。（1分）错误!未找到引用源。A、对象、值、属性错误!未找到引用源。B、对象、属性、值错误味找到引用源。C、对象、方法、屈性错误!未找到引用源。D、属性、对象、值3、以下关于VB编码规那么的表

2、达中，正确的选项是（A）。（1分）错误!未找到引用源。t、条语句可以分为多行错误!未找到引用源。儿”釜语句不能书写在同书写一行上错误!未找到引用源。C、每条语句以分号;结尾错误!未找到引用源。C、每条语句以分号;结尾错误!未找到引用源。D、应用程序代码字母是区 分大小写的4、不属于面向对象系统的三要素）。（1分）错误!未找到引用源。,、件错误!未找到引用源。C、方法错误!未找到引用源。,、件错误!未找到引用源。C、方法错误!未找到引用源。B、属性 错误!未找到引用源。D、变量5、以下表达中，正确的选项是（D）。（1分）错误味找到引用源。A、VB的事件由用户定义误!未找到引用源。B、VB程序以顺

3、序方式执 1J错误!未找到引用源。C、每一个VB程序都是从错误!未找到引用源。I）、VB运行时，系统等待Main。函数开始执行事件的发生，事件的执行顺序与书写顺序无关6, VB中，窗体可视化局部的数据存放在窗体模块中。假设针对该窗体中的某一命令按钮对象编写代心* 那么该程序代码应存放在（A ）中。（1分）错误!未找到引用源。A、窗体模块错误!未找到引用源。B、标准代码模块错误!未找到引用源。C、类模块错误!未找到引用源。D、命令按钮模块7 有程序代码如下：Label 1. Caption =*Label 1. Caption*,那么 Labell、Caption ”Label 1. Capti

4、on” 分别代表（B）。（1分）错误!未找到引用源。A、对象、值、属性错误!未找到引用源。B、对象、属性、值错误!未找到引用源。C、对象、方法、属性错误!未找到引用源。D、对象、事件、值8、以下不能翻开代码窗口的操作是（D）。（18、以下不能翻开代码窗口的操作是（D）。（1分）B、双击窗体D、单击窗体或控件错误!未找到引用源。A、双小窗体上的某个捽件错误!未找到引用源。里粤本找到引用源。单击视图菜单中的“代错误味找到引用源。 码留口9、在工具箱窗口关闭的情况下，如果要翻开只需选择（A）菜单的“工具箱命令”即可。（1分）错误!未找到引用源。A、视图错误!未找到引用源。B、运行错误!未找到引用源。

5、C、编辑错误!未找到引用源。D、文件10、在VB的工程资源管理器窗口中不可能存在的文件类型是（C ）. （1分）错误!未找到引用源。A、*.frm错误!未找到引用源。B、*. vbp错误!未找到引用源。C、*.gif错误!未找到引用源。D、*.ba$11、双击窗体中的对象后，VB将显示的窗口是（D ）0 （1分）错误!未找到引用源。A、工程窗口错误!未找到引用源。B、工具箱错误!未找到引用源。C、属性窗口错误!未找到引用源。D、代码窗LI12、通过（B ）窗口可以在设计时直观的调整窗体在屏幕上的位置。（1分）96. Function过程要由函数名返回一个值。如果不是用“As数据类型”选项来指定

6、函数的 半划，函数类型默认为（）。（1分）1A、工程文件 C、资源文件i B、窗体文件C D、类模块文件A、 LongC IntegerB、 VariantD、 String97、当工程中有多个窗体时，必须指定启动窗体，其方法是：选择“工程”菜单中的“工 特届性”命令，翻开“通用”选项卡，在（）电谓择运行时显示的第一个窗体。（1分）A、工程类型 C、工程描述B、工程名称 【）、启动对象98以下关于顺序文件的描述中，不正确的描述显（）。（1分）A、读出时必须按照顺序C、每条记录长度必须相同B、读入时必须按照顺序 D、用来处理文本文件99、如果把一个调试好的程序做成.exe文件，应该使用（）。（1

7、分）A、文件菜单下的“生成XXX. exe”命令B、F5C、 Ctrl + F5D、工具栏上的“运行”按钮26、100、在窗体中，用（）语句声明的变量是静态皆量。（1分）A、Dim Z As Integer B、Public Z As IntegerC Private Z As IntegerD、Static Z As Integer101、定义一个窗体级变量主要因为（）多个程序都需要用到同一个相关数据A、模块内 B、模块外C、窗体内 D窗体外1、* 求 7! (7!=1*2*3. *6*7)的值。 Private Sub Commandl_Click() Dim a As Singlea二错

8、误!未找到引用源。【1】 For i = 1 To 7 a = a * i Next i Print a End Sub（4分）2、*对10个100以内的整数用冒泡法按递减顺序排序。Private Sub Commandl_Click()Dim a(10) As Integer, t As IntegerDim i As Integer, j As IntegerFor i = 1 To 1()a(i) = Int(Rnd * 101)Print a(i);Next i: PrintFor i = 1 To 9For j = 1 To 10 - iIf a(j) max Then max =

9、a(i)If a(i) min Then min = a(i)Next iPrint 最大值为；maxPrint 最小值为minEnd Sub(4分)4、*三个学生的四门课(政治、数学、英语、计算机)成绩(均在70分以上)随即生 成存放在二维数组R (3, 4)中，计算每个学生的平均成绩(存放在数组S中)和最高 平均成绩。Private Sub Form ClickODim R(1 To 3, 1 To 4) As IntegerDim S(1 To 3) As IntegerDim i%, j%, max%, k% k为最高成绩学生序号For i = 1 To 3i) = 0For j =

10、1 To 4R(i, j) = Int(30 * Rnd + 70)Print Tab(j - 1) * 5); R(i, j);S(i) = S(i) + R(i, j) Next j S(i) = S(i) / 4 Print Next i max = 0 For i =3 Print 学生”& i; 平均成绩:& S(i) If max S(i) Then max - S(i) k = i End If Next iPrint ”最高平均成绩 k=；k, max=；max End Sub（4分）5、*利用判断一个三位数是否为对称数(如：343)的函数过程，求出所有三位对称数 之和。*程序

11、代码如下：Private Sub Commandl_Click() Dim sum As Long, n As Integer sum=0For n = 100 To 999If duicheng(n) then sunksum+错误!未找到引用源。n Next n End SubPublic Function duicheng(ByVal i%) As Boolean a = i Mod 10 c = i 100 If a = c Then duicheng=trueElseduicheng二Fa IseEnd IfEnd function（4分）6、*下面程序计算l!+3!+5!+.+9!

12、的值,请将其补充完整。*程序代码如下：Dim nt As SinglePrivate Sub aa(ByVal n As Single)Dim i As Integer nt = 1For i = 1 To n nt = nt * i Next i End SubPrivate Sub Form_Click()Dim sum As Single, n As Integer sum = 0For n = 1 To 9 Step 2aa (错误!未找到引用源。【n】sum = sum + 【nt】年Next nPrint sumEnd Sub(4分)7、*控件属性改变,如图x_3. jpg所示Pr

13、ivate Sub Commandl_Click()If Command 1. Caption =字号ThenLabel 1.错误!未找到引用源。(fontsize = 30Command 1. Caption =颉色错误!未找到引用源。elseLabel 1.错误!未找到引用源。【forecolor】=vbRedCommand 1. Caption =字号End IfEnd Sub8、*删除己知数组a中的某个元素。Private Sub Command 1 _Click()Dim a() As Variant, n As Integer, Key As Integer a = Array(

14、1,6, 8, 3, 5, 9, 10, 2, 7, 4) n = UBound(a)Key = InputBox(请输入要删除的数”)For i = 0 To nIf Key = a(i) Then Exit ForNext iIf i = n + 1 Then MsgBox (找不到此数)错误味找到引用源。【:】Exit Sub Forj = i + I To n a(j - I) = a(j)Next jn = n - 1ReDini Preserve a(n)For i = 0 To nPrint a(i);Next i: PrintEnd Sub9、*使用双循环实现三角形输出* *木

15、*Private Sub Command l_Click()* *For错误!未找到引用源。【i】=1 To5 Print Tab(25 - i);Forj=错误!未找到引用源。【I】To iPrint *；Next j Print Next i End Sub10、*设计一个求两个数的最大公约数的函数过程。*程序代码如下： Option Base IPrivate Function 错误!未找到引用源。【ged】 (ByVai in%, By Vai n%) As Integer If m = Asc(A) And KeyAscii = 0 And st = 9 ThenPrint st;E

16、nd IfNext iEnd Sub20/使用双循环实现正三角形输出$s*$*木本*程序代码如下：Private Sub Command l_Click()For i = 1 To5PrintTab(25-i)：Forj = 1 To 2 * i - 1If i Mod 2 = () Then Print Else Print n*;Next j Print Next i End Sub21、米将一维数组a中的数值反序放置。*程序代码如下：Private Sub Command 1 _Click()Dim a( 10) As Integer, i As Integer, t As Intege

17、rFor i = 1 To 10a(i) = Int(90 * Rnd) + 10Print a(i);Next i: PrintFori= 1 To 5t= a(i)a(i) = a(ll -i)a(lI - i) = tNext iFor i = 1 To 10Print a(i);Next i: PrintEnd Sub22、*用随机函数产生n个1099之间的随机整数存入一维数组A,通过键盘输入X,然 后在数组中查找。如果找到了，就把这个数从数组中删去；如果没有找到，那么给出“无可删 除的元素”信息。Private Sub Form_Click()Dim n As Integer, a(

18、 1 ()0) As IntegerDim x As Integer, i As IntegerDim k As Integer, flag As Booleann = InputBox(N=)For i = 1 To na(i) = Int(90 * Rnd + 10)Print a(i);Next i： Printx = InputBox(X=): Print X=; xflag = FalseFor i = 1 To nIf a(i) = x Then| =Truek = iExit ForEnd IfNext iIf Not flag ThenPrint ”无可删除的元素”ElseFo

19、r i = k To n - 1a(i) = a(i + 1)Next i: n = n - 1For i = 1 To nPrint a(i);Next iEnd IfEnd Sub23/完数Private Sub Command I _Click()Dim s%For i = 2 To 1000s = 0For j = 1 To i / 2IfiModj = OThens = s+jNext jIfs = iThen Print iNext iEnd SubI、*编写程序，计算出从1000开始的第100()个素数是多少？写出计算结果。Private Sub Command 1 _Click

20、()Dim i&, j&, s&, n&i= 1000Do While n i - 1 Thens = s + in = n + 1End Ifi = i+ 1LoopPrint sEnd Sub2、*下载数据文件dataO(X)2.txt到自己的机器中，编程统计出该数据文件中，在第51个- 第10000个数据之间，能被3整除的最大值。Private Sub Form_Click()Dima(l To 50000)Open d:dataOOO2.txt For Input As #1i= 1Do While Not EOF(l)Input #1, a(i)i = i+ 1LoopMax = 0

21、Fori = 51 To 10000If a(i) Mod 3 = 0 And a(i) Max Then Max = a(i)NextPrint MaxClose # IEnd Sub3、*编写程序，统计从100到2000中，是7的倍数的数字的和是多少？例如，14, 21等。 Private Sub Command l_Click() Dim s&, i%Fori= 100 To 2000If i Mod 7 = 0 Then s = s + iNext iPrint sEnd Sub东下载数据文件data0001.txt到自己的计算机中，编写程序，对该数据文件里的前10000个 数从小到大

22、排序，求出第5000到第6000个数当中大于1000的所有奇数的平均值。Private Sub Command I _Click()Dim i%, j%, aver%, a(l To 10000) As LongOpen f:dataOOOI.lxt For Input As#lFor i = 1 To 10000Input #1, a(i)NextiClose #1For i = i To 10000- 1For j = 1 To 10000 - iIf a(j) a(j + 1) Thent = aO)a(j) = a(j + 1)a0+ D = tEnd IfNext jNext iFo

23、ri = 5000 To 6000Ifa(i) 1000 And a(i) Mod 2 = 1 Thens = s + a(i) n = n + 1 End IfNextiPrint s / nEnd Sub5、*编写程序，计算1+ (1+2) + (1+2+3) +前300项中偶数项的和。Private Sub Command I _Click()Dim a(l To 300) As Long, i&, suin&For i = 1 To 300IfiMod2 = 0Thena(i) = (i * (i + 1)/2sum = sum + a(i)错误!未找到引用源。A、代码窗口错误!未找到

24、引用源。B、窗体布局窗口错误!未找到引用源。C、窗体设计窗口错误!未找到引用源。D、属性窗I I13、VB应用程序在（B）模式下不能编辑代码和设计界面。（1分）错误!未找到引用源。A、运行错误!未找到引用源。B、中断错误!未找到引用源。C、设计错误!未找到引用源。D、以上均不能14、在工具栏中有一个“启动”按钮，这个按钮的作用是（b）. （1分）错误!未找到引用源。A、运行一个应用程仔错误!未找到引用源。B、运仃错误!未找到引用源。C、翻开被选中对象的属性错误!未找到引用源。D、翻开被选中对象的代码窗口窗口15、标准控件不包括（D）控件。（1分）错误!未找到引用源。A、驱动黑列表框 错误!未找

25、到引用源。C、文件列表框15、标准控件不包括（D）控件。（1分）错误!未找到引用源。A、驱动黑列表框 错误!未找到引用源。C、文件列表框错误!未找到引用源。B、II录列表把 错误!未找到引用源。【）、汹用对话打16、以下表达中，错误的选项是（C）。（1分）错误!未找到引用源。A、一个工程以含有多个错误!未找到引用源。B、窗体文件包含该窗体及标准模块文件其控件的属性错误!未找到引用源。C、以BAS为扩展名的文件错误!未找到引用源。D、在I：程资源管理器窗口是资源文件可以包含多个工程文件及属于该工程的其他文件17、存储一个VBJ1程时，可能产生多个文件，扩展名.bas说明是（）文件。（1分）错误!

26、未找到引用源。A、窗体错误!未找到引用源。B、标准模块错误!未找到引用源。C、类模块错误!未找到引用源。D、资源18、每建立一个窗体，工程管理器窗口中就会增加一个（）。（1分）错误!未找到引用源。A、工程文件错误!未找到引用源。B、窗体文件错误!未找到引用源。C、程序模块文件错误!未找到引用源。D、类模块文件19、窗体文件中的信息是（）和其他信息。（1分）转退，生林到已I田湎.雷侏如我怦从蛀打 错误!未找到引用源。七窗体中控件的形状及其 错误!禾找到引用源。A、窗体形状及具特征特性错误!未找到引用源。C、窗体及其控件的属性错误!未找到引用源。D、运行窗体的代仍20、Visual Basic有完

27、备的Help联机帮助功能,可以通过按下功能键（）得到帮助。（1分）错误!未找到引用源。A、F9错误!未找到引用源。B、F8错误!未找到引用源。C、门错误!未找到引用源。D、F521、以下（）语言不属于面向对象的程序设计语言。（1分）错误!未找到引用源。A、C错误!未找到引用源。B、C+错误!未找到引用源。C、VB错误!未找到引用源。D、Delphi22、过程调用时，形参首先要通过调用语句从实参那里得到真正的值，这一过程叫（）。（1分）错误!未找到引用源。A、输入错误!未找到引用源。B、调用错误!未找到引用源。C、引用错误!未找到引用源。D、参数传递23、以下表达中，错误的选项是（） （I分）错

28、误!未找到引用源。A、函数过程的函数名有返错误!未找到引用源。B、窗体可以作为过程的参 回值数错误!未找到引用源。C、数组作为过程的参数时，D、只有函数过程能够招过程中处理的数据传回使用“传地址”方式到主调程序中24、在调用时，作为实参的数组（）。（1分）End IfNext iPrint sumEnd Sub*下载数据文件data0002.txt到自己的机器中，编程统计出该数据文件中，在第51个-第10000 个数据之间共有多少个偶数。Private Sub Command l_Click()Dim n%, a(l To 10000) As Long, i%n = 0Open d:data0

29、002.txt1 For Input As #1For i = 1 To 50Input #1, a(i)Next iFori = 51 To 10000Input #1, a(i)If a(i) Mod 2 = 0 Then n = n + 1Next iPrint nClose #1End Sub7、*编写程序，求出500到5000以内能被3或者被5整除的数的和。Private Sub Command I _Click()Dim s&. i%For i = 500 To 500()If i Mod 3 = 0 Or i Mod 5 = 0 Thens = s + iEnd IfNext i

30、Print sEnd Sub8、*下载数据文件dalaOOOl.lxl到自己的计算机中，编程求出该数据文件里的前10000个数中大于1000的 偶数的个数。Private Sub Commandl_Click()Dim n&. i%,j%, a(l To 10000) As Longn = 0Open d:dataOOOI.txt For Input As #1Fori = 1 To 10000hiput #1, a(i)If a(i) I(XX) And a(i) Mod 2 = 0 Then n = n + 1Next iPrint nClose #1End Sub9、求 1*2 -2*3

31、 + 3*4 -4*5前 50 项的和Private Sub Commandl_Click()Dim s%, t%t= 1s = 0For i = 2 To 5（）t = （i - 1） * im = IIf（i Mod 2 = 0, 1,-1）s = s + t * mNext iPrint sEnd Sub 第一场考VB壮烈了。第十章文件的数据读写一定要看。上面一道编程题考的算法也是老师讲的 例题那种。比方最大值最小值素数，递归求和还有平均值等等。填空题有个把难的，做好后把代 码放VB里运行一下可以检查正误。而选择题考的是小知识点，多看看题并且记住答案就好。可 能有些知识点比拟少见。公用属

32、性（是caption还是enable）和容器控件（是image还是 picturebox）之类的，记得百度查一下答案。按键求a sc码是Repress事在还是keydown事件。 还有一个是数组元素个数的求法（option base语句）。选择题大概有10-20题左右用VB软件 是可以得到答案的，大家一定要善于用这个哈，提高正确率。类型太多（给一段代码求结果，正确 变量名，正确代码语句，嗯，还有各个控件的属性，还有inputbox的标题框和默认值之类的， 对了，还有inputbox的返回值是字符型的）。想的起来的就这么多，祝大家VB雄起。昨天14:53弋+-Bli:f、笛卡尔的克里斯汀转过错误

33、!未找到引用源。A、只写数组名及空原号错误!未找到引用源。B、只写数组名及其类型错误!未找到引用源。C、只写数组名及其大小手心未找到引用源。、只写数组名空括号及其 人小25、在过程内定义的变量（不在语句块中）为（）。3分）错误!未找到引用源。A、全局变量错误!未找到引用源。B、模块变量错误!未找到引用源。错误!未找到引用源。D、他态变量26、在一个应用程序中，假设同在一个窗体模块中的三个事件过程要借助一个变量进行通讯，那么此变 量应声明为（）。（1分）错误!未找到引用源。A、全局级变量错误!未找到引用源。B、窗体/模块级变量错误!未找到引用源。C、局部变量错误!未找到引用源。D、静态变量27、

34、窗体上有命令按钮Command 1和Command2,请阅读卜列程序：Dim a As Integer: Private Sub Commandedick（） : a = a + 3 : Print a: End Sub: Private Sub Command2_Click（） : a = a + 2 : Print a: End Sub,运行时，分别单击Command1和Command2按钮,输出的结果为（）。（1分）错误!未找到引用源。A、3 5错误!未找到引用源。B、3 2错误!未找到引用源。C、2 5错误!未找到引用源。D、2 328、阅读以下程序：Private Sub Form

35、Click（）: Dim m As Integer: Static n As Integer: For i = lTo3:n = n + i:m = m+ i 2: Next: Print m, n: End Sub:运行时，两次单击窗体， 输出结果为（）。（1分）错误!未找到引用源。A、14 12错误!未找到引用源。B, 14 6错误!未找到引用源。C、28 6错误!未找到引用源。D、28 1229、在窗体上画个名称为Command1的命令按钮，然后编写如下程序：Private SubCommand I _C1 ick（）:Sialic X As Inleger:Stalic Y As In

36、teger:Cls: Y=1 :Y=Y+5:X=5+X: Print X, Y:EndSub,程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为（）。（1分）错误!未找到引用源。A、15 16错误!未找到引用源。B, 15 6错误!未找到引用源。C、15 15错误!未找到引用源。D、5 630、在窗体的“通用”段声明变量时，不能使用（）关键字。（1分）错误!未找到引用源。A、Dim错误!未找到引用源。B、Static错误!未找到引用源。C. Public错误!未找到引用源。D、 Private 31、以下表达中，正确的表达是（）。（1分）错误!未找到引用源。A、局部变量的作用域可以错误!未找到引用源。B、在窗体的Form_Load事超出所定义的过程件过程中定义的变量是全局变量错误!未找到引用源。C、在调用过程时，所仃局 部变量被系统初始化为0或空字符串错误!未找到引用源。D、在Sub过程A中定义的 局部变量可以与其他事件过程中定义的局部变量 同名，但其作用域只限于过程A全局变量必须在（）中定义（