设窗体上有一个文本框文档格式.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
升级会员 