2022年vb题库及答案.pdf

《2022年vb题库及答案.pdf》由会员分享，可在线阅读，更多相关《2022年vb题库及答案.pdf（12页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、最新 VB题库及答案一、选择题第 1 部分1、 在窗体（名称为 Form1） 上画一个名称为Text1 的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是A、Private Sub Text1_Change() = 计算机等级考试 End SubB、Private Sub Command1_Click()Caption = 计算机等级考试 End SubC、Private Sub Form_Click() = 计算机等级考试 End SubD、Private S

2、ub Command1_Click() = 计算机等级考试 End Sub2、在一行内写多条语句时，每个语句之间用（）符号分隔。A、 , B、 ： C、. D 、 ；3、下面（）是合法的变量名。A、X_YZ B、123ABC C、INTEGER D、X-Y4、下面（）是合法的字符常量。A、 ABC$ B、 “ABC ” C、 ABC D、 ABC5、表达式 16/4 - 25*8 MOD 52的值为（） 。A、14 B、 4 C 、20 D 、26、设 a=”MicrosoftVisualBasic”，则以下使变量的b 值为”VisualBasic ”的语句是A、b=Left(a,10) B、

3、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、A8、在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click() 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 12 页 - - - - - - - - - - x = InputBox(请输入一个整数 )Print x + End

4、Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为A、123 B、456 C、579 D 、123456 9、在 BASIC中，三个逻辑运算符NOT ，AND ，OR在运算过程中，优先级从高到低的顺序是（） 。A、 AND-NOT-OR B、 NOT-AND-ORC、 OR-NOT-AND D、 NOT-OR-AND10、下面程序段运行时内层循环的循环总次数（） 。FOR X=1 TO 2 FOR Y=1 TO XNEXT Y NEXT XA.、1 B、2 C、3 D、411、在 VB中，复写框（ Check）的 Value

5、 值有三种，分别是（） 。A、-1 ，0，1 B、0，1，2 C、1，2，3 D、True，False ，0 12、若要退出 For 循环，可使用的语句为（） 。A、Exit B、Exit Do C、Time D 、Exit For13、利用 VB设计程序的基本步骤可分四步：（1）设计用户界；（2） （ ） ； （3）运行调试程序；（4）生成执行文件。A、编写代码 B 、设计算法 C 、信息反馈 D 、系统集成14、在代码窗口内将表单Form1的“Caption ”属性设置为“时钟” , 正确的书写形式是 ( ) A、 “时钟” B、=“时钟”C、Caption= “时钟” D、( “时钟”

6、) 15、保存文件时，窗体的所有数据存储格式为( ) A、 * PRG B、 * FRM C 、*VBP D、 * EXE16、在窗体上画一个文本框和一个计时器控件，名称分别为Text1 和 Timer1，在属性窗口中把计时器的Interval属性设置为 1000，Enabled 属性设置为 False 。程序运行后，如果单击命令按钮，则每隔一秒中在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Command1_Click()精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第

