《最新VB题库及答.pdf》由会员分享，可在线阅读，更多相关《最新VB题库及答.pdf（12页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、1 最新 VB 题库及答案一、选择题第 1 部分1、在窗体（名称为 Form1）上画一个名称为 Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是A、Private Sub Text1_Change()Command1.Caption=计算机等级考试 End Sub B、Private Sub Command1_Click()Caption=计算机等级考试 End Sub C、Private Sub Form_Click()Text1.Caption=
2、计算机等级考试 End Sub D、Private Sub Command1_Click()Text1.Text=计算机等级考试 End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。A、,B、：C、.D、；3、下面（）是合法的变量名。A、X_YZB、123ABC C、INTEGER D、X-Y 4、下面（）是合法的字符常量。A、ABC$B、“ABC”C、,ABC?D、ABC 5、表达式 16/4-25*8 MOD 52 的值为（）。A、14 B、4 C、20 D、2 6、设 a=”MicrosoftVisualBasic”，则以下使变量的b 值为”VisualBasic”的语
3、句是A、b=Left(a,10)B、b=Mid(a,10)C、b=Right(a,10)D、b=Mid(a,11,10)7、设 a=a，b=b，c=c，d=d，执行语句 x=IIf(a d),A,B)后，x 的值为A、a B、b C、B D、A 8、在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x=InputBox(请输入一个整数)2 Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为A、123 B、456 C、579 D、1234
4、56 9、在 BASIC 中，三个逻辑运算符NOT，AND，OR 在运算过程中，优先级从高到低的顺序是（）。A、AND-NOT-OR B、NOT-AND-ORC、OR-NOT-AND D、NOT-OR-AND 10、下面程序段运行时内层循环的循环总次数（）。FOR X=1 TO 2 FOR Y=1 TO X NEXT Y NEXT X A.、1 B、2 C、3D、4 11、在 VB 中，复写框（Check）的 Value值有三种，分别是（）。A、-1，0，1 B、0，1，2 C、1，2，3 D、True，False，0 12、若要退出 For 循环，可使用的语句为（）。A、Exit B、Exi
5、t Do C、Time D、Exit For13、利用 VB 设计程序的基本步骤可分四步：（1）设计用户界；（2）（）；（3）运行调试程序；（4）生成执行文件。A、编写代码B、设计算法C、信息反馈D、系统集成14、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是()A、Form1.Caption“时钟”B、Form1.Caption=“时钟”C、Caption=“时钟”D、Fopm1.Caption(“时钟”)15、保存文件时，窗体的所有数据存储格式为()A、*PRG B、*FRMC、*VBP D、*EXE 16、在窗体上画一个文本框和一个计时器控件，名称分
6、别为 Text1和 Timer1，在属性窗口中把计时器的Interval 属性设置为 1000，Enabled属性设置为 False。程序运行后，如果单击命令按钮，则每隔一秒中在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Command1_Click()Timer1._ End Sub 3 Private Sub Timer1_Timer()Text1.Text=Time End Sub 在_处应填入的内容是A、Enabled=TrueB、Enabled=False C、Visible=True D、Visible=False 17、把窗体的 KeyPrevi
7、ew 属性设置程为 True，然后编写如下事件过程Private Sub Form_KeyPress(KeyAscii As Integer)Dim ch As String ch=Chr(KeyAscii)KeyAscii=Asc(UCase(ch)Print Chr(KeyAscii+2)End Sub 程序运行后，按键盘上的“A“键，则在窗体上显示的内容是A、A B、B C、C D、D 18、VB 中的变量如果没有显示声明其数据类型，则默认为（）A、日期型B、数据型C、字符型D、变体型19、在 VB 中，通过改变列表框（）属性的值，可以为列表框添加项目。A、ListB、（名称）C、Cap
8、tion D、Text 20、已知 A$=”12345678”，则表达式 Val(left$(a$,4)+Mid$(a$,4,2)的值为（）。A、12345 B、123445C、8 D.6 21、下面程序段显示的结果是（）。Dim x If x then print x else print x+1 A、1 B、0 C.、-1 D、显示出错信息22、用来测试指定文件结束状态的函数是（）A、EofB、FreeFile C、Loc D、Open 23、当 Long 类型数据与 Single 类型运算时,运算结果的类型为（）。A、Integer B、Long C、SingleD、Double 24、
9、某一 VB 工程含 F1、F2 两个窗体，执行“F1 Show：F2Hide”语句后，F1、F2 窗体显示的结果为（）。A、都显示B、都不显示C、仅显示 F1 窗体D、仅显示 F2 窗体25、数学关系 3=x10 表示成正确的 VB 表达式为（）A、3=x10 B、3=x AND x10C、x=3 OR x10 D、3=x AND 10 4 26.在窗体上画一个名称为Label1 的标签，然后编写如下事件过程：Private Sub Form_Click()Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i=2 To 4 F
10、or j=2 To 4 arr(i,j)=i*j Next j Next i Label1.Caption=Str(arr(2,2)+arr(3,3)End Sub 程序运行后，单击窗体，在标签中显示的内容是A、12 B、13C、14 D、15 27.在窗体上画一个名称为List1 的列表框，一个名称为Label1 的标签，列表框中显示若干个项目，当单击列表框中某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是A、Private Sub List1_Click()Label1.Caption=List1.ListIndex End Sub B、Private Sub Li
11、st1_Click()Label1.Name=List1.ListIndex End Sub C、Private Sub List1_Click()Label1.Name=List1.Text End Sub D、Private Sub List1_Click()Label1.Caption=List1.Text End Sub28、设 a=5，b=4，c=3，d=2，下列表达式的值是32*b Or a=c And bc Or cd A、1 B、TrueC、False D、2 30、下列操作不能打开代码窗口的是()A、选中对象,单击鼠标右键,在弹出的快捷菜单中选择“查看代码”命令B、选中对象,
12、双击鼠标左键C、按 F7 键D、按 F4 键5 第 2 部分1、VB 语言的语法规定，多条语句放在同一行中，语句之间用（）分隔。A、逗号B、冒号C、分号D、单引号2、在 VB 中，执行“A=18 MOD 4”语句后，A 的值为（）。A、2B、4 C、6 D、8 3、A 为 True，B 为 False，则“A and B”和“A Or B”的值分别是（）。A、True True B、True False C、False True D、False False 4、在 VB 中，执行“Dim A,B As String”语句后，A，B 的数据结构为（）。A、整型数B、实型数C、字符型D、字节型5、
13、在 VB 中，执行“A=123：B=Str$(A)”语句后，B 的数据结构为（）。A、整型数、B、字节型C、实型数 D、字符型6、在 VB 中，复写框（Check）的 Value值有三种，分别是（）。A、-1，0，1 B、0，1，2 C、1，2，3 D、True，False，0 7、若要退出 For 循环，可使用的语句为（）。A、Exit B、Exit Do C、Time D、Exit For8、利用 VB 设计程序的基本步骤可分四步：（1）设计用户界；（2）（）；（3）运行调试程序；（4）生成执行文件。A、编写代码B、设计算法C、信息反馈D、系统集成9、在代码窗口内将表单Form1 的“Ca
14、ption”属性设置为“时钟”,正确的书写形式是()A、Form.C aption“时钟”B、Form.Caption=“时钟”C、Caption=“时钟”D、Fopm.Caption(“时钟”)10、保存文件时，窗体的所有数据存储格式为（）。A、*PRG B、*FRMC、*VBP D、*EXE 11、窗体初始化程序应写在()事件中。A、LoadB、Unload C、Activate D、GotFocus 12、某一 VB 工程含 F1、F2 两个窗体，执行“F1 Show:F2Hide”语句后，F1、F2 窗体显示的结果为（）。6 A、都显示B、都不显示C、仅显示 F1 窗体 D、仅显示F2
15、 窗体13、VB 的数据类型分为（）A、数值型、字符型、布尔型、日期型B、数值型、字符型、对象型、日期型C、基本类型、扩展类型D、整型、实型、字符型、日期型、布尔型14、VB 中的变量如果没有显示声明其数据类型，则默认为（）A、日期型B、数据型C、字符型D、变体型15、在 VB 中，通过改变表框（）属性的值，可以为列表框添加项目。A、List B、（名称）C、Caption D、Text 16、在 VB 中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从高到低的顺序是（）。A、AND-NOT-OR B、NOT-AND-ORC、OR-NOT-AND D、NOT-OR-AND 17、下面
16、程序段运行时内层循环的循环总次数（）。FOR X=1 TO 2 FOR Y=0 TO X-1 NEXT Y NEXT X A、1 B、2 C、3D、4 18、正确的算术表达式是（）。A、-3/8+5INT24.6 B、8*3/5 C、(X+Y)*Z/30D、(X2+Y/3)*X3 19、若 A=2,B=3,C=4,则值为真的关系式是（）。A.12/A+2=B2B、32*B OR A=C AND BC OR AB C、AB AND B C D、A*B C+3 20、当 Long 类型数据与 Single 类型运算时,运算结果的类型为（）。A、Integer B、Long C、SingleD、Do
17、uble 21、下面关于顺序文件的描述正确的是（）。A.每条记录长度必须相同B.可通过编程对文件中的某条记录方便的修改。C.数据只能以 ASCII 码形式存放在文件中，所以可通过文本编辑软件显示。D.文件的组织结构复杂。7 22、下列（）不属于 VB 的控件。A、窗体B、数据C、形状D、直线23、下面（）是合法的变量名。A、X_YZ B、123+ABC C、INTEGER D、X-Y 24、下面的程序段，输入9后，输出结果是（）。X=inputbox(“输入一个数”)Select case x Case 1 to 5 Y=-1 Case 5 to 10 Y=0 Case 10 to 15 Y=
18、1 End select A、0B、1 C、-1 D、2 25、下列说法中正确的是（）。A、数组只具有数组名，而没有数组类型B、数组只具有数组类型，而没有数组名C、数组的类型和数组元素的类型不同D、数组和变量一样，都有名称和类型这两种属性26、创建公用数组的方法是（）。A、在模块中用 Private语句声明B、在模块中用 Public 语句声明C、在过程中用 Private语句声明D、在过程中用 Public 语句声明不是 B 就是 D 27、Visual Basic 6.0中缺省的参数传递机制是（）。A、传值B、传地址C、传值和传地址D、从实参到形参28、已知 A$=”12345678”，则
19、表达式 Val(left$(a$,4)+Mid$(a$,4,2)的值为（）。A、12345 B、123445C、8 D、6 29、下面正确的赋值语句是（）A、x+y=30 B、y=*r*r C、y=x+30D、3y=x 30、要保留动态数组原有的内容，应当使用（）语句。A、Redim Preserve B、Redim C、Dim C、Public 不是 A 就是 B 8 二、填空题（每空2 分，共 20分）1、下面的程序是求100 以内奇数和 s 的值（S=1+3+5+7.+99）。请在有（）的地方填上适当的语句或表达式。(8 分)Private Sub Command1_Click()Dim
20、 s As Single Dim i As Single s=（0）For i=1 to 100（step 2）S=（s+i）(next i)Print s End Sub 2、在下列程序的（）内写上适当的内容，使能输出如下图形。*程序如下：Private Sub Command1_Click()For i=1 to（6）For j=1 to（i-6）Print（“*”）Next j（Print String(i,*)）Next i End Sub 3、写出下列程序的执行结果Private Sub Form_Click()Dim a(1 To 10)As Integer Dim b(1 To
21、10)As Integer Dim c(1 To 10)As Integer For i=1 To 10 a(i)=i Next i b(1)=10 For j=9 To 1 Step-1 9 b(10-j+1)=j Next j For k=1 To 10 c(k)=a(k)+b(k)Next k For l=1 To 10 Print c(l);If l=5 Then Print End If Next l End Sub 结果：11 11 11 11 11 11 11 11 11 11 4、在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_Cl
22、ick()Text1.text=VB 程序设计 End Sub Private Sub Text1_Change()Picture1.PrintVB Programming End Sub 程序运行后，单击窗体，在文本框显示的内容是_ VB 程序设计 _，而在图片框显示的内容是 _ VB Programming _。5、下列程序输出的值是多少？Private Sub Command1_Click()s=0 For i=9 To 42 Step 11 s=s+i Next i If i 50 Then s=s+i Else s=s-i End If Print s End Sub 结果是：_15
23、5_ _。6、设有如下程序：Private Sub Form_Click()Dim a As Integer,s As Integer 10 n=8 s=0 Do s=s+n n=n-1 Loop While n0 Print s End Sub 以上程序的功能是计算1 到 8 的累加。程序运行后，单击窗体，输出结果为 _36_。7、设有如下程序：用Array 函数建立一个含有8 个元素的数组，然后查找并输出该数组中各元素的最小值。Option Base 1 Private Sub Command1_Click()Dim arr1 Dim Min As Integer,i As Integer
24、 arr1=Array(12,435,76,-24,78,54,866,43)Min=arr1(1)For i=2 To 8 If arr1(i)Min Then min=arr1(i)Next i Print 最小值是：;minEnd Sub 8、在名称为Form1 的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine 属性设置为True，然后编写如下的事件过程：以下程序的功能是，把磁盘文件smtext1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。Private Sub Form_Click()Ope
25、nd:testsmtext1.txtFor Input As#1 Do While Not eof(1)Line Input#1,aspect$whole$=whole$+aspect$+Chr$(13)+Chr$(10)Loop Text1.Text=whole$11 Close#1 Open d:testsmtext2.txtFor Output As#1 Print#1,text1.text Close#1 End Sub 三、程序设计题1、编写一个函数计算1*2*n 的值，函数名为 fact()Private Function fact(n As Integer)As Integer
26、Dim i As Integer Dim r As Integer r=1 For i=1 To n r=r*i Next i fact=r End Function End Sub2、编写一个过程,求成 1*2*3*N 的值，过程名为 NA。3、新建一个窗体，程序运行时，当用鼠标单击窗体任一地方，程序弹出 Inputbox()函数输入框。当输完15 个整数后，程序把刚输入的15 个整数分 3 行在窗体上显示，每行 5 个整数。提问：（1）、应该对窗体的什么事件进行编程？（2）、编写程序代码，实现上述功能。应该对窗体的单击（Click）事件进行编辑Private Sub Command1_Cl
27、ick()Dim a(15),i As Integer For i=1 To 15 a(i)=InputBox(请输入 15 个整数，单击确定按钮.,)Next For i=1 To 15 Print a(i);12 If i Mod 5=0 Then Print Next i End Sub4、已知三角形的三条边，编写一个函数求其面积，函数名自命名。Private Sub Command1_Click()Dim a,b,c,l,S a=Val(InputBox(请输入第一条边的长：)b=Val(InputBox(请输入第二条边的长：)c=Val(InputBox(请输入第三条边的长：)l=(a+b+c)/2 If l=a Or l=b Or l=c Then MsgBox 输入的数据不能组成三角形!Exit Sub End If S=Sqr(l*(l-a)*(l-b)*(l-c)Print S End Sub