计算机二级VB填空题 (1)

所有填空题

1、VB是一种面向______的可视化编程语言，它采用______的编程机制。

答案： 1：对象

2：事件驱动

等级：1 难度：1

知识点：VB知识点/VB的编程环境

2、在VB集成开发环境中，运行应用程序的方法有两种：______或______。

答案： 1：编译运行模式#解释运行模式#编译运行#解释运行

2：解释运行模式#编译运行模式#解释运行#编译运行

等级：1 难度：1

知识点：VB知识点/VB的编程环境

3、VB的对象主要分为______和______两大类。

答案： 1：窗体#控件

2：控件#窗体

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

4、在VB中，用来描述一个对象的状态或特征的量称之为对象的______。

答案： 1：属性

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

5、一个对象响应某个事件后所执行的操作是通过一段程序代码来实现，这段程序代码称______。

答案： 1：事件过程

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

6、VB应用程序开发的一般步骤是创建_____________，设置_____________，编写_______________。

答案： 1：应用程序的界面#应用程序界面

2：控件的属性#控件属性

3：响应事件的代码#响应事件代码

等级：1 难度：1

知识点：VB知识点/VB应用程序设计的基本步骤

7、Visual Basic应用程序中标准模块文件的扩展名是______。

答案： 1：.bas#.Bas#.BAS#bas#Bas#BAS

等级：2 难度：2 知识点：VB知识点/VB的编程环境

8、如果要在单击命令按钮时执行一段代码，则应将这段代码写在______事件过程中。

答案： 1：click#Click#CLICK

等级：1 难度：1

知识点：VB知识点/简单控件设计

9、一个工程可以包括多种类型的文件，其中，扩展名为.vbp 的文件表示______文件；扩展名为.frm的文件表示______文件；扩展名为.bas的文件表示______文件；包含ActiveX控件的文件扩展名为______。

答案： 1：工程

2：窗体

3：标准模块

4：.OCX#.ocx#.Ocx#OCX#ocx#Ocx

等级：3 难度：3

知识点：VB知识点/VB的编程环境

10、Visual Basic的控件通常分为3种类型，即______、______、______。其中，______不能从工具箱中被删除，______单独保存在.OCX文件中，在必要进可以加入到工具箱中。

答案： 1：内部控件#ACTIVEX控件#可插入对象#标准控件#ActiveX控件

2：ACTIVEX控件#内部控件#可插入对象#标准控件#ActiveX控件

3：可插入对象#内部控件#ACTIVEX控件#标准控件#ActiveX控件

4：内部控件#标准控件

5：ACTIVEX控件#ActiveX控件#activeX控件

等级：3 难度：3

知识点：VB知识点/简单控件设计

11、为了选择多个控件，可以按住______键，然后单击每个控件。

答案： 1：Ctrl#CTRL#ctrl

等级：1 难度：1

知识点：VB知识点/简单控件设计

12、双击窗体的任何地方，可以打开______窗口。

答案： 1：代码

等级：1 难度：1

知识点：VB知识点/VB的编程环境

13、启动Visual Basic后，系统为用户新建的工程起一个名为

______的临时名称。

答案： 1：工程1#工程 1

等级：1 难度：1

知识点：VB知识点/VB的编程环境

14、Visual Basic集成环境的大部分窗口都可以从主菜单项的______下拉菜单中找到相应的打开命令。

答案： 1：视图

等级：1 难度：1

知识点：VB知识点/VB的编程环境

15、在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示______事件过程模板。

答案： 1：Form_Load#form_load#FORM_LOAD#Form

_Load#Form _ Load#Form _ Load

等级：1 难度：1

知识点：VB知识点/简单控件设计

16、每建立一个窗体，工程管理器窗口中就会增加一个______文件。

答案： 1：窗体

等级：2 难度：2

知识点：VB知识点/VB的工程管理和环境设置

17、要运行Visual Basic应用程序，可按______快捷键。

答案： 1：F5#f5

等级：1 难度：1

知识点：VB知识点/VB应用程序设计的基本步骤

18、当进入VB集成环境时，若没有发现"属性窗口"，应选择______菜单的______选项。使属性窗口显示。

答案： 1：视图

2：属性窗口

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

19、在代码调试中常见的错误类型有______、运行错误和______。

答案： 1：编译错误#逻辑错误

2：逻辑错误#编译错误

等级：3 难度：3

知识点：VB知识点/VB的工程管理和环境设置20、窗体的常用方法有：______、______、______等。

答案： 1：Print方法#Cls方法#Move方法#print方法#cls 方法#move方法

#Print#Cls#Move#print#cls#move#PRINT#CLS#MOVE#PRINT方法#CLS方法#MOVE方法

2：Print方法#Cls方法#Move方法#print方法#cls 方法#move方法

#Print#Cls#Move#print#cls#move#PRINT#CLS#MOVE#PRINT方法#CLS方法#MOVE方法

3：Print方法#Cls方法#Move方法#print方法#cls 方法#move方法

#Print#Cls#Move#print#cls#move#PRINT#CLS#MOVE#PRINT方法#CLS方法#MOVE方法

等级：1 难度：1

知识点：VB知识点/简单控件设计

21、文本框常用的获得焦点的方法是______。

答案： 1：SetFocus方法#setfocud方法#SETFOCUS方法

#SetFocus#setfocud#SETFOCUS

等级：2 难度：2

知识点：VB知识点/控件的基本知识

22、在窗体上打印"大家都来学用Visual Basic"，代码是______。

答案： 1：print "大家都来学用Visual Basic"#Print "大家都来学用Visual Basic"#PRINT "大家都来学用Visual Basic"

等级：1 难度：1

知识点：VB知识点/简单控件设计

23、清除窗体或控件对象上的信息用______方法。

答案： 1：Cls#cls#CLS

等级：2 难度：2

知识点：VB知识点/简单控件设计

24、VB有3种工作模式：______、______和______。

答案： 1：设计模式#运行模式#中断模式#设计#运行#中断#设计工作模式#运行工作模式#中断工作模式

2：设计模式#运行模式#中断模式#设计#运行#中断#设计工作模式#运行工作模式#中断工作模式

3：设计模式#运行模式#中断模式#设计#运行#中断#设计工作模式#运行工作模式#中断工作模式

等级：1 难度：1

知识点：VB知识点/VB的编程环境

25、变量名最长可达______个字符。

答案： 1：225#二五五#二百五十五

等级：1 难度：1

知识点：VB知识点/常量与变量

26、整数类型数据分别包括整型、________和________数据。

答案： 1：长整型#字节型

2：字节型#长整型

等级：1 难度：1

知识点：VB知识点/基本数据类型

27、在For循环中，循环次数由循环变量的__________、__________和___________决定

答案： 1：初值#终值#步长

2：终值#初值#步长

3：步长#初值#终值

等级：1 难度：1

知识点：VB知识点/循环结构

28、在程序中调用子过程需要指明______，然后列出该子过程

所要求的参数。

答案： 1：该过程的名称#该过程名称#过程的名称#过程名称#该子过程的名称#该子过程名称#子过程的名称#子过程名称

等级：1 难度：1

知识点：VB知识点/函数过程

29、在窗体上画一个命令按钮，然后编写如下事件过程，该过程的功能是用简单选择排序法将10个数排成升序，请在______处将程序补充完整。

Private Sub Command1 _ Click()

Dim a(10)

For i=1 To 10

a(i)=Val(InputBox(″″,″″,0))

Next i

For i=______

For j=______

If ______ Then

b=a(i)

a(i)=a(j)

a(j)=b

End If Next j

Next i

For k=1 To 10

Print a(k)

Next k

End Sub

答案： 1：1 to 9

2：i+1 to 10

3：a(i)>a(j)#a(j)

等级：3 难度：3

知识点：VB知识点/数组应用举例

30、执行下面的语句后，所产生的信息框的标题是______。a=MsgBox(″AAAA″,5,″BBBB″)

答案： 1：BBBB

等级：2 难度：2

知识点：VB知识点/顺序结构

31、下面程序运行后，输出的结果是______。

For J= 1 To 10

A(J)=2*J

B(J)=A(J)*2

Next J

Print B(J/2+0.1)

End

答案： 1：24

等级：3 难度：3

知识点：VB知识点/循环结构

32、Visual Basic提供的对数据文件的三种访问方式为随机访问方式、___________和二进制访问方式。

答案： 1：顺序访问#顺序访问方式

等级：3 难度：3

知识点：VB知识点/顺序文件的访问

33、计算1*2*3*...*3000，当积大于3000时停止计算。请在______处将程序补充完整。

Private Sub FormClick()

Dim t As Single,j As Integer

J=1

For j=1 To 3000

______

If t＞3000 Then Exit For

Next j

Print j,t

End Sub

答案： 1：t=t*j

等级：3 难度：3

知识点：VB知识点/控制结构应用程序举例

34、表达式5 Mod 3＋9\4/2的值是______。

答案： 1：6

等级：2 难度：2

知识点：VB知识点/运算符及表达式

35、语句Form1.Print "10" & 20的输出结果是______。

答案： 1：1020

等级：1 难度：1

知识点：VB知识点/运算符及表达式

36、若声明了一个整型变量而没有赋值，系统默认该变量的值是______。

答案： 1：0

等级：1 难度：1

知识点：VB知识点/常量与变量

37、语句Print Int(123.4567*100＋0.5)/100的输出结果是______。

答案： 1：123.46

等级：2 难度：2

知识点：VB知识点/运算符及表达式

38、在Visual Basic中，由系统设定、能被对象识别和响应的动作称为______。

答案： 1：事件

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

39、程序运行过程中，清除P1图片框中的图像应使用语句______。

答案： 1：

P1.LoadPicture()#P1.LOADPICTURE()#p1.loadpicture()#P1 .LoadPicture( )#P1.LOADPICTURE( )#p1.loadpicture( )#P 1.LoadPicture("")#P1.LOADPICTURE("")#p1.loadpicture(" ")#P1.LoadPicture("" )#P1.LOADPICTURE("" )#p1.loadpic ture("" ) 等级：2 难度：2

知识点：VB知识点/图形控件

40、控件的______属性是对象的名字，其值在程序运行中只能被引用，不能被修改。

答案： 1：Name#name#NAME#名称

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

41、时钟控件的______属性决定该控件是否响应Timer事件。

答案： 1：Enabled#enabled#ENABLED

等级：2 难度：2

