公选-试卷-二级考试指导VB

2010年公选课二级考试指导VB

期末考试答题纸

院系班级： 姓名：

说明：如果是文理学院学生请在院系前加“文理”

一、选择题：（35*2=30）

题号 答案 题号 答案 题号 答案 题号 答案 1 11 21 31 2 12 22 32 3 13 23 33 4 14 24 34 5 15 25 35 6 16 26 7 17 27 8 18 28 9 19 29 10 20 30

二、填空题：（15*2=30）

题号 空号 答案 题号 空号 答案 题号 空号 答案 [1] 4 [6] 6 [11] 1 [2] [3] 2 [4] 5 [9] 7 [14] 3 [5] [7] [8] [10] [12] [13] [15] 第 1 页 共20页

2010年公选课二级考试指导VB

期末考试试卷答题纸

一、选择题：（35*2=30）

(1)执行语句 Dim X,Y As Integer 后, A)X和Y均被定义为整型变量 B)X和Y均被定义为变体类型变量

C)X被定义为整型变量,Y被定义为变体变量 D)X被定义为变体类型变量,Y被定义为整型变量 (2)以下关系表达式中，其值为True的是

A)\ B)\C)\ D)\(3) 在Visual Basic中，表达式3* 2\\5 Mod 3的值是 Ａ）１ B）０ C）３ D）出现错误提示 (4)下列叙述中正确的是

A)MsgBox语句的返回值是一个整数

B)执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作 C)MsgBox语句的第一个参数不能省略

D)如果省略MsgBox语句的第三个参数(Title),则信息框的标题为空

(5)在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,

在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数,以下可以实现上述操作的事件过程是

A)Private Sub Text1_Change()

Label1.Caption=str(Len(Text1.Text)) End Sub

B)Private Sub Text1_Click()

Label1.Caption=str(Len(Text1.Text)) End Sub

C)Private Sub Text1_Change() Label1.Caption=Text1.Text

第 2 页 共20页

End Sub

D)Private Sub Label1_Change()

Label1.Caption=str(Len(Text1.Text)) End Sub

(6)在窗体上画两个单选按钮(名称分别为Option1,Option2,标题分别为\宋体\和\黑体\ 1个复选框(名称为Check1,标题为粗体)和1个文本框(名称为Text1,Text属性为\改变 文字字体\，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被 选中，则以下能够实现上述操作的语句序列是

A)Option1.Value=False Check1.Value=True B)Option1.Value=True Check1.Value=0 C)Option2.Value=False Check1.Value=2 D)Option1.Value=True Check1.Value=1

(7)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() c=1234 c1=Trim(Str(c)) For i=1 To 4 Print ____ Next End Sub

程序运行后,单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234

第 3 页 共20页

则在横线处应填入的内容为

A)Right(c1,i) B)Left(c1,i) C)Mid(c1,i,1) D)Mid(c1,i,1) (8)假定有一下程序段 For i=1 To 3

For j=5 To 1 Step -1 Print i*j Next j Next i

则语句Print i*j 的执行次数是 A)15 B)16 C)17 D)18

(9)在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为 Command1），然后编写如下事件过程：

Private Sub Command1_Click() x=0

Do While x<50 x=(x+2)*(x+3) n=n+1 Loop

Text1.Text=Str(n) Text2.Text=Str(x) End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为 A)1和0 B)2和72 C)3和50 D)4和168 (10)阅读程序：

Private Sub Command1_Click() a=0

For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub

第 4 页 共20页

程序运行后，单击窗体，输出结果是

A)105 B)1 C)120 D)15

(11) 以下选项中，不合法的Visual Basic变量名是

Ａ）a5b B）_xyz C）a_b D)andif

(12)假定通过复制，粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是 A)数组中每个命令按钮的名称(Name属性)均为Command1 B)若未做修改,数组中每个命令按钮的大小都一样 C)数组中各个命令按钮使用同一个Click事件过程 D)数组中每个命令按钮的Index属性值都相同

(14)在窗体上画一个命令按钮，名称为Command1,然后编写如下代码： Option Base 0

