Visual Basic 程序设计考试题.docx

Visual Basic 程序设计考试题.docx

《Visual Basic 程序设计考试题.docx》由会员分享，可在线阅读，更多相关《Visual Basic 程序设计考试题.docx（14页珍藏版）》请在冰豆网上搜索。

VisualBasic程序设计考试题

VisualBasic程序设计考试题

一、选择题（每题1.5分共30分）

（1）以下叙述中正确的是（A）。

A）窗体的Name属性指定窗体的名称，用来标识一个窗体

B））窗体的Name属性值是显示在窗体标题栏中文本

C））可以在运行期间改变窗体的Name属性的值

D））窗体的Name属性值可以为空

（2）以下叙述中错误的是（A）。

A）打开一个工程文件时，系统自动装入与该工程有关的窗体文件

B）保存VisualBasic程序时，应分别保存窗体文件及工程文件

C）VisualBasic应用程序只能以解释方式执行

D）窗体文件包含该窗体及其控件的属性

（3）设a=2,b=3,c=4,下列表达式的值是（D）。

Nota<=cOr4*c=b^2Andb<>a+c

A）-1 B）1   C）True   D）False

（4）没有如下的用户定义类型：

TypeStudent

numberAsString

nameAsString

ageASInteger

EndType

则以下正确引用该类型成员的代码是（B）。

A）Student.name=“李明”  B）DimsAsStudent:

s.name=“李明”

C）DimsAsTypeStudent   D）DimsAsType:

  s.name=“李明”

（5）设a=5,b=6,c=7,d=8，执行下列语句后，X的值为（B）。

X=IIf（（a>b）And（c>d）,10,20）

A）10 B）20 C）True   D）False

（6）在窗体上画一个文本框（其名称为Textl）和一个标签（其名称为Labell），程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，以下可以实现上述操作的事件过程是（B）。

A）PrivateSubTextl_Click（）  

Labell.Caption=Textl.Text

   EndSub   

B） PrivateSubText1_Change（）

Labell.Caption=Textl.Text

EndSub

C）PrivateSubLabell_Ctrange（） 

  Labell.Caption=Textl.Text

   EndSub   

D）PrivateSubLabell_Click（）

Labell.Caption=Textl.Text

EndSub

（7）在窗体上面画一个命令按钮和一个标签，其名称分别为Commandl和Labell，然后编写如下事件过程：

PrivateSubCommandl_Click（）

  Counter=0

Fori=1To4

  Forj=6To1Step-2

Counter=Counter+1

  Nextj

   Nexti

Labell.Caption=Str（Counter）

EndSub

程序运行后，单击命令按钮，标签中显示的内容是（C）

A）11 B）12 C）16 D）20

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

PrivateCommandl_Click（）

   DimiAsInteger,nAsInteger

   Fori=0To50

   i=i+3

   n=n+1

   Ifi>10ThenExitFor

Nexti

Textl.Text=Str（n）

EndSub

程序运行后，单击命命令按钮，在文本框中显示的值是（C）。

A）5B）4C）3D）2

（9）在窗体上画一个命令按钮和两个标签，真名和分别为Commandl、Labell和Labe12，然后编写如下事件过程：

PrivateSubCommandl_Chick.

a=0

Fori=1To10

   a=a+1

   b=0

   Forj=1To10

  a=a+1

  b=b+2

   Nextj

Nexti

Labell.Caption=Str（a）

Labe12.Caption=Str（b）

EndSub

程序运行后，单击命令按钮，在标签Labell和Labe12中显示的内容分别为（B）

A）10和20B）20和110C）200和110D）110和20

（10）在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签，列表框中显示若干城市的名称。

当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。

下列能正确实现上述操作的程序是（B）。

A）PrivaleSubListl_Click（）  

   Labell.Caption=Listl.ListIndex  

   Listl.RemoveltemListl.Text 

  EndSub

B）PrivateSubListl_Click（）

Labell.Name=Listl.ListIndex

Listl.RemoveItemListl.Text

EndSub

C）PrivateSubListl_Click（）  

  Labell.Caption=Listl.Text 

  Listl.RemovItemListl.ListIndex

  EndSub

D）PrivateSubListl_Click（）

Labell.Name=Listl.Text

Listl.RemoveItemListl.ListIndex

EndSub

（11）假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。

为了保存该应用程序，以下正确的操作是（B）

A）只保存窗体模块文件

B）分别保存窗体模块、标准模块和工程文件

C）只保存窗体模块和标准模块文件

D）只保存工程文件

