VB习题有答案Word文件下载.docx

VB习题有答案Word文件下载.docx

《VB习题有答案Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB习题有答案Word文件下载.docx（44页珍藏版）》请在冰豆网上搜索。

（A）命令按钮移动到距窗体左边界、上边界各500的位置

（B）窗体移动到距屏幕左边界、上边界各500的位置

（C）命令按钮向左、上方向各移动500

（D）窗体向左、上方向各移动500

2．为了使命令按钮（名称为Command1）右移200，应使用的语句是（C）

A）Command1.Move-200

B）Command1.Move200

C）Command1.Left=Command1.Left+200

D）Command1.Left=Command1.Left-200

3．在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。

下面能够正确实现上述功能的程序是（C）

A）PrivateSubCommand1_Click（）　　

　Text1.Left=100　　　　　　

　EndSub

B）PrivateSubCommand1_Click（）

Text1.Left=Text1.Left-100

EndSub

C）PrivateSubCommand1_Click（）

　Text1.MoveText1.Left+100

EndSub

D）PrivateSubCommand1_Click（）

　Text1.MoveText1.Left

　EndSub　

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

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

4．要使一个文本框可以显示多行文本，应设置为True的属性是（B）

A）EnabledB）MultiLineC）MasLenfthD）Width

4．若设置了文本框的属性PasswordChar=”$”,则运行

程序时向文本框中输入8个任意字符后,文本框中显示的是（A）

　　A）8个”$”　　B）1个”$”　　C）8个”*”　　D）无任何内容

5.能够触发文本框Chang事件的操作是（D）

A）文本框失去焦点B）文本框获得焦点C）设置文本框的焦点D）改变文本框的内容

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

程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。

以下能实现上述操作的事件过程是（A）

A）PrivateSubText1_Change（）

Command1.Caption="

计算机等级考试“

EndSub

B）PrivateSubCommand1_Click（）

Caption="

计算机等级考试"

C）PrivateSubForm1_Click（）

Text1.Caption="

D）PrivateSubCommand1_Click（）

Text1.Text="

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

A．PrivateSubTextl_Click（）

Labell.Caption=Textl.Text

B．PrivateSubText1_Change（）

C．PrivateSubLabell_Change（）

Labell.Caption=Textl.Text

D．PrivateSubLabell_Click（）

EndSub

9．在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：

PrivateSubTxtA_KeyPress（KeyAsciiAsInteger）

……

EndSub

假定焦点已经位与文本框中，则能够触发KeyPress事件的操作是：

（D）

　　A．单击鼠标

　　B．双击文本框

　　C．鼠标滑过文本框

　　D．按下键盘上的能产生Ascii码的键

10．设在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。

要求单击Command1按钮时可把光标移到文本框中。

下面正确的事件过程是（C）

A）PrivateSubCommand1_Click（）

Text1.GotFocus

B）PrivateSubCommand1_Click（）

Command1.GotFocus

EndSub

C）PrivateSubCommand1_Click（）

Text1.SetFocus

D）PrivateSubCommand1_Click（）

Command1.SetFocus

11．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（C）

A）单选按钮B）图片框C）代码窗口D）文本框

12.以下叙述中错误的是（B）。

A）双击鼠标可以触发DblClick事件B）窗体或控件的事件的名称可以由编程人员确定

C）移动鼠标时，会触发MouseMove事件D）控件的名称可以由编程人员设定

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

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

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

14：

设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是（B）。

A）Text1.MaxLength=0B）Text1.Enabled=FalseC）Text1.Visible=FalseD）Text1.Width=0

15．以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是（C）

（A）Form1.Name=“VisualBasic窗体”

（B）Form1.Title=“VisualBasic窗体”

（C）Form1.Caption=“VisualBasic窗体”

（D）Form1.Text=“VisualBasic窗体”

三、第三章

1．整型变量有Byte、Integer、Long类型3种对

2．Byte类型的数据，其数值范围在0～255之间错

3．货币类型数据小数点后面的有效位数最多只有（D）

A、1位B、6位C、16位D、4位

4．下列可作为VisualBasic变量名的是（D）

A）A#AB）4AC）?

xYD）constA

5．以下选项中，不合法的VisualBasic变量名是（B）

A）a5bB）_xyzC）a_bD）andif

6、设有如下语句：

关于这段代码的叙述中，错误的是（A）

　　Dima，bAsInteger

　　c=“VisualBasic”

　　d=#7／20／2005#

