VB试题有答案Word文档下载推荐.docx
- 文档编号:2960117
- 上传时间:2023-05-01
- 格式:DOCX
- 页数:37
- 大小:34.23KB
VB试题有答案Word文档下载推荐.docx
《VB试题有答案Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《VB试题有答案Word文档下载推荐.docx(37页珍藏版)》请在冰点文库上搜索。
c$=b$&
UCase(Mid$(a$,7,6))&
Right$(a$,11)
A)VisualBASICPrograming
B)QuickBasicPrograming
C)QUICKBasicPrograming
D)QuickBASICPrograming
(9)为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是。
A)ValueB)DefaultC)CancelD)Enabled
(10)为了把焦点移到某个指定的控件,所使用的方法是
A)SetFocusB)VisibleC)RefreshD)GetFocus
(11)设a=6,则执行x=IIf(a>
5,-1,0)后,x的值为。
A)5B)6C)0D)-1
(12)执行下面的程序段后,x的值为。
x=5
Fori=1To20Step2
x=x+i\5
Nexti
A)21B)22C)23D)24
(13)在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
Fori=1To4
x=4
Forj=1To3
x=3
Fork=1To2
x=x+6
Nextk
Nextj
Printx
EndSub
程序运行后,单击命令按钮,输出结果是。
A)7B)15C)157D)538
(14)在窗体上画一个命令按钮,然后编写如下事件过程:
PrevateSubCommand1_Click()
x=0
DoUntilx=-1
a=InputBox(“请输入A的值”)
a=Val(a)
b=InputBox(“请输入B的值”)
b=Val(b)
x=InputBox(“请输入x的值”)
x=Val(x)
a=a+b+x
Loop
Printa
程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为。
A)2B)3C)14D)15
(15)在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程:
a=Text1.Text+Text2.Text
PrivateSubFormm_Load()
Text1Text="
"
Text2Text="
Endsub
程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321,然后单击命令按钮,则输出结果为。
A)444B)321123C)123321D)132231
(16)阅读下面的程序段:
Fori=1To3
Forj=1Toi
Fork=jTo3
a=a+1
执行上面的三重循环后,a的值为。
A)3B)9C)14D)21
(17)在窗体上画一个文本框(其中Name属性为Text1),然后编写如下事件过程:
PrivateSubForm_Load()
Ttext1.Text="
Text1.SetFocus
Fori=1To10
Sum=Sum+i
Text1.Text=Sum
上述程序的运行结果是。
A)在文本框Text1中输出55
B)在文本框Text1中输出0
C)出错
D)在文本框Text1中输出不定值
(18)在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程:
DoWhilex<
50
x=(x+2)*(x+3)
n=n+1
Text1.Text=Str(n)
Text2.Text=Str(x)
程序运行后,单击命令按钮,在两个文本框中显示的值分别为
A)1和0B)2和72C)3和50D)4和168
(19)用下面语句定义的数组的元素个数是。
DimA(-3To5)AsInteger
A)6B)7C)8D)9
(20)以下程序的输出结果是
OptionBase1
Dima(10),p(3)AsInteger
k=5
a(i)=i
p(i)=a(i*i)
NextI
k=k+p(i)*2
Printk
A)33B)28C)35D)37
(21)在窗体上面画一个命令按钮,然后编写如下事件过程:
PrivateSubCommandl_Click()
Dima
a=Array(1,2,3,4)
j=1
Fori=4ToStep-1
s=s+a(i)*j
j=j*10
Prints
运行上面的程序,单击命令按钮,其输出结果是。
A)4321B)12C)34D)1234
(22)在窗体上面一个命令按钮(其Name属性为Commandl),然后编写如下代码:
PrivateSubCommandl_Click()
Dima(4,4)
Fori=1To4
Forj=1To4
a(i,j)=(i-1)*3+j
Fori=3To4
Forj=3To4
Printa(j,i);
程序运行后,单击命令按钮,其输出结果为。
A)69B)710C)811D)912
7108119121013
(23)假定有如下的Sub过程:
SubS(xAsSingle,yAsSingle)
t=x
x=t/y
y=tMody
在窗体上画一个命令按钮,然后编写如下事件过程:
Private
SubCommandl_Click()
DimaAsSingle
DimbAsSingle
a=5
b=4
Sa,b
Printa,b
程序运行后,单击命令按钮,输出结果为。
A)54B)11C)1.254D)1.251
(24)阅读程序:
FunctionF(aAsInteger)
b=0
Staticc
b=b+1
c=c+1
f=a+b+c
EndFunction
PrivateSubCommandl_Click()
DimaAsInteger
a=2
Fori=1To3
PrintF(a)
运行上面的程序,单击命令按钮,输出结果为。
A)4B)4C)4D)4
4567
4689
(25)阅读程序:
SubsubP(b()AsInteger)
b(i)=2*i
Dima(1To4)AsInteger
a
(1)=5
a
(2)=6
a(3)=7
a(4)=8
subPa()
Printa(i)
A)2B)5C)10D)出错
4612
6714
8816
(26)下列不能打开菜单编辑器的操作是。
A)按Ctrl+E
B)单击工具栏中的“菜单编辑器”按钮
C)执行“工具”菜单中的“菜单编辑器”命令
D)按Shift+Alt+M
(27)假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项失效(变灰),应使用的语句为。
A)MenuItem.Enabled=False
B)MenuItem.Enabled=True
C)MenuItem.Visible=True
D)Menultem.Visible=False
(28)在程序运行期间,如果拖动滚动条上的滚动块,则触发的滚动条事件是。
A)MoveB)ChangeC)ScrollD)GetFocus
(29)假定窗体上有一个标签,名为Labell,为了使该标签透明并且没有边框,则正确的属性设置为。
A)Label1.BackStyle=0
Label1.Borderstyle=0
B)Label1.BackStyle=1
Label1.Borderstyle=1
C)Label1.BackStyle=True
Label1.BorderStyle=True
D)Label1.BackStyle=False
Label1.Borderstyle=False
(30)在窗体上画一个列表框和一个文本框,然后编写如下两个事件过程:
PrivateSubForm_Load()
List1.AddItem"
357"
246"
123"
Listl.AddItem"
456"
Text1.Text="
PrivateSubList1_DblClick()
a=List1.Text
Printa+Text1.Text
程序运行后,在文本框中输入“789”(见图1),然后双击列表框中的"
,则输出结果为。
A)1245B)456789C)789456D)0
(31)为了暂时关闭计时器,应把该计时器的某个属性设置为False,这个属性是。
A)VisibleB)TimerC)EnabledD)Interval
(32)为了把一个记录型变量的内容写入文件中指定的位置,所使用的语句的格式为。
A)Get文件号,记录号,变量名
B)Get文件号,变量名,记录号
C)Put文件号,变量名,记录号
D)Put文件号,记录号,变量名
(33)对窗体编写如下事件过程:
PrivateSubForm_MouseDown(ButtonAsInteger,_
ShiftAsInteger,XAsSingleYAsSingle)
IfButton=2Then
Print"
AAAAA"
EndIf
PrivateSubForm_MouseUp(ButtonAsInteger,_
ShiftAsInteger,XAsSingle,YAsSingle)
BBBBB"
程序运行后,如果单击鼠标右键,则输出结果为 。
A)AAAAAB)BBBBBC)AAAAAD)BBBBB
BBBBBAAAAA
(34)为了在运行时能显示窗体左上角的控制框(系统菜单),必须 。
A)把窗体的Contro1Box属性设置为Fale,其他属性任意
B)把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5
C)把窗体的ControlBox属性设置为False,同时把BoderStyle属性调协为非0值
D)把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值
(35)对窗体编写如下代码:
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
a=Array(237,126,87,48,498)
m1=a
(1)
m2=1
IfKeyAscii=13Then
Fori=2To5
Ifa(i)>
mlThen
m1=a(j)
m2=i
Printm1
Printm2
程序运行后,按回车键,输出结果为
A)48B)237C)498D)498
4154
二、填空题
请将每空的正确答案写在答题卡[1]—[15]序号的横线上,答在试卷上不得分。
(1)设有如下的VisualBasic表达式:
5*x^2–3*x–2*Sin(a)/3
它相当于代数式【1】。
(2)执行下面的程序段后,s的值为【2】。
s=5
Fori=2.6To4.9Step0.6
s=s+1
(3)表达式Fix(-32.68)+Int(-23.02)的值为【3】。
(4)为了在运行时把图形文件picfile.jpg装入图片框Picture1,所使用的语句为【4】。
(5)在窗体上画一个命令按钮,然后编写如下事件过程:
a=InputBox("
请输入一个整数"
)
b=InputBox("
Printa+b
程序运行后,单击命令按钮,在输入对话框中分别输入321和456,输出结果为【5】。
(6)执行下面的程序段后,b的值为【6】。
a=300
b=20
a=a+b
b=a-b
a=a-b
(7)以下程序段的输出结果是【7】。
Num=0
Whilenum<
=2
Num=num+1
Printnum
Wend
(8)在窗体画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
Dima(1To10)
Dimp(1To3)
a(i)=i
P(i)=a(i*i)
k=k+p(i)*2
程序运行后,单击命令按钮,输出结果是【8】。
(9)下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在【9】、【10】、【11】处将程序补充完整。
Dima
=Array(678,45,324,528,439,387,87,875,273,823)
Fori=【9】
Forj=【10】
Ifa(i)【11】a(j)Then
a1=a(i)
a(i)=a(j)
a(j)=a1
(10)在窗体画一个命令按钮,然后编写如下过程:
Functionfun(ByValnumAsLong)AsLong
DimkAsLong
k=1
num=Abs(num)
DoWhilenum
k=k*(numMod10)
num=num\10
fun=k
DimnAsLong
DimrAsLong
n=InputBox("
请输入一个数"
n=CLng(n)
r=fun(n)
Printr
程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为【12】。
(11)如果要将某个菜单项设计为分隔线,则该菜单项的标题应设置为【13】。
(12)假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。
在Form1画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请在【14】和【15】处将程序补充完整。
【14】Form1
Form2.【15】
一、选择题
(1)C
(2)D
(3)B
(4)C
(5)B
(6)C
(7)C
(8)D
(9)B
(10)A
(11)D
(12)A
(13)B
(14)A
(15)C
(16)C
(17)C
(18)B
(19)D
(20)A
(21)D
(22)D
(23)D
(24)B
(25)A
(26)D
(27)A
(28)C
(29)A
(30)B
(31)C
(32)D
(33)A
(34)B
(35)C
(1)[1]
(2)[2]9
(3)[3]56
(4)[4]Picturel.Picture=LoadPicture("
picfile.jpg"
(5)[5]321456
(6)[6]300
(7)[7]1
2
3
(8)[8]33
(9)[9]aTo9
[10]i+1To10
[11]>
=
(10)[12]24
(11)[13]-
(12)[14]Unload
[15]Show<
/FONT<
p>
一、
填空题
1.
在VisualBasic6.0中,按变量作用域的不同可将变量分为全局变量和
局部变量
两种;
声明静态变量的关键字为
Static
;
2.
在ViualBasic6.0中,程序结构有
顺序
、
选择
循环
3种结构。
3.
控制控件是否可见的属性为
Visible
;
控制控件是否可用的属性为
Enabled
控件的位置是由
Left
和
Top
属性来确定的;
控件的大小是由
Width
Height
属性来确定;
控件上所显示的文本是由
Caption
属性来设定的;
4.
与鼠标有关的事件包括
Click
、DblClick
、MouseDown
、MouseUp
MouseMove
,其中
事件在单击控件时被激发,
MouseDown
事件在鼠标键被按下时被激发,
MouseUp事件在鼠标被松开时被激发。
5.
与键盘有关的事件包括
KeyPress
KeyDown
KeyUp
事件在单击键盘键时被激发,
事件在按下键盘键时被激发,
事件在松开键盘键时被激发。
6.
向列表框和组合框中添加列表时,可使用
AddItem
方法;
删除选定的列表,可使用
RemoveItem
删除全部列表项,可使用
Clear
方法。
7.
定时器控件能够响应的唯一事件为
Timer
,并且该事件被激发的时间间隔由
Interval
属性来给定。
8.
弹出式菜单一般不直接显示在窗体上,因此菜单的
属性一般设为False。
要显
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 试题 答案