（12）为了清除窗体上的一个控件，下列正确的操作是（D）

A）按回车键

B）按Esc键

C）选择（单击）要清除的控件，然后按Del键

D）选择（单击）要清除的控件，然后按回车键

（13）以下叙述中错误的是（D）

A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件

B）当程序运行时，双击一个窗体，则触发该窗体的DblClick事件

C）Visual Basic应用程序只能以解释方式执行

D）事件可以由用户引发，也可以由系统引发

（14）设a=2, b=3, c=4, d=5, 下列表达式的值是（D）

 Not a<=c Or 4*c=b^2 And b<>a+c

 A）-1 B）1 C）True D）False

（15）设a = 5，b = 10，则执行c = Int（（b - a） * Rnd + a） + 1后，c值的范围为（B）

 A）5～10 B）6～9 C）6～10 D）5～9

（16）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程:

Private Sub Command1_Click（）

 a$ = "software and hardware"

 b$ = Right（a$, 8）

 c$ = Mid（a$, 1, 8）

 MsgBox a$, , b$, c$, 1

End Sub

运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是（A）

A）software and hardware B）software C）hardware D）1

（17）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：

Private Sub Command1_Click（）

 a = InputBox（"Enter an integer"）

 b = InputBox（"Enter an integer"）

 Text1.Text = b + a

End Sub

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是（B）

 A）108 B）18 C）810 D）出错

（18）在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：

Private Sub Form_Load（）

  Text1.Text = ""

 Text2.Text = ""

 Text1.SetFocus

End Sub

Private Sub Text1_Change（）

 Text2.Text = Mid（Text1.Text, 8）

End Sub

 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是（A）

 A）BeijingChina B）China C）Beijing D）BeijingC

（19）在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：

Private Sub Form_Load（）

 List1.AddItem "Item 1"

 List1.AddItem "Item 2"

 List1.AddItem "Item 3"

End Sub

Private Sub Command1_Click（）

 List1.List（List1.ListCount） = "AAAA"

End Sub

程序运行后，单击命令按钮，其结果为（D）

A）把字符串“AAAA”添加到列表框中，但位置不能确定

B）把字符串“AAAA”添加到列表框的最后（即“Item 3”的后面）

C）把列表框中原有的最后一项改为“AAAA”

D）把字符串“AAAA”插入到列表框的最前面（即“Item 1”的前面）

（20）假定有如下事件过程：

Private Sub Form_Click（）

 Dim x As Integer, n As Integer

 x = 1

 n = 0

 Do While x < 28

 x = x * 3

 n = n + 1

 Loop

 Print x, n

End Sub

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

A）81 4 B）56 3 

C）28 1 D）243 5

（21）有如下程序：

 Private Sub Form_Click（）

 Dim Check, Counter

 Check = True

 Counter = 0

 Do

 Do While Counter < 20

 Counter = Counter + 1

 If Counter = 10 Then

 Check = False

 Exit Do

 End If

 Loop

 Loop Until Check = False

 Print Counter, Check

 End Sub

 程序运行后，单击窗体，输出结果为（C）

A）15 0 B）20 -1

C）10 True D）10 False

（22）有如下程序：

 Private Sub Form_Click（）

 Dim i As Integer, sum As Integer

 sum = 0

 For i = 2 To 10

 If i Mod 2 <> 0 And i Mod 3 = 0 Then

 sum = sum + i

 End If

 Next i

 Print sum

 End Sub

 程序运行后，单击窗体，输出结果为（C）

 A）12 B）30 C）24 D）18

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

Private Sub Command1_Click（）

 Dim array1（10, 10） As Integer

 Dim i As Integer, j As Integer

 For i = 1 To 3

 For j = 2 To 4

 array1（i, j） = i + j

 Next j

 Next i

 Text1.Text = array1（2, 3） + array1（3, 4）

End Sub

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

 A）12 B）13 C）14 D）15

（24）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click（）

 Dim a1（4, 4）, a2（4, 4）

 For i = 1 To 4

 For j = 1 To 4

 a1（i, j） = i + j

 a2（i, j） = a1（i, j） + i + j

 Next j

 Next i

 Print a1（3, 3）; a2（3, 3）

End Sub

 程序运行后，单击命令按钮，在窗体上输出的是（B）

 A）6 6 B）10 5 C）7 21 D）6 12

（25）有如下程序：

Option Base 1

