设窗体上有一个文本框文档格式.docx

设窗体上有一个文本框文档格式.docx

《设窗体上有一个文本框文档格式.docx》由会员分享，可在线阅读，更多相关《设窗体上有一个文本框文档格式.docx（43页珍藏版）》请在冰豆网上搜索。

）

SelectCasex

Case1,3

Print"

分支1"

CaseIs>

4

分支2"

CaseElse

Else分支"

EndSelect

程序运行后，如果在输入对话框中输入2，则窗体上显示的是

A）分支1B）分支2C）Else分支D）程序出错

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

A）MsgBox函数返回一个整数

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

C）MsgBox语句没有返回值

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

（7）在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是D

A）Timer1.InterVal=0.5B）Timer1.Interval=5

C）Timer.Interval=50D）Timer1.Interval=500

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

B

StaticxAsInteger

Cls

Fori=1To2

y=y+x

x=x+2

Next

Printx,y

程序运行后，连续三次单击Command1按钮后，窗体上显示的是

A）42B）1218C）1230D）46

（9）以下关于多重窗体程序的叙述中，错误的是A

A）用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体

B）在多重窗体程序中，各窗体的菜单是彼此独立的

C）在多重窗体程序中，可以根据需要指定启动窗体

D）对于多重窗体程序中，而且单独保存每个窗体

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

A）事件过程是响应特定事件的一段程序

B）不同的对象可以具有相同名称的方法

C）对象的方法是执行指定操作的过程

D）对象事件的名称可以由编程者指定

（11）以下合法的VisualBasic标识符是A

A）ForLoopB）ConstC）9abcD）a#x

（12）当一个复选框被选中时，它的Value属性的值是C

A）3B）2C）1D）0

（13）表达式5Mod3+3\5*2的值是B

A）0B）2C）4D）6

（14）设x=4,y=8,z=7，以下表达式的值是D

x<

yAnd（Noty>

z）Orz<

x

A）1B）-1C）TrueD）False

（15）设有如下程序段：

x=2

Fori=1To10Step2

x=x+i

Next

运行以上程序后，x的值是

A）26B）27C）38D）57

（16）以下叙述中错误的是B

A）在KeyPress事件过程中不能识别键盘的按下与释放

B）在KeyPress事件过程中不能识别回车键

C）在KeyDown和KeyUp事件过程中，将键盘输入的"

A"

和"

a"

视作相同的字母

D）在KeyDown和KeyUp事件过程中，从大键盘上输入的"

1"

和从右侧小键盘上输入的"

被视作不同的字符

（17）执行如下两条语句，窗体上显示的是D

a=9.8596

PrintFormat（a,"

$00,00.00"

A）0,009.86B）$9.86C）9.86D）$0,009.86

（18）在窗体上画一个名称为CommandDialog1D

的通用对话框，一个名称为Command1的命令按钮。

然后编写如下事件过程：

CommonDialog1.FileName="

"

CommonDialog1.Filter="

All

file|*.*|（*.Doc）|*.Doc|（*.Txt）|*.Txt"

CommonDialog1.FilterIndex=2

CommonDialog1.DialogTitle="

VBTest"

CommonDialog1.Action=1

对于这个程序，以下叙述中错误的是

A）该对话框被设置为“打开”对话框

B）在该对话框中指定的默认文件名为空

C）该对话框的标题为VBTest

D）在该对话框中指定的默认文件类型为文本文件（*.Txt）

（19）设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。

窗体Form1的程序代码如下：

DimaAsInteger

a=10

Callg（Form2,a）

PrivateSubg（fAsForm,xAsInteger）

y=IIf（x>

10,100,-100）

f,Show

f.Caption=y

运行以上程序，正确的结果是

A）Form1的Caption属性值为100B）Form2的Caption属性值为-100

C）Form1的Caption属性值为-100D）Form2的Caption属性值为100

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

D

DimxAsInteger

