错题集.docx
- 文档编号:28316660
- 上传时间:2023-07-10
- 格式:DOCX
- 页数:23
- 大小:355.14KB
错题集.docx
《错题集.docx》由会员分享,可在线阅读,更多相关《错题集.docx(23页珍藏版)》请在冰豆网上搜索。
错题集
●若窗体上的图片框中有一个命令按钮,则此按钮的Left属性是指______。
A.按钮左端到图片框左端的距离
●运行如下程序段:
x=1
y=1
z=1
Forj=1To3
Fork=1To3
Ifj=1Then
x=x+y+z
ElseIfj=2Then
x=2*x+2*y+2*z
Else
x=3*x+3*y+3*z
EndIf
Nextk
Nextj
x的值应是__2346____。
●
(2)在窗体上画一个文本框,名称为Text1,Text属性为空白。
再画一个列表框,名称为L1,通过属性窗口向列表框中添加4个项目,分别为"AAAA"、"BBBB"、"CCCC"和"DDDD",编写适当的事件过程。
程序运行后,在文本框中输入一个字符串,如果双击列表框中的任一项,则把文本框中的字符串添加到列表框中。
程序的运行情况如图所示。
*注意:
存盘时必须存放在考生文件夹下,工程文件名为sjt12.vbp,窗体文件名为sjt12.frm
新建一个名为Form1的窗体,执行"工具"菜单中的"菜单编辑器"命令,打开菜单编辑器。
在"标题"栏中输入"操作",在"名称"栏中输入"Op";点击"下一个"按钮,再点击编辑区的"→"按钮,在"标题"栏中输入"显示",在"名称"栏中输入"Dis";点击"下一个"按钮,在"标题"栏中输入"清除",在"名称"栏中输入"Clea"。
点击工具箱中的TextBox控件图标,然后在窗体上拖拉出一个文本框。
打开代码窗口,输入如下的代码:
PrivateSubClea_Click()
Text1.Text=""
EndSub
PrivateSubDis_Click()
Text1.Text="等级考试"
EndSub
按要求保存文件即完成本题。
第2小题
列表框的AddItem方法
用来在列表框中插入一行文本,其语法为:
列表框名.AddItem字符串[,索引值]
如果省略"索引值",则字符串被添加到列表框的尾部;使用"索引值"可以将字符串插入列表框中的指定位置。
"索引值"从0开始,到列表项总数-1止。
解题方法:
新建一个窗体,点击工具箱中的TextBox控件图标,然后在窗体上拖拉出一个文本框。
点击工具箱中的ListBox控件图标,然后在窗体上拖拉出一个列表框,通过属性窗口设置其Name属性为"L1",通过设置List属性为列表框添加"AAAA"、"BBBB"、"CCCC"和"DDDD"四个列表项。
打开代码窗口,输入如下的代码:
PrivateSubL1_DblClick()
L1.AddItemText1.Text
EndSub
按要求保存文件即完成本题。
●2)在考生文件夹下有一个工程文件sj46.vbp,相应的窗体文件为sj46.frm,
在窗体上有一个命令按钮和一个文本框。
程序运行后,单击命令按钮,即
可计算出0~1000范围内不能被7整除的整数的个数,并在文本框中显示出
来。
在窗体的代码窗口中,已给出了部分程序,其中计算不能被7整除的
整数的个数的操作在通用过程Fun中实现,请编写该过程的代码。
要求:
请勿改动程序中的任何内容,只在FunctionFun()和EndFunction之间
填入你编写的若干语句。
最后把修改后的文件按原文件名存盘。
第2小题:
打开一个工程文件sjt4.vbp,在窗体上有一个命令按钮和一个文本框,要求计算出0~1000范围内不能被7整除的整数的个数,并在文本框中显示,在FunctionFun()和EndFunction之间补充代码如下:
FunctionFun()
DimiAsInteger,numAsInteger
Fori=0To1000
IfiMod7<>0Then
num=num+1
EndIf
Nexti
Text1.Text=num
EndFunction
按要求保存文件即完成本题。
●在窗体上画1个命令按钮,其名称为Command1,然后编写如下程序:
PrivateSubCommand1_Click()
Dima(10)AsInteger
DimxAsInteger
Fori=1To10
a(i)=8+i
Next
x=2
Printa(f(x)+x)
EndSub
Functionf(xAsInteger)
x=x+3
f=x
EndFunction
程序运行后,单击命令按钮,输出结果为______。
A.18(注意x的值也变了)
●下列操作中不能向工程中添加窗体的是______。
A.右击窗体,在弹出的菜单中选择“添加窗体”命令
●编写如下事件过程:
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfShift=6AndButton=2Then
Print"BBBB"
EndIf
EndSub
程序运行后,为了在窗体上输出“BBBB”,应执行的操作为______。
A.同时按下Ctrl、Alt键和鼠标右键
●在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimI,Num
Randomize
Do
ForI=1To1000
Num=Int(Rnd*100)
PrintNum;
SelectCaseNum
Case12
ExitFor
Case58
ExitDo
Case65,68,92
End
EndSelect
NextI
Loop
EndSub
上述事件过程执行后,下列描述中正确的是______。
B.当所产生的随机数为65、68或92时窗体关闭、程序结束
C.当所产生的随机数为12时结束所有循环(注意ExitFor适用于For循环语句的退出,而ExitDo才是DO循环语句的退出)
●要使一个命令按钮成为图形命令按钮,则应设置其哪一属性值___Style___。
●下面___Bool___不是VB的数据类型。
●窗体上有两个水平滚动条HV、HT,还有一个文本框Text1和一个标题为"计算"的命令按钮Command1,并编写了以下程序:
PrivateSubCommand1_Click()
Callcalc(HV.Value,HT.Value)
EndSub
PublicSubcalc(xAsInteger,yAsInteger)
Text1.Text=x*y
EndSub
运行程序,单击"计算"按钮,可根据速度与时间计算出距离,并显示计算结果。
对以上程序,下列叙述中正确的是______。
D.计算结果在文本框中显示出来
●在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
OptionBase1
PrivateSubCommand1_Click()
Dima(4,4)
Fori=1To4
Forj=1To4
a(i,j)=(i-1)*3+j
Nextj
Nexti
Fori=3To4
Forj=3To4
Printa(j,i);
Nextj
Nexti
EndSub
程序运行后,单击命令按钮,其输出结果为______。
A.912
1013
●执行以下程序段,并输入1.23,则程序的输出结果应是______。
N=Str(InputBox("请输入一个实数:
"))
p=InStr(N,".")
PrintMid(N,p)
.23
●本程序的功能是利用随机数函数模拟投币,方法是:
每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。
在窗体上有三个文本框,名称分别是Text1、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图所示。
程序运行后,在文本框Text1中输入总次数,然后单击"开始"按钮,按照输入的次数模拟投币,分别统计出现正面、反面的次数,并显示结果。
以下是实现上述功能的程序,请填空。
PrivateSubCommand1_Click()
Randomize
n=CInt(Text1.Text)
n1=0
n2=0
Fori=1To___n___
r=Int(Rnd*2)
Ifr=__1____Then
n1=n1+1
Else
n2=n2+1
EndIf
Next
Text2.Text=n1
Text3.Text=n2
EndSub
●快捷键Ctrl+O的功能相当于执行___文件___菜单中的打开工程命令,或者相当于单击工具栏上的打开工程按钮。
(假设工作环境是中文VB)
●在窗体上画一个命令按钮,然后编写如下程序:
(假定变量x是一个窗体级变量)
DimxAsInteger
Subinc(aAsInteger)
x=x+a
EndSub
PrivateSubCommand1_Click()
inc2
inc3
inc4
Printx;
EndSub
程序执行后,单击Command1命令按钮,输出的结果是___9___。
●单击窗体时,程序运行的结果是:
______
PrivateSubForm_Click()
multi20,3
EndSub
PublicSubmulti(kAsInteger,sAsInteger)
Ifk<50Then
k=k*s
Callmulti(k,s)
EndIf
k=k+k*s
Printk;
EndSub
240960
●在考生文件夹下有一个工程文件sj47.vbp,窗体上有一个圆和一条直线(直线的名称为Line1)构成一个钟表的图案;有两个命令按钮,名称分别为Command1、Command2,标题分别为"开始"、"停止";还有一个名为Timer1的计时器。
程序运行时,钟表指针不动,单击"开始"按钮,则钟表上的指针(即Line1)开始顺时针旋转(每秒转6°,一分钟转一圈);单击"停止"按钮,则指针停止旋转。
运行时的窗体如图所示。
请设置计时器的适当属性,使得每秒激活计时器的Timer事件一次;并编写两个按钮的Click事件过程。
文件中已经给出了所有控件和部分程序,不得修改已有程序和其它控件的属性;编写的事件过程中不得使用变量,且只能写一条语句。
最后把修改后的文件按原文件名存盘。
********************************************************************
(2)在考生文件夹下有一个工程文件sj48.vbp,窗体上有两个文本框、三个单选按钮和一个命令按钮。
运行时,在Text1中输入若干个大写和小写字母,并选中一个单选按钮,再单击"转换"按钮,则按选中的单选按钮的标题进行转换,结果放入Text2(如图所示)。
在给出的窗体文件中已经给出了全部控件,但程序不完整,要求:
去掉程序中的注释符,把程序中的?
改为正确的内容。
注意:
不能修改程序中的其他部分。
最后把修改后的文件按原文件名存盘。
(1)计时器控件的Interval属性
返回或设置对Timer控件的计时事件各调用间的毫秒数。
Enable属性可停止或启用计时器。
(2)本题主要考查了字符串函数的使用,包括Ucase,Lcase,Mid$
1、Ucase,Lcase分别是将字母转换成大小写的函数;
2、Mid$(f,i,n)返回从字符串f中取出的从第i个字符开始的连续的n个字符组成的字符串。
●在名称为Form1的窗体上建立一个文本框(名称为Text1,MultiLine属性为True,ScrollBars属性为2)和两个命令按钮(名称分别为Cmd1和Cmd2,标题分别为"读入数据"和"计算保存")(如图所示)。
要求程序运行后,如果单击"读入数据"按钮,则读入"in.txt"文件中的100个整数,放入一个数组中(数组下界为1),同时在文本框中显示出来;如果单击"计算保存"按钮,则计算数组中大于或等于400并且小于800的所有数之和,把求和结果在文本框Text1中显示出来,同时把结果存入考生文件夹中的文件result.txt中。
(在prog.bas中的putdata过程可以把结果存入result.txt文件,考生可以把该模块文件添加到自己的工程中,直接调用此过程)。
注意:
文件必须存放在考生文件夹下,窗体文件名为wy8.frm,工程文件名为wy8.vbp,计算结果存入result.txt,否则没有成绩。
新建一工程,在上面放置一文本框设置其MultiLine属性为True,ScrollBars属性为True,再建立两个命令按钮(名称分别为Cmd1和Cmd2,标题分别为"读入数据"和"计算保存"),整个工程的代码如下:
Dimi(1To100)AsInteger
PrivateSubCmd1_Click()
DimjAsInteger
j=0
OpenApp.Path&"\in.txt"ForInputAs#1
Forj=1To100
Input#1,i(j)
Next
Close#1
Forj=1To100
Text1.Text=Text1.Text&i(j)&Space(5)
Next
EndSub
PrivateSubCmd2_Click()
DimtempAsLong
DimjAsInteger
Forj=1To100
Ifi(j)>=400Andi(j)<800Then
temp=temp+i(j)
EndIf
Next
Text1.Text=temp
putdatatemp
EndSub
●有如下程序:
OptionBase1
PrivateSubForm_Click()
Dimarr,Sum
Sum=0
arr=Array(1,3,5,7,9,11,13,15,17,19)
Fori=1To10
Ifarr(i)/3=arr(i)\3Then
Sum=Sum+arr(i)
EndIf
Nexti
PrintSum
EndSub
B.27
●以下叙述中正确的是______。
B.一个Sub过程必须有一个EndSub语句
●表达式4+5\6*7/8Mod9的值是______。
5
●假定程序中有以下语句:
answer=MsgBox("String1",,"String2","String3",2)
执行该语句后,将显示一个信息框,此时如果单击“确定”按钮,则answer的值为:
___1___。
●下列哪条语句是错的______。
C.exitwhile
●以下叙述中错误的是______。
在KeyPress事件过程中不能识别回车键
●窗体上有名称为Text1、Text2的2个文本框,有一个由3个单选按钮构成的控件数组Option1,如图1所示。
程序运行后,如果单击某个单选按钮,则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100),并将结果显示在Text2中,如图2所示,为了实现上述功能,在程序中的问号(?
)处应填入的内容是___Index___。
图1
图2
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
EndSelect
EndIf
EndSub
●若已把一个命令按钮的Default属性设置为True,则下面可导致按钮的Click事件过程被调用的操作是______。
按键盘上的回车键
●在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimiAsInteger,nAsInteger
Fori=0To50
i=i+3
n=n+1
Ifi>10ThenExitFor
Next
Text1.Text=Str(n)
EndSub
程序运行后,单击命令按钮,在文本框中显示的值是_____3_。
●在窗体上画一个名称为Command1的命令按钮。
然后编写如下程序:
OptionBase1
PrivateSubCommand1_Click()
Dima(10)AsInteger
Fori=1To10
a(i)=i
Next
Callswap(______)
Fori=1To10
Printa(i);
Next
EndSub
Subswap(b()AsInteger)
n=______
Fori=1Ton/2
t=b(i)
b(i)=b(n)
b(n)=t
______
Next
EndSub
上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a
(1)与a(10)的值互换,a
(2)与a(9)的值互换,……。
请填空。
OptionBase语句,在模块级别中使用,用来声明数组下标的缺省下界。
缺省值为0。
UBound函数:
返回一个Long型数据,其值为指定的数组维可用的最大下标。
空1:
题目中子过程swap(b())的形参为数组b(),因此调用子过程swap(b())时相应的实参也要为数组,故在横线处应填入a。
空2:
题目要求将数组中的所有数(10个数)逆序存放,因此n的值为数组b的最大下标,所以横线处应填入Ubound(b)或10。
空3:
题目要求将数组中的10个数逆序存放,也就是首尾两两交换,循环次数应为5次,在交换了a
(1)与a(10),应将n的值减1,再将a
(2)与a(9)进行交换,以此类推。
故在横线处应填入n=n-1。
●在KeyDown和KeyUp事件过程中,当参数Shift的值为十进制数1,2,4时,分别代表Shift、__Ctrl____、___Alt___键。
●请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为Command1的命令按钮,标题为“打
开文件”,再画一个名称为CD1的通用对话框。
程序运行后,如果单击命
令按钮,则弹出打开文件对话框。
请按下列要求设置属性和编写代码:
1)设置适当属性,使对话框的标题为“打开文件”;
2)设置适当属性,使对话框的“文件类型”下拉式组合框中有二行:
“
文本文件”、“所有文件”(如图所示),默认的类型是“所有文件
”;
3)编写命令按钮的事件过程,使得单击按钮可以弹出打开文件对话框。
要求:
程序中不得使用变量,事件过程中只能写一条语句。
*注意:
存盘时必须存放在考生文件夹下,工程文件名为sj25.vbp,窗体文件
名为sj25.frm。
*************************************************************************************
(2)在名称为Form1的窗体上画一个命令按钮,名称为Command1,其标题为“
移动本按钮”,如图所示。
要求编写适当的事件过程,使得程序运行时,每单击按钮一次,按钮向
左移动100。
要求:
程序中不得使用变量,事件过程中只能写一条语句。
*注意:
存盘时必须存放在考生文件夹下,工程文件名为sj26.vbp,窗体文件
名为sj26.frm。
第1小题:
新建一个工程,选择“工程”下拉菜单中的“部件”选项,弹出“部件”对话框或在“工具箱”上单击右键选择弹出菜单中的“部件”选项,弹出“部件对话框”。
在对话框的“部件”列表中选择“MicroSoftCommonDialogControl6.0”项目,使它前边的方框为选中。
在窗体上添加一个通用对话框CD1,并将其DialogTitle属性设置为“打开文件”,其Filter属性设置为“文本文件|*.txt|所有文件|*.*|”,其FilterIndex属性设置为2。
再添加一个命令按钮Command1,标题为“打开文件”。
双击这个按钮添加如下代码:
PrivateSubCommand1_Click()
CD1.ShowOpen
EndSub
最后按照题目要求保存文件即可。
第2小题:
新建一个工程,在窗体上添加一个命令按钮Command1,其Caption属性为“移动本按钮”,双击该按钮并添加如下代码:
PrivateSubCommand1_Click()
Command1.Left=Command1.Left-100
EndSub
按照题目要求保存文件即可完成本题。
●在窗体上建立一个名称为Text1的文本框,然后建立两个主菜单,标题分别为"学生信息"、"帮助",名称分别为vbMenu和vbHelp,其中"学生信息",菜单包括"张三"、"李四"、"王五"三个子菜单,名称分别为vbMenu1、vbMenu2、vbMenu3。
要求程序运行后,如果在"学生信息"的下拉菜单中选择"张三",则在文本框内显示"张三";如果选择"李四"则在文本框内显示"李四";如果选择"王五"则在文本框内显示"王五"。
*注意:
保存时必须存放在考生文件夹下,窗体文件名为wy67.frm,工程文件名为wy67.vbp。
第一题:
新建一个工程,双击控件面板上的"TextBox"控件,在窗体Form1上自动添加一个"名称"为"Text1"的文本框,在属性页上把"Text"属性设为"",单击标准工具栏上的"菜单编辑器"按钮,通过单击"下一个"按钮切换,分别在"标题框"和"名称框"中输入题面中要求的菜单名称及标题。
再选中要设置成子菜单的项目,并单击向
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 错题集