Private Sub Form_Click（）

 Dim arr, Sum

 Sum = 0

 arr = Array（1, 3, 5, 7, 9, 11, 13, 15, 17, 19）

 For i = 1 To 10

 If arr（i） / 3 = arr（i） \ 3 Then

 Sum = Sum + arr（i）

 End If

 Next i

 Print Sum

End Sub

 程序运行后，单击窗体，输出结果为（C）

 A）25 B）26 C）27 D）28

（26）在窗体上画一个命令按钮，然后编写如下事件过程：

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

 程序运行后，单击命令按钮，输出结果是（C）

 A）ABCDE B）1 2 3 4 5

 C）abcde D）出错信息

（27）以下关于函数过程的叙述中，正确的是（C）

A）如果不指明函数过程参数的类型，则该参数没有数据类型

B）函数过程的返回值可以有多个

C）当数组作为函数过程的参数时，既能以传值方式传递，也能以引用

方式传递

D）函数过程形参的类型与函数返回值的类型没有关系

（28）函数过程F1的功能是：

如果参数b为奇数，则返回值为1，否则返回值为0。

以下能正确实现上述功能的代码是（D）

A）Function F1（b As Integer）

 If b Mod 2 = 0 Then

 Return 0

 Else

 Return 1

 End If

End Function

B）Function F1（b As Integer）

 If b Mod 2 = 0 Then

 F1 = 0

 Else

 F1 = 1

 End If

End Function

C）Function F1（b As Integer）

 If b Mod 2 = 0 Then

 F1 = 1

 Else

 F1 = 0

 End If

End Function

D）Function F1（b As Integer）

 If b Mod 2 <> 0 Then

 Return 0

 Else

 Return 1

 End If

End Function

（29）以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是（A）

A）KeyAscii参数是所按键的ASCII码

B）KeyAscii参数的数据类型为字符串

C）KeyAscii参数可以省略

D）KeyAscii参数是所按键上标注的字符

（30）设窗体上有一个名为Text1的文本框，并编写如下程序：

Private Sub Form_Load（）

 Text1.Text = ""

 Text1.SetFocus

End Sub

Private Sub Form_MouseUp（Button As Integer,  Shift As Integer, X As Single, Y As Single）

 Print "程序设计"

End Sub

Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）

 Print "Visual Basic";

End Sub

程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（A）

 A）Visual Basic B）程序设计

 C）Visual Basic程序设计 D）a程序设计

二、填空题（每空2分，共30分）

（1）VisualBasic是一种面向对象的可视化程序设计语言，采取了（事件驱动）的编程机制 。

（2）可以同时删除字符串前导和尾部空格的函数是（Trin）。

（3）在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。

程序运行后,Command1为禁用（灰色），此时如果在文本框中输入字符,则命令按钮Command1变为可用。

请填空。

PrivateSubForm_Load（）

command1.Enabled=False

EndSub

PrivateSubText1_change（）

Command1.Enabled=（True.Text）

EndSub

（4）表达式16/4–2^3*7/4Mod5\2的值是（24）。

（5）数学关系式

表示成正确的VB表达式为（ifx=>3andx<10）

（6）MsgBox函数的返回值的类型是（数值型）。

（7） 表达式Len（"123程序设计ABC"）的值是（14）

（8）用语句DimA（-3to5，3）AsLong定义的数组元素个数是（9）

（9）表达式Int（1234.555*100+0.5）/100的结果是（123.456）.

（10）窗体的标题条显示内容由窗体对象的（Name）属性决定。

（11）设有以下函数过程：

Function fun（m As Integer） As Integer

 Dim k As Integer, sum As Integer

 sum = 0

 For k = m To 1 Step -2

 sum = sum + k

 Next k

 fun = sum

End Function

若在程序中用语句 s = fun（10） 调用此函数，则s的值为（9 ） 。

（12）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。

程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。

例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。

请填空。

Private Sub Command1_Click（ ）

 Dim str As String, s As String, c As String

 str = （abDfdb）

 s = ""

 c = "Z"

 While c >= "A"

 If InStr（str, c） = 0 Then

 s = （）

 End If

 c = Chr$（Asc（c）-1）

 Wend

 If s <> "" Then

 Text1 = s

 End If

End Sub

（13）以下是一个比赛评分程序。

在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。

运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。

请填空。

Private Sub Command1_Click（ ）

 Dim k As Integer

 Dim sum As Single, max As Single, min As Single

 sum = Text1（0）

 max = Text1（0）

 min = （）

 For k = 1 To 6

 If max < Text1（k） Then

 max = Text1（k）

 End If

 If min > Text1（k） Then

 min = Text1（k）

 En