StaticyAsInteger

x=10

y=5

Callf1（x,y）

PrivateSubf1（ByRefx1AsInteger,y1AsInteger）

x1=x1+2

y1=y1+2

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

A）105B）125C）107D）127

（21）设有如下程序C

OptionBase1

Dima（10）AsInteger

DimnAsInteger

n=InputBox（"

输入数据"

Ifn<

10Then

CallGetArray（a,n）

EndIf

PrivateSubGetArray（b（）AsInteger,nAsInteger）

Dimc（10）AsInteger

j=0

Fori=1Ton

b（i）=CInt（Rnd（）*100）

Ifb（i）/2=b（i）\2Then

j=j+1

c（j）=b（i）

Printj

以下叙述中错误的是

A）数组b中的偶数被保存在数组c中

B）程序运行结束后，在窗体上显示的是c数组中元素的个数

C）GetArray过程的参数n是按值传送的

D）如果输入的数据大于10，则窗体上不显示任何显示

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

Dima

a=Array（1,2,3,4,5）

Fori=1ToUBound（a）

a（i）=a（i）+i-1

Printa（3）

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

A）4B）5C）6D）7

（23）阅读程序C

PrivateSubForm_Click（）

Dimarr,Sum

Sum=0

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

Fori=1To10

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

Sum=Sum+arr（i）

Nexti

PrintSum

程序运行后，单击窗体，输入结果为

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

（24）在窗体上画一个名称为File1的文件列表框，并编写如下程序：

PrivateSubFile1_DblClick（）

x=Shell（File1.FileName,1）

以下关于该程序的叙述中，错误的是

A）x没有实际作用，因此可以将该语句写为：

CallShell（File1,FileName,1）

B）双击文件列表框中的文件，将触发该事件过程

C）要执行的文件的名字通过File1.FileName指定

D）File1中显示的是当前驱动器、当前目录下的文件

（25）在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500,如图所示。

编写如下程序：

PrivateSubForm_Load（）

Timer1.Enabled=False

Timer1.Enabled=True

PrivateSubTimer1_Timer（）

IfLabel1.Left<

WidthThen

Label1.Left=Label1.Left+20

Else

Label1.Left=0

程序运行后，单击“开始”按钮，标签在窗体中移动。

A）标签的移动方向为自右向左

B）单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

C）当标签全部移出窗体后，将从窗体的另一端出现并重新移动

D）标签按指定的时间时隔移动

（26）执行以下程序段B

a$="

abbacddcba"

Fori=6To2Step-2

X=Mid（a,i,i）

Y=Left（a,i）

z=Right（a,i）

z=UCase（X&

Y&

z）

Printz

输出结果为

A）ABAB）BBABBAC）ABBABAD）AABAAB

（27）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

DimaAsVariant

a=Array（1,2,3,4,5）

Sum=0

Fori=1To5

Sum=sum+a（i）

x=Sum/5

Fori=1To5

Ifa（i）>

xThenPrinta（i）;

A）12B）123C）345D）45

（28）假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。

Model1代码如下：

PublicxAsInteger

PublicyAsInteger

SubS1（）

x=1

S2

SubS2（）

y=10

Form1.Show

EndShow

Model2的代码如下：

SubMain（）

S1

其中SubMain被设置为启动过程。

程序运行后，各模块的执行顺序是C

A）Form1->

Model1->

Model2

B）Model1->

Model2->

Form1

C）Model2->

D）Model2->

Form1->

Model1

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

PrivateSubCommand1_Click（）

Move500，500

EndSub

程序运行后，单击命令按钮，执行的操作为

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

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

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

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

（2）在窗体上有若干控件，其中有一个名称为Text1的文本框。

影响Text1的Tab顺序的属性是D

A）TabStopB）Enabled

C）VisibleD）TabIndex

（30）在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A

（A）Fori=0ToList1.ListCount-1

……

