淮阴师范VB题库.docx
- 文档编号:23869960
- 上传时间:2023-05-21
- 格式:DOCX
- 页数:62
- 大小:395.65KB
淮阴师范VB题库.docx
《淮阴师范VB题库.docx》由会员分享,可在线阅读,更多相关《淮阴师范VB题库.docx(62页珍藏版)》请在冰豆网上搜索。
淮阴师范VB题库
1.以下正确的叙述是:
SelectCase语句中的测试表达式只能是数值表达式或字符串表达式
2.在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimxAsInteger,nAsInteger
x=1
n=0
DoWhilex<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
EndSub
程序运行后,单击命令按钮,在两个文本框中显示的值分别是27和3。
3.下列程序的执行结果为()
I=4
A=5
Do
I=I+1
A=A+2
LoopUntilI>=7
Print"I=";I
Print"A=";A
答:
I=7
A=11
4.在VisualBasic代码中,将多个语句合并写在一行上的并行符是冒号(:
)
5.在列表框中当前被选中的列表项的序号是由下列哪个属性表示Listindex
6.若窗体上的图片框中有一个命令按钮,则此按钮的Left属性是指按钮左端到图片框左端的距离。
7.阅读下面的程序段:
Fori=1To3
Forj=1Toi
Fork=jTo3
a=a+1
Nextk
Nextj
Nexti
执行上面的三重循环后,a的值为14
8.下列_____ReDim_语句可以为动态数组分配实际元素个数。
9.下列程序段的执行结果为25。
DimA(5)
ForI=1To5
A(I)=I*I
NextI
PrintA(I-1)
10.用Write和Print语句向文件中写入多个数据的差别在于Write语句写入字符串会自动给字符串加上双引号;写入的正数前面没有空格。
11.设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。
要求程序运行时每秒在标签中显示一次系统当前时间。
以下可以实现上述要求的事件过程是()。
答:
PrivateSubTimer1_Timer()
Label1.Caption=Time$
EndSub
12.以下数组定义语句中,错误的是Dimd(-10)。
13.在窗体上画一个命令按钮,然后编写如下程序:
SubS1(ByValxAsInteger,ByValyAsInteger)
DimtAsInteger
t=x
x=y
y=t
EndSub
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger
a=10
b=30
S1a,b
Print"a=";a;"b=";b
EndSub
程序运行后,单击命令按钮,输出结果是:
a=10b=30。
14.如果在立即窗口中执行以下操作(
a=8
b=9
printa>b
则输出结果是False
15.下面程序在调试时出现了死循环
PrivateSubCommand1_Click()
n=InputBox("请输入一个整数")
Do
IfnMod2=0Then
n=n+1
Else
n=n+2
EndIf
LoopUntiln=1000
EndSub
下面关于死循环的叙述中正确的是输入任何整数都会出现死循环。
16.以下不属于VisualBasic系统的文件类型是bat。
17.在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1),程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容。
以下可以实现上述操作的事件过程是()
答:
PrivateSubText1_Change()
Label1.Caption=Text1.Text
EndSub
18.在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:
PrivateSubCommand1_Click()
a=InputBox("Enteraninteger")
b=InputBox("Enteraninteger")
Text1.Text=b+a
EndSub
程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是108。
19.下列程序段的执行结果为10、5。
A=0:
B=1
Do
A=A+B
B=B+1
LoopWhileA<10
PrintA;B
20.用Dim(1,3to7,10)声明的是一个3维数组。
21.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimiAsInteger,nAsInteger
Fori=0To50
i=i+3
n=n+1
Ifi>10ThenExitFor
Next
Text1.Text=Str(n)
EndSub
程序运行后,单击命令按钮,在文本框中显示的值是3。
22.在窗体上画一个名称为List1的列表框,一个名称为Label1的标签,列表框中显示若干个项目。
当单击列表框中某个项目时,在标签中显示被选中项目的名称。
下列能正确实现上述操作的程序是:
_____。
答:
PrivateSubList1_Click()
Label1.Caption=List1.Text
EndSub
23.在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text1属性设置为空白,然后编写如下事件过程:
PrivateSubCommand1_Click()
Dima,b
a=InputBox("EnteranInteger")
b=text1.Text
text1.Text=b+a
EndSub
程序运行后,先在文本框中输入456,然后单击命令按钮,在输入对话框中输入123,如果单击“确定”按钮,则文本框中显示的内容是:
456123
24.决定控件上文字的字体、字形、大小、效果的属性是Font。
25.设a=5,b=6,c=7,d=8,则执行下列语句后,x的值为:
20。
x=IIF((a>b)And(c 26.以下选项中,不合法的VisualBasic的变量名是(_xyz) 27.窗体上有一个名称为HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。 下面能够实现上述操作的事件过程是______。 答: PrivateSubHScroll1_Change() PrintHScroll1.Value EndSub 28. 请输入B的值在窗体上画一个命令按钮,然后编写如下事件过程: PrivateSubCommand1_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 EndSub 程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为 (2)。 29.下列哪项是窗体对象的方法而不是属性Print。 30.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程: PrivateSubCommand1_Click() n=Val(Text1.Text) Ifn\2=n/2Then f=f1(n) Else f=f2(n) EndIf Printf;n EndSub PublicFunctionf1(ByRefx) x=x*x f1=x+x EndFunction PublicFunctionf2(ByValx) x=x*x f2=x+x+x EndFunction 程序运行后,在文本框中输入6,然后单击命令按钮,窗体上显示的是7236。 31.在窗体上画一个名称为Combo1的组合框,画两个名称分别为Label1和Label2及Caption属性分别为“城市名称”和空白的标签。 程序运行后,当在组合框中输入一个新项后按回车键(ASCⅡ码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”如图所示;如果存在,则在Label2中给出提示“输入项已在组合框中”。 请在空白处将程序补充完整。 PrivateSubCombo1KeyPress(KeyAsciiAsInteger) IfKeyAscii=13Then Fori=0ToCombo1.ListCount-1 ifCombo1.Text=Combo1.List(i)Then Label2.Caption="输入项已在组合框中" ExitSub EndIf Nexti Label2.Caption="已成功添加输入项" Combo1.AddItemCombo1.Text EndIf EndSub 32.在窗体上画一个命令按钮Command1,然后编写如下程序: Functionpower(xAsSingle,ByValyAsInteger) DimresultAsSingle result=1 DoWhiley>0 result=result*x y=y-1或-1+y Loop power=result EndFunction PrivateSubCommand1_Click() Fori=0To10 r=power(2,i) Printr Nexti EndSub 33.在窗体上画一个命令按钮,然后编写如下程序: Functionfun(ByValnumAsLong)AsLong DimkAsLong k=1 num=Abs(num) DoWhilenum k=k*(num\10) num=num\10 Loop fun=k EndFunction PrivateSubCommand1_Click() DimnAsLong DimrAsLong n=InputBox("请输入一个数") n=CLng(n) r=fun(n) Printr EndSub 程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为0。 34.语句Print5*5\5/5的输出结果是25。 35.以下程序的功能是: 从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。 请在______处填入适当的内容,将程序补充完整。 PrivateSubForm_Click() DimxAsSingle,amaxAsSingle,aminAsSingle x=InputBox("Enterascore") amax=x amin=x DoWhilex>=0 Ifx>amaxThen amax=x EndIf IfxxThen amin=x EndIf x=InputBox("Enterascore") Loop Print"Max=";amax,"Min=";amin EndSub. 36.在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程: PrivateSubCommand1_Click() S$=InputBox("请输入一个字符串") Text1.Text=S$ EndSub PrivateSubText1_Change() Label1.Caption=UCase(Mid(Text1.Text,7)) EndSub 程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串"VisualBasic",则在标签中显示的内容是BASIC。 37.VisualBasic应用程序通常由3类模块组成,即窗体模块、标准模块和类模块。 38.在窗体上画一个列表框,然后编写如下两个事件过程: PrivateSubForm_Click() list1.RemoveItem1 list1.RemoveItem3 list1.RemoveItem2 EndSub PrivateSubForm_Load() list1.AddItem"itemA" list1.AddItem"itemB" list1.AddItem"itemC" list1.AddItem"itemD" list1.AddItem"itemE" EndSub 运行上面的程序,然后单击窗体,列表框中所显示的项目为itemA、itemC。 39.以下程序段执行后y的值是9。 x=8.6 y=int(x+0.5) printy 40. 执行下面的程序段后,变量S的值9。 S=5 Fori=2.6To4.9Step0.6 S=S+1 Nexti .41设a=2*2.4356,下列语句的输出结果分别是48.71E-01、-4.8712。 PrintFormat$(a,"00.00E+00") PrintFormat$(a,"-#.####") 42.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: OptionBase1 PrivateSubCommand1_Click() Dima(10)AsInteger Fori=1To10 a(i)=i Next Callswap(a) Fori=1To10 Printa(i); Next EndSub Subswap(b()AsInteger) n=10 Fori=1Ton/2 t=b(i) b(i)=b(n) b(n)=t n=n-1 Next EndSub 上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a (1)与a(10)的值互换,a (2)与a(9)的值互换,……,a(5)与a(6)的值互换。 请填空。 43.当用Append方式打开文件时,如果对文件进行写操作,则写入的数据附加到原来文件的后面。 44.在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: PrivateSubCommand1_Click() a$="NationalComputerRankExamination" n=Len(a$) s=0 Fori=1Ton b$=Mid(a$,i,1) Ifb$="n"Then s=s+1 EndIf Nexti Prints EndSub 程序运行后,单击命令按钮,输出结果是4。 45.以下程序在文本框Text1中输入任一字符串,并按相反的次序显示在文本框Text2中。 PrivateSubCommand1_Click() DimNAsString,DAsString N=Text1.Text M=Len(Text1.Text) Fori=MTo1Step-1 c=Mid(N,i,1) D=D&C Nexti Text2.Text=D EndSub 46.执行以下程序段,并输入1.23,则程序的输出结果应是23。 N=Str(InputBox("请输入一个实数: ")) p=InStr(N,".") PrintMid(N,p) 47.在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,然后编写如下程序: FunctionFun(xAsInteger,ByValyAsInteger)AsInteger x=x+y Ifx<0Then Fun=x Else Fun=y EndIf EndFunction PrivateSubCommand1_Click() DimaAsInteger,bAsInteger a=-10: b=5 Text1.Text=Fun(a,b) Text2.Text=Fun(a,b) EndSub 程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是-5和5。 48.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。 程序运行后,Command1为禁用(灰色)。 当向文本框中输入任何字符时,命令按钮Command1变为可用。 请在______处填入适当的内容,将程序补充完整。 PrivateSubForm_Load() Command1.Enabled=False EndSub PrivateSubText1_Change() Command1.Enabled=True EndSub 49. 以下程序用来输出20个在开区间(10,87)中的随机整数R,每行输出4个整数。 PrivateSubCommand1_Click() Fori=1To20 R=Int(76*Rnd+11) Printr; IfiMod4=0ThenPrint Nexti EndSub 50.在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Command1和Label1,通过属性窗口把列表框中的项目设置为: “第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。 程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图所示(选择“第三个项目”的情况)。 下面是实现上述功能的程序,请填空。 PrivateSubCommand1_Click() IfList1.ListIndex>=0Then List1.RemoveItemList1.listIndex Label1.Caption=List1.ListCount Else MsgBox"请选择要删除的项目" EndIf EndSub 51.请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。 (1)在窗体上画一个文本框,名称为Text1,高度为350,宽度为2000,字体为 “黑体”,并设置其它相关属性,使得在运行时,在文本框中输入的字符 都显示为“? ”(如图所示)。 *注意: 存盘时必须存放在考生文件夹下,工程文件名为sj3.vbp,窗体文件 名为sj3.frm。 ********************************************************************** (2)在Form1的窗体上画一个命令按钮,名称为C1,标题为“更改标题”(如 图所示)。 请编写适当的事件过程,使得在运行时,如果单击C1,则按钮 的标题改为“已经按下按钮”。 程序中不得使用任何变量。 *注意: 存盘时必须存放在考生文件夹下,工程文件名为sj4.vbp,窗体文件 名为sj4.frm。 解析: 第1小题 文本框的PasswordChar属性 用来设置文本框中所显示的内容。 在默认状态下,该属性的设置值是空字符串,此时文本框所显示的是键盘所输入的字符;如果将该属性的值设置为一个非空字符串,则从键盘向文本框输入字符时,文本框中的实际内容仍是键入的字符,但显示的是PasswordChar属性所设置的字符串的第一个字符。 解题方法: 新建一个窗体,点击工具箱中的TextBox控件图标,然后在窗体上拖拉出一个文本框,通过属性窗口设置其Font属性为“黑体”,Height属性为350,Width属性为2000,PasswordChar属性为“? ”。 按要求保存文件即完成本题。 第2小题 命令按钮的Caption属性 用来确定命令按钮上所显示的文本信息,其语法为: 命令按钮名.Caption=字符串 解题方法: 新建一个名为Form1的窗体,点击工具箱中的CommandButton控件图标,然后在窗体上拖拉出一个命令按钮,通过属性窗口设置其Name属性为“C1”,Caption属性为“更改标题”。 打开代码窗口,输入如下的代码: PrivateSubC1_Click() C1.Caption="已经按下按钮" EndSub 按要求保存文件即完成本题。 52. (1)在考生文件夹下有工程文件wy44.vbp及窗体文件wy44.frm,该程序是不完整的,请在有? 号的地方填入正确内容,然后删除? 及所有注释符(即'号),但不能修改其它部分。 存盘时不得改变文件名和文件夹。 本题描述如下: 在窗口中有一个名为Image1的图像框,有一个名为Timer1的计时器,有一个名为HScroll1的滚动条,还有一个名为C1,标题为"开始"的命令按钮,要求程序运行后,点击开始按钮,则图像框中的图片根据计时器中设定的时间间隔交替变更,如果改变滚动条中滚动框的位置,则图片交替变换的速度也随之变化。 *********************************************************************** (2)在考生文件夹下有工程文件wy45.vbp及窗体文件wy45.frm,该
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 淮阴 师范 VB 题库