VB练习题.docx
- 文档编号:20145188
- 上传时间:2023-04-25
- 格式:DOCX
- 页数:246
- 大小:3.18MB
VB练习题.docx
《VB练习题.docx》由会员分享,可在线阅读,更多相关《VB练习题.docx(246页珍藏版)》请在冰豆网上搜索。
VB练习题
201
一、单项填空
1.下列(逐步求精法)是结构化程序设计的一种基本方法。
2.若有以下说明语句:
Typeemployee
numAsInteger
salaryAsSingle
Endtype
DimprogrammerAsemployee
则下列表示记录变量programmer的成员salary正确的是(programmer.salary)
3.要是标签在运行时不可见应该把该控件的(visible)属性设置为(false)
4.应用程序设计完成后,应将程序保存,保存的过程是(先保存窗体文件(或标准模块文件),之后还要保存工程文件)
5.下面(#12/19/99#)是日期型常量
6.以下各表达式中,计算结果为0的是(FIX(12.4)+FIX(-12.6))
7.由fork=35to0step3:
nextk循环语句控制的循环次数是(0)
8.Line(100,100)-step(400,400)将在窗体上(100,100)到(500,500)画一直线
9.用语句DimA(-3to7)AsInteger定义的数组元素的个数是(11)
10.保存新建工程时,默认的路径是(VB98)
11.VB的过程有三种,他们是(事件工程,子过程和函数工程)
12.利用下面哪个函数可判定访问文件时已经到了文件尾(EOF)
13.一语句要在下一行继续写,续写符是(_)
14.对话框Filter属性为”Text(*.txt)|*.txt|Pictures(*.bmp,*.icol*.bmp;*.ico,”,若在使用ShowOpen方法是默认过滤器为.bmp;*.ico,,需将对话框的FilterIndex属性值设置为
(2)
15.一个菜单选项是不是一个分割条,由(Caption)属性决定
16.下列程序的执行结果是(i=1)a=75ifa>90theni=4ifa>80theni=3ifa>70theni=2ifa>60theni=1print“i=”;i
17.变量未赋值时,数值型变量的值为(0)
18.为了把一个记录型变量的内容写入文件中指定的位置,所使用的语句的格式为(Put文件号,记录号,变量名)
19.已知数组a(1to10)AsInteger,下面调用GetValue函数正确的是(S=GetValue(a)
PrivateFunctionGetvalue(a(i)AsInteger)AsInteger
Fori=1to10
Getvalue=Grtvalue=a(i)
Nexti
Endfunction
20.形状控件所显示的图形不可能是(等边三角形)
21.控件已与一个数据表正确关联,目前数据处于第10条记录,下面可能将数据表第二条记录设定为当前记录的是(Adodc1.Recordset.MoveFirest
Adodc1.Recordset.MoveFirest.MoveNext)
22.窗体上有一个对话框Commondialog1,和一个命令按钮Command1,当单击按钮是程序的功能是(打开颜色对话框)
PrivateSubCommand1_click()
Commodialog1,ShowColor
Endsub
23.语句Dima&(1to20),b#(2,-1to1)定义的两个数组,其类型区别为(一维长整形数组和二维双精度数组)
24.有如下的程序段,该程序段的执行完后,共执行循环的次数(4)PrivateSubCommand1_click()total=0Conter=1DoPrintCountertotal=total+CounterPrinttotalCounter=counter+1iftotal>=10thenExitDoEndifloopwhilecounter<=10Endsub
25.下列选项中(Inputbox函数)不能用于vb数据的输出
26.目录列表框Path的属性的作用是(显示当前驱动器或指定驱动器上目录结构)
27.使用PublicConst语句声明一个全局的符号常量时,该语句应放在(标准模块的通用声明段)
28.下面关于多重窗体的叙述中,正确的是(作为启动对象的Main子过程只能放在窗体模块内)
29.vb中的坐标原点位于(容器左上角)
30.鼠标移动经过控件时,将触发控件的(MouseMove)事件
二、程序填空
1.Avg
Is>=85
Is>=60
n-1
2.or
K+1或者1+k
k>=n或者n<=k或者k=n
3.0
ISum+j
1250
4.mModr
65
r0
三、程序改错
1.ifx>0Then
Fork=xto9
a(k)=a(k+1)
2.PrintTap(i*6);I
Fork=1toj
PrintTap(k*6);j*k;””;
202
一.单选。
1.表达式15Mod4+13\5*2的值是(C)
A.0B.2C.4D.7
2.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1-Click()
ForI=1To4
X=4
Forj=1To3
X=3
Fork=1To2
X=x+6
Nextk
Nextj
Nexti
Printx
EndSub
程序运行后,单击令按钮,输出结果是(15)
3.下列(A)属性可返回目录列表框的路径。
A.pathB.driveC.pathroadD.initdir
4.下面关于随机文件的描述不正确的是(B)
A.每条记录的长度必须相同
B.一个文件中记录号不必唯一
C.可通过编程对文件中的某条记录方便的修改
D.文件的组织结构比顺序文件复杂
5.要使标签能够显示所需要的文本则在程序中应设置(A)属性的值。
A.CaptionB.TextC.NameD.AutoSize
6.下面程序输出的结果是(A)
PrivateSubCommand1-Click()
Dima(1To3,4)AsTnteger
PrintLBound(a,1),UBound(a,2),UBound(a,2)
EndSub
A.1304B.0314C.1314D.0304
7.VisualBasic的编程机制是(D)
A.可视化B.面向对象C.面向图形D.事件驱动
8.用户自定义数据类型时,其成员不能是(B)
A.定长字符串和数组B.数组C.货币型和日期型D.变长字符串和货币型
9.下列窗体的属性中,(A)属性决定窗体在启动时的显示状态
A.WindowsStateB.ShowInTaskbarC.StartUpPositionD.Moveable
10.如下程序:
PrivateSubForm-Click()
A=20:
b=20:
c=120:
d=120
Form.Line(a,b)-(c,d),,BF
EndSub
单击窗体后,窗体上显示的是(C)
A.一条直线B。
一个矩形空框C。
一个填充了颜色的矩形D。
无任何图形
11.计算如下程序的运行结果(1010)
PrivateSubForm-Click()
a=10
Printa
Callpro(a)
Printa
EndSub
Subpro(ByVala)
a=20
EndSub
12.使用三个ScrollBar控件来分别表示RGB,其Value属性值不可能是(D)
A.128B。
245C。
254D。
257
13.语句Dimarr(-3To5,2To6)AsInteger定义(数组元素有(A)
A.45个B.40个C。
11个D。
54个
14.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1-Click()
A=Val(InputBox(“a=”))
Printfun(A)
EndSub
PrivateFunctionfun1(b)
Ifb>0Then
fun1=10
ElseIfb=0Then
Fun1=9
Else
Fun1=8
EndIf
EndFunction
程序运行后,单击命令按钮,从键盘数据3,则窗体上显示的内容是(D)
A.3B。
8C。
9D。
10
15.在表示长整数时,可作为长整数尾部符号的是(C)
A.#B.!
C.&D.$
16.Integer类型的数据由(B)字节组成。
A.1B.2C.3D.4
17.在用2通用对话框,控件建立“打开”或“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是(A)
A.text(.text)|(*.txt)
B.文本文件(.txt)|(*.txt)
C.text(.txt)FFFFF||(*.bct)
D.text(txt)(*.text)
18.设在菜单编辑器中定义了一个菜单项,名为menu1.为了在运行时隐藏该菜单项,应使用的语句是(D)
A.memu1.Enable=True
B.memu1.Enable=False
C.memu1.Visible=True
D.memu1.Visible=False
19.用于获得字符串S从第四个字符开始的4个字符的函数是(A)
A.Mid(S,4,4)B.Left(S,4,4)C.MidStr(S,4,4)D.MiddleStr(S,4,4)
20.MSGBOX函数中有4个参数,其中必须写明的参数是(C)
A指定对话框中显示按钮的数目
B.设置对话框标题
C.提示信息
D.所有参数都是可选的
21.通用过程可以通过执行“工具”菜单中的(A)命令来建立。
A.添加过程B.通用过程C.添加窗体D.添加模块
22.以下叙述中正确的是(B)
A.一个记录中所包含的各个元素的数据类型必须相同
B.随机文件中每个记录的长度都是固定的
C.Open命令作用是打开一个已经存在的文件
D.使用Input#语句可以从随机文件中读取数据
23.在窗体上画一个名称为Command1的命令按钮,然后编写下列事件过程:
OptionBase1
PrivateSubCommand1-Click()
K=3
Ifx<3ThenPrintx+3
Ifx<4ThenPrintx+4
Ifx<5ThenPrintx+5
Ifx<6ThenPrintk+6
EndSub
程序运行后,单击命令按钮,则窗体上显示的内容是(B)
A.6789B。
789C。
89D。
9
24.写出如下程序运行结果(D)
Functionf(mAsInteger)AsInteger
b=1
StaticcAsInteger
b=b+1
c=c+1
f=m*b*c
EndFunction
PrivateSubCommand1-click()
DimaAsInteger
a=2
sum=0
ForI=1to3
Sum=sum+f(a)
Next1
Printsum
EndSub
A.12B.16C.20D.24
25.下列有关控件数组与一般控件的区别的叙述中,最合理的是(A)
A.控件数组一定由多个同类型的控件组成,一般控件只有一个控件。
B.控件数组的Index为0,而一般控件的Index为空。
C.控件数组的Index为1,而一般控件的Index为0。
D.控件数组的建立通过Dim语句声明,而一般控件不必声明。
26.以下叙述中错误的是(D)
A.如果过程被定义为Static类型,则该过程中的局部变量都是Static类型
B.Sub过程中不能被嵌套定义Sub过程。
C.Sub过程中可以嵌套调用Sub过程
D.事件过程可以像通用过程一样由用户定义过程名
27.vb中的坐标系最小刻度为(A)
A缇B象素C厘米D一个标准字符宽度
28.(C)是由VisualBasic提供的一种专门的子程序,由对象本身所具有,反映该对象功能的内部函数或过程。
A文件B属性C方法D窗体
29.VB中的标识符不包括(D)
A英文字母B数字C下划线D标点符号
30.关于键盘事件的说法中,正确的是(D)
A按下键盘任意键都会引发Keypress事件
B.大键盘的“1”键,和数字键盘的“1”键的Keycode编码相同
C.KeyDown和KeyUp事件过程中有KeyAsicii参数
D.大键盘的4的上档符号是$,当同时按下shift键和大键盘的“4”时,Keypress事件过程KeyAsicii参数值是$的Assii值
二.填空。
1.LBound
UBound
>
arr2
2.Max
Min
HS1.Value+Text1.Text
3.5
Text1(k)
x
>
4.Max=0
Max=n
-Min
三.程序改错
1.Forj=i+1To9
Ifa(i)>=a(j)Then
a(j)-a1
2.n=k
Fori=2Ton
MID(S,i-1,1)=T
a203
一单选
1.以下关于vb语言说法中正确的是:
(vb是一种面向对象语言)
2.用一个程序段对一个对象被单击(或双击)做出响应,从而实现指定的操作,称为:
(事件驱动编程机制)
3.当程序设计语言对输入格式有严格要求时,应保持输入格式与输入语句的:
(一致性)
4.产生(10,37)之间的随机整数的VisualBasic表达式是:
(Int(Rnd
(1)*28)+10)
5.在窗体上画一个名称Command1的命令按钮,然后编写如下事件过程:
Privatesubcommand_click()
Fori=1To3
Printspc(3);(2*i+1)*(2*i-1);
Nexti
Endsub
程序运行后,单击命令按钮,则窗体上显示的内容是:
(31535)
6.定义货币类型数据应该用关键字:
(CURRENCY)
7.下列程序的功能是调用字体对话框来设置文本框字体,单击按钮弹出对话框后单击cancel按钮退出对话框,则将发生以下变化(D)
Privatesubcommand1_click()
CommonDialogl.cancelError=ture
CommonDialoglFlags=vbCFEffectsOrvbDFBoth
CommonDialogl.showfont
Text.Font.Name=CommonDialog.FontName
Text.Font.size=CommonDialog.Fontsize
Text.Font.Bold=CommonDialog.FontBold
Text.Font.Italic=CommonDialog.FontItalic
Text.Font.Underline=CommonDialog.Fontunderline
Text.FontStrikethru=CommonDialog.FontStrikethru
Text.FontColor=CommonDialog.Color
Endsub
8.下列(#2/1/02#)是日期型常数
9.设置标签边框的属性是(BorderStyle)
10.要在图片框P1中打印字符串”HowAreYou”,应使用语句(P1.Print”HowAreYou”)
11.在vb中,制作菜单时,必须要设置的两个属性是(标题和名称)
12.设a=2,b=3,c=4,d=5,表达式a>bAndC<=dOr2*a>c的值是(false)
13.在窗体上添加一命令按钮,编写如下代码:
Privatesubcommand1_click
Dimarr1(10)asInteger,arr2(10)asinteger
N=3
Fori=1to5
arr1(i)=i
Arr2(n)=2*n+1
Nexti
Printarr2(n),arr1(n)
Endsub
程序运行后,单击命令按钮,输出结果是(113)
14.functiona(x)
Staticbasinteger
B=b+x^2
Printb
Endfunction
Privatesubcommand1_click()
Dimc%
C=a
(2)
Endsub
单击两次按钮,显示的结果是(D)8
15.语句dima&(1to20),b#(2,-1to1)定义的两个数组,其类型区别为(一维长整形数组和二维双精度数组)
16.要将名为MyForm的窗体显示出来,正确的使用方法(MyForm.Show)
17.下面关于顺序文件的描述正确的是(记录按进入的先后顺序存放,读出也是按原写入的先后顺序读)
18.MaxLength属性可以设置文本框可以输入与显示的最多字符个数,当其值为0时表示(输入的字符长度不限)
19.下列程序输出结果为(1010)
Privatesubcommand1_click()
a%=10
b%=5
Changea,b
Printa,b
Endsub
Privatesubchange(byvalaasinteger,basinteger)
Tmp=a
a=b
b=tmp
Endsub
20.编写如下事件过程
Privatesubform_click()
Dimsumasdouble,iasinteger
Fori=1to20
Ifimod5=0thensum=sum+i
Endif
Nexti
Printsum
Endsub
程序运行后,单击窗体,则窗体上显示的内容是(50)
21.如下定义语句
Typestudent
Nameasstring
Codeasstring
Sexasstring
Endtype
Dimstuasstudent
Withstu
.name=””李洪””
.code=””10101””
.sex=””女””
Endwith
Printstu.code
的结果是(B)10101
22.下列选项中,(整型变量)不是VB变量的作用域。
23.结构化程序由三种基本结构组成,下面属于三种基本结构之一的是(选择结构)。
24.在VisualBasic应用程序中以下正确的描述是(过程的定义不可以嵌套,但过程的调用能嵌套)。
25.下面关于多重窗体的叙述中,正确的是(作为启动对象的Main子过程只能放在窗体模块内)。
26.按文件的组织方式分为(顺序文件名和随机文件)
答案:
A
27.可以唯一标识控件数组中的每一个控件属性的是(Index)
答案:
C
28.有如下函数过程
Functioncys(byvalxasinteger,byvalyasinteger)asinteger
Dowhiley<>0
Reminder=xmody
X=y
Y=reminder
Loop
Cys=x
Endfunction
以下是调用该函数的事件过程,改程序的运行结果是()
Privtatesubcommand7_click()
Dimaasinteger
Dimbasinteger
A=100
B=25
X=cys(a,B)
......
答案:
B25
29.鼠标移动经过控件时,将触发控件的(MouseMove)事件
答案:
C
30.以下不属于VisualBasic系统文件类型的是(*.bat)
答案:
B*.bat
上面的全部不区分大小写
2.程序填空
1.s1Len(xstr)Loop
2.1> 3.False30x0Y2 4.5+isum或者&isumj= 3.程序改错 1.Dim(里面错误的地方)------DimIn%(改后的正确答案) STRT=------strT=Mid$(str1,i,1) STR2=------str2=str2&Asc(strT) STR2=------str2=strt2&strt TEXT2=-----Text2=str2 2.改后的i=0PrintxNext 204 一、单选 1.已知AS="12345678",则表达式Val(LeftS(AS,4)+MidS(aS,4,2)的值为(123445) 2.表达式15Mod4+13\5*2的值是(4) 3.能够改变窗体边框线类型的属性是(BorderStyle) 4.若有以下说明语句 Type empioyee num As Integer salary As Single End Type Dim programmer AS empioyee 则下面表示记录变量programmer的成员Salary正确的是(Programmer.salary) 5.将通用对话框类型设置为字体对话框,可修改该控制的(action)属性 6.下列程序执行后,n的值为(25) n=0 For1=1To100 If1Mod4=0Then n=n+1 Next 7 在VB中(窗体和控件)被称为对象 8 假定有如下的Sub过程 Sub fun(x As Single,y As Single) t=x x=t\y y=tMody End Sub 在窗体上画一个命令按钮和两个文体框(其中Name属性分别为Txt1和Txt2) 然后编写如下事件过程 Private Sub Command1 Click() Dim a As Single,b As Single a=Clnt(Txt1.Text) b=Cint(Txt1.Text) Call fun(a,b) print a,b End Sub 程序运行 Dim a As Single As Single a=Cint(Txt1.Text) b=Cint(Txt2.Text) Call fun(a,b) print a,b End Sub 程序运行时在两个文件框中输入5和6.单击命令按钮输出结果为(05) 9 询问Dim am(-3to6)As Intrger定义
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 练习题