知识点：VB知识点/时钟控件

42、如果列表框的ListCount属性为10，则列表框最后一项的ListIndex值为______。

答案： 1：9

等级：1 难度：2

知识点：VB知识点/列表框和组合框

43、要使某个命令按钮不起作用，应将该按钮的______属性设置为False。

答案： 1：Enabled#enabled#ENABLED

等级：1 难度：1

知识点：VB知识点/控件的基本知识

44、要将焦点移至指定的控件，可使用______方法。

答案： 1：SetFocus#setfocus#SETFOCUS

等级：3 难度：3

知识点：VB知识点/控件的基本知识

45、如果要求定时器Timer事件间隔为2秒，其Interval属性应设置为______。

答案： 1：2000

等级：1 难度：1

知识点：VB知识点/时钟控件

46、复选框的______属性决定复选框是否被选中。

答案： 1：Value#value#VALUE

等级：1 难度：1

知识点：VB知识点/单选按钮和复选框

47、VB的控件分为______、ActiveX控件和可插入对象。

答案： 1：内部控件#标准控件

等级：1 难度：1

知识点：VB知识点/控件的基本知识

48、VB的控件分为标准控件、______和可插入对象。

答案： 1：ActiveX控件#activex控件#ACTIVEX控件

等级：3 难度：3

知识点：VB知识点/控件的基本知识

49、VB的控件分为标准控件、ActiveX控件和______。

答案： 1：可插入对象#插入对象

等级：3 难度：3

知识点：VB知识点/控件的基本知识

50、写出图片框控件的缺省英文名称______。

答案： 1：PictureBox#picturebox#PICTUREBOX

等级：2 难度：2

知识点：VB知识点/图形控件

51、写出单选按钮控件的缺省英文名称______。

答案： 1：OptionButton#optionbutton#OPTIONBUTTON 等级：1 难度：1

知识点：VB知识点/控件的基本知识

52、写出组合框控件的缺省英文名称______。

答案： 1：ComboBox#combobox#COMBOBOX

等级：1 难度：1

知识点：VB知识点/列表框和组合框

53、写出文本框控件的缺省英文名称______。答案： 1：TextBox#textbox#TEXTBOX

等级：1 难度：1

知识点：VB知识点/控件的基本知识

54、写出窗体的缺省英文名称______。

答案： 1：Form#form#FORM

等级：1 难度：1

知识点：VB知识点/控件的基本知识

55、将______属性设置为1，单选按钮和复选框以图形方式显示。

答案： 1：Style#style#STYLE

等级：2 难度：2

知识点：VB知识点/单选按钮和复选框

56、常用的容器控件有：窗体、图片框和______。

答案： 1：框架

等级：1 难度：1

知识点：VB知识点/框架Frame控件

57、常用的容器控件有：框架、图片框和______。

答案： 1：窗体

等级：1 难度：1

知识点：VB知识点/框架Frame控件

58、常用的容器控件有：框架、窗体和______。

答案： 1：图片框

等级：1 难度：1

知识点：VB知识点/框架Frame控件

59、列表框中项目的序号是从______开始的。

答案： 1：0

等级：1 难度：1

知识点：VB知识点/列表框和组合框

60、对于列表框List1来说，_____________表示列表框中最后一项序号（用listcount属性表示）。

答案： 1：

list1.listcount-1#List1.Listcount-1#lIST1.lISTCOUNT-1 等级：3 难度：3

知识点：VB知识点/列表框和组合框

61、______方法可清除列表框的所有内容。

答案： 1：clear#Clear#CLEAR

等级：3 难度：3

知识点：VB知识点/列表框和组合框

62、如果要每隔15秒触发一次计时器Timer事件，则Interval 属性应设置为______。

答案： 1：15000

等级：1 难度：1

知识点：VB知识点/时钟控件

63、在3种不同风格的组合框中，用户不能输入数据的组合框是______。

答案： 1：下拉列表框

等级：3 难度：3

知识点：VB知识点/列表框和组合框

64、组合框有3种不同的风格，用户通过______属性可进行设置。

答案： 1：Style#style#STYLE

等级：3 难度：3

知识点：VB知识点/列表框和组合框

65、组合框是文本框和______控件的组合。

答案： 1：列表框

等级：1 难度：1

知识点：VB知识点/列表框和组合框

66、组合框是列表框和______控件的组合。

答案： 1：文本框

等级：1 难度：1

知识点：VB知识点/列表框和组合框

67、窗体和其他控件的Name属性只能在______设置。答案： 1：设计状态#设计状态时#设计的状态#设计的状态时

等级：1 难度：1

知识点：VB知识点/控件的基本知识

68、将数学表达式1≤x≤9用VB逻辑表达式表示应该是______。

答案： 1：x>=1 And x<=9#x>=1 and x<=9#x <= 9 And x >= 1#x <= 9 and x >= 1

等级：1 难度：1

知识点：VB知识点/运算符及表达式

69、下面这段程序执行后，共执行了______次循环体，循环结

束后i的值是______。

For i＝1 To 5

y＝i

Next i

答案： 1：5#五

2：6

等级：2 难度：2

知识点：VB知识点/循环结构

70、在VB中，参数传递有值传递和______两种方式。

答案： 1：地址传递

等级：1 难度：1

知识点：VB知识点/参数的传递

71、设有如下程序:

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 = ______

For i = 2 To 8

If arr1(i) < Min Then ______

Next i

Print "最小值是:"; Min

End Sub

以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请填空。

答案： 1：arr1(1)#12

2：min=arr1(i)#Min=arr1(i)

等级：3 难度：3

知识点：VB知识点/综合应用程序举例

72、语句Option Base n定义数组下标下界时，n可以是______或______。

答案： 1：0#1

2：0#1

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

73、语句Option Base n用来定义数组下标的______界。

答案： 1：下界#下

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

74、数组下标的上界和下界可以是任何______常量或常量表达式。

答案： 1：整型

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

75、语句Dim aa(－1 to 1，－2 to 1)定义了有______个元素的二维数组。

答案： 1：12#十二#一十二#一二

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

76、语句Dim aa(－1 to 1，－2 to 1)定义的二维数组下标下界分别是______和______。

答案： 1：-1

2：-2

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

77、如果a(－1 to 2)，则函数LBound(a)的返回值是______。

答案： 1：-1

等级：1 难度：1

知识点：VB知识点/常用内部函数

78、如果a(－1 to 2)，则函数UBound(a)的返回值是______。答案： 1：2

等级：1 难度：1

知识点：VB知识点/常用内部函数

79、根据需要，用______语句可以确定动态数组的大小。

答案： 1：ReDim#redim#REDIM

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

80、Private Sub Command1_Click()

Dim aa As Variant

aa=Array(1,2,3,4)

End Sub

上面程序运行后，输出aa(1)的结果是______。

答案： 1：2

等级：2 难度：2

知识点：VB知识点/数组的基本操作

81、Private Sub Command1_Click()

Dim aa

aa=Array("一", "二", "三", "四")

For i=0 to 3

aa(i)=aa(i) +"公司"

Next i

End Sub

上面程序运行后，输出aa(1)的结果是______。

答案： 1：二公司

等级：1 难度：1

知识点：VB知识点/数组的基本操作

82、Private Sub Command1_Click()

Dim aa

aa=Array("一", "二", "三", "四")

For i=0 to 3

aa(i)=aa(i) +"小组"

Next i

End Sub

上面程序运行后，输出aa(2)的结果是______。

答案： 1：三小组

等级：1 难度：1

知识点：VB知识点/数组的基本操作

83、Private Sub Command1_Click()

Dim aa(4) as Integer

For i=0 to 3

aa(i)=aa(i) +2

Next i

End Sub

上面程序运行后，输出aa(1)的结果是______。

答案： 1：2

等级：2 难度：2

知识点：VB知识点/数组的基本操作

84、Private Sub Command1_Click()

Dim aa(4) as Integer

For i=0 to 3

aa(i)=aa(i) +4

Next i

End Sub

上面程序运行后，输出aa(2)的结果是______。

答案： 1：4

等级：2 难度：2

知识点：VB知识点/数组应用举例

85、Private Sub Command1_Click()

Dim aa(4) as Integer

For i=0 to 3

aa(i)= i

Next i

End Sub

上面程序运行后，输出aa(1)的结果是______。

答案： 1：1

等级：1 难度：1

知识点：VB知识点/数组的基本操作

86、Private Sub Command1_Click()

Dim aa(4) as Integer

For i=1 to 4

aa(i)= i+1

Next i

End Sub

上面程序运行后，输出aa(1)的结果是______。

答案： 1：2

等级：1 难度：1

知识点：VB知识点/数组的基本操作

87、Private Sub Command1_Click()

Dim aa(4) as Integer

For i=1 to 4

aa(i)= i+1

Next i End Sub

上面程序运行后，输出aa(2)的结果是______。

答案： 1：3

等级：2 难度：2

知识点：VB知识点/数组的基本操作

88、Private Sub Command1_Click()

Dim w(4) as integer

Dim y() as integer

For i=0 to 4

w(i)= i+2

Next i

y=w

End Sub

上面程序运行后，输出y(1)的结果是______。

答案： 1：3

等级：2 难度：2

知识点：VB知识点/静态数组与动态数组

89、Private Sub Command1_Click()

Dim w(4) as integer

Dim y() as integer

For i=0 to 4

w(i)= 2 * i

Next i

y=w

End Sub

上面程序运行后，输出y(1)的结果是______。

答案： 1：2

等级：2 难度：2

知识点：VB知识点/静态数组与动态数组

90、Private Sub Command1_Click()

Dim w(4) as integer

Dim y() as integer

For i=0 to 4

w(i)= 3 * i

Next i

y=w

End Sub

上面程序运行后，输出y(2)的结果是______。

答案： 1：6

等级：2 难度：2

知识点：VB知识点/静态数组与动态数组

91、Private Sub Command1_Click()

Dim w(4) as integer

Dim y() as integer

For i=0 to 4

w(i)= w(i) + 3

Next i

y=w

End Sub

上面程序运行后，输出y(1)的结果是______。

答案： 1：3

等级：2 难度：2

知识点：VB知识点/静态数组与动态数组

92、Option Base 1

Private Sub Command1_Click()

Dim c(4) as integer

Dim meb as Variant

For i=1 to 4

c(i)= i*2 + 1

Next i

For Each meb in c

Print meb；

Next meb

End Sub

