VB试题

VB复习题一、选择题下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。

请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。

(1)以下关于Visual Basic特点的叙述中，错误的是。

A) Visual Basic是采用事件驱动编程机制的语言B) Visual Basic程序既可以编译运行，也可以解释运行C) 构成Visual Basic程序的多个过程没有固定的执行顺序D) Visual Basic程序不是结构化程序，不具备结构化程序的三种基本结构(2)设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是。

A) Print A=x+y B) Print"A=";x+y C) Print "A="+Str(x+y)D) Print"A="&x+y(3)以下叙述中，错误的是。

A) Visual Basic中允许不同对象使用相同名称的方法B) Visual Basic中的对象具有自己的属性和方法C) 在Visual Basic中，对象所能响应的事件是由系统定义的D) 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定(4)设有如下语句：Dim a，b As Integerc="VB"d=#5／20／2009#以下关于这段代码的叙述中，错误的是。

A) a被定义为Integer类型变量 B) b被定义为Integer类型变量C) c中的数据是字符串 D) d中的数据是日期类型(5)以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是。

A) Left B) Mid C) StringD) Instr(6)设a=5，b=4，c=3，d=2，下列表达式的值是。

a>b+1 Or c<d And b Mod cA) True B) 1 C) –1D) 0(7)以下可以作为Visual Basic变量名的是。

A) A#A B) counstA C) 3A D) ?AA(8)以下叙述中，错误的是。

A) 一个Visual Basic应用程序可以含有多个标准模块文件B) 一个Visual Basic工程可以含有多个窗体文件C) 标准模块文件可以属于某个指定的窗体文件D) 标准模块文件的扩展名是.bas(9)假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub程序运行后，单击命令按钮，如果从键盘上输入整数9，则以下叙述中错误的是。

A) x的值是数值9 B) 输入对话框的标题是“输入整数”C) 信息框的标题是“输入数据：9” D) 信息框中显示的是“输入的数据是：”(10)在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程：Private Sub Command1_Click()x=Val(Text1.Text)Select Case xCase 1，3y=x*xCase Is>=10，Is<=-10y=xCase -10 To 10y=-xEnd SelectEnd Sub程序运行后，在文本框中输入4，然后单击命令按钮，则以下叙述中正确的是。

A) 执行y=x*x B) 执行y=-x C) 先执行y=x*x，再执行y=-x D) 程序出错(11)设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click()Dim a(10)As IntegerFor i=1 To 10a(i)=Int(Rnd*100)NextFor Each arrItem In aIf arrItem Mod 4=0 Then Print arrItem；If arrItem>50 Then Exit ForNextEnd Sub对于该事件过程，以下叙述中错误的是。

A) a数组中的数据是10个100以内的整数B) 语句For Each arrItem In a有语法错误C) If arrItem Mod 4=0……语句的功能是输出数组中能够被4整除的数D) If arrItem>50……语句的作用是当数组元素的值大于50时退出For 循环(12)设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click()Dim a(3，3)As IntegerFor i=1 To 3For j=1 To 3a(i，j)=i*j+iNext jNext iSum=0For i=1 To 3Sum=Sum+a(i，4-i)Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是。

A) 20 B) 7 C) 16 D) 17(13)在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a=0For i=1 To 2For j=1 To 4If j Mod 2<>0 Thena=a-1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是。

A) 0 B) 2 C) 3 D) 4(14)窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。

程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中。

为了实现上述功能，在程序中的问号(?)处应填入的内容是。

Private Sub Option1_Click(Index As Integer)If Text1.Text<>""ThenSelect Case ?Case 0Text2.Text=Val(Text1.Text)Case 1Text2.Text=Val(Text1.Text)*10Case 2Text2.Text=Val(Text1.Text)*100End SelectEnd IfEnd SubA) Index B) Option1.Index C) Option1(Index) D) Option1(Index).Value(15)在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(10)As IntegerDim x As IntegerFor i=1 To 10a(i)=8+iNextx=2Print a(f(x)+x)End SubFunction f(x As Integer)x=x+3f=xEnd Function程序运行后，单击命令按钮，输出结果为。

A) 12 B) 15 C) 17D) 18(16)以下关于过程的叙述中，错误的是。

A) 事件过程是由某个事件触发而执行的过程 B) 函数过程的返回值可以有多个C) 可以在事件过程中调用通用过程 D) 不能在事件过程中定义函数过程(17)在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，外观如图所示。

编写如下程序：Private Sub Form_Load()Text1.Text=""Text2.Text=""Text3.Text=""End SubPrivate Sub Command1_Click()x=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=f(x，y)End SubFunction f(ByVal x As Integer,ByVal y As Integer)Do While y<>0tmp=x Mod yx=yy=tmpLoopf=xEnd Function运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是。

A) 4 B) 6 C) 8D) 12(18)在窗体上画1个文本框，其名称为Text1，然后编写如下过程：Private Sub Text1_KeyDown(KeyCode As Integer,Shift AsInteger)Print Chr(KeyCode)End SubPrivate Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer)Print Chr(KeyCode+2)End Sub程序运行后，把焦点移到文本框中，此时如果敲击“C”键，则输出结果为。

A) C B) C C) C D) CC D E F(19)为了使列表框中的项目呈多列显示，需要设置的属性为。

A) Columns B) Style C) List D) MultiSelect(20)如果列表框(List1)中只有一个项目被用户选定，则执行Debug.Print List1.Selected(List1.ListIndex)语句的结果是A) 在Debug窗口输出被选定的项目的索引值 B) 在Debug窗口输出TrueC) 在窗体上输出被选定的项目的索引值 D) 在窗体上输出True(21)在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：Dim Flag As BooleanPrivate Sub Command1_Click()Dim intNum As IntegerintNum=InputBox("请输入：")If Flag ThenPrint f(intNum)End IfEnd SubFunction f(X As Integer)As IntegerIf X<10 ThenY=XElseY=X+10End Iff=YEnd FunctionPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Flag=TrueEnd Sub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为。