最新VB题库及答案

选择 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 （每题2分，共计60分） 最新VB题库及 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A A、Private Sub Text1_Change() Command1.Caption = "计算机等级考试" End Sub B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() Text1.Caption = "计算机等级考试" End Sub D、Private Sub Command1_Click() Text1.Text = "计算机等级考试" End Sub 2、在一行内写多条语句时，每个语句之间用（  B    ）符号分隔。 A、 ,   B、：   C、.   D、； 3、下面（A      ）是合法的变量名。 A、X_YZ   B、123ABC   C、INTEGER   D、X-Y 4、下面（  B    ）是合法的字符常量。 A、 ABC$   B、 “ABC”   C、 ‘ABC’   D、 ABC 5、 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式16/4 - 2^5*8 MOD 5\2的值为（    B  ）。 A、14   B、 4   C、20   D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 B 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 < b) Or (c > d), "A", "B")后，x的值为 D A、"a" B、"b" C、"B" D、"A" 8、在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click() x = InputBox("请输入一个整数") Print x + Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为 D A、123 B、456 C、579 D、123456 9、在BASIC中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从高到低的顺序是（    B  ）。 A、 AND->NOT->OR   B、 NOT->AND->OR C、 OR->NOT->AND   D、 NOT->OR->AND 10、下面程序段运行时内层循环的循环总次数（   C   ）。 FOR X=1 TO 2 FOR Y=1 TO X NEXT Y NEXT X A.、1 B、2 C、3 D、4 11、在VB中，复写框（Check）的Value值有三种，分别是（B ）。 A、-1，0，1 B、0，1，2 C、1，2，3 D、True，False，0 12、若要退出For循环，可使用的语句为（ D）。 A、Exit B、Exit Do C、Time D、Exit For 13、利用VB 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 程序的基本步骤可分四步： （1）设计用户界；（2）（A ）；（3）运行调试程序；（4）生成执行文件。 A、编写代码 B、设计算法 C、信息反馈 D、系统集成 14、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是(　B) A、Form1.Caption “时钟” B、Form1.Caption=“时钟” C、Caption=“时钟” D、Fopm1.Caption( “时钟”) 15、保存文件时，窗体的所有数据存储格式为(B ) A、 *．PRG B、 *．FRM C、*．VBP D、 *．EXE 16、在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒中在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Command1_Click() Timer1._______ End Sub Private Sub Timer1_Timer() Text1.Text = Time End Sub 在_A____处应填入的内容是 A、Enabled = True B、Enabled = False C、Visible = True D、Visible = False 17、把窗体的KeyPreview属性设置程为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“键，则在窗体上显示的内容是 C A、A B、B C、C D、D 18、VB中的变量如果没有显示声明其数据类型，则默认为（D ） A、日期型 B、数据型 C、字符型 D、变体型 19、在VB中，通过改变列表框（A ）属性的值 ，可以为列表框添加项目。 A、List B、（名称） C、Caption D 、Text 20、已知A$=”12345678”，则表达式Val(left$(a$,4)+Mid$(a$,4,2))的值为（B     ）。 A、12345   B、123445   C、8   D. 6 21、下面程序段显示的结果是（  A    ）。 Dim x If x then print x else print x+1 A、1 B、0 C.、-1   D、显示出错信息 22、用来测试指定文件结束状态的函数是（A） A、Eof B、FreeFile C、Loc   D、Open 23、当Long类型数据与Single类型运算时,运算结果的类型为（  C    ）。   A、Integer   B、Long   C、Single   D、Double 24、某一VB工程含F1、F2两个窗体，执行“F1．Show：F2．Hide”语句后，F1、F2窗体显示的结果为（C ）。 A、都显示 B、都不显示 C、仅显示F1窗体 D、仅显示F2窗体 25、数学关系3=〈 x〈10表示成正确的VB表达式为（ B） A、3〈=x〈10 B、3=〈x AND x〈10 C、x〉=3 OR x〈10 D、3〈=x AND〈10 26.在窗体上画一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j = 2 To 4 arr(i, j) = i * j Next j Next i Label1.Caption = Str(arr(2, 2) + arr(3, 3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是 B A、12 B、13 C、14 D、15 27.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是 D A、Private Sub List1_Click() Label1.Caption = List1.ListIndex End Sub B、Private Sub List1_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 Sub 28、设a=5，b=4，c=3，d=2，下列表达式的值是 B 3>2*b Or a=c And b<>c Or c>d A、1 B、True C、False D、2 30、下列操作不能打开代码窗口的是(D ) A、选中对象,单击鼠标右键,在弹出的快捷菜单中选择“查看代码”命令 B、选中对象,双击鼠标左键 C、按F7键 D、按F4键 第2部分 1、VB语言的语法规定，多条语句放在同一行中，语句之间用（B）分隔。 A、逗号 B、冒号 C、分号 D、单引号 2、在VB中，执行“A=18 MOD 4”语句后，A的值为（A ）。 A、2 B、4 C、6 D、8 3、A为True，B为False， 则 “A and B” 和 “ A Or B” 的值分别是（C ）。 A、True True B、True False C 、False True D 、False False 4、在VB中，执行 “Dim A,B As String” 语句后，A，B的数据结构为（C ）。 A、整型数 B、实型数 C、字符型 D、字节型 5、在VB中，执行 “A=123：B=Str$(A)”语句后，B的数据结构为（D ）。 A、整型数、 B、字节型 C、实型数 D、字符型 6、在VB中，复写框（Check）的Value值有三种，分别是（B ）。 A、-1，0，1 B、0，1，2 C、1，2，3 D、True，False，0 7、若要退出For循环，可使用的语句为（D ）。 A、Exit B、Exit Do C、Time D、Exit For 8、利用VB设计程序的基本步骤可分四步： （1） 设计用户界；（2）（A ）；（3）运行调试程序；（4）生成执行文件。 A、编写代码 B、设计算法 C、信息反馈 D、系统集成 9、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是(B　) A、Form.C aption“时钟” B、 Form.Caption=“时钟” C、Caption=“时钟” D、 Fopm.Caption( “时钟”) 10、保存文件时，窗体的所有数据存储格式为（B）。 A 、 *．PRG B 、 *．FRM C、 *．VBP D、 *．EXE 11、窗体初始化程序应写在( A)事件中。 A、 Load B 、Unload C、 Activate D、GotFocus 12、某一VB工程含F1、F2两个窗体，执行“F1．Show:F2．Hide”语句后，F1、F2窗体显示的结果为（C ）。 A、都显示 B、都不显示 C、仅显示F1窗体 D、仅显示 F2窗体 13、VB的数据类型分为（B ） A、 数值型、字符型、布尔型、日期型 B、数值型、字符型、对象型、日期型 C、基本类型、扩展类型 D、整型、实型、字符型、日期型、布尔型 14、VB中的变量如果没有显示声明其数据类型，则默认为（D ） A、日期型 B、数据型 C、字符型 D、变体型 15、在VB中，通过改变表框（A ）属性的值 ，可以为列表框添加项目。 A、List B、（名称） C、Caption D、 Text 16、在VB中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从高到低的顺序是（ B     ）。 　A、AND->NOT->OR   B、 NOT->AND->OR C、 OR->NOT->AND   D、 NOT->OR->AND 17、下面程序段运行时内层循环的循环总次数（C      ）。 FOR X=1 TO 2 　   FOR Y=0 TO X-1 　　 NEXT Y NEXT X 　 A、1   B、2   C、3 D、4 18、正确的算术表达式是（  C    ）。 A、 -3/8+5\INT24.6   B、 8 * 3 / 5   C、 [(X+Y)*Z]/30   D、 (X^2+Y/3)*X3 19、若A=2, B=3, C=4, 则值为真的关系式是（  A    ）。 A. 12/A+2=B^2     B、3>2*B OR A=C AND B>C OR A>B C、 A>B AND B<=C OR 3*A > C   D、 A*B > C+3 20、当Long类型数据与Single类型运算时,运算结果的类型为（ C     ） 。   A、 Integer   B、 Long   C、 Single   D、 Double 21、下面关于顺序文件的描述正确的是（  A    ）。 A. 每条记录长度必须相同 B. 可通过编程对文件中的某条记录方便的修改。 C. 数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示。 D. 文件的组织结构复杂。 22、下列（ A）不属于VB的控件。 A、窗体 B、数据 C、形状 D、直线 23、下面（ A     ）是合法的变量名。   A、X_YZ   B、123+ABC   C、 INTEGER   D、 X-Y 24、下面的程序段，输入9后，输出结果是（A）。 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 B、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中缺省的参数传递机制是（C）。 A、传值 B、传地址 C、传值和传地址 D、从实参到形参 28、已知A$=”12345678”，则表达式Val(left$(a$,4)+Mid$(a$,4,2))的值为（ B     ）。 A、 12345   B、123445   C、 8   D、 6 29、下面正确的赋值语句是（C ） A、x+y=30 B、y= *r*r C、y=x+30 D、3y=x 30、要保留动态数组原有的内容，应当使用（）语句。 A、Redim Preserve B、 Redim C、Dim C、 Public 不是A就是B 二、填空题（每空2分，共20分） 1、下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。请在有（）的地方填上适当的语句或表达式。(8分 ) Private Sub Command1_Click() Dim 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 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 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_Click() Text1.text="VB程序设计" End Sub Private Sub Text1_Change() Picture1.Print"VB 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 结果是：_______155_________。 6、设有如下程序： Private Sub Form_Click() Dim a As Integer,s As Integer n=8 s=0 Do s=s+n n=n-1 Loop While n>0 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 arr1=Array(12,435,76,-24,78,54,866,43) Min= arr1(1) For i=2 To 8 If arr1(i)