上面程序输出结果是______。

答案： 1：3 5 7 9#3579

等级：3 难度：3

知识点：VB知识点/数组应用举例

93、Option Base 1

Private Sub Command1_Click()

Dim c(4) as integer

Dim meb as Variant

For i=1 to 4

c(i)= i*2 + 1

Next i

For Each meb in c

Print meb；

Next meb

End Sub

上面程序输出的第2个数是______。

答案： 1：5

等级：3 难度：3

知识点：VB知识点/数组应用举例

94、Private Sub Command1_Click()

Dim c(4) as integer

Dim meb as Variant For i=1 to 4

c(i)= i*2 + 1

Next i

For Each meb in c

Print meb；

Next meb

End Sub

默认情况下上面程序输出的第2个数是______。

答案： 1：3

等级：3 难度：3

知识点：VB知识点/数组应用举例

95、Option Base 1

Private Sub Command1_Click()

Dim s(3) as integer

Dim m as Variant

For i=1 to 3

s(i)= i*2 - 1

Next i

For Each m in s

Print m；

Next m

End Sub

上面程序输出结果是______。

答案： 1：1 3 5#135

等级：3 难度：3

知识点：VB知识点/数组应用举例

96、控件数组中以______属性来区分各个元素。答案： 1：Index#index#INDEX

等级：2 难度：2

知识点：VB知识点/控件数组

97、控件数组中第一个元素的Index值是______。

答案： 1：0

等级：2 难度：2

知识点：VB知识点/控件数组

98、某个控件的Index值默认情况是______。

答案： 1：空值#空

等级：2 难度：2

知识点：VB知识点/控件的基本知识

99、可以通过修改控件数组中控件的______值改变其在数组中的顺序。

答案： 1：Index#index#INDEX

等级：2 难度：2

知识点：VB知识点/控件数组

100、控件数组除了在界面设计时建立外还可以在程序______时建立。

答案： 1：运行

等级：3 难度：3

知识点：VB知识点/控件数组

101、在程序运行时用______语句可以添加控件数组元素。

答案： 1：Load#load#LOAD

等级：3 难度：3

知识点：VB知识点/控件数组

102、在程序运行时用______语句可以删除控件数组元素。

答案： 1：UnLoad#unLoad#UNLOAD

等级：3 难度：3

知识点：VB知识点/控件数组

103、假设窗体上有一个命令按钮的控件数组和一个标签，有如下代码：

Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0

Label1.BackColor= VbRed

Case 1

Label1.BackColor= VbGreen

Case 2

Label1.BackColor= VbBlue

End Select

End Sub

程序运行时单击第一个命令按扭,Label1的背景色是______色。

答案： 1：红#Red#red#RED

等级：1 难度：1

知识点：VB知识点/分支(选择)结构

104、假设窗体上有一个命令按钮的控件数组和一个标签，有如下代码：

Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0 Label1.BackColor= VbRed

Case 1

Label1.BackColor= VbGreen

Case 2

Label1.BackColor= VbBlue

End Select

End Sub

程序运行时单击第二个命令按扭,Label1的背景色是______色。

答案： 1：绿#green#Green#GREEN

等级：1 难度：1

知识点：VB知识点/分支(选择)结构

105、假设窗体上有一个命令按钮的控件数组和一个标签，有如下代码：

Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0

Label1.BackColor= VbRed

Case 1

Label1.BackColor= VbGreen

Case 2

Label1.BackColor= VbBlue

End Select

End Sub

程序运行时单击第三个命令按扭, Label1的背景色是______色。

答案： 1：蓝#兰#BULE#Blue#blue

等级：1 难度：1

知识点：VB知识点/分支(选择)结构

106、Private Sub Command1_Click()

Dim i as integer， j as integer

Dim a(5,5) as integer

For i=1 to 3

For j=1 to 3

a(i,j) = i*2 + j

Print a(i,j)

Next j

Print

Next i

End Sub

上面程序运行后的第2行第1列的数是______。

答案： 1：5

等级：3 难度：3

知识点：VB知识点/控制结构应用程序举例

107、Private Sub Command1_Click()

Dim i as integer， j as integer

Dim a(5,5) as integer

For i=1 to 3

For j=1 to 3

a(i,j) = i*2 + j

Print a(i,j)

Next j

Print

Next i

End Sub

上面程序运行后的a(3,2)的值是______。

答案： 1：8

等级：3 难度：3

知识点：VB知识点/数组应用举例

108、控件数组的名字由 Name 属性指定，而数组中的每个元素由______属性指定。

答案： 1：Index#index#INDEX

等级：1 难度：1

知识点：VB知识点/控件数组

109、由Array函数建立的数组必须是______类型。

答案： 1：Variant#variant#VARIANT#变体#可变

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

110、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：

Private Sub Command1_Click()

Dim n() As Integer

Dim a,b As Integer

a = InputBox("Enter the first number")

b = InputBox("Enter the second number")

ReDim n(a To b)

For k = LBound(n,1) To UBound(n,1)

n(k) = k

Print "n("; k; ") = "; n(k)

Next k

End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为

n (2) = ______

n (3) = ______

答案： 1：2

2：3

等级：3 难度：3

知识点：VB知识点/数组应用举例111、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：

Private Sub Command1_Click()

Dim a(5)

For i=0 To 4

a(i) = i + 1

t=i+1

If t = 3 Then

Print a(i);

a(t - 1) = a(i - 2)

Else

a(t) = a(i)

End If

If i = 3 Then a(i + 1) = a(t - 4)

a(4) = 1

Print a(i);

Next i

End Sub

程序运行后，单击命令按钮，输出结果是______。

答案： 1：1 2 3 1 4 1#123141

等级：3 难度：3

知识点：VB知识点/数组应用举例

112、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：

Private Sub Command1_Click()

Dim M(10) As Integer

For k= 1 To 10

M(k) = 12 - k

Next k

x=6

Print M(2 + M(x))

End Sub

程序运行后，单击命令按钮，输出结果是______。

答案： 1：4

等级：2 难度：2

知识点：VB知识点/数组应用举例

113、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：

Private Sub Command1_Click()

Dim a(5, 5)

For i = 1 To 3

For j = 1 To 4

a(i, j) = i * j

Next j

Next i

For n= 1 To 2

For M = 1 To 3

Print a(M, n);

Next M

Next n

End Sub

程序运行后，单击命令按钮，输出结果是______。

答案： 1：1 2 3 2 4 6#123246

等级：3 难度：3

知识点：VB知识点/数组应用举例

114、设有程序：

Option Base 1

Private Sub Command1_Chick()

Dim arr1, Max as Integer

arrl=Array(12,435,76,24,78,54,866,43)

______=arrl(1)

For i=1 To 8

If arrl(i)> Max Then ______

Next i

Print "最大值是:";Max

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

答案： 1：Max

2：Max=arr1(i)

等级：3 难度：3

知识点：VB知识点/数组应用举例

115、在窗体上画一个名称为"Command1"，标题为"计算"的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为"计算结果"。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击"计算"按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。

Private Sub Command1_Click()

Sum = 0

For i = 0 To 4

Sum = Sum + ______

Next

______= Sum

End Sub

答案： 1：

Label1(i).Caption#label1(i).caption#Label1(i)#label1( i)

2：

Label2.Caption#label2.caption#Label2#label2

等级：3 难度：3

知识点：VB知识点/控件数组116、由下列语句定义的数组占用______字节的内存空间。Dim a(10) As single

答案： 1：44#44个#四十四#四十四个#四四

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

117、有如下程序段：

j=1

n=0

Do While n<3

j=j * (j+1)

n=n+1

Loop

运行后，输出n和j的结果是_____和______。

答案： 1：3

2：42

等级：2 难度：2

知识点：VB知识点/循环结构

118、有如下程序：

Private Sub Form_Load()

Dim arr1(10, 10) As Integer

Dim i, j As Integer

For i = 1 To 3

For j = 2 To 4

arr1(i, j) = i + j

Next j

Next i

Text1.Text = arr1(2, 3) + arr1(3, 4)

End Sub

程序运行后，单击窗体，在文本框显示的值是______。

答案： 1：12

等级：3 难度：3

知识点：VB知识点/数组应用举例

119、以下程序段的运行结果是______。

Private Sub command1_Click()

Const n = 4

Dim xx(n) As Integer

For i = 1 To n

xx(i) = i * 2

Print xx(i);

Next i

End Sub

答案： 1：2 4 6 8#2468

等级：3 难度：3

知识点：VB知识点/数组应用举例

120、阅读程序：

Sub subp(b() As Integer)

For i = 1 To 4

b(i) = 2 * i

Next i

End Sub

Private Sub Command1_Click()

Dim a(1 To 4) As Integer

a(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8

subp a

For i = 1 To 4

Print a(i);

Next i

End Sub

程序运行时，单击命令按钮得到的结果是______。

答案： 1：2 4 6 8#2468

等级：3 难度：3

知识点：VB知识点/过程应用案例

121、下列语句Dim a(3 ，-2 to 2，5)声明的数组a包含的元素个数有______个。

答案： 1：120#一百二十#一二零

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

122、下面程序运行后，输出sum的结果是______。

Private Sub Form_Click()

Dim ary(1 To 4) As Integer

Dim i As Integer

Dim sum As Integer

sum = 1

For i = 1 To 4

ary(i) = i

sum = sum + ary(i)

Next i

End Sub

答案： 1：11

等级：3 难度：3

知识点：VB知识点/数组应用举例

123、在窗体上添加一个命令按钮Command1，然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

d = 0: c = 10

x = Array(10, 12, 21, 32, 24)

For i = 1 To 5

If x(i) > c Then d = d + x(i)

c = x(i)

Else

d = d - c

End If

Next i

Print d

End Sub

程序运行后，单击命令按钮，输出d的结果是______。

答案： 1：23

等级：3 难度：3

知识点：VB知识点/数组应用举例

124、在窗体上画一个命令按钮Command1，然后编写如下代码：Private Sub Command1_Click()

Dim n(2 to 4) As Integer

For k = LBound(n) To UBound(n)

n(k) = k

Print n(k);

Next k

End Sub

程序运行后，单击命令按钮，输出结果是______。

答案： 1：2 3 4#234

等级：2 难度：2

知识点：VB知识点/数组应用举例

125、在窗体上画一个命令按钮Command1，然后编写如下代码：Private Sub Command1_Click()

Dim a,s

a = Array(1, 2, 3, 4)

For i = 3 To 0 Step -1

s = s + Trim(Str(a(i)))

Next i

End Sub

程序运行后，单击命令按钮，输出s的结果是______。

答案： 1：4321

等级：3 难度：3

知识点：VB知识点/数组应用举例

126、以下程序运行的结果是______。

Option Base 0

Private Sub Form_Click()

Dim a

Dim i As Integer

a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)

