vb练习题有答案打印.docx
《vb练习题有答案打印.docx》由会员分享,可在线阅读,更多相关《vb练习题有答案打印.docx(49页珍藏版)》请在冰豆网上搜索。
![vb练习题有答案打印.docx](https://file1.bdocx.com/fileroot1/2022-12/17/fa71a118-3c67-437c-9106-6356751095f9/fa71a118-3c67-437c-9106-6356751095f91.gif)
vb练习题有答案打印
《大学VisaulBasic程序设计》复习题
第一章VisualBasic程序设计概述
第一题:
是非题(共10分,每项1分)
1.VB6.0只能运行在Windows2000下,不能运行在Windows98下。
13
A.对
B.错√
2.用户控件和系统控件都可以加载到工具箱上,并且永久保留。
4
A.对
B.错√
第二题、单选题(共45分,每项1.5分)
1.VB中的工具栏可以从______菜单上的“工具栏”命令中移进或移出。
15
A.工具
B.编辑
C.视图√
D.调试
2.在VB的集成环境中创建VB应用程序时,除了工具箱窗口、窗体设计窗口、属性窗口外,必不可少的窗口是______。
2
A.窗体布局窗口
B.立即窗口
C.代码窗口√
D.监视窗口
第二章VB的编程机制
第一题:
是非题(共10分,每项1分)
1.在事件驱动的应用程序中,代码是按照预定的路径执行的。
15
A.对
B.错√
2.标签控件即可以用来显示用户不能编辑和修改的文本,也可以用来编辑和修改文本。
9
A.对
B.错√
3.每一个控件实质上都是一个微型程序。
2
A.对√
B.错
4.窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。
A.对√
B.错
第二题、单选题(共45分,每项1.5分)
1.文本框没有_____属性。
21
A.Enabled
B.Visible
C.BackColor
D.Caption√
2.文本框(Text1)中有选定的文本,执行Text1.SelText=”Hello”的结果是___。
9
A.“Hello”将替换掉原来选定的文本√
B.“Hello”将插入到原来选定的文本之前
C.Text1.SelLength为5
D.文本框中只有“Hello”
3.要判断“命令按钮”是否被鼠标单击,应在“命令按钮”的______事件中判断。
3
A.Chang
B.KeyDown
C.Click√
D.KeyPress
4.如果文本框的Enabled属性设为False,则___。
6
A.文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上
B.文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容√
C.文本框的文本将变成灰色,用户仍然能改变文本框中的内容
D.文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容
第三题、简单程序(共15分,每项1.5分)
1.以下程序的输出结果是______。
2
1
PrivateSubCommand1_Click()
DimxAsSingle
x=0.000000075
Printx
EndSub
A.0.000000075
B..000000075
C.7.5E-8
D.7.5E-08√
2.在窗体中添加Command1和Command2两个命令按钮来测验文本框Text1的值,然后编写如下代码:
4
PrivateSubCommand1_Click()
Text1.Text="AB"
EndSub
PrivateSubCommand2_Click()
Text1.Text="CD"
EndSub
首先单击Command2按钮,然后再单击Command1按钮,在文本框中显示______。
A.AB√
B.CD
C.ABCD
D.CDAB
第二卷主观题
填空题(共30分,每项2分。
注意:
填两个空的题的时候,要按照从上至下,从左至右的顺序添入答题卡!
)
1.下列程序段的运行结果。
2
PrivateSubForm_Click()
Form1.CurrentX=500
Form1.CurrentY=500
Form1.Print”您好!
”
EndSub
A.在距离窗体左边框500单位处,显示“您好”
B.在距离窗体标题栏500单位处,显示“您好”
C.在窗体的中心处,显示“您好”
D.在距离窗体左边框和标题栏500单位处,显示“您好”√
第三章Visual_Basic语言基础
第一题:
是非题(共10分,每项1分)
1.一条VisualBasic语句如果不超过80个字符是不能运行的。
3
A.对
B.错√
2.以Rem开头的注释可以直接出现在语句后面。
1
A.对
B.错√
3.变量名是以字母或汉字开头,由字母、汉字、数字或下划线组成,长度可以任意的字符序列。
9
A.对
B.错√
4.逻辑型数据的值只有True与False两个值,非零为True,0为False。
2
A.对√
B.错
5.""是一个字符串,而""不是一个字符串。
7
A.对
B.错√
6.表达式“ab”&34的结果是“ab34”。
5
A.对√
B.错
7.用Dim语句声明变量时,VB系统不仅为变量分配相应数据类型的内在空间,而且还为变量赋所需的初值。
8
A.对√
B.错
8.在VB系统中,没有用Dim语句声明的变量不能使用,因为它没有数据类型。
8
A.对
B.错√
9.在程序运行过程中,变量中的值不会改变,而常量中的值会被改变。
7
A.对
B.错√
10.用Const语句定义的符号常量的名字必须用大写字母构成。
4
A.对
B.错√
11.函数Mid("abc123",3,3)的返回值为c12。
A.对√
B.错
12.在VB中,运算符“/”与“\”都是除法运算符,所以表达式5/2与5\2的结果一样。
A.对
B.错√
第二题、单选题(共45分,每项1.5分)
1.在下列表达式中,非法的是______。
8
A.a=b+c
B.a>b+c
C.a≠b>c√
D.a
2.下面语句语法正确的是______。
4
A.a=1b=2c=3
B.a=1:
b=2:
c=3√
C.a=1,b=2,c=3
D.a=1;b=2;c=3
3.表达式3>4And7=5的返回值为______。
12
A.0
B.True
C.-1
D.False√
4.表达式Int(23.4)+Round(-3
5.5)的计算结果为______。
16
A.-11
B.-12.1
C.-13√
D.-12.5
5.Integer类型的数据由______字节组成。
16
A.1
B.2√
C.3
D.4
6.在VisualBasic中,用于获得字符串S最左边4个字符的函数是______。
7
A.Left(S,4)√
B.Left(1,4)
C.LeftStr(S)
D.LeftStr(S,4)
7.以下______不能作为VB中的变量名。
12
A.Abx45
B.P1234
C.89TasFF√
D.xy
8.下面四项中,______是VB中的数值变量。
6
A.ABC√
B.E+2
C."True"
D.1.35E-2
9.表达式a+b=c是______。
6
A.赋值表达式
B.字符表达式
C.算术表达式
D.关系表达式√
10.下列四个字符串进行比较,最小的是______。
9
A."9977"√
B."B123"
C."BASE"
D."DATA"
11.在VisualBasic中,语句Print3>9的输出结果为______。
14
A.0
B.1
C.-1
D.False√
12.语句PrintFormat("HELLO","<")的输出结果是______。
7
A.HELLO
B.hello√
C.He
D.he
13.常量2.7856E-6的类型是______。
7
A.整型
B.实型√
C.字符型
D.双精度
14.VB表达式Cos(0)+Abs(-1)+Int(Rnd
(1))的值是______。
5
A.1
B.2√
C.0
D.-1
15.在VB中,变量的默认类型是______。
9
A.Integer
B.Double
C.Variant√
D.Currency
16.在VisualBasic中,最简单的数据类型包括______。
10
A.整型、实型、布尔型、字符型√
B.整型、实型、字符型
C.整型、实型、逻辑型
D.实型、逻辑型、字符型
17.在VB中,常量987654,987654#的数据类型是______。
8
A.整型
B.实型
C.长整型
D.双精度√
18.数学表达式x>y>z的正确VB逻辑表达式是______。
12
A.x>yAndB.x>y>z
C.x>yAnd>z
D.x>yAndy>z√
19.函数Int(Rnd*11)+10产生的数值的范围是______。
8
A.(0,10)
B.[10,10]
C.[10,20]√
D.(0,20)
20.下列逻辑表达式中,其值为真的是______。
4
A."b">"ABC"√
B."THAT">"THE"
C.9>"H"
D."A">"a"
第三题、简单程序(共15分,每项1.5分)
1.以下程序的输出结果是______。
12
PrivateSubCommand1_Click()
a=1234
b$=Str$(a)
c=Len(Trim(b))
printc;LenB(b)
EndSub
A.38
B.410√
C.510
D.48
2.以下程序的输出结果是______。
12
PrivateSubCommand1_Click()
DimsumAsInteger
sum%=19
sum=2.32
Printsum%,sum
EndSub
A.192.32
B.1919
C.2.322.32
D.22√
3.执行下面程序段后,变量c$的值为______。
7
a$="VisualBasicProgramming"
b$="Quick"
c$=b$&Ucase(Mid$(a$,7,6))&Right$(a$,12)
A.VisualBASICProgramming
B.QuickBasicProgramming
C.QUICKBasicProgramming
D.QuickBASICProgramming√
4.以下程序的输出结果是______。
6
PrivateSubCommand1_Click()
a="ABCD"
b="efgh"
c=Lcase(a)
d=Ucase(b)
Printc+d
EndSub
A.abcdEFGH√
B.abcdefgh
C.ABCDefgh
D.ABCDEFGH
5.下面程序运行后,输出的结果为________。
8
PrivateSubCommand1_Click()
A$=”Beijing”
B$=”dalian”
C$=”shanghai”
C$=Instr(Left(A$,2)+Right$(B$,2),C$)
PrintC$
EndSub
A.10
B.0√
C.8
D.6
第四章控制结构
第二题、单选题(共45分,每项1.5分)
1.If结构的结束语句是______。
5
A.EndSelect
B.EndSub
C.EndIf√
D.EndDo
2.InputBox函数的返回值的类型为______。
4
A.数值
B.字符串√
C.逻辑值
D.日期值
3.MsgBox函数的返回值的类型为______。
5
A.整数√
B.字符串
C.逻辑值
D.日期值
4.通过代码在运行时设置属性的语法格式为______。
14
A.对象名=属性.新值
B.对象名.属性=新值√
C.对象名.新值=属性.新值
D.对象名.属性=属性.新值
第三题、简单程序(共15分,每项1.5分)
1.从键盘输入一个实数mm,利用字符串函数对输入的数进行处理,如果输出的内容不是字符则输出“END“,程序的输出结果是______。
11
PrivateSubCommand1_Click()
mm=Val(InputBox("请输入一个实数"))
n$=Str$(mm)
p=InStr(n,".")…InStr()函数:
指定一字符串在另一字符串中最先出现的位置
Ifp>0Then
PrintMid(n,p)…Mid语句来得到某个字符串中的几个字符
Else
Print"END"
EndIf
EndSub
A.用字符方式输出数据mm
B.输出数据的整数部分
C.输出数据的小数部分√
D.只去掉数据部分的小数点,保留所有数码输出
2.运行下面程序后,在弹出的消息窗口中显示的是______。
7
PrivateSubForm_Click()
score=Int(Rnd)+5…当参数为负数时,Int函数返回小于或等于该参数之最大整数,rem而Fix函数则返回大于或等于该参数之最小整数。
SelectCasescore
Case5
a$="Good"
Case4
a$="Ok"
Case3
a$="Pass"
CaseElse
a$="Bad"
EndSelect
MsgBoxa$
EndSub
A.Bad
B.Pass
C.Ok
D.Good√
3.以下程序的输出结果是______。
8
PrivateSubCommand1_Click()
a=100
Do
s=s+a
a=a+1
LoopUntila>100
printa
EndSub
A.100
B.120
C.201
D.101√
4.以下程序的循环次数是______。
11
PrivateSubCommand1_Click()
Forj=8To35Step3
Printj;
Nextj
EndSub
A.10…int(35-8)/3+1√
B.9
C.27
D.28
5.执行下面程序段后,变量a的值为______。
20
ForI=1To3
Forj=1ToI
Fork=jTo3
a=a+1
Nextk
Nextj
NextI
A.3
B.9
C.14√
D.21
6.执行下面程序段后,变量x的值为______。
20
x=5
ForI=1To20step2
x=x+I\5
NextI
A.21√
B.22
C.23
D.24
7.当输入4时,以下程序的输出结果是______。
7
PrivateSubCommand1_Click()
x=InputBox(x)
Ifx^2<15Theny=1/x
Ifx^2>15Theny=x^2+1
Printy
EndSub
A.4
B.17√
C.18
D.0.25
8.运行下面程序后,在弹出的消息窗口中显示的是______。
3PrivateSubForm_Click()
Dimcounter
counter=0
Whilecounter<20
counter=counter+1
Wend
MsgBoxcounter
EndSub
A.0
B.21
C.20√
D.19
9.运行下面程序后,在窗体中显示的是______。
4
PrivateSubForm_Click()
a$="*":
b$="$"
Fork=1To3
x$=String$(Len(a$)+k,b$)…指定长度重复字符的字符串。
Printx$;
Nextk
Print
EndSub
A.、*********
B.*$*$*$
C.1*$2*$3*$
D.、$$$$$$$$$√
10.下面程序运行后,单击命令按钮,在两个文本框中显示的值分别为______。
7PrivateSubCommand1_Click()
x=0
DoWhilex<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
EndSub
A.1和0
B.2和72√
C.3和50
D.4和168
11.执行下面的程序段后,I的值为______。
3
s=2
ForI=3.2To4.9Step0.8
s=s+1
NextI
A.6.4
B.5.6√
C.4.8
D.7.2
12.执行下面的程序段后,变量S的值为______。
3
S=5
ForI=2.6To4.9Step0.6
S=S+1
NextI
A.7
B.8
C.9√
D.10
13.在窗体中添加一个文本框(其中Name属性为Text1),然后编写如下代码:
2
PrivateSubForm_click()
Text1.Text=""
Text1.SetFocus
ForI=1To10
Sum=Sum+I
NextI
Text1.Text=Sum
EndSub
上述程序运行后,单击窗体,则运行的结果______。
A.在文本框Text1中输出55√
B.在文本框Text1中输出0
C.出错
D.在文本框Text1中输出不定值
14.运行下面程序后,在弹出的消息窗口中显示的是______。
2
PrivateSubForm_Click()
k=0
DoWhilek<70
k=k+2
k=k*k+k
a=a+k
Loop
MsgBoxa
EndSub
A.64
B.72
C.78√
D.148
第二卷主观题
填空题(共30分,每项2分。
注意:
填两个空的题的时候,要按照从上至下,从左至右的顺序添入答题卡!
)
1.请用正确的内容填空。
以下程序找出50以内所有能构成直角三角形的整数组。
14
PrivateSubForm_Click()
Forx=1To50
Fory=xTo50
z=Sqr(x*x+y*y)
Ifz<=50Andz=Int(z)ThenPrintx;y;z…z是小于50的整数吗
Nexty
Nextx
Print
EndSub
2.在窗体上画一个名称为Commandl的命令按钮,编写如下事件过程2
PrivateSubCommand1_C1ick()
DimaAsString
a=“123456789”
ForI=1To5
PrintSpc(6-I);Mid$(a,6-I,2*I-1)
NextI
EndSub
程序运行后,单击命令按钮,要求窗体上显示的输出结果为
5
456
34567
2345678
123456789
请填空。
3.请用正确的内容填空。
下面程序运行后,输出的结果是:
********
********
********
********
PrivateSubForm_Click()
ForI=1To4
PrintTab(10+I);
Forj=1To8
Print"*";
Nextj
Print
NextI
EndSub
4.请用正确的内容填空。
以下程序的功能是统计字符串a中出现字符串b的次数,然后输出。
PrivateSubForm_Click()
a$="ABCDEHGABCDEFABCDEABCDABCABA"
b$="AB"
c=InStr(a$,b$)
x=0
Whilec<>0
x=x+1
a$=Mid$(a$,c+2)
c=InStr(a$,b$)
Wend
Printx
EndSub
5.下面程序运行时,内层循环的循环总次数是__6__。
9
Form=1To3
Forn=0Tom-1
Nextn
Nextm
6.执行下面的程序段后,s的值为___7_____。
14
PrivateSubForm_Click()
StaticsAsInteger
s=5
ForI=1.4To2.1Step0.6
s=s+1
NextI
Prints
EndSub
7.以下程序的功能是:
生成20个200到300之间的随机整数,输出数的位置能被5整除的数并求出它们的和。
请填空。
14
PrivateSubCommandl_C1ick()
ForI=1To20
x=Int(rnd*100+200)
IfIMod5=0Then
Printx
S=S+x
EndIf
NextI
Print"Sum=";S
EndSub
8.执行下面的程序段后,X的值为____8_____。
3
X=5
ForI=1to10Step2
X=X+I\5
NextI
9.请用正确的内容填空。
7
下面程序的作用是利用随机函数产生10个(1~200)之间的随机整数,打印其中7的整数倍的数并求其和。
PrivateSubForm_Click()
ForI=1To10
x=Int(Rnd*200+1)
If(xmod7)=0Then
k1=k1+x
Printx
EndIf
NextI
Print
Print"k1=";k1
EndSub
10.请用正确的内容填空。
8
下面程序的功能是通过InputBox对话框接受一个二进制数,并把它转换成一个十进制数,结果显示在窗体中。
PrivateSubForm_Click()
b=InputBox("请输入一个二进制数")
m=Len(b)