A．a被定义为Integer类型变量B．b被定义为Integer类型变量

C．c中的数据是字符串D．d中的数据是日期类型

7．下面可以正确定义2个整形变量和1个字符串变量的语句的是（D）

　　A）Dimn,mAsInterger,sAsString　　B）Dima%,b$,cAsString

　　C）DimaAsInteger,b,cAsString　　D）Dimx%,yAsInteger,zAsString

8（判断）：

用Dim定义数值变量时，该数值变量自动赋初值为0对

9、在VisualBasic中，表达式3*2\5Mod3的值是（A）

Ａ）１　　B）０　　C）３D）出现错误提示

10：

以下关系表达式中，其值为False的是（C）

A）“ABC”>

“AbC”B）“the”<

>

“they”C）“VISUAL”=Ucase（“Visual”）D）“Integer”>

“Int”

11．运算符“\”两边的操作数若类型不同，则先C再运算

A、取整为Byte类型B、取整为Integer类型C、四舍五入为整型D、四舍五入为Byte类型

例．表达式2*4^3+4*6/3+3^2的值是145

例．表达式16/2-2^3*7Mod9的值是6

例．表达式81\7Mod2^2的值是3

13.VB算术运算符乘或除、整除、求余的优先级，从高到低依次为（B）

A、乘或除、求余、整除B、乘或除、整除、求余C、整除、求余、乘或除D、整除、乘或除、求余

将数学表达式2×

（a+b）+5÷

2写成VB的表达式（A）

A）2*（a+b）十5/2B）2^（a+b）+5\2C）（a+b）^2十5*2D）2^（a+b）+5*2

判断：

一个表达式中若有多种运算，在同一层括号内，计算机按逻辑运算→关系运算→算术运算的顺序对表达式求值错

15：

设a=3，b=5，则以下表达式值为真的是（B）

A）a＞=bAndb＞10B）（a＞b）Or（b＞0）C）（a＜0）Eqv（b＞0）D）（-3+5＞a）Andb＞0）

16：

设a=10，b=5，c=1，则判断a>

b>

c的真假（B）

A、TrueB、False

17：

“x是小于105的非负数”，用VB的表达式表示（C）

a）0<

=x<

105b）0<

x<

105c）0<

=xAndx<

105d）0<

=xOrx<

105

18．设x=4,y=8,z=7,以下表达式的值是（B）

yAnd（Noty>

z）Orz<

x

A）TureB）False

19：

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

Nota<

=cOr4*c=b^2Andb<

a+c

A）TrueB）False

20：

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

3>

2*bOra=cAndb<

cOrc>

d

A）1B）TrueC）FalseD）2

21：

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

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

22：

Int（Rnd*100）表示的是哪个范围内的整数。

（C）

A、[0，100]B、[1，99]C、[0，99]D、[1，100]

23：

以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是（B）

　　A）．Left　　B）．Mid　　C）．String　　D）．Instr

24：

函数String（n，“str”）的功能是（B）

A）把数值型数据转换为字符串B）返回由“str”中首字母组成的n个相同字符组成的字符串

C）从字符串中取出n个字符D）从字符串中第n个字符的位置开始取子字符串

25：

返回删除字符串前导和尾随空格符后的字符串用函数（A）

A、TrimB、LtrimC、RtrimD、Mid

26：

键盘上输入两个字符串，分别保存在变量Str1、Str2中。

确定第二个字符串在第一个字符串起始位置的函数（D）

A）LeftB）MidC）StringD）Instr

27.设a=”VisualoBasic”,下面使b=”Basic”的语句是（B）

A）b=left（a,8,12）B）b=mid（a,8,5）C）b=right（a,5,5）D）b=left（a,8,5）

28.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，

然后编写如下两个事件过程：

s=InputBox（"

请输入一个字符串"

）

Text1.Text=s

PrivateSubText1_Change（）

Label1.Caption=UCase（Mid（Text1.Text,7））

程序运行后，单击命令按钮，将显示一个输入对话框，

如果在该对话框中输入字符串“VisualBasic”，

则在标签中显示的内容是BASIC。

29.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：

StrText=InputBox（“请输入”）

Text1.Text=StrText

Label1.Caption=Right（Trim（Text1.Text）,3）

程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是（D）

A）空B）abcdefC）abcD）def

30：

执行以下程序段

a$=“VisualBasicProgramming”

b$=“c++”

c$=Ucase（left$（a$,7））&