7、2 页，共 12 页 - - - - - - - - - - End SubPrivate Sub Timer1_Timer() = TimeEnd Sub在_处应填入的内容是A、Enabled = True B 、Enabled = False C、Visible = True D、Visible = False17、把窗体的 KeyPreview 属性设置程为 True，然后编写如下事件过程Private Sub Form_KeyPress(KeyAscii As Integer)Dim ch As Stringch = Chr(KeyAscii)KeyAscii = Asc(UCase(

8、ch)Print Chr(KeyAscii + 2)End Sub程序运行后，按键盘上的“A“键，则在窗体上显示的内容是A、A B、B C、C D、D18、VB中的变量如果没有显示声明其数据类型，则默认为（）A、日期型 B 、数据型 C 、字符型D 、变体型19、在 VB中，通过改变列表框（）属性的值，可以为列表框添加项目。A、List B、 （名称） C 、Caption D 、Text 20、已知A$= ”12345678”，则表达式Val(left$(a$,4)+Mid$(a$,4,2)的值为（） 。A、12345 B、123445 C 、8 D. 621、下面程序段显示的结果是（） 。

9、Dim xIf x then print x else print x+1A、1 B、0 C.、-1 D、显示出错信息22、用来测试指定文件结束状态的函数是（）A、Eof B 、FreeFile C、Loc D、Open23、 当 Long类型数据与 Single 类型运算时 , 运算结果的类型为（） 。A、Integer B、Long C 、Single D、Double24、某一 VB工程含 F1、F2两个窗体，执行“ F1Show ：F2Hide”语句后， F1、F2 窗体显示的结果为（） 。A、都显示 B 、都不显示C、仅显示 F1窗体 D 、仅显示 F2窗体精品资料 - - - 欢迎

10、下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 3 页，共 12 页 - - - - - - - - - - 25、数学关系 3= x 10 表示成正确的 VB表达式为（）A、3=x10 B、3=x AND x 10C、x=3 OR x 10 D 、3=x AND10 26. 在窗体上画一个名称为Label1 的标签，然后编写如下事件过程：Private Sub Form_Click()Dim arr(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 2 To 4For

11、 j = 2 To 4arr(i, j) = i * jNext jNext i = Str(arr(2, 2) + arr(3, 3)End Sub程序运行后，单击窗体，在标签中显示的内容是A、12 B、13 C、14 D、1527. 在窗体上画一个名称为List1的列表框，一个名称为Label1 的标签，列表框中显示若干个项目，当单击列表框中某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是A、Private Sub List1_Click() = End SubB、Private Sub List1_Click()= End SubC、Private Sub Lis

12、t1_Click() = End SubD、Private Sub List1_Click() = End Sub28、设 a=5，b=4，c=3，d=2，下列表达式的值是32*b Or a=c And bc Or cdA、1 B、True C、False D、230、下列操作不能打开代码窗口的是( )A、选中对象 , 单击鼠标右键 , 在弹出的快捷菜单中选择“查看代码”命令B、选中对象 , 双击鼠标左键C、按 F7键D、按 F4键精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 4 页，共 12 页 -

13、- - - - - - - - - 第 2 部分1、VB语言的语法规定，多条语句放在同一行中，语句之间用（）分隔。A、逗号B、冒号 C、分号 D、单引号2、在 VB中，执行“ A=18 MOD 4”语句后， A的值为（） 。A、2 B、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、字符型

14、 D、字节型5、在 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、

15、系统集成9、在代码窗口内将表单Form1的“Caption ”属性设置为“时钟” , 正确的书写形式是( ) A、 aption “时钟” B、 =“时钟” C 、Caption= “时钟” D、 ( “时钟” ) 10、保存文件时，窗体的所有数据存储格式为（）。A 、 * PRG B 、 * FRM C 、 * VBP D、 * EXE11、窗体初始化程序应写在 ( ) 事件中。A、 Load B 、Unload C 、 Activate D、GotFocus 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - -

16、-第 5 页，共 12 页 - - - - - - - - - - 12、某一 VB工程含 F1、F2两个窗体，执行“ F1Show:F2 Hide”语句后， F1、F2窗体显示的结果为（） 。A、都显示 B 、都不显示C、仅显示 F1窗体 D、仅显示 F2 窗体13、VB的数据类型分为（）A、 数值型、字符型、布尔型、日期型B、数值型、字符型、对象型、日期型C、基本类型、扩展类型 D、整型、实型、字符型、日期型、布尔型14、VB中的变量如果没有显示声明其数据类型，则默认为（）A、日期型 B 、数据型 C 、字符型D、变体型15、在 VB中，通过改变表框（）属性的值，可以为列表框添加项目。A、

17、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-AND17、下面程序段运行时内层循环的循环总次数（） 。FOR X=1 TO 2 FOR Y=0 TO X-1 NEXT Y NEXT X A 、1 B、2 C、3 D、418、正确的算术表达式是（） 。A、 -3/8+5 B、 8 * 3 / 5 C、 (X+Y)*Z/30 D、 (X2+Y/3)*X319、若 A=2, B=3,

18、 C=4, 则值为真的关系式是（） 。A. 12/A+2=B2 B、32*B OR A=C AND BC OR ABC、 AB AND B C D 、 A*B C+3 20 、 当Long类 型 数 据 与Single类 型 运 算 时 , 运 算 结 果 的 类 型 为（） 。A、 Integer B 、 Long C、 Single D、 Double21、下面关于顺序文件的描述正确的是（） 。A. 每条记录长度必须相同B. 可通过编程对文件中的某条记录方便的修改。精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - -

19、 - -第 6 页，共 12 页 - - - - - - - - - - C. 数据只能以 ASCII 码形式存放在文件中，所以可通过文本编辑软件显示。D. 文件的组织结构复杂。22、下列（）不属于 VB的控件。A、窗体 B、数据 C、形状 D、直线23、下面（）是合法的变量名。A、X_YZ B、123+ABC C、 INTEGER D、 X-Y24、下面的程序段，输入9后，输出结果是（）。 X=inputbox(“输入一个数” ) Select case x Case 1 to 5 Y=-1 Case 5 to 10 Y=0 Case 10 to 15 Y=1 End select A、0

20、B、1 C、-1 D、225、下列说法中正确的是（） 。A、数组只具有数组名，而没有数组类型B、数组只具有数组类型，而没有数组名C 、数组的类型和数组元素的类型不同D 、数组和变量一样，都有名称和类型这两种属性26、创建公用数组的方法是（） 。A、在模块中用 Private语句声明 B、在模块中用 Public 语句声明C 、在过程中用 Private语句声明 D、在过程中用 Public 语句声明不是 B就是 D27、Visual Basic 中缺省的参数传递机制是（） 。A、传值 B、传地址C、传值和传地址 D、从实参到形参28、已知 A$= ”12345678”，则表达式Val(left

21、$(a$,4)+Mid$(a$,4,2)的值为（） 。A、 12345 B、123445 C、 8 D、 629、下面正确的赋值语句是（）A、x+y=30 B 、y= *r*r C、y=x+30 D 、3y=x 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 7 页，共 12 页 - - - - - - - - - - 30、要保留动态数组原有的内容，应当使用（）语句。 A 、Redim Preserve B、 Redim C 、Dim C、 Public不是 A就是 B二、填空题（每空2 分，共 20分

22、）1、下面的程序是求100 以内奇数和 s 的值（ S=1+3+5+7.+99 ） 。请在有（）的地方填上适当的语句或表达式。(8 分 )Private Sub Command1_Click()Dim s As SingleDim i As Singles=（0 ）For i=1 to 100 （step 2 ） S= （ s + i ）( next i )Print s End Sub2、在下列程序的（）内写上适当的内容，使能输出如下图形。* * * * * * * * * * * * * * * *程序如下：Private Sub Command1_Click()For i=1 to （

23、6 ）For j=1 to （ i-6）Print （ “*”）Next j（Print String(i, *)）Next iEnd Sub3、写出下列程序的执行结果Private Sub Form_Click() Dim a(1 To 10) As Integer Dim b(1 To 10) As Integer Dim c(1 To 10) As Integer精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 8 页，共 12 页 - - - - - - - - - - For i = 1 To 1

24、0 a(i) = i Next i b(1) = 10 For j = 9 To 1 Step -1 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 lEnd Sub结果：11 11 11 11 1111 11 11 11 11 4、在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_Click()=VB程序设计 End SubPrivate Sub

25、 Text1_Change()VB ProgrammingEnd 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精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - -

26、- - - - - -第 9 页，共 12 页 - - - - - - - - - - End Sub结果是： _155_ _。6、设有如下程序：Private Sub Form_Click()Dim a As Integer,s As Integern=8s=0Do s=s+nn=n-1Loop While n0Print sEnd Sub以上程序的功能是计算1 到 8 的累加。程序运行后，单击窗体，输出结果为 _36_。7、设有如下程序：用 Array 函数建立一个含有8 个元素的数组，然后查找并输出该数组中各元素的最小值。Option Base 1Private Sub Command1

27、_Click()Dim arr1Dim Min As Integer,i As Integerarr1=Array(12,435,76,-24,78,54,866,43)Min= arr1(1)For i=2 To 8If arr1(i)Min Then min=arr1(i)Next iPrint 最小值是： ; minEnd Sub8、在名称为 Form1 的窗体上画一个文本框，其名称为 Text1 ，在属性窗口中把该文本框的 MultiLine 属性设置为 True ，然后编写如下的事件过程：以下程序的功能是，把磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文

28、件。Private Sub Form_Click()Opend:testFor Input As #1Do While Not eof(1)精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 10 页，共 12 页 - - - - - - - - - - Line Input #1,aspect$whole$=whole$+aspect$+Chr$(13)+Chr$(10)Loop=whole$Close #1 Open d:testFor Output As #1Print #1,Close #1End S

29、ub三、程序设计题1、编写一个函数计算1*2* *n 的值，函数名为fact()Private Function fact(n As Integer) As IntegerDim i As IntegerDim r As Integerr = 1For i = 1 To n r = r * iNext ifact = rEnd FunctionEnd Sub2、编写一个过程 , 求成 1*2*3* *N 的值，过程名为NA 。3、 新建一个窗体，程序运行时，当用鼠标单击窗体任一地方， 程序弹出 Inputbox()函数输入框。当输完15 个整数后，程序把刚输入的15个整数分 3 行在窗体上显示

30、，每行 5 个整数。提问：（ 1）、应该对窗体的什么事件进行编程？（2）、编写程序代码，实现上述功能。应该对窗体的单击（ Click ）事件进行编辑Private Sub Command1_Click()Dim a(15), i As IntegerFor i = 1 To 15精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 11 页，共 12 页 - - - - - - - - - - a(i) = InputBox(请输入 15 个整数，单击确定按钮 ., , ) NextFor i = 1 To 1

31、5Print a(i); ;If i Mod 5 = 0 Then Print Next iEnd Sub4、已知三角形的三条边，编写一个函数求其面积，函数名自命名。Private Sub Command1_Click()Dim a, b, c, l, Sa = Val(InputBox(请输入第一条边的长： )b = Val(InputBox(请输入第二条边的长： )c = Val(InputBox(请输入第三条边的长： )l = (a + b + c) / 2If l = a Or l = b Or l = c ThenMsgBox 输入的数据不能组成三角形!Exit SubEnd IfS = Sqr(l * (l - a) * (l - b) * (l - c)Print SEnd Sub精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 12 页，共 12 页 - - - - - - - - - -