For i = 0 To 3

Print a(5 - i);

Next i

End Sub

答案： 1：6 5 4 3#6543

等级：3 难度：3

知识点：VB知识点/数组应用举例

127、用语句 Dim A(-3 to 5) As Long 定义的数组元素个数是______。

答案： 1：9#九#9个#九个

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

128、为窗体添加按钮Command1，编写如下代码：

Option Base 1

Private Sub Command1_Click()

Dim Arr

Arr = Array(43, 68, -25, 65,-78,12,-79,43,-94,72) pos=0

neg=0

For k = 1 To 10

If Arr(k)>0 Then

______

Else

______

End If

Next k

Print pos,neg

End Sub

以上程序计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。

答案： 1：pos=pos+Arr(k)

2：neg=neg+Arr(k)

等级：3 难度：3

知识点：VB知识点/数组应用举例

129、用语句 Dim A (3) as Integer，定义的数组元素个数是______。

答案： 1：4#4个#四#四个

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

130、下列程序段的执行后，x(3,4)的结果为______。

Dim x(3,5)

For i=1 to 3

For j=1 to 5

x(i,j)=i+j Next j

Next i

答案： 1：7

等级：2 难度：2

知识点：VB知识点/数组应用举例

131、如果在模块的声明段中有Option Base 1语句，则在该模块中使用Dim a(3 To 5,6)声明的数组有______个元素。

答案： 1：18#十八#一十八#一八

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

132、如果在模块的声明段中有Option Base 0语句，则在该模块中使用Dim a(6, 3 To 5)声明的数组有______个元素。

答案： 1：21#二十一#二一

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

133、表达式Str(Len("-12.34"))的值是______。

答案： 1：6

等级：1 难度：1

知识点：VB知识点/常用内部函数

134、有赋值语句a=Array(1,2,3,4,5)，则Ubound(a)的值为______。

答案： 1：4

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

135、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()

Dim a(5) As String

For i =1 To 5

a(i)=Chr(Asc("A")+(i-1))

Next i

For Each b In a

Print b

Next

End Sub

程序运行后，单击命令按钮，输出结果是______。

答案： 1：ABCDE

等级：2 难度：2

知识点：VB知识点/数组应用举例

136、下面过程用于用动态数组的形式存储并打印数列1，1，2，3，5，8，13，21……的前20项，填写缺失的代码：

Private Sub Command1_Click()

Dim ______

ReDim f(1 To 20)

Dim i As Integer

f(1) = 1

f(2) = 1

For i = 3 To 20

______

Next

For i = 1 To 20

Print f(i)；

Next

End Sub

答案： 1：f() As Integer#f%()

2：f(i)=f(i-1)+f(i-2)

等级：3 难度：3

知识点：VB知识点/数组应用举例

137、Command1第2次单击后的输出结果是______。

Private Sub Command1_Click()

Static k(2) As Integer

For i =1 To 2

k(i)=k(i-1)+10

Next i

k(0)=k(2)

Print k(2)

End Sub

答案： 1：40

等级：2 难度：2

知识点：VB知识点/静态数组与动态数组

138、以下程序代码将整型动态数组X声明为具有20个元素的数组,并给数组的所有元素赋值1。

Dim X() As Integer

Private Sub Command1_Click()

ReDim ______

For I=1 To ______

X(I)=1

Print X(I)

Next I

End Sub

答案： 1：X(1 To 20)#X(1 to 20)

2：20

等级：3 难度：3

知识点：VB知识点/静态数组与动态数组139、下面这段程序是求1～10的自然数之和，请填空。

sum＝0

For i＝1 To 10

sum＝sum+______

Next i

Print "sum＝";sum

答案： 1：i

等级：2 难度：2

知识点：VB知识点/循环结构

140、VB的对象主要分为窗体和______两大类。

答案： 1：控件

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

141、有如下事件过程，单击命令按钮后，输出t的结果为______。

Private Sub Command1_Click()

Dim b%(1 To 4) , j%, t#

For j=1 To 4

b(j) =j

Next j

t=Tax(b() )

End Sub

Function Tax (a() As Integer)

Dim t#, i%

t=1

For i=2 To UBound(A)

t=t * a(i)

Next i

Tax=t

End Function

答案： 1：24

等级：3 难度：3

知识点：VB知识点/过程应用案例

142、下面程序利用Array建立一个数组，并查找输出该数组的最小值，请在空白处填入相应的代码：

Option Base 1

Private Sub Command1_Click()

Dim arr1

Dim Min As Integer,i As Integer

arr1 = Array(43, 68, -25, 65,-78,12,-79,43) Min=______

For i = 2 To 8

If arr1(i)

Next i

Print "最小值是："；Min

End Sub

答案： 1：arr1(1)

2：Min=arr1(i)

等级：3 难度：3

知识点：VB知识点/数组应用举例

143、VB的赋值语句既可以给变量赋值，也可给对象的______赋值。

答案： 1：属性

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

144、在过程内用______声明的变量为静态变量，在执行一个过程结束时，过程中所用到的静态变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。

答案： 1：static#Static#STATIC

等级：1 难度：1

知识点：VB知识点/变量与过程的作用域

145、在模块文件中的声明部分用Global或______关键字声明的变量为全局变量。

答案： 1：Public#public#PUBLIC

等级：1 难度：1

知识点：VB知识点/变量与过程的作用域

146、在模块文件中的声明部分用Dim或_____定义的变量为局部变量。

答案： 1：Private#private#PRIVATE

等级：1 难度：1

知识点：VB知识点/变量与过程的作用域

147、标准模块存盘后，形成的磁盘文件扩展名是______。

答案： 1：.bas#.Bas#.BAS#bas#Bas#BAS

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

148、窗体模块存盘后，形成的磁盘文件扩展名是______。答案： 1：.frm#.Frm#.FRM#frm#Frm#FRM

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

149、在窗体上画一个名称为Command1的命令按钮，并编写如下程序：

Private Sub Command1_Click()

Dim x As Integer

Static y As Integer

x=10

y=5

Call f1(x,y)

Print x,y

End Sub

Private Sub f1(ByRef x1 As Integer,y1 As Integer) x1= x1+2

y1= y1+2

End Sub

程序运行后，单击命令按钮后，在窗体上显示的内容是______。

答案： 1：12 7#127

等级：3 难度：3

知识点：VB知识点/过程应用案例

150、若调用过程时，采用值传递方式，则应在形参说明前添加关键字______。

答案： 1：ByVal#byval#BYVAL

等级：1 难度：1

知识点：VB知识点/参数的传递

151、若要编写一些全局性的Sub子过程，也就是说能从多个窗体中访问这些过程，应将它们放在______模块中。

答案： 1：标准模块

等级：2 难度：2

知识点：VB知识点/Sub过程

152、通用过程分为两类：函数过程和______过程。

答案： 1：子程序#子#sub#SUB#Sub

等级：1 难度：1

知识点：VB知识点/Sub过程

153、以保留字______开始的是函数过程。

答案： 1：Function#function#FUNCTION

等级：1 难度：1

知识点：VB知识点/函数过程

154、以保留字______开始的是子程序过程。

答案： 1：Sub#SUB#sub

等级：1 难度：1

知识点：VB知识点/Sub过程

155、Function函数过程通过______返回函数值。

答案： 1：函数名#函数名称

等级：1 难度：1

知识点：VB知识点/函数过程

156、只在定义它的过程内能够识别的变量称为______。

答案： 1：局部变量

等级：2 难度：2

知识点：VB知识点/变量与过程的作用域

157、过程的作用域有窗体／模块级和______。

答案： 1：全局级

等级：2 难度：2

知识点：VB知识点/变量与过程的作用域

158、变量的作用域通常分为三级：局部级变量、______和全局级变量。

答案： 1：窗体\模块级变量#窗体/模块级变量

等级：3 难度：3

知识点：VB知识点/变量与过程的作用域

159、表达式"123" & 456的值是______。

答案： 1：123456

等级：1 难度：1

知识点：VB知识点/运算符及表达式

160、若调用过程时，采用地址传递方式，则应在形参说明前添加关键字______或缺省。

答案： 1：ByRef#BYREF#byref

等级：2 难度：2

知识点：VB知识点/参数的传递

161、如果希望自定义的过程可以在本应用程序的任何地方被调用，则应在过程名前加上______关键字。答案： 1：Public#PUBLIC#public

等级：2 难度：2

知识点：VB知识点/参数的传递

162、如果在Function函数过程和Sub过程的定义语句前加上Static关键字，则表明该过程内所有的______均为静态变量。

答案： 1：局部变量

等级：3 难度：3

知识点：VB知识点/变量与过程的作用域

163、在Function函数过程和Sub过程的定义语句中，如果不指明函数参数的类型，则此参数默认为______数据类型。

答案： 1：Variant#variant#VARIANT#可变#变体

等级：2 难度：2

知识点：VB知识点/参数的传递

164、当数组作为函数的参数时，只能使用______的方式。

答案： 1：传地址#地址传递#传递地址

等级：2 难度：2

知识点：VB知识点/参数的传递

165、在过程B中定义了静态变量x,当调用过程B后，在退出过程B前，x的值为6。请问，下次再进入过程B时，x的值为______。

答案： 1：6

等级：2 难度：2

知识点：VB知识点/变量与过程的作用域

166、在Visual Basic应用程序中，过程的定义______嵌套，过程的调用可以嵌套。

答案： 1：不可以#不能#不允许#不可

等级：2 难度：2

知识点：VB知识点/函数过程

167、Visual Basic的模块分为三类，它们是______、标准模块、类模块。

答案： 1：窗体模块

等级：2 难度：2

知识点：VB知识点/VB的工程结构

168、在窗体模块的通用声明中声明变量时，不能使用______关键字。

答案： 1：Static#static#STATIC

等级：2 难度：2

知识点：VB知识点/变量与过程的作用域

169、程序运行后，单击命令按钮，在窗体上分别输出______和______。

Function fun(ByRef x As Integer,ByVal y As Integer) As Integer