b$&

Right$（a$,12）后，变量c$的值为（B）

A）VisualBASICProgrammingB）VISUALc++Programming

C）Visualc++ProgrammingD）VISUALBASICProgramming

31：

执行以下程序后输出的是（C）

PrivateSubCommand1_Click（）

Ch$=”AABCDEFGH”

PrintMid（Right（ch$,6）,Len（left（ch$,4））,2）

A）CDEFGHB）ABCDC）FGD）AB

四、第四章

1：

执行语句s=Len（Mid（“VisualBasic”,1,6））后，s的值（C）

A）VisualB）BasicC）6D）11

2：

设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）

3：

执行下面的程序段后，a、b的值为

a=300

b=20

a=a+b

b=a-b

a=a-b

20300

4：

在窗体上画一个文本框，然后编写如下事件过程PrivateSubForm_Click（）

x=InputBox（“请输入一个整数”）

Text1.Text=x+Text1.Text

程序运行时在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后在窗体上显示的内容为（D）

A）123B）456C）479D）123456

5：

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

PrivateSubCommand1_Click（）

a=InputBox（“Enteraninteger”）

b=InputBox（“Enteraninteger”）

Text1.Text=b+a

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

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

6：

设有语句x=inputbox（“输入数值”，“0”，“示例”）程序运行后，如果从键盘上输入数值10并按回车键，

则下列叙述中正确的是（D）

A）变量x的值是数值10B）在inputbox对话框标题栏中显示的是“示例”

C）0是默认值D）变量x的值是字符串“10”

7：

a=InputBox（"

Today"

"

Tomorrow"

Yesterday"

,,"

Daybeforeyesterday"

5）显示一个输入对话框在对话框的输入区中显示的信息是（C）

A）TodayB）TomorrowC）YesterdayD）Daybeforeyesterday

8．以下关于MsgBox的叙述中，错误的是（D）

A）MsgBox函数返回一个整数

B）通过MsgBox函数可以设置信息框中图标和按钮的类型

C）MsgBox语句没有返回值

D）MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量

9：

假定有如下的窗体事件过程：

PrivateSubForm_Click（）

a="

MicrosoftVisualBasic“

b=Right（a,5）

c=Mid（a,1,9）

MsgBoxa,34,b,c,5

程序运行后单击窗体弹出的信息框标题栏中显示的信息是（C）

A）MicrosoftVisualB）MicrosoftC）BasicD）5

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

a="

softwareandhardware“

b=Right（a,8）

c=Mid（a,1,8）

MsgBoxa,,b,c,1

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

A）softwareandhardwareB）softwareC）hardwareD）1

11：

假定有如下的命令按钮（名称为Command1）事件过程：

　　PrivateSubCommand1_Click（）

　　x=InputBox（“输入：

”，“输入整数”）

　　MsgBox“输入的数据是：

”，，“输入数据：

”+x

　　EndSub

程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是（A）

　　A．x的值是数值10　　B．输入对话框的标题是“输入整数”

　　C．信息框的标题是“输入数据：

10”　　D．信息框中显示的是“输入的数据是：

”

12、窗体上有一个名称为Command1的命令按钮，其事件过程如下：

x=“VisualBasicProgramming”

a=Right（x,11）

b=Mid（x,7,5）

C=Msgbox（a,,b）

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

Ａ）信息框的标题是BasicB）信息框中的提示信息是Programming

C）C的值是函数的返回值　D）MsgBox的使用格式有错

13：

语句“Form1.PrintTab（10）;

”#“”的作用是在窗体当前输出行（A）

A、第10列输出字符“#”B、第9列输出字符“#”C、第11列输出字符“#”D、输出10个字符“#”

14．Print语句的一个输出表达式为D，则输出包括日期、时间信息

A、DateB、MonthC、TimeD、Now

15.语句Print"

5*5"

的显示结果是（C）

A、25B、"

C、5*5D、出现错误提示

16．下列程序段的输出结果是（B）

a=10:

b=10000:

x=log（b）/log（a）:

Print"

lg（10000）="

;

x

A、lg（10000）=5B、lg（10000）=4C、4D、5

17．下面程序运行的结果为：

（C）

DimaaAsinteger

aa=3.8

Printaa

A、3.8B、aa=4C、4D、3

18．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

（A）

a=“VisualBasic”

PrintString（3,a）

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

A）VVVB）VisC）sicD）11

设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是（A）

　　A．PrintA=