VB模拟试题8Word格式文档下载.docx
- 文档编号:18222656
- 上传时间:2022-12-14
- 格式:DOCX
- 页数:14
- 大小:73.92KB
VB模拟试题8Word格式文档下载.docx
《VB模拟试题8Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《VB模拟试题8Word格式文档下载.docx(14页珍藏版)》请在冰豆网上搜索。
11.窗体中有一个命令按钮Command1。
运行下列程序时单击命令按钮,则窗体中显示___C___。
PrivateSubCommand1_Click()
DimcityAsString
city=Array("
北京"
"
上海"
南京"
广州"
)
Printcity
(1)
(A)空白(B)北京(C)上海(D)出现错误提示
12.窗体中有一个命令按钮Command1。
运行下列程序,单击命令按钮,窗体中显示____C__。
DimXAsInteger,YAsInteger'
(通用)(声明)
PrivateSubProc(ByValaAsInteger,ByValbAsInteger)
X=a*a
Y=b+b
X=5:
Y=3
CallProc(X,Y)
PrintX,Y
(A)53(B)253(C)256(D)56
13.在以下过程中,Public表示____D______。
PublicSubF(xAsInteger)
……
(A)此过程可以被任何其它过程调用(B)此过程只可以被本窗体模块中的其它过程调用
(C)此过程不可以被任何其它过程调用(D)此过程只可以被本工程中的其它过程调用
14.执行下面这段代码时,窗体中将会显示___D_____。
n=3
Fori=1Ton
x=0
Forj=1Toi
x=x+1
Nextj
Nexti
Printx
(A)3(B)4(C)5(D)6
15.需要将字符串S颠倒过来逆序排列形成字符串T,如将“ABCD”变成“DCBA”,下面的程序段中_D___不能实现该功能。
(A)s="
ABCD"
:
t="
"
Fori=1ToLen(s)
t=t+Mid(s,Len(s)-i+1,1)
(B)s="
t=Mid(s,i,1)+t
(C)S="
T="
Fori=Len(S)To1Step-1
T=T+Mid(S,i,1)
(D)S="
T=Mid(S,i,1)+T
16.下列函数中_____D___的值与其它三个不一样。
(A)Val("
1"
)(B)Abs(-1)(C)Int(1.3)(D)Sin
(1)
17.设有如下程序,运行时单击命令按钮,则文本框中显示___A___。
SubF(a(),ByValxAsInteger)
Fori=1To5
x=x+a(i)
Dimarr(5),nAsInteger
arr(i)=i
n=10
CallF(arr(),n)
Text1.Text=n
(A)10(B)15(C)25(D)24
18.以下程序段中___C___能正确地计算并显示5的阶乘。
(A)n=5:
x=1
Do
x=x*i
i=i+1
LoopWhilei<
n
(B)n=5:
x=1:
i=1
(C)n=5:
=n
(D)n=5:
Fori=nTo1
19.执行如下程序,单击命令按钮3次,则标签Label1,Label2,Label3中分别显示___B___。
StaticyAsInteger
DimzAsInteger
z=n+z:
y=y+z:
x=x+z
Label1.Caption=x
Label2.Caption=y
Label3.Caption=z
(A)101010(B)103010(C)303030(D)103030
20.设已执行b=Array(5,3,9,1,6),现要将数组b的各个元素逆序排列,程序段__B__可实现该功能。
(A)Fori=0To5-1\2
tmp=b(i)
b(i)=b(5-i-1)
b(5-i-1)=tmp
(B)Fori=0To5\2
Nexti
(C)Fori=0To5
(D)Fori=1To5\2
21.设组合框Combo1中有3个项目,则___D___可删除其中最后一项。
(A)Combo1.RemoveItemCombo1.Text(B)Combo1.RemoveItemCombo1.Index
(C)Combo1.RemoveItemCombo1.ListIndex(D)Combo1.RemoveItemCombo1.ListCount-1
22.执行下列程序段,文本框Text1中显示___A___。
n=Int(Rnd)+3
SelectCasen
Case1To10
x=10
Case2,4,6
x=20
CaseIs<
=10
x=30
Case10
x=40
EndSelect
Text1.Text=x
(A)10(B)20(C)30(D)40
23.以下关系表达式中___A___的值为False。
(A)"
ABC"
>
"
Abc"
(B)"
the"
<
>
they"
(C)"
VISUAL"
=UCase("
Visual"
)(D)"
Integer"
Int"
24.窗体中有命令按钮Command1,并已编写下列代码。
运行程序时,单击命令按钮,窗体显示__C____。
FunctionF(mAsInteger)
IfmMod2=0Then
F=m
Else
F=1
EndIf
EndFunction
DimiAsInteger
S=0
S=S+F(i)
Next
PrintS
(A)11(B)10(C)9(D)8
25.设有如下代码,关于它的叙述___D___是正确的。
PrivateTypeanimal
ANameAsString*20
AColorAsString*10
EndType
DimrecAsanimal
Open"
c:
\vbtest.dat"
ForRandomAs#1Len=Len(rec)
rec.AName="
Elephant"
rec.AColor="
Black"
Put#1,,rec
Close#1
(A)记录类型animal不能在窗体中定义,只能在标准模块中定义,所以运行会发生错误
(B)如果文件c:
\vbtest.dat不存在,则运行Open命令时发生错误
(C)由于Put命令没有指定记录号,因此每次写文件时都把记录写在文件尾
(D)语句“Put#1,,rec”的作用是把animal类型的两个数据元素写入文件
26.以下关于菜单的叙述中___D___是错误的。
(A)下拉菜单和弹出式菜单都用菜单编辑器建立
(B)在多窗体工程中,每个窗体都可是以有自己的菜单
(C)除分隔线外,所有的菜单项都能接收Click事件
(D)如果把一个菜单项的Enabled属性设置为False,则该菜单项不可见
27.窗体中有如下事件过程,如果希望运行时窗体显示如右图的形式,请选择适合的表达式完善程序。
c=1234
1
12
123
1234
c1=Trim(Str(c))
Fori=1To4
Print___B___
(A)Right(c1,i)(B)Left(c,i)(C)Mid(c1,i,1)(D)Mid(c1,i,i)
28.下面这段程序的功能是___D___。
n=Val(Text1.Text)
Fori=2Ton
Forj=2ToSqr(i)
IfiModj=0ThenExitFor
Ifj>
Sqr(i)ThenPrinti
Nexti
(A)输出n以内的奇数(B)输出n以内的偶数
(C)输出2-n的所有数的阶乘(D)输出n以内的素数
29.窗体中有4个名为Command11的命令按钮,如图,下标从0开始,从上到下顺序增大。
启动窗体时这4个命令按钮从上到下分别显示___A___。
PrivateSubForm_Load()
Fori=0To3
Command1(i).Caption=Command1(i).Index
(A)0123(B)1234
(C)0132(D)出错
30.窗体中有一个通用对话框CommonDialog1和一个命令按钮Command1,并有以下代码。
关于这段程序功能的描述错误的是____B__。
CommonDialog1.Filter="
AllFile|*.*|WordDocuments|*.doc|TextDocuments|*.txt"
CommonDialog1.InitDir="
D:
\"
CommonDialog1.Action=2
EndSub
(A)产生一个“另存为”对话框(B)在这个对话框中只能选择Word文档或文本文件类型
(C)对话框中初始的路径是D盘的根目录(D)这个对话框不能真正实现保存文件的功能
二、填空题(50分,每空2分,请在答题纸上标明每个空的编号)
1.函数Sin(30*3.14159/180)的值为___[1]0.5____。
2.VB中数据文件根据对文件的访问方式分为3类,即顺序文件、___[2]随机文件___和二进制文件。
3.执行下面这段程序后,窗体中显示___[3]5___和___[4]5.6___。
s=2
Fori=3.2To4.9Step0.8
s=s+1
Prints,i
4.图片框Picture1中已显示一张图片d:
\pic1.jpg,单击命令按钮时希望清除该图片,使图片框显示为空白,完成下面的代码。
____[5]Picture1.Picture=LoadPicture(““)____
5.下面这段程序要在窗体显示20个[100,200]间的随机整数,求这些数的和,并显示其中5的倍数请完成程序。
Fori=1To20
x=Int(___[6]Rnd*101+100___)
___[7]s=s+x___
If___[8]xmod5=0thenprintx;
___
Print"
总和:
;
s
6.下面的程序可根据用户所输入的数在一个数组中查找相应的下标,完成程序。
Dimarr,i%,MAs___[9]Integer___
arr=Array(12,43,76,24,54,86,49,55)
M=Val(InputBox("
要查找的数"
))
Fori=___[10]0To7___
Ifarr(i)=MThen___[11]k=i___
下标是:
k
7.窗体中有一个标签Label1和一个时钟控件Timer1。
开始运行程序时,窗体显示如图(a);
单击窗体后显示如图(b),其中的时钟每秒更新一次显示当前时间。
请填空完成程序代码。
Timer1.Enabled=___[12]False___
Timer1.___[13]Interval___=1000
PrivateSubForm_Click()
Timer1.Enabled=True
PrivateSubTimer1_Timer()
___[14]Label1.Caption=Time___
8.窗体中有一个文本框Text1,其MultiLine属性值为True,执行下列程序,将文件t1.txt的内容显示在文本框中,请完善程序。
Dimaspect$,Whole$
f:
\t1.txt"
For___[15]InputAs#1___
DoWhileNotEOF
(1)
LineInput___[16]#1,aspect___
Whole=Whole+aspect+Chr(13)+Chr(10)
Loop
Text1.Text=Whole
___[17]Close___
9.窗体中有文本框Text1,标签Label1和命令按钮Command1,并有如下两段事件过程:
s$=InputBox("
请输入一串字符"
Text1.Text=s
PrivateSubText1_Change()
Label1.Caption=UCase(Mid(Text1.Text,7))
运行时单击命令按钮,在输入框中输入字符串“VisualBasic”,确定后标签显示___[18]BASIC___。
10.把数学式
改写成VB表达式:
___[19](a+b)/(Log(Abs(a))/Log(Exp
(1)))___。
11.一个数组中有10个元素,对它进行冒泡排序,元素进行交换的次数最大可能是___[20]9___次。
12.窗体中有文本框Text1、列表框List1和标签Label1,程序运行时列表框中显示若干人的简单信息。
在文本框中输入姓或姓名并回车,在列表框中查找相符的人的情况,找到时在标签中显示查找结果(如图(a));
如果列表框中没有相符的项目,则显示相应的提示信息(如图(b))。
填空完成下面的程序。
PrivateSubText1____[21]KeyPress___(KeyAsciiAsInteger)
DimiAsInteger,nAsInteger,FoundAsBoolean
IfKeyAscii=13Then
Found=___[22]False___
___[23]n___=Len(Trim(Text1.Text))
Fori=0ToList1.ListCount-1
IfText1.Text=Left(List1.List(i),n)Then
Label1.Caption=___[24]List1.List(i)___
Found=True
IfNotFoundThen___[25]MsgBox(“无此人”)___
三、编程题(20分,每小题10分,请在答题纸上标明题号)
1.随机产生10个正整数,求其中的最小值,并将原始数据和最小值显示在窗体中。
Dimi%,min%
Dima(10)AsInteger
Fori=1To10
a(i)=Int(Rnd*101)
Printa(i);
min=a
(1)
Fori=2To10
Ifa(i)<
minThenmin=a(i)
Print"
最小值:
&
min
2.窗体中有一个文本框Text1、两个标签Label1和Label2、一个垂直滚动条Vscroll1。
点击滚动条,可使文本框中显示[2,20]之间的一个正整数n,标签Label1中立刻显示1!
+2!
+…+n!
的值。
运行界面如图。
编写完整的事件过程完成以上功能。
VScroll1.min=2
VScroll1.max=20
Label1.Caption="
Label2.Caption="
n="
PrivateSubVscroll1_Change()
DimsAsDouble,I%,j%,n%,tAsDouble
t=1
Text1.Text=VScroll1.Value
ForI=1Ton
t=1
Forj=1ToI
t=t*j
Nextj
s=s+t
NextI
1!
+…+n!
="
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 模拟 试题