x＝x*y

If x<5 Then fun＝x Else fun＝y

End Function

Private Sub Command1_Click()

Dim a As Integer,b As Integer

a＝2 : b＝3

Print fun(a,b),a

End Sub

答案： 1：3

2：6

等级：3 难度：3

知识点：VB知识点/过程应用案例

170、有如下程序：

Private Sub Mysub(ByVal b As Integer)

b = b * 3

End Sub

Private Sub Form_Click()

Dim y As Integer

y = 6

Call Mysub(y)

Print y

End Sub

运行程序，单击窗体，显示结果为______。

答案： 1：6

等级：1 难度：1

知识点：VB知识点/过程应用案例

171、在窗体上画一个命令按钮，然后编写如下程序：

Sub inc(a As Integer)

Static x As Integer

x=x+a

Print x

End Sub

Private Sub Command1_Click()

inc 2 inc 3

inc 4

End Sub

程序运行后，第一次单击命令按钮时，x的结果为______。

答案： 1：9

等级：3 难度：3

知识点：VB知识点/过程应用案例

172、在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件程序：

Private Function fun(ByVal m As Integer)

If m Mod 2 = 0 Then

fun = 2

Else

fun = 1

End If

End Function

Private Sub Command1_Click()

Dim i As Integer,s As Integer

s = 0

For i = 1 To 5

s = s + fun(i)

Next

Print s

End Sub

程序运行后，第一次单击命令按钮时，s的结果为______。

答案： 1：7

等级：3 难度：3

知识点：VB知识点/过程应用案例

173、设有如下通用过程：

Public Sub Fun(a(),ByVal x As Integer)

For i = 1 To 5

x = x + a(i)

Next

End Sub

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件程序：

Private Sub Command1_Click()

Dim b(5) As Variant

For i = 1 To 5

b(i) = i

Next

n = 10

Call Fun(b(),n)

Text1.Text = n

End Sub

程序运行后，单击命令按钮，则在文本框中显示的内容是

______。

答案： 1：10

等级：3 难度：3

知识点：VB知识点/过程应用案例

174、在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

Dim a(10) As Integer,p(3) As Integer

k = 5

For i = 1 To 10

a(i) = i

Next i

For i = 1 To 3

p(i) = a(i * i)

Next i

For i = 1 To 3

k = k + p(i) * 2

Next i

End Sub

程序运行后，单击命令按钮时，输出k的结果为______。

答案： 1：33

等级：3 难度：3

知识点：VB知识点/数组应用举例

175、在定义过程时，过程参数使用的是______参数。

答案： 1：形式#形

等级：1 难度：1

知识点：VB知识点/参数的传递

176、在调用过程时，过程参数使用的______参数。

答案： 1：实际#实

等级：1 难度：1

知识点：VB知识点/变量与过程的作用域

177、形参是指在定义过程时出现在参数列表中的变量名或______名。

答案： 1：数组

等级：2 难度：2

知识点：VB知识点/参数的传递

178、如果仅仅为实现一个动作，而无任何返回结果，只能用______过程实现。

答案： 1：Sub子#Sub\子#Sub/子#sub子#sub\子#sub/子#SUB 子#SUB\子#SUB/子#Sub#sub#SUB#子

等级：1 难度：1

知识点：VB知识点/Sub过程

179、实参若是常量，则传递就相当于将该常量的值赋给形参，相当于按______传递方式。

答案： 1：值#数值

等级：2 难度：2

知识点：VB知识点/参数的传递

180、参数传递按方向可分为：单向和______。

答案： 1：双向#双向传递

等级：1 难度：1

知识点：VB知识点/参数的传递

181、下面程序段运行后，n和x的输出结果分别是______和______。

x=1:n=0

Do

x=x*(x+3)

n=n+1

Loop Until x>=20

答案： 1：2

2：28

等级：2 难度：2

知识点：VB知识点/循环结构

182、下面程序段运行后，x的输出结果是______。

x=1

For i=6 To 8

If i Mod 2 > 0 Then x = x * i

Next i

答案： 1：7

等级：2 难度：2

知识点：VB知识点/控制结构应用程序举例

183、下面程序段运行后，x的输出结果是______。

x=0

i=0

Do While i <= 2

x=x+i

i=i+1

Loop

答案： 1：3

等级：2 难度：2

知识点：VB知识点/循环结构

184、执行下面的程序段后，a和b的值分别为______和______。a=6:b=4

a=a-b

b=a+b

a=a+b

答案： 1：8

2：6

等级：1 难度：1

知识点：VB知识点/顺序结构

185、下面程序段运行后，b$的输出结果是______。

a$="abcdefg"

b$= Left$(a$, 2)+Mid(a$,4,2)

答案： 1：abde

等级：1 难度：1

知识点：VB知识点/运算符及表达式

186、下面程序段运行后，x的输出结果是______。

x=1

For i = 1 To 5

x=i*i

If x>7 Then Exit For

Next i

答案： 1：9

等级：2 难度：2

知识点：VB知识点/控制结构应用程序举例

187、下面程序段运行后的输出结果是______。

Dim a(9) As Integer,i%

For i=1 To 5

a(i)=i

Next i

Print a(3)+a(4)+a(5)

答案： 1：12

等级：2 难度：2

知识点：VB知识点/数组应用举例188、下面程序段运行后，x的输出结果是______。

a=1:b=2:c=3

If a

x=4

ElseIf b

x=5

Else

x=6

End If

答案： 1：4

等级：2 难度：2

知识点：VB知识点/分支(选择)结构

189、下面程序段运行后，c的输出结果是______。

a=1:b=2

Select Case a+b

Case 1

c=10

Case 2

c=20

Case 3

c=30

End Select

答案： 1：30

等级：1 难度：1

知识点：VB知识点/分支(选择)结构

190、程序段：

For i = 5 To 5 Step -1

Print i

Next i

的循环次数是______。

答案： 1：1#一#1次#一次

等级：1 难度：1

知识点：VB知识点/循环结构

191、下面这段程序执行后，共执行了______次循环体，循环结束后，循环变量i的值是______。

For i＝3 To 1 step -1

y＝i

Next i

答案： 1：3#三

2：0

全国计算机等级考试二级VB笔试试题及答案

2009年9月全国计算机等级考试二级VB笔试试题及答案 一、选择题（每小题2分，共70分） 一、选择题 1．下列数据结构中，属于非线性结构的是（）。 A. 循环队列 B.带链队列 C.二叉树 D.带链栈 答案C Array解析树均是非线性结构 2. 下列数据结构中,能够按照”先进后出”原则存取数据的是（）。 A. 循环队列 B.栈 C.队列 D.二叉树 答案B 解析:栈是先进后出或后进先出的线性表 3. 对于循环队列,下列叙述中正确的是（）。 A.队头指针是固定不变的 B.队头指针一定大于队尾指针 C.队头指针一定小于队尾指针 D.队头指针可以大于队尾指针，也可以小于队尾指针 答案D 解析:如果队头指针大于队尾指针说明队列已经循环存放数据了,如果队头指针小于队尾指针说明没有进行循环存放 4. 算法的空间复杂度是指（）。 A.算法在执行过程中所需要的计算机存储空间 B.算法所处理的数据量

C.算法程序中的语句或指令条数 D.算法在执行过程中所需要的临时工作单元数 答案A 解析:算法的空间复杂度是指执行算法所需要的内存空间,包括算法程序所占空间,输入的初始数据所占空间和执行过程中所需要的额外空间. 5. 软件设计中划分模块的一个准则是（）。 A. 低内聚低耦合 B. 高内聚低耦合 C. 低内聚高耦合 D. 高内聚高耦合 答案B 解析:模块内部各元素之间的联系要紧密,高内聚,模块间的连接的紧密程度要低,低耦合,这样可以提高模块的独立性. 6.下列选项中不属于结构化程序设计原则的是（）。 A.可封装 B.自顶向下 C.模块化 D.逐步求精 答案A 7.软件详细设计产生的图如下 该图是( ). A.N-S图 B. PAD图 C. 程序流程图 D.E-R图 答案C 8.数据库管理系统是（）。

江苏省计算机二级VB考试真题及参考答案

2007年秋季vb考试真题 1．下面关于比特的叙述中，错误的是( 1 ) A．比特是组成数字信息的最小单位 B．比特只有“0”和“1”两个符号 C．比特既可以表示数值和文字，也可以表示图像和声音 D. 比特”1”总是大于比特“0” 2．在下列有关集成电路的叙述中，错误的是( 2 ) A．现代集成电路使用的半导体材料主要是硅 B．大觑模集成电路一般以功能部件、子系统为集成对象 C．我国第2代居民身份证中包含有IC芯片 D? 目前超大规模集成电路中晶体管的基本线条已小到l纳米左右 3．在下列有关通信技术的叙述中，错误的是( 3 ) A.通信的基本任务是传递信息，因而至少需由信源、信宿和信道组成 B.通信可分为模拟通信和数字通信，计算机网络属于模拟通信 C.在通信系统中，采用多路复用技术的目的主要是提高传输线路的利用率 D?学校的计算机机房一般采用5类无屏蔽双绞线作为局域网的传输介质 4.下面是关于PC机主存储器的一些叙述，其中正确的是( 4 ) A.主存储器是一种动态随机存取存储器(RAM) B.主存储器的基本编址单位是字(即32个二进位) C.目前市场上销售的PC机，其内存容量可达数十GB D.所有PC机的内存条都是通用的：可以互换 5．现行PC机中，IDE(或SATA)接口标准主要用于( 5 ) A．打印机与主机的连接C．声卡与主机的连接 B．显示器与主机的连接D．硬盘与主机的连接 6. 下列有关PC机的CPU、内存和主板的叙述中，正确的是( 6 ) 。 A．大多数Pc机只存一块CPu芯片，即使是“双核”CPU也是一块芯片 B．所有Pentium系列微机的内存条相同，仅有速度和容量大小之分 C．主板上芯片组的作用是提供存储器控制功能，I/O控制与芯片组无关 D．主板上CMOS芯片用于存储CMOS设置程序和一些软硬件设置信息 7.下列有关目前Pc机辅助存储器的叙述中，错误的是( 7 ) A．硬盘的容量越来越大，这是因为硬盘中磁盘碟片的数目越来越多 B．硬盘的内部传输速率一般小于外部传输速率 c．优盘采用Flash存储器技术，属于半导体存储器 D．目前常见COMBO光驱是一种将CD-RW和DVD-ROM组合在一起的光驱 8.下面有关Windows操作系统，(95以后版本)的叙述中，错误的是( 8 ) 。A．Windows操作系统支持系统中多个任务的并发执行 B．利用Whldows附件“系统工具”中的“系统信息”可以查看内存的工作情况 C．系统规定文件名最多由128个字符组成 D．Vista是Microsoft公司推出的Windows XP操作系统的后继版本 9.算法设计是编写程序的基础。下列关于算法的叙述中，正确的是( 9 ) 。 A．算法必须产生正确的结果C．算法可以没有输出 B．算法必须具有确定性D．算法的表示必须使计算机能理解 10．因特网使用TCP／IP协议实现全球范围的计算机网络互连，连接在因特网上的每一台主机