Private Sub Command1_Click()

Dim A1(4) As Integer, A2(4) As Integer For k = 0 To 2

A1(k + 1) = InputBox(\请输入一个整数\ A2(3 - k) = A1(k + 1) Next k Print A2(k) End Sub

程序运行后,单击命令按钮，在输入对话框中依次输入2、4、6则输出结果为 A)0 B)1 C)2 D)3 (15) 执行以下程序段后,变量C$的值为 a$=\b$=\

C$=UCase(Left$(a$,7)) & b$ & Right$(a$,12)

A)Visual BASIC Programming B)VISUAL C++ Programming C)Visual C++ Programming D)VISUAL BASIC Programming

(16) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base 1

Private Sub Command1_Click() Dim a

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

第 5 页 共20页

For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub

程序运行后，单击命令按钮，其输出结果是 A)4321 B)1234 C)34 D)12 (17)以下数组定义语句中，错误的是

Ａ）Static a (10) As Integer B) Dim c (3, 1 to 4)

C) Dim d (-10) D) Dim b (0 to 5, 1 to 3) As Integer

(18)为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把Scrollbars属性设置为

Ａ）０ B）１ C）２ D）３

(19)若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是

Ａ）用鼠标右键单击此按钮 B）按键盘上的Esc键 C）按键盘上的回车键 D）用鼠标右键双击此按钮 (20)能够存放组合框的所有项目内容的属性是

Ａ）Caption B)Text C)List D)Selected (21)设有如图所示窗体和以下程序： Private Sub Command1_Click()

Textl.Text=“Visual Basic” End Sub

Private Sub Text1_LostFocus()

If Text1.Text <>“BASIC”Then Text1.Text=”” Text1.SetFocus End If End Sub

程序运行时，在Text1文件框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是

Ａ）文本框中无内容，焦点在文本框中 B）文本框中为“Basic”,焦点在文本框中

第 6 页 共20页

C）文本框中为“Basic”,焦点的按钮上 D）文本框中为“Visual Basic”,焦点的按钮上

(22)窗体上有一个名称为Command1的命令按钮，其事件过程如下： Private Sub Command1_Click()

x=“VisualBasicProgramming” a=Right(x,11) b=Mid(x,7,5) C=Msgbox(a, , b)

End Sub

运行程序后单击命令按钮，以下叙述中错误的是

Ａ）信息框的标题是Basic B)信息框中的提示信息是Programming C) C的值是函数的返回值 D）MsgBox的使用格式有错

(23)窗体上有一个名称Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：

Private Type x

a As Integer b AS Integer End Type

Private Sub Command1_Click()

Dim y As x y.a = InputBox(“”) If y.a\\2=y.a/2 Then y.b=y.a*y.a Else

y.b = Fix(y.a/2) End If

Text1.Text=y.b End Sub

对以上程序，下列叙述中错误的是

Ａ）x是用户定义的类型 B）InputBox函数弹出的对话框中没有提示信息 C）若输入的是偶数，y.b的值为该偶数的平方

D）Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回

第 7 页 共20页

(24)窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数Command1,其下标从左到右分别为0、1、2、3,窗体外观如图所示。

命令按钮的事件过程如下：

Private Sub Command1_Click(Index As Integer) Select Case Index Case 0

CD1.Action=1 Case 1

CD1.ShowSave Case 2

CD1.Action=5 Case 3 End End Select End Sub

对上述程序，下列叙述中错误的是

Ａ）单击“打开”按钮，显示打开文件的对话框 B）单击“保存”按钮，显示保存文件的对话框

C）单击“打印”按钮，能够设置打印选项，并执行打印操作 D）单击“退出”按钮，结束程序的运行

(25)窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为“计算”的命令按钮Command1，并编写了以下程序： Private Sub Command1_ClickO

第 8 页 共20页

Call Cale (HV.Value, HT.Value) End Sub

Public Sub Cale(x AS Integer , y AS Integer) Text1.Text = x* y End Sub

运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是

Ａ）过程调用语句不对，应为Cale (HV,HT)