（B）Fori=0ToListCount-1

…

C）Fori=1ToList1.listCount

D）Fori=1ToListCount

（31）以下Case语句中错误的是C

A）Case0To10B）CaseIs>

10

C）CaseIs>

10AndIs<

50D）Case3,5,Is>

（32）以下关于图片框控件的说法中，错误的是D

A）可以通过Print方法在图片框中输出文本

B）清空图片框控件中图形的方法之一是加载一个空图形

C）图片框控件可以作为容器使用

D）用Stretch属性可以自动调整图片框中图形的大小

（33）执行语句s=Len（Mid（"

VisualBasic"

1,6））后，s的值是C

A）VisualB）BasicC）6D）11

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

A）下拉式菜单和弹出式菜单都用菜单编辑器建立

B）在多窗体程序中，每个窗体都可以建立自己的菜单系统

C）除分隔线外，所有菜单项都能接收Click事件

D）如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见

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

a=12345

PrintFormat$（a,"

000.00"

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

A）123.45B）12345.00C）12345D）00123.45

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

A）一个工程可以包括多种类型的文件

B）VisualBasic应用程序既能以编译方式执行，也能以解释方式执行

C）程序运行后，在内存中只能驻留一个窗体

D）对于事件驱动型应用程序，每次运行时的执行顺序可以不一样

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

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

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

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

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

（38）以下关于变量作用域的叙述中，正确的是B

A）窗体中凡被声明为Private的变量只能在某个指定的过程中使用

B）全局变量必须在标准模块中声明

C）模块级变量只能用Private关键字声明

D）Static类型变量的作用域是它所在的窗体或模块文件

（39）确定一个控件在窗体上的位置的属性是C

A）Width和HeightB）Width或Height

C）Top和LeftD）Top或Left

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

Text1.Text="

Visual"

Me.Text1="

Basic"

Text1="

Program"

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

A）VisualB）BasicC）ProgramD）出错

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

A）"

ABC"

>

AbC"

B）"

the"

<

they"

C）"

VISUAL"

=UCase（"

）D）"

Integer"

Int"

（42）语句Print5/4*6\5Mod2的输出结果是B

A）0B）　1C）2D）3

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

　　strText=InputBox（"

请输入"

　　Text1.Text=strText

PrivateSubText1_Change（）

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

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

A）空B）abcdefC）abcD）def

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

C

x=-5

IfSgn（x）Then

　　y=Sgn（x^2）

　　y=Sgn（x）

Printy

A）-5B）25C）1D）-1

（45）一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句PubilcXAsInteger，在Model1中有语句PubilcYAsInteger，则以下叙述中正确的是C

A）变量X、Y的作用域相同B）Y的作用域是Model1

C）在Form1中可以直接使用XD）在Form2中可以直接使用X和Y

（46）在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。

当改变当前驱时，目录列表框应该与之同步改变。

设置两个控件同步的命令放在一个事件过程中，这个事件过程是A

A）Drive1_ChangeB）Drive1_Click

C）Dir1_ClickD）Dir1_Change

（47）在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:

Dima

s=0

a=Array（1,2,3,4）

j=1

Fori=4To1Step-1

s=s+a（i）*j

j=j*10

Nexti

Prints

运行上面的程序，单击命令按钮，其输出结果是

A）4321B）1234C）34D）12

（48）在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。

以下能实现该操事件过程是A

A）PrivateSubText1_KeyPress（KeyAsciiAsInteger）

IfKeyAscii<

65OrKeyAscii>

90Then

MsgBox"

请输入大写字母"

KeyAscii=0

EndIf

B）PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

IfKeyCode<

65OrKeyCode>

KeyCode=0

C）PrivateSubText1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

IfAsc（Text1.Text）<

65OrAsc（Text1.Text）>

D）PrivateSubText1_Change（）

IfAsc（Text1.Text）>

64AndAsc（Text1.Text）<

91The