计算机二级VB考试题及答案

计算机二级VB考试题及答案 为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是搜索的计算机二级VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩! 1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click( ) n = Val(Text1.Text) If n2 = n/2 Then f = f1(n) Else f = f2(n) End If

Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)

A.72 36 B.108 36 C.72 6 D.27 3 2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) c = "1234" For i = 1 To 4 c1 = Trim(Str( )) Print c1

Next i End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 12 123 1234 则在下划线处应填入的内容为(B)(单) A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i)

2016年计算机二级《VB》基础练习题及答案(2)

2016年计算机二级《VB》基础练习题及答案(2) 1[简答题]在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求： ①Text2可以显示多行文本，并且有垂直和水平两个滚动条; ②程序运行时在Textl中显示输入的字符为“*”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。 参考解析： 【考点分析】本题考点有：窗体的Caption属性，文本框的Name、Width、Hei【ght、PasswordChar、Text、MuhiLine、ScrollBars属性。 【解题思路】文本框控件的MuhiLine属性用于设置文本框是否显示多行文本，值为Tr ue表示是，值为False则表示否。ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、l、2和3这4个值，0表示没有滚动条(默认值)，1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。文本框的PasswordChar属性常用于设置用某字符(如“*”)屏蔽用户在文本框中键入的内容，常用于口令输入。 【操作步骤】 步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3.8和表3.9。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】由于ScrollBars属性的设置值较多，易混乱，请考生牢记4个值分别设置的文本框滚动条属性。 2[单选题]在下列模式中，能够给出数据库物理存储结构与物理存取方法的是()。 A.外模式 B.内模式 C.概念模式 D.逻辑模式 参考答案：B 参考解析：数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，所以选择B。 3[单选题]以下关系表达式中，其值为True的是()。 A.1f.XYZ”>”XYz” B.”VisualBasic”<>”visualbasic” C.P the-.=’’there·t D.”Integer”<”Int” 参考答案：B 参考解析：用关系运算符比较两个操作敷时，如果两个操作数是字符型的，按字符的A SCIl码从左到右一一比较，即先比较第1个，若相同再比较第2个，依次比较，直到比较

(完整word版)计算机二级VB编程题目含答案

Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text) s = 0 For i = 1 To n s = s + i ^ 2 Next i Text2.Text = s End Sub Private Sub Command1_Click() ''' 不得删除本行注释 Dim i As Integer Open App.Path & "\" & "yssj.txt" For Input As #1 For i = 1 To 10 Input #1, a(i) Next i Close #1 End Sub Private Sub Command2_Click() ''' 不得删除本行注释 Dim i As Integer Text1.Text = "" For i = 1 To 10 If a(i) Mod 3 = 2 Then Text1.Text = Text1.Text & Str(a(i)) End If Next i End Sub

Private Sub command1_Click() '''不得删除本行注释 Dim a As Integer, b As Double, i As Integer, n As Integer n = Val(Text1.Text) a = 0 b = 0 For i = 1 To n a = a + i b = b + a Next i Text2.Text = b End Sub Private Sub Command1_Click() '''不得删除本行注释 Dim i%, xh$, xm$ Open App.Path & "\" & "Xhxm.txt" For Output As #1 For i = 1 To 3 xh = InputBox("请输入学号") xm = InputBox("请输入姓名") Write #1, xh, xm Next i Close #1 End Sub Private Sub Command2_Click() '''不得删除本行注释 Dim s as string Open App.Path & "\" & "Xhxm.txt" For Input As #2 Do While Not EOF(2) Line Input #2, s Text1.Text = Text1.Text & s & vbCrLf Loop Close #2 End Sub

计算机二级VB考试试题