B) 过程定义语句的形式参数不对，应为Sub Cale(x As Control , y As Control) C) 计算结果在文本框中显示出来 D）程序不能正确运行 (26)现有如下程序： Private Sub Command1_ Click()

S=0 For i=1 to 5 S=S+f(5+i) Next Print S End Sub

Public Function f(x As Integer) If x>=10 Then t=x+1 Else t=x+2 End If f=t End Function

运行程序，则窗体上显示的是

Ａ）38 B）49 C）61 D）70

(27)窗体上有一个用菜单编辑器设计的菜单（见上图）。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。以下叙述中错误的

Ａ）在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性（有“√”） B）菜单中的横线是在该菜单项的标题输入框中输入了一个“－”（减号）字符

第 9 页 共20页

C）在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性（有“√”） D）在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√” (28)窗体上有一个名称为Picture1图片框控件，一个名称Label1的标签控件。如图所示。 现有如下程序：

Public Sub display (x As Control) If TypeOf x is Label Then x.Caption=“计算机等级考试”

Else

x.Picture = Loadpicture(“pic.jpg”)

EndIf End Sub

Private Sub Label1_Click() Call display(Label1) End Sub

Private Sub Picture1_Click()

Call display(Picture1) End Sub

对以上程序，下列叙述中错误的是

Ａ）程序运行时会出错 B）单击图片框，在图片框中显示一幅图片 C）过程中的X是控件变量 D）单击标签，在标签中显示一串文字

(29)窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp的事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer , shift AS Integer)

Dim C AS string

Tcxt2.Text=Chr(Asc(c)+2) End Sub

当向文本框Text1中输入小写字母a时，文本框Text2中显示的是 Ａ）Ａ B）a C)C D)c

(30)设窗体上有一个文体框Text1和一个命令按钮Command1,并有以下事件过程：

第 10 页 共20页

Private Sub Command1_Click() Dim S As String , ch As String S=“”

For k=1 TO Len(Text1) ch = Mid(Text1,k,l)

S=ch+S Next k Text1.Text=S End Sub

程序执行时，在文本框中输入“Basic”,然后单击命令按钮，则Text1中显示的是 A）Basic B)cisaB C)BASIC D)CISAB

(31)某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 TO 10

a(K)=InputBox(“输入一个整数”) Next k Max=0 For k=1 To 10 If a(k)＞max Then Max = a(k) End If Next k Print max End Sub

运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是

A) 把If a(k)>max Then改为If a(k)

第 11 页 共20页

Option Base 1

Private Sub Command1_Click() Dim sum As Integer

Sum=0 For i=1 To 4 For j=1 To 3

Sum = sum + score(i,j)

Next j

Print“第”&i&”个学生的总分是:”;sum Next i End Sub

运行此程序时发现，除第1个人的总分计算正确外，其他人的总分是错误的。程序需要修改。以下修改方案中正确的是

A) 把外层循环语句For i=1 TO 4改为For i=1 To 3 内层循环语句For j=1 TO 3 改为For j=1 TO 4 B) 把sum=0移到For i=1 TO 4 和For j=1 TO 3之间 C）把sum = sum+score(i,j)改为sum=sum+score(j,i) D) 把sum=sum+score(i,j)改为sum=score(i,j)

(33)在窗体上画一个命令按钮(名称为Command1)，并编写如下代码: Function fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a - b b = t + a fun1 = t + b End Function

第 12 页 共20页

Private Sub Command1_Click() Dim x As Integer x = 10

Print fun1(fun1(x, (fun1(x, x - 1))), x - 1) End Sub

程序运行后，单击命令按钮，输出结果是 A)10 B)0 C)11 D)21 (34)设有如下通用过程

Public Function Fun(xStr As String) As String Dim tStr As String, strL As Integer tStr = \ strL = Len(xStr) i = strL / 2 Do While i <= strL

tStr = tStr & Mid(xStr, i + 1, 1) i = i + 1 Loop

Fun = tStr & tStr End Function

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如

第 13 页 共20页

下事件过程

Private Sub Command1_Click() Dim S1 As String S1 = \

