VB试题Word文件下载.docx
- 文档编号:6281987
- 上传时间:2023-05-06
- 格式:DOCX
- 页数:24
- 大小:24.38KB
VB试题Word文件下载.docx
《VB试题Word文件下载.docx》由会员分享,可在线阅读,更多相关《VB试题Word文件下载.docx(24页珍藏版)》请在冰点文库上搜索。
b+1Orc<
dAndbModc
A)TrueB)1C)–1D)0
(7)以下可以作为VisualBasic变量名的是。
A)A#AB)counstAC)3AD)?
AA
(8)以下叙述中,错误的是。
A)一个VisualBasic应用程序可以含有多个标准模块文件
B)一个VisualBasic工程可以含有多个窗体文件
C)标准模块文件可以属于某个指定的窗体文件
D)标准模块文件的扩展名是.bas
(9)假定有如下的命令按钮(名称为Command1)事件过程:
PrivateSubCommand1_Click()
x=InputBox("
输入:
"
,"
输入整数"
)
MsgBox"
输入的数据是:
”,,”输入数据:
+x
EndSub
程序运行后,单击命令按钮,如果从键盘上输入整数9,则以下叙述中错误的是。
A)x的值是数值9B)输入对话框的标题是“输入整数”
C)信息框的标题是“输入数据:
9”D)信息框中显示的是“输入的数据是:
”
(10)在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1),然
后编写如下事件过程:
PrivateSubCommand1_Click()
x=Val(Text1.Text)
SelectCasex
Case1,3
y=x*x
CaseIs>
=10,Is<
=-10
y=x
Case-10To10
y=-x
EndSelect
程序运行后,在文本框中输入4,然后单击命令按钮,则以下叙述中正确的是。
A)执行y=x*xB)执行y=-xC)先执行y=x*x,再执行y=-xD)程序出错
(11)设有命令按钮Command1的单击事件过程,代码如下:
Dima(10)AsInteger
Fori=1To10
a(i)=Int(Rnd*100)
Next
ForEacharrItemIna
IfarrItemMod4=0ThenPrintarrItem;
IfarrItem>
50ThenExitFor
对于该事件过程,以下叙述中错误的是。
A)a数组中的数据是10个100以内的整数
B)语句ForEacharrItemIna有语法错误
C)IfarrItemMod4=0……语句的功能是输出数组中能够被4整除的数
D)IfarrItem>
50……语句的作用是当数组元素的值大于50时退出For循环
(12)设有命令按钮Command1的单击事件过程,代码如下:
Dima(3,3)AsInteger
Fori=1To3
Forj=1To3
a(i,j)=i*j+i
Nextj
Nexti
Sum=0
Sum=Sum+a(i,4-i)
PrintSum
运行程序,单击命令按钮,输出结果是。
A)20B)7C)16D)17
(13)在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程:
a=0
Fori=1To2
Forj=1To4
IfjMod2<
>
0Then
a=a-1
EndIf
a=a+1
Printa
程序运行后,单击命令按钮,输出结果是。
A)0B)2C)3D)4
(14)窗体上有名称分别为Text1、Text2的2个文本框,有一个由3个单选按钮构成的控件数组Option1,如图1所示。
程序运行后,如果单击某个单选按钮,则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100),并将结果显示在Text2中。
为了实现上述功能,在程序中的问号(?
)处应填入的内容是。
PrivateSubOption1_Click(IndexAsInteger)
IfText1.Text<
Then
SelectCase?
Case0
Text2.Text=Val(Text1.Text)
Case1
Text2.Text=Val(Text1.Text)*10
Case2
Text2.Text=Val(Text1.Text)*100
A)IndexB)Option1.IndexC)Option1(Index)D)Option1(Index).Value
(15)在窗体上画1个命令按钮,其名称为Command1,然后编写如下程序:
DimxAsInteger
a(i)=8+i
x=2
Printa(f(x)+x)
Functionf(xAsInteger)
x=x+3
f=x
EndFunction
程序运行后,单击命令按钮,输出结果为。
A)12B)15C)17D)18
(16)以下关于过程的叙述中,错误的是。
A)事件过程是由某个事件触发而执行的过程B)函数过程的返回值可以有多个
C)可以在事件过程中调用通用过程D)不能在事件过程中定义函数过程
(17)在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1),外观如图所示。
编写如下程序:
PrivateSubForm_Load()
Text1.Text="
Text2.Text="
Text3.Text="
x=Val(Text1.Text)
y=Val(Text2.Text)
Text3.Text=f(x,y)
Functionf(ByValxAsInteger,ByValyAsInteger)
DoWhiley<
tmp=xMody
x=y
y=tmp
Loop
运行程序,在Text1文本框中输入36,在Text2文本框中输入24,然后单击命令按钮,则在Text3文本框中显示的内容是。
A)4B)6C)8D)12
(18)在窗体上画1个文本框,其名称为Text1,然后编写如下过程:
PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
PrintChr(KeyCode)
PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)
PrintChr(KeyCode+2)
程序运行后,把焦点移到文本框中,此时如果敲击“C”键,则输出结果为。
A)CB)CC)CD)C
CDEF
(19)为了使列表框中的项目呈多列显示,需要设置的属性为。
A)ColumnsB)StyleC)ListD)MultiSelect
(20)如果列表框(List1)中只有一个项目被用户选定,
则执行Debug.PrintList1.Selected(List1.ListIndex)语句的结果是
A)在Debug窗口输出被选定的项目的索引值B)在Debug窗口输出True
C)在窗体上输出被选定的项目的索引值D)在窗体上输出True
(21)在窗体上画1个命令按钮,名称为Command1,然后编写如下程序:
DimFlagAsBoolean
DimintNumAsInteger
intNum=InputBox("
请输入:
IfFlagThen
Printf(intNum)
Functionf(XAsInteger)AsInteger
IfX<
10Then
Y=X
Else
Y=X+10
f=Y
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Flag=True
运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为。
A)0B)5C)15D)无任何输出
(22)在菜单编辑器中建立1个名称为Menu0的菜单项,将其“可见”属性设置为False,并建立其若干子菜单,然后编写如下过程:
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
PopupMenuMenu0
EndSub
则以下叙述中错误的是。
A)该过程的作用是弹出一个菜单B)单击鼠标右键时弹出菜单
C)Menu0是在菜单编辑器中定义的弹出菜单的名称D)参数X、Y指明鼠标当前位置的坐标
(24)设有以下职工的记录类型(由职工号、姓名、工资(基本工资,绩效工资,奖金))定义和数组声明,则要表示第2个职工的绩效工资和该职工的姓名,正确的是
Typeworker
noAsInteger
nameAsString*10
salary(1to3)AsSingle
EndType
Dimw10(1To10)Asworker
A)w10
(2).salary
(2),w10
(2).nameB)w10
(2).salary,w10
(2).name
C)w2.salary
(2),w2.nameD)Withw10
(2)
.salary
.name
EndWith
(25)现有一名为StatusBar1的状态栏,共有3个窗格,现要在最后增加一个窗格,用于显示
系统的当前大小写状态,以下实现方法中,正确的是
A)StatusBar1.Panels.Add4,,,sbrCaps
B)StatusBar1.Add4,"
curCaps"
,4
C)StatusBar1.Panels.Add4,"
cur"
sbrCaps
D)StatusBar1.Add4,,sbrCaps
(27)指令“Circle(500,500),250,,,,0.6”将绘制
A)画圆B)椭圆C)圆弧D)扇形
(28)在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。
程序运行以后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是:
A)PrivateSubText1_Change()
Command1.Caption=”计算机等级考试”
B)PrivateSubCommand1_Click()
Caption=”计算机等级考试”
C)PrivateSubForm1_Click()
Text1.Caption=”计算机等级考试”
D)PrivateSubCommand1_Click()
Text1.Text=”计算机等级考试”
(29)设a=5,b=4,c=3,d=2,下列表达式的值是 3>
2*bOra=cAndb<
cOrc>
d
A)1
B)True
C)False
D)2
(30)设a=”MicrosoftVisualBasic”,则以下使变量b的值为”VisualBasic”的语句是
A)b=Left(a,10) B)b=Mid(a,10) C)b=Right(a,10)D)b=Mid(a,11,10)
(31)为了使命令按钮(名称为Command1)右移200,应使用的语句是
A)Command1.Move-200 B)Command1.Move200
C)Command1.Left=Command1.Left+200 D)Command1.Left=Command1.Left-200
(32)在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False,程序运行后,如果单击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。
以下是实现上述操作的程序:
PrivateSubCommand1_Click()
Timer1._________
EndSub
PrivateSubTimer1_Timer()
Text1.Text=Time
在______处应填入的内容是
A)Enabled=True B)Enabled=False C)Visible=True D)Visible=False
(33)假定在图片框Picture1中装入了一个图形,为了清除该图形(不删除图片框),应采用的正确方法是:
A)选择图片框,然后按Del键 B)执行语句Picture1.Picture=LoadPicture(“”)
C)执行语句Picture1.Picture=””D)选择图片框,选择Picture属性,然后按回车键
(34)在窗体上画一个List1的列表框,一个名称为Label1的标签,列表框中显示若干个项目,当单击列表框中的某个项目时,在标签中显示被选中的项目的名称,下列能正确实现上述操作的程序是
A)PrivateSubList1_Click() Label1.Caption=List1.ListIndex EndSub
B)PrivateSubList1_Click() Label1.Name=List1.ListIndex EndSub
C)PrivateSubList1_Click() Label1.Name=List1.Text EndSub
D)PrivateSubList1_Click() Label1.Caption=List1.Text EndSub
(35)在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimiAsInteger,xAsInteger
Fori=1To6
Ifi=1Thenx=i
Ifi<
=4Then
x=x+1
Else
x=x+2
EndIf
Nexti
Printx
EndSub
程序运行后,单击命令按钮,其输出结果为
A)9 B)6 C)12 D)15
(36)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
c="
ABCD"
Forn=1To4
Print_________
Next
程序运行后,单击命令按钮,要求在窗体上显示如下内容:
D
CD
BCD
ABCD
则在________处应填入的内容为
A)Left(c,n) B)Right(c,n) C)Mid(c,n,1)
D)Mid(c,n,n)
(37)执行以下程序段
DimxAsInteger,iAsInteger
x=0
Fori=20To1Step-2
x=x+i\5
NextI
后,x的值为
A)16 B)17 C)18 D)19
(38)在VisualBasic工程中,可以作为启动对象的程序是
A)任何窗体或标准模块
B)任何窗体或过程
C)SubMain过程或其他任何模块
D)SubMain过程或任何窗体
(39)假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是
A)数组中每个命令按钮的名称(名称属性)均为Command1
B)数组中每个命令按钮的标题(Caption属性)都一样
C)数组中所有命令按钮可以使用同一个时间过程
D)用名称Command1(下标)可以访问数组中的每个命令按钮
(40)把窗体的KeyPreview属性设置为True,然后编写如下事件过程:
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
DimchAsString
ch=Chr(KeyAscii)
KeyAscii=Asc(UCase(ch))
PrintChr(KeyAscii+2)
程序运行后,按键盘上的”A”键,则在窗体上显示的内容是
A)A B)B C)C D)D
(41)在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:
a=InputBox("
请输入日期(1~31)"
t="
旅游景点:
_
&
IIf(a>
0Anda<
=10,"
长城"
"
)_
10Anda<
=20,"
故宫"
20Anda<
=30,"
颐和园"
Text1.Text=t
程序运行后,如果从键盘输入16,则在文本框中显示的内容是:
A)旅游景点:
长城故宫
B)旅游景点:
长城颐和园
C)旅游景点:
颐和园
D)旅游景点:
故宫
(42)在窗体上画一个名称为Label1的标签,然后编写如下事件过程:
PrivateSubForm_Click()
Dimarr(10,10)AsInteger
DimiAsInteger,jAsInteger
Fori=2To4
Forj=2To4
arr(i,j)=i*j
Nextj
Label1.Caption=Str(arr(2,2)+arr(3,3))
程序运行后,单击窗体,在标签中显示的内容是
A)12B)13C)14D)15
(43)在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
PrivateFunctionfun(ByValmAsInteger)
IfmMod2=0Then
fun=2
Else
fun=1
DimiAsInteger,sAsInteger
s=0
Fori=1To5
s=s+fun(i)
Next
Prints
程序运行后,单击命令按钮,则窗体上显示的是:
A)6B)7C)8D)9
(44)阅读程序:
OptionBase1
Dimarr()AsInteger
PrivateSubForm_Click()
ReDimarr(3,2)
Fori=1To3
Forj=1To2
arr(i,j)=i*2+j
ReDimPreservearr(3,4)
Forj=3To4
arr(3,j)=j+9
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 试题