至VB高考题Word格式文档下载.docx
- 文档编号:21022641
- 上传时间:2023-01-27
- 格式:DOCX
- 页数:13
- 大小:76.73KB
至VB高考题Word格式文档下载.docx
《至VB高考题Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《至VB高考题Word格式文档下载.docx(13页珍藏版)》请在冰豆网上搜索。
+45语句执行的结果是( )
A.1245B.57C."
+45D.类型错
12.在VisualBasic中,关于文件保存的说法正确的是( )
A.只保存扩展名是.frm的文件
B.只保存扩展名是.vbp的文件
C.只保存扩展名是.bas的文件
D.扩展名是.frm,.vbp,.bas这三类文件都可以保存
13.在VisualBasic中,设置窗体Form1的标题为“VB程序窗体”的指令是( )
A.Form1.name=”VB程序窗体” B.Form1.top=”VB程序窗体”
C.Form1.caption=”VB程序窗体”D.Form1.topic=”VB程序窗体”
14.读下面VisualBasic程序,最后一行输出结果是( )
a=-262:
b=5
c=Len(Str(a)+Str(b))
Printc
A4 B.5C.6 D.7
15.设a=2:
b=4:
c=7:
d=8,VisualBasic表达式Nota<
bOrc=9Andd<
>
9的值是( )
A.1B.-1C.TrueD.False
16.在VisualBasic中,向图片框(picture1)装入图片(”c:
\a.jpg”)正确的语句是.( )
A.picture1.Picture=Load(”c:
\a.jpg”)
B”c:
C.picture1.Picture=Loadpicture(”c:
D.picture1.Picture=Loadpicture.Load(”c:
17.在VisualBasic中,关于控件说法不正确的是( )
A.可以创建控件数组B.控件都有名称
C.控件都有单击事件 D.用Visible属性可以改变某些控件的可见性
18.下面VisualBasic中数据中,表示1978年10月20日正确的格式是( )
19.VisualBasic中文本框的默认属性是哪个选项( )
A.CaptionB.TextC.SelTextD.Selstart
20.在VisualBasic中,下面关于双击窗体要触发的事件说法正确的是( )
A.只触发Click事件B.只触发DblClick事件C.可以触发Click和DblClick事件D.可以触发Load和DblClick事件
二、判断题
21.在VisualBasic中,write#语句是把数据写入顺序文件中,print#语句是把顺序文件中的内容打印出来。
()
22.在VB中,一个窗体中的多个选项按钮,不管通过什么方法设计,运行时每次只能选一个。
()
三、填空题
23.在VisualBasic中,获得命令按钮的标题使用的属性是_________________
24.代数式
在VisualBasic中的相应表达式是______________
25.在VB中,从顺序文件中文件指针的当前位置读取指定长度的字符串的函数名是____________
26.代数式
在VB中的算术表达式是______________
27.阅读下面的VisualBasic程序,分析程序中n=n+1的执行次数是
DimmAsInteger,nAsInteger
DimjAsInteger,kAsInteger
m=3
Forj=1TomStep1
Fork=-jTo3Step2
n=n+1
Nextk
m=4
Nextj
Printn
六、写出下列程序的运行结果
1.窗体中有一命令按钮,此按钮单击事件程序如下:
PrivateSubCommand1_Click()
DimmAsInteger
DimaAsInteger
DimbAsInteger
a=1:
b=2:
m=0
m=vb1(a,b)
m=m+a+b
Printm
EndSub
函数:
Functionvb1(wAsInteger,ByValnAsInteger)
w=100:
n=200
vb1=w+n
EndFunction
窗体启动后单击命令按钮,最后m的值是
2.如图所示,图中有一个文本框(名称为T1),两个选项按钮(名称分别为Op1,Op2),两个复选框(名称分别为Ch1,Ch2),两个框架,一个命令按钮(Command1),命令按钮的单击事件中代码如下:
提示:
函数Instr(位置,字符串1,字符串2)的功能:
返回字符串2在字符串1中的起始位置,如果找不到返回值是0,位置表示从第几个字符开始查找。
T1.Text="
"
IfOp1.Value=TrueThen
T1.Text=T1.Text+Mid(Op1.Caption,InStr(1,LCase(Op1.Value),"
true"
),2)
EndIf
IfOp2.Value=TrueThen
T1.Text=T1.Text+Mid(Op2.Caption,InStr(1,LCase(Op2.Value),"
T1.Text=T1.Text+Mid(Ch1.Caption,1,Ch1.Value+1)
T1.Text=T1.Text+Mid(Ch2.Caption,1,Ch2.Value+1)
窗体启动后,先选中如图所示的各选项,然后再单击命令按钮,此时文本框中显示内容是______分析下面VB程序段
Dimi%,j%,s%
Dima(2to4,3to7)asinteger
S=0
Fori=1to2
Forj=1to2
If(i+j)mod2=0then
S=s+LBound(a,j)
Else
S=s+UBound(a,j)
Endif
Nextj,i
Prints
上面程序运行后,S的值是_____
3.分析下面VB程序段
如图所示,图中有两个列表框,左边的是List1,右边的是List2,一个命令按钮Command1,窗体和命令按钮的单击事件中均有代码,程序段如下:
Privatesubform_click()
List1.additem“aaaaa”
List1.additem“bbbbb”
List1.additem“ccccc”
Endsub
Privatesubcommand1_click()
Dimkasinteger
K=list1.listcount-1
List1.removeitemlist1.listindex
List1.removeitemk-1
窗体启动后先单击窗体,然后选中如图所示的列表框中的项目,再单击命令按钮,左边列表框中显示内容是_____________
七、程序改错
1.下面的程序是将一输入的字符串进行分类赋值,方法:
从字符串的最左端开始截取一字符,然后进行判断,数字字符放入数组a中,将其它字符放入数组b中,然后继续处理下一个字符,直至全部处理完,最后分类打印,程序中有两处错误,请将错误行和正确的全行写在答题纸相应的横线上。
Dima(100)AsInteger
Dimb(100)AsInteger
DimcAsString
DimiAsInteger
DimjAsInteger
DimkAsInteger
DimwAsString
c=InputBox("
c="
"
)
k=Len(c)
Fori=1Tok
w=Right(c,1)
c=Right(c,k-1)
Ifw>
="
0"
Andw<
9"
Then
a(j)=w:
j=j+1
b(m)=Asc(w):
m=m+1
c=c-w
Nexti
Fori=0Toj-1
Printa(i);
Fori=0Tom-1
PrintChr(b(i));
2.窗体中(如图所示)有一定时器控件(名称Timer1),每2秒钟触发一次Timer事件,有两个标签用于提示后面的控件名称,一文本框Text1,一滚动条(名称HS1)。
窗体启动后(此图为窗体刚启动时的状态),滚动框根据计时器事件向右移动,但当单击滚动框左端后,滚动框开始向左移动,当单击滚动框右端后,滚动框开始向右移动,文本框中的文字大小随滚动条的值变化。
窗体通用部分声明了两个变量,后面给出了三个事件过程。
程序中共有两处错误分布在三个事件过程中(每个事件过程中最多有一处错误),请将错误行和正确行写在答题纸相应的横线上。
(VisualBasic题)(提示:
Form_Activate()表示窗体变为活动窗体后触发的事件)
窗体通用部分声明代码:
DimAAsInteger‘变量A用于确定滚动框向左(为0)还是向右(为1)滚动
DimWAsInteger
PrivateSubForm_Activate()
W=HS1.Value
A=0
PrivateSubHS1_Change()
IfW<
HS1.ValueThen
A=0
A=1
PrivateSubTimer1_Timer()
IfText1.FontSize<
10ThenText1.FontSize=11
IfText1.FontSize>
80ThenText1.FontSize=79
IfA=1Then
Text1.FontSize=Text1.FontSize+1
Text1.FontSize=Text1.FontSize-1
3.下面的程序是将一个十进制整数转换成二进制数,转换后按拉放到一维数组a中,然后输出,如输入一个数据8,将输出1000。
程序中有两处错误,请改正。
Dima(10)asinteger
Dimk%,yu%,i%
I=1
K=inputbox(“inputk”)
Dowhilek<
Yu=k/2
A(i)=yu
K=k\2
I=i+1
Loop
Foryu=ito1step-1
Printa(yu);
Nextyu
八、程序填空
1.下面的程序前部分功能考生自己分析,后部分功能是输入一数据,然后在数组中找此数据,若找不到则程序结束,若找到将数组元素下标小于此数据下标的数据由大到小排列并输出,请在空白位置填写正确的命令(VisualBasic题)。
Dima(9)AsInteger
DimtAsInteger
a(0)=20+Int(Rnd*91)
Fori=1To9
t=20+Int(Rnd*91)
Ift<
a(i-1)Then
i=i-1
a(i)=t
Fori=0To9
t=InputBox("
inputt="
Ift=
(1)Then
ExitFor
Ifi=10ThenEnd
Fork=0Toi/
(2)
t=a(k)
a(k)=a(i-k)
a(i-k)=t
Nextk
2.下面程序可以打印一个九九表完整九行或部分行,思路是在窗体中加入两个文本框,第一个文本框(text1)用于指定输出九九表的起始行,第二个文本框用于指定输出九九表的结束行,如在第一个文本框中输入2,第二个文本框中输入6,打印出如图所示的2到6
行。
命令按钮的单击事件中有打印九九表的程序,请在空白位置填写正确的命令(程序要求:
第一个文本框数字必须比第二个文本框小,两个文本框中不能为空)(VisualBasic题)。
IfText1.Text<
"
(3)Text2.Text<
a=Text1.Text
b=Text2.Text
Ifa<
bThen
Fori=aTob
Forj=1Toi
Printj;
*"
;
i;
="
(4);
Nextj
MsgBox"
起始行大于结束行,重新输入!
Text1.Text="
Text2.Text="
Text1.SetFocus
文本框中不能为空"
3.阅读下面的VB程序,分析程序中k=k+a的执行次数是____________
Dima%,i%,j%,k%
A=0:
k=0
Fori=1to10
Forj=1toi
a=a+i+j
K=k+a
K=k-1
4.有10个元素的一维数组A,已经按由小到大的顺序排列好,现输入一个数据,然后在数组中查找此数,若找到则求小于等于它的元素之和。
请填空。
Optionbase1
Dima
Dimkasinteger,sasinteger,iasinteger,basinteger
A=array(-2,4,7,8,12,25,26,31,89,95)
B=inputbox(“请输入数据”,“”,””)
Ifb=a(i)then_______________
Ifi<
=10then
Fork=1to___________
S=s+a(k)
Endif
5.窗体中有三个标签,三个文本框从上到下依次是Text1,text2,text3,一个命令按钮Command1。
三个标签用来标示右边文本框的用途,Text1用来输入数据,数据之间用空格分开,Text2用来存放奇数和,Text3用来存放偶数和。
在Text1中输入一组数据后,单击求和命令按钮,Text2将显示Text1中的奇数和,Text3中将显示Text1中的偶数和。
代码如下。
请填空
Dims$,c$,c1$
Dimk%,w%,i%,t1%,t2%
I=0:
T1=0:
T2=0
S=Trim(Text1.text)
W=len(s)
C=””
C1=mid(s,1,1)
Dowhilei<
=w
Dowhilec1<
chr(32)and_________
C=_________________
C1=mid(s,i,1)
K=val(c)
Ifkmod2<
0thent1=t1+kelset2=t2+k
C1=mid(s,i,1)
Text2.text=t1
Text3.text=t2
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 考题