Text1.Text = LCase(Fun(S1)) End Sub

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

A)ABCDEF B)abcdef C)defdef D)defabc (35)设在工程文件中有一个标准模块，其中定义了如下记录类型: Type Books

Name As String*10 TelNum As String*20 End Type

在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录，下列能够完成该操作的事件过程是

A)Private Sub Command1_Click() Dim B As Books

Open \ For Output As #1 B.Name = InputBox(\输入姓名\ B.Name = InputBox(\输入电话号码\

第 14 页 共20页

Write #1, B.Name, B.TelNum Close #1 End Sub

B)Private Sub Command1_Click() Dim B As Books

Open \ For Output As #1 B.Name = InputBox(\输入姓名\ B.Name = InputBox(\输入电话号码\ Print #1, B.Name, B.TelNum Close #1 End Sub

C)Private Sub Command1_Click() Dim B As Books

Open \ For Output As #1 B.Name = InputBox(\输入姓名\ B.Name = InputBox(\输入电话号码\ Write #1, B Close #1 End Sub

D)Private Sub Command1_Click()

第 15 页 共20页

Dim B As Books

Open \ For Output As #1 B.Name = InputBox(\输入姓名\ B.Name = InputBox(\输入电话号码\ Print #1, Name,TelNum Close #1 End Sub

二、填空题：（15*2=30）

(1)窗体如图所示,其中汽车是名称为Image1的图像框，命令按钮的名称Command1, 计时器的名称为Timer1,直线的名称为Line1。程序运行时，单击命令按钮，则汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。

1)Timer1的Interval属性的值应事先设置为【1】 2)Private Sub Command1_Click() Timer1.Enabled = True End Sub

3)Private Sub Timer1_Timer()

第 16 页 共20页

If Image1.Left > 【2】 Then Image1.Left = 【3】 - 100 End If End Sub

(2)设有以下的循环：要求程序运行时执行3次循环体，请填空。 x=1 DO x=x+2 Print x

Loop Until [4]

(3)窗体上命令按钮Command1的事件过程如下： Private Sub Command1_Click() Dim total As Integer total = s(1)+s(2)

Print total End Sub

Private Function s(m As Integer) As Integer Static x As Integer For i =1 To m x=x+1 Next i S=x

End Function

运行程序，第3次单击命令按钮Command1时，输出结果为 [5] (4)设窗体上有一个名称为Combo1的组合框,并有以下程序： Private Sub Combo1_KeyPress(KeyAscii As Integer) If 【6】 = 13 Then

For k = 0 To Combo1.ListCount - 1 If Combo1.Text = Combo1.List(k) Then

第 17 页 共20页

Combo1.Text = \

Exit For End If Next k

If Combo1.Text <> \Combo1.AddItem 【7】 End If End If End Sub

程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中的文本添加到列表的尾部。请填空。

(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base l

Private Sub Command1_Click() Dim a(10) As Integer For i=1 To 10 a(i)=i Next

Call swap ( [8] ) For i=1 To 10 Print a(i) Next End Sub

Sub swap (b() As Integer) n= [9] For i=1 To n/2

t=b(i) b(i)=b(n) b(n)=t [10] Next End Sub

上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，请填空。

第 18 页 共20页

(6) 在当前目录下有一个名为\的文本文件,其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空 Private Sub Command1_Click()

Dim ch$, ascii As Integer

Open \ For 【11】 As #1 While Not EOF(1)

Line Input #1, ch ascii = toascii(【12】) Print ascii Wend Close #1 End Sub

Private Function toascii(mystr$) As Integer n = 0

For k = 1 To 【13】

n = n + Asc(Mid(mystr, k, 1)) Next k

toascii = n End Function

(7) 在窗体上画1个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load()

Open \ Text1.Text = \End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If UCase(Text1.Text) = [ 14] Then Close 1 End Else

Write #1, [ 15] Text1.Text = \ End If End If End Sub

第 19 页 共20页

以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。

第 20 页 共20页

百度搜索“yundocx”或“云文档网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，云文档网，提供经典综合文库公选-试卷-二级考试指导VB在线全文阅读。