站长提醒广大考生：下面的138道题目，在二级考试中命中率极高。 一、选择题 (1) 下面叙述正确的是(C) A. 算法的执行效率与数据的存储结构无关 B. 算法的空间复杂度是指算法程序中指令（或语句）的条数 C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止 D. 以上三种描述都不对 (2) 以下数据结构中不属于线性数据结构的是(C) A. 队列 B. 线性表 C. 二叉树 D. 栈 (3) 在一棵二叉树上第5层的结点数最多是(B) 注：由公式2k-1得 A. 8 B. 16 C. 32 D. 15 (4) 下面描述中，符合结构化程序设计风格的是(A) A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑 B. 模块只有一个入口，可以有多个出口 C. 注重提高程序的执行效率 D. 不使用goto语句 (5) 下面概念中，不属于面向对象方法的是(D) 注：P55-58 A. 对象 B. 继承 C. 类 D. 过程调用 (6) 在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是(B) A. 可行性分析 B. 需求分析 C. 详细设计 D. 程序编码 (7) 在软件开发中，下面任务不属于设计阶段的是(D) A. 数据结构设计 B. 给出系统模块结构 C. 定义模块算法 D. 定义需求并建立系统模型 (8) 数据库系统的核心是(B) A. 数据模型 B. 数据库管理系统 C. 软件工具 D. 数据库 (9) 下列叙述中正确的是(C) A.数据库是一个独立的系统，不需要操作系统的支持 B.数据库设计是指设计数据库管理系统 C.数据库技术的根本目标是要解决数据共享的问题 D.数据库系统中，数据的物理结构必须与逻辑结构一致 (10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注：P108

2017年计算机二级考试VB重点-VisualBasic的特点

2017年计算机二级考试VB重点:Visual Basic的特点 一、Visual Basic的特点和版本 (一)Visual Basic 的特点 Visual Basic是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。 总的来看，Visual Basic有以下主要特点： 1.可视化编程 2.面向对象的程序设计 3.结构化程序设计语言 4.事件驱动编程机制 5.访问数据库 6.动态数据交换(DDE) 7.对象的链接与嵌入(OLE) 8.动态链接库(DLL) 9.建立用户自己的ActiveX 控件 10.建立ActiveX 文档

11」nternet 组件下载 12.枚举类型 (二)Visual Basic 的版本 Visual Basic6.0包括3种版本，分别为学习版、专业版和企业版。 (1)学习版:Visual Basic的基础版本，可用来开发Windows应用程序。该版本包括所有的内部控件(标准控件)、网络(Grid)控件、Tab对象以及数据绑定控件。 (2)专业版:该版本为专业编程人员提供了一整套用于软件开发、功能完备的工具。它包括学习版的全部功能，同时包括ActiveX控件、In ternet 控件、Crystal Report Writer 和报表控件。 (3)企业版:可供专业编程人员开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能，同时具有自动化管理器、部件管理器、数据库管理工具、Microsoft Visual SourceSafe 面向工程版的控制系统等 二、Visual Basic的启动与退出 开机并进入中文Win dows 后，可以用多种方法启动Visual Basic。 第一种方法：使用“开始”菜单中的“程序”命令。操作如下： (1)单击Windows 环境下的“开始”按钮，弹出一个菜单，把光标移到“程序”命令上，将弹出下一个级联菜单； (2)把光标移到“ Microsoft Visual Basic6.0 中文版”，弹出下一个级联菜单，即Visual Basic6.0程序组；

计算机二级考试《VB》模拟试题及答案

计算机二级考试《VB》模拟试题及答案 2016计算机二级考试《VB》模拟试题及答案 一、基本操作题 (1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl.vbp，窗体文件名为sjtl.frm。 (2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。再画两个标题分别为“椭圆”和“圆”的命令按钮。如下图所示。 要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjr2.vbp，窗体文件名为sjr2.frm。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp。窗体Forml上有两个标题分别是“读数据”和“查找”的命令按钮。请画1个名称为Textl、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。程序功能如下。 ①在考生文件夹下的in.3.dat文件中存有100个正整数。单击“读数据”按钮，则将文件in3.dat中的数据读入数组a中。 ②单击“查找”按钮，则查找数组a中所有为7的倍数的数据，并将这些数据顺次显示在Textl文本框内(数据之间用空格隔开)。

“读数据”按钮的Click事件过程已经给出，请编写程序完成“查找”按钮的Click事件过程，实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须使用“查找”按钮完成查找过程，且必须用窗 体右上角的关闭按钮结束程序，否则无成绩。最后将程序按原文件 名存盘。 (2)考生文件夹下有一个工程文件sit4.vbp。在窗体Forml上有 两个名称为Commandl和Command2、标题分别为“重输”和“查找”的命令按钮。程序功能如下。 单击“重输”按钮，则清空Textl中的`内容，等待用户输入由 空格隔开的若干个英文单词;单击“查找”按钮，则找出Textl中最 长的单词，并将其显示在Text2中。某一次的运行效果如图所示。 请将“查找”按钮的Click事件过程中的注释符去掉，把?改为正确 内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 考生文件夹下有一个工程文件sjt.s.vbp。在窗体Forml上有两 个标题分别是“产生数据”和“重新排列”的命令按钮，有两个标 题为“原始数据”和“排列数据”的标签。程序功能如下。 ①单击“产生数据”按钮，则随机产生20个一位整数，存人数 组a中，并同时显示在Textl中。 ②单击“重新排列”按钮，则重新排列数组a中的元素：使等值的元素相邻存放，并且保持它们在数组a中首次出现的相对次序;最 后将排列结果显示在Text2中。某一次运行结果如图所示。 请将“重新排列”按钮的Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。

最新[考试中心]安徽省计算机二级VB笔试权威模拟试题及答案2

全国高等学校（安徽考区） 计算机水平考试试卷B （二级 Visual Basic 语言） 一、单项选择题（每题1分，共40分） 1．计算机硬件系统中最核心的部件是 C 。 A）内存储器B）输入/输出设备C）CPU D）硬盘 2．计算机最早的应用领域是 A 。 A）科学计算B）图形处理C）过程控制D）人工智能3．下列属于文字处理软件的是 B 。 A）Windows B）Word C）PowerPoint D）Excel 4．在计算机系统内部，所有数据都是采用 D 表示。 A）十六进制B）十进制C）八进制D）二进制5．在Windows系统中，下面文件命名合法的是 B 。 A）A*.DOC B）AB.DOC C）A?.DOC D）A>.DOC 6．计算机可以播放DVD等音像制品, 主要运用的是 A 技术。 A）多媒体B）人工智能C）数据库D）数据挖掘7．将文件从FTP服务器传输到本地计算机的过程称为 D 。 A）上传B）浏览C）查找D）下载 8．下列IP地址中，错误的是 C 。 A）219.231.10.155 B）192.168.5.1 C）219.260.20.12 D）192.10.6.7 9．下列关于计算机病毒的叙述中，正确的是 C 。 A）加密文件不会感染计算机病毒 B）系统软件不会感染计算机病毒 C）有防火墙的计算机系统也会感染病毒 D）压缩的文件不会感染计算机病毒 10．计算机能直接运行的是 B 。 A）目标程序 B）机器语言程序C）汇编语言程序 D）高级语言程序 11．下列选项中是Visual Basic的合法变量名的是 C。 A）1_abc B）abc-1 C）abc_1 D）abc.1 12．对正整数X、Y，有下列表达式，不能判断X能被Y整除的是 C 。 A）X/Y=Int(X/Y) B）X Mod Y =0 C）X\Y=Fix(X/Y) D）X\Y=X/Y 13．下面可以正确定义2个整形变量和一个字符型变量的语句是 B 。 A）Dim x, y As Integer, n As String B) Dim x%, y As Integer, n As String C) Dim x%, y$, n As String D) Dim x As Integer, y, n As String 14．下面表达式中， A 的运算结果与其他三个不同。 A）Exp(-3.5) B）Int(-3.5)+0.5 C）-Abs(-3.5) D）Sgn(-3.5)-2.5 15．将任意一个正的两位整数N的个位数与十位数对换的表达式为 A 。 A）（N-Int(N/10)*10）*10+Int(N/10) B）N-Int(N)/10*10+Int(N)/10 C）Int(N/10)+(N-Int(N/10)) D）(N-Int(N/10))*10+Int(N/10) 16．执行语句s = Mid("VisualBasic",1,6)后，s的值是 A 。 A) Visual B) Basic C) 6 D) 11 17．表达式5 Mod 3+3\5*2的值是 B 。

全国计算机等级考试二级笔试试卷VB语言程序设计

2011年9月全国计算机等级考试二级笔试试卷VB语言程序设计 一、选择题 1、下列叙述中正确的是 A、算法就是程序 B、设计算法时只需要考虑数据结构的设计 C、设计算法时只需要考虑结果的可靠性 D、以上三种说法都不对 2、下列关于线性链表的叙述中，正确的是 A、各数据结点存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致 B、各数据结点的存储顺序可以不一致，但它们的存储空间必须连续 C、进行插入与删除时，不需要移动表中的元素 D、以上三种说法都不对 3、下列关于二叉树的叙述中，正确的是 A、叶子结点总是比度为2的结点少一个 B、叶子结点总是比度为2的结点多一个 C、叶子结点数是度为2的结点数的两倍 D、度为2的结点数是度为1的结点数的两倍 4、软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。 A、学生成绩管理系统 B、C语言编译程序 C、UNIX操作系统D 5 该系统总体结构图的深度是 A、7 B、6 C、3 D、2 6、程序调试的任务是 A、设计测试用例 B、验证程序的正确性 C、发现程序中的错误 D、诊断和改正程序的错误 7、下列关于数据库设计的叙述中，正确的是 A、在需求分析阶段建立数据字典 B、在概念设计阶段建立数据字典 C、在逻辑设计阶段建立数据字典 D、在物理设计阶段建立数据字典 8、数据库系统的三级模式不包括 A、概念模式 B、内模式 C、外模式 D、数据模式 9、有三个关系R、S和T如下： R S 则由关系R和S得到关系T的操作是 A、自然连接 B、差 C、交 D、并 10、下列选项中属于面向对象设计方法主要特征的是 A、继承 B、自顶向下 C、模块化 D、逐步求精 11、以下描述中错误的是 A、窗体的标题通过其Caption属性设置

计算机等级考试二级VB模拟试题四及答案解析

计算机等级考试二级VB模拟试题四及答案解析 一、选择题 (1)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private SubCommand1_Click() Move 500,500 End Sub 程序运行后，单击命令按钮，执行的操作为 A)命令按钮移动到距窗体左边界、上边界各500的位置 B)窗体移动到距屏幕左边界、上边界各500的位置 C)命令按钮向左、上方向各移动500 D)窗体向左、上方向各移动500 正确答案: B (2)在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是 A)TabStop B)Enabled C)Visible D)TabIndex 正确答案: D (3)以下定义数组或给数组元素赋值的语句中，正确的是 A)Dim a As Variant a=Array(1,2,3,4,5) B)Dima(10)As Integer a=Array(1,2,3,4,5) C)Dim a%(10) a(1)="ABCDE" D)Dim a(3),b(3)As Integer a(0)=0 a(1)=1 a(2)=2 b=a 正确答案: A (4)在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 A)For i=0 ToList1.ListCount-1 …… Next B)For i=0 To List1.Count-1 …… Next C)For i=1 To List.ListCount …… Next

D)For i=1 ToList1.Count

计算机二级考试题库：VB程序题

编写一个复制字符串的程序，如图x_17.jpg 所示。 * 界面要求： * 使用文本框、命令按钮完成。 * 运行要求： * 1、点击“清除”按钮，将所有的文本框内容清空； * 2、点击“复制”按钮，如上面文本框有选中的文本，则将选中的文本复制到下面文本框中， * 否则，将上面文本框所有内容复制到下面文本框中。 * （此题要求上载窗体文件，不要求填写程序运行结果） 编写程序： * 使用冒泡法，对数组ia(1)=8,ia(2)=6,ia(3)=9,ia(4)=3,ia(5)=2,ia(6)=7 * 从小到大排序，并以紧凑格式在一行上输出。 编写一个秒表程序，如图K_309.jpg 所示。 * 界面要求： * 使用一个标签、两个命令按钮、一个时钟控件完成。 * 运行要求： * 1、点击“开始计时”按钮，开始计时，标签中显示时间，时间精度是百分之一秒； * 2、点击“结束计时”按钮，停止计时。 * 3、未计时时，“开始计时”按钮可用，“结束计时”按钮不能用。 * 计时过程中，“开始计时”按钮不可用，“结束计时”按钮能用。 * （此题要求上载窗体文件，不要求填写程序运行结果） 编写程序： * 利用随机函数产生20个10～99之间（包括10和99）的随机整数存入一维数组A，* 找出其中的最大值和最小值。 编写程序： * 求出斐波那契数列前9项的和。 * 提示：前两项为：0，1，从第3项开始，每一项均为其前两项的和（即：0+1+1+2+3+5+...）。 编写一个字母转换的程序，如图K_401.jpg 所示。 * 界面要求： * 使用文本框、命令按钮控件完成。 * 运行要求： * 在文本框1中输入任意字符串； * 点击“字母转换”按钮，将小写字母转换成大写字母，大写字母转换成小写字母，其余字母不变， * 并在文本框2中显示转换后的字符串。 * （此题要求上载窗体文件，不要求填写程序运行结果） 编写程序：

zlegfa考试中心安徽省计算机二级VB笔试权威模拟试题及复习资料

-+ 懒惰是很奇怪的东西，它使你以为那是安逸，是休息，是福气；但实际上它所给你的是无聊，是倦怠，是消沉;它剥夺你对前途的希望，割断你和别人之间的友情，使你心胸日渐狭窄，对人生也越来越怀疑。 —罗兰 全国高等学校（安徽考区） 计算机水平考试试卷B （二级Visual Basic 语言） 一、单项选择题（每题1分，共40分） 1．计算机硬件系统中最核心的部件是 C 。 A）内存储器B）输入/输出设备C）CPU D）硬盘 2．计算机最早的应用领域是 A 。 A）科学计算B）图形处理C）过程控制D）人工智能3．下列属于文字处理软件的是 B 。 A）Windows B）Word C）PowerPoint D）Excel 4．在计算机系统内部，所有数据都是采用 D 表示。 A）十六进制B）十进制C）八进制D）二进制 5．在Windows系统中，下面文件命名合法的是 B 。 A）A*.DOC B）AB.DOC C）A?.DOC D）A>.DOC 6．计算机可以播放DVD等音像制品, 主要运用的是 A 技术。 A）多媒体B）人工智能C）数据库D）数据挖掘7．将文件从FTP服务器传输到本地计算机的过程称为 D 。 A）上传B）浏览C）查找D）下载 8．下列IP地址中，错误的是 C 。 A）219.231.10.155 B）192.168.5.1 C）219.260.20.12 D）192.10.6.7 9．下列关于计算机病毒的叙述中，正确的是 C 。 A）加密文件不会感染计算机病毒 B）系统软件不会感染计算机病毒 C）有防火墙的计算机系统也会感染病毒 D）压缩的文件不会感染计算机病毒

2013计算机二级(VB)考试机试题库

2013年VB题库 第01套简单应用题 （1）在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有一个标签Label1，请添加一个单选 按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1、2，标题依次为"飞机"、 "火车"、"汽车"，再添加一个名称为Text1的文本框。窗体文件中已经给出了Op1的Click事件过 程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单 击"飞机"或"火车"单选按钮时，在Text1中显示"我坐飞机去"或"我坐火车去"，单击"汽车"单选按 钮时，在Text1中显示"我开汽车去"，如图所示。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 Private Sub Op1_Click(Index As Integer) Dim a As String, b As String, c As String a = "我坐" b = "我开" ' Select Case ? ***** Index ***** Case 0 Text1.Text = a + Me.Op1(0).Caption + "去" Case 1 ' Text1.Text = ? + Me.Op1(1).Caption + "去" ***** a ***** Case 2 Text1.Text = b + Me.Op1(2).Caption + "去" End Select End Sub （2）在考生文件夹下有一个工程文件sjt4.vbp，Form1窗体中有一个文本框，名称为Text1；请在窗体上添加两个框架控件，名称分别为F1、F2，标题分别为"性别"、"身份"；在F1中添加两个单选按钮控件Op1、Op2，标题分别为"男"、"女"；在F2中添加两个单选按钮控件Op3、Op4，标题分别为"学生"、"教师"；再添加一个命令按钮，名称为C1，标题为"确定"。如图所示。请编写适当的事件过程，使得在运行时，在F1、F2中各选一个 单选按钮，然后单击"确定"按钮，就可以按照下表把结果显示在文本框中。 性别身份在文本框中显示的内容 男学生我是男学生 男教师我是男教师 女学生我是女学生 女教师我是女教师 最后把修改后的文件以原来的文件名存盘。 注意：考生不得修改窗体文件中已经存在的程序和Text1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。 … ***** 请考生编写程序***** If op1 and op3 then Text1.Text=”我是男学生” If op1 and op4 then Text1.Text=”我是男教师” If op2 and op3 then Text1.Text=”我是女学生” If op2 and op4 then Text1.Text=”我是女教师” *****第01套综合应用题 以下数列：1，1，2，3，5，8，13，21，…，的规律是从第3个数开始，每个数都是 其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图所示。

全国计算机等级考试二级VB语言笔试试题与答案

2005年9月 全国计算机等级考试二级笔试试卷 公共基础知识和Visual Basic 语言程序设计 (考试时间90 分钟，满分100 分) 一、选择题 (每小题 2 分,共 70 分 ) 下列各题A) 、 B) 、C)、 D) 四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。 （1）下列叙述中正确的是 A ．程序设计就是编制程序 C．程序经调试改错后还应进行再测试C。 B．程序的测试必须由程序员自己去完成 D．程序经调试改错后不必进行再测试 （2）下列数据结构中，能用二分法进行查找的是A ．顺序存储的有序线性表 B ．线性链表 A C．二叉链表 。 D．有序线性链表 （3）下列关于栈的描述正确的是C。 A．在栈中只能插入元素而不能删除元素 B．在栈中只能删除元素而不能插入元素 C．栈是特殊的线性表，只能在一端插入或删除元素 D．栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素 （4）下列叙述中正确的是D。 A．一个逻辑数据结构只能有一种存储结构 B．数据的逻辑结构属于线性结构，存储结构属于非线性结构 C．一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率 D．一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率 （5）下列描述中正确的是C。 A．软件工程只是解决软件项目的管理问题 B．软件工程主要解决软件产品的生产率问题 C．软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D．软件工程只是解决软件开发中的技术问题 （6）在软件设计中，不属于过程设计工具的是D。 A ． PDL( 过程设计语言 ) B ．PAD 图C． N-S 图 D． DFD 图 （7）下列叙述中正确的是A。 A ．软件交付使用后还需要进行维护B．软件一旦交付使用就不需要再进行维护C．软件交付使用后其生命周期就结束D．软件维护是指修复程序中被破坏的指令 （8）数据库设计的根本目标是要解决A。 A ．数据共享问题B．数据安全问题C．大量数据存储问题 D ．简化数据维护

计算机等级考试(二级VB)模拟试题二

计算机等级考试（二级VB）模拟试题二 第一部分计算机基础知识 1．是我国安全部开发的一种检测和消除计算机病毒的杀毒软件。 A．Kill B．Scan C．Vsafe D．WPS 2．用n位二进制来表示一个整数的补码，用最高位作为符号位，其整数的表示范围是. A．-2n-1～+2n-1-1 B．-2n-1+1～+2n-1 B．-2n-1～+2n-1D．-2n～+2n-1 3．下列四个数中最大的数是。 A．十进制数1789 B．十六进制数IFF C．二进制数10100001 D．八进制数227 4．存储器体系由不同类型的存储器组成多层结构，按存取速度从快到慢的是。 A．快存、辅助、主存、海量存储器B．光盘、主存、辅助、海量存储器 C．快存、主存、辅助、海量存储器D．DVD、主存、辅助、海量存储器 5．高级语言采用解释方式时的执行速度与采用编译方式时的执行速度相比，下列是正确的。 A．相等B．前者快C．前者慢D．不能确定 6．设汉字字库包括全角符号和一、二级汉字共8000个，进入汉字操作系统调用16x15点阵汉字库，且全部常驻内存中，则内存开销约为。 A．640KB B．1.47KB C．240KB D．70KB 7．下列软件中，不属于应用软件的是。 A．字表处理软件B．财务管理软件 C．股市分析软件D．高级语言编译程序 8．传送速率单位“bps”代表的意义是。 A．Bytes Per Second B. Bits Per Second C．Band Per Second D. Billion Per Second 9．软件需求分析一般应确定的是用户对软件的。 A. 功能需求 B. 非功能需求 C. 性能需求 D. 功能需求和非功能需求 10．计算机网络中的拓扑结构是一种。 A．实现异地通信方案B．理论概念 C．设备在物理上的连接形式D．传输信道的分配 11．E-mail地址中@后面的内容是指。 A．收信服务器名称B．寄信服务器名称 C．帐号D．密码 12．如果用户正在用到3个文件夹，每个文件夹至少含有4个文件，若想不移动文件，工作却更方便，应当。 A．在桌面上右击鼠标，为这些文件夹建立快捷键 B．把这些文件夹增加到快捷文件夹中去

江苏省计算机二级VB试题库

一．选择题 1．窗体上有多个控件，在Form_Activate()事件过程中添加____ B______语句，就可确保每次运行程序时，都将光标定位在文本框Text1上。 A．Text1．Text="" B．Text1．SetFocus C．Form1．SetFocus D．Text1．Visible=True 2．语句Print "5*20"输出的结果是______C___。 A．"5*20" B．出现错误信息 C．5*20 D．100 3．不能打开代码窗口的操作是______B__。 A．双击窗体设计器的任何地方 B．按下F4键 C．单击工程窗口中的“查看代码”按钮 D．选择“视图”下拉菜单中的“代码窗口” 4．在VB中可以作为容器的是______B__。 A．Form、TextBox、PictureBox B．Form、PictureBox、Frame C．Form、TextBox、Label D．PictureBox、TextBox、ListBox 5．能被对象所识别的动作与对象可执行的活动分别称为对象的___D_____。 A．方法、事件B．过程、方法 C．事件、属性D．事件、方法 6．计算下面的表达式，其值是_____B___。 CInt(4.5) * Fix(-3.81) + Int(4.1) * (5 Mod 3) A．-7 B．-4 C．-8 D．6 7．以下有关对象属性的说法中正确的是___D_____。 A．对象所有的属性都罗列在属性窗口列表中 B．不同对象不可能有同名属性 C．不同对象的同名属性取值一定相同 D．对象的某些属性既可在属性窗口中设置，也可通过程序代码设置或改变 8．要使定时器控件可以使用，需设置的属性是____B_____。 A.Interval B. Enabled C. Value D. Text 9．在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下四组语句中，不能正常执行的是 ___D_____。 A．s=2*a+1 B．s="237" & ".11":a=s C．s=2*a>3 D．a=2:s=16400*a 10．在程序代码中，将图片文件“abc.jpg”装入图片框Picture1的语句是_____C___。 A．Picture1.Picture = "abc.jpg" B．Picture1.image = "abc.jpg " C．Picture1.Picture = LoadPicture("abc.jpg") D．LoadPicture("abc.jpg") 11．多窗体程序由多个窗体组成。在缺省情况下，VB在执行应用程序时，总是把_______B__指定为启动窗体。 A．不包含任何控件的窗体 B．设计时的第一个窗体

计算机二级考试VB一般程序设计习题

般程序设计习题 '〖第1题〗:(事件)单击窗体。 '(响应)求100以内偶数的和，并将结果输出在窗体上。 '将结果存入变量SUM中 '答案：DimiAsInteger Fori=ITolOO lfiMod2=0Then sum=sum+i EndIf Next Printsum '〖第2题〗:(事件)双击窗体。 '(响应)求s=1+1X 2+1 X 2X 3+…+1X 2 X 3X …X 10, '并将结果存到变量S中 答案：DimijAsInteger DimkAsLong k=1 s=0 Fori=1To10 Forj=1Toi k=k*j Next s=s+k k=1 Next Print(CStr(s)) '〖第3题〗:(事件)单击窗体。 '(响应)求1+2+3+……+100的值，并把结果输出在窗体上。'结果存入变量SUM中o '答案：DimiAsInteger Fori=1To100 sum=sum+i Next Printsum '〖第4题〗：判断一个数是否是素数。 '答案：DimiAsInteger Prime=True Fori=2ToInt(Sqr(m)) lfmModi=0ThenPrime=False:ExitFor Nexti '〖第5题〗:(事件)单击窗体。 '(响应)求1-1/2+1/3-1/4+ ……+1/99-1/100 的值。 '将结果存入变量J中。 DimiAsInteger Fori=1To100 IfiMod2=1Then j=j+1/i ElseIfiMod2=0Then j=j-1/i EndIf Next Printj ”〖第6题〗:(事件)单击窗体。 '(响应)求200~300之间既能被3整除又能被7整除的数 '并求出所有数之和存入变量SUM中 '答案：DimiAsInteger Fori=2 0仃o300 If((iMod3)=0)And((iMod7)=0)Then Print(CStr(i)) sum=sum+i

计算机二级考试VB一般程序设计习题

一般程序设计习题 '〖第1题〗：(事件)单击窗体。 ' (响应)求100以内偶数的和，并将结果输出在窗体上。 ' 将结果存入变量SUM中 '答案：Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then sum = sum + i End If Next Print sum '〖第2题〗：(事件)双击窗体。 ' (响应)求s=1+1×2+1×2×3+...+1×2×3× (10) ' 并将结果存到变量S中 答案：Dim i, j As Integer Dim k As Long k = 1 s = 0 For i = 1 To 10 For j = 1 To i k = k * j Next s = s + k k = 1 Next Print (CStr(s)) '〖第3题〗：(事件)单击窗体。 ' (响应)求1+2+3+……+100的值，并把结果输出在窗体上。' 结果存入变量SUM中。 '答案：Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum '〖第4题〗：判断一个数是否是素数。 '答案：Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i '〖第5题〗：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。 ' 将结果存入变量J中。 Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ''〖第6题〗：(事件)单击窗体。 ' (响应)求200~300之间既能被3整除又能被7整除的数。' 并求出所有数之和存入变量SUM中 '答案：Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum '〖第7题〗：(事件)单击窗体。