vb练习题有答案打印.docx
- 文档编号:18592935
- 上传时间:2023-08-20
- 格式:DOCX
- 页数:47
- 大小:36.68KB
vb练习题有答案打印.docx
《vb练习题有答案打印.docx》由会员分享,可在线阅读,更多相关《vb练习题有答案打印.docx(47页珍藏版)》请在冰点文库上搜索。
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.EnabledB.VisibleC.BackColorD.Caption√
2.文本框(Text1)中有选定的文本,执行Text1.SelText=”Hello”的结果是___。
9
A.“Hello”将替换掉原来选定的文本√B.“Hello”将插入到原来选定的文本之前
C.Text1.SelLength为5D.文本框中只有“Hello”
3.要判断“命令按钮”是否被鼠标单击,应在“命令按钮”的______事件中判断。
3
A.ChangB.KeyDownC.Click√D.KeyPress
4.如果文本框的Enabled属性设为False,则___。
6
A.文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上
B.文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容√
C.文本框的文本将变成灰色,用户仍然能改变文本框中的内容
D.文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容
第三题、简单程序(共15分,每项1.5分)
1.以下程序的输出结果是______。
2
PrivateSubCommand1_Click()
DimxAsSingle
x=0.000000075
Printx
EndSub
A.0.000000075B..000000075C.7.5E-8D.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.CDC.ABCDD.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+cB.a>b+cC.a≠b>c√D.a
2.下面语句语法正确的是______。
4
A.a=1b=2c=3B.a=1:
b=2:
c=3√C.a=1,b=2,c=3D.a=1;b=2;c=3
3.表达式3>4And7=5的返回值为______。
12
A.0B.TrueC.-1D.False√
4.表达式Int(23.4)+Round(-35.5)的计算结果为______。
16
A.-11B.-12.1C.-13√D.-12.5
5.Integer类型的数据由______字节组成。
16
A.1B.2√C.3D.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.Abx45B.P1234C.89TasFF√D.xy
8.下面四项中,______是VB中的数值变量。
6
A.ABC√B.E+2C."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.0B.1C.-1D.False√
12.语句PrintFormat("HELLO","<")的输出结果是______。
7
A.HELLOB.hello√C.HeD.he
13.常量2.7856E-6的类型是______。
7
A.整型B.实型√C.字符型D.双精度
14.VB表达式Cos(0)+Abs(-1)+Int(Rnd
(1))的值是______。
5
A.1B.2√C.0D.-1
15.在VB中,变量的默认类型是______。
9
A.IntegerB.DoubleC.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>yAnd
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.38B.410√C.510D.48
2.以下程序的输出结果是______。
12
PrivateSubCommand1_Click()
DimsumAsInteger
sum%=19
sum=2.32
Printsum%,sum
EndSub
A.192.32B.1919C.2.322.32D.22√
3.执行下面程序段后,变量c$的值为______。
7
a$="VisualBasicProgramming"
b$="Quick"
c$=b$&Ucase(Mid$(a$,7,6))&Right$(a$,12)
A.VisualBASICProgrammingB.QuickBasicProgramming
C.QUICKBasicProgrammingD.QuickBASICProgramming√
4.以下程序的输出结果是______。
6
PrivateSubCommand1_Click()
a="ABCD"
b="efgh"
c=Lcase(a)
d=Ucase(b)
Printc+d
EndSub
A.abcdEFGH√B.abcdefghC.ABCDefghD.ABCDEFGH
5.下面程序运行后,输出的结果为________。
8
PrivateSubCommand1_Click()
A$=”Beijing”
B$=”dalian”
C$=”shanghai”
C$=Instr(Left(A$,2)+Right$(B$,2),C$)
PrintC$
EndSub
A.10B.0√C.8D.6
第四章控制结构
第二题、单选题(共45分,每项1.5分)
1.If结构的结束语句是______。
5
A.EndSelectB.EndSubC.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.用字符方式输出数据mmB.输出数据的整数部分
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.BadB.PassC.OkD.Good√
3.以下程序的输出结果是______。
8
PrivateSubCommand1_Click()
a=100
Do
s=s+a
a=a+1
LoopUntila>100
printa
EndSub
A.100B.120C.201D.101√
4.以下程序的循环次数是______。
11
PrivateSubCommand1_Click()
Forj=8To35Step3
Printj;
Nextj
EndSub
A.10‘int(35-8)/3+1√B.9C.27D.28
5.执行下面程序段后,变量a的值为______。
20
ForI=1To3
Forj=1ToI
Fork=jTo3
a=a+1
Nextk
Nextj
NextI
A.3B.9 C.14√D.21
6.执行下面程序段后,变量x的值为______。
20
x=5
ForI=1To20step2
x=x+I\5
NextI
A.21√B.22C.23D.24
7.当输入4时,以下程序的输出结果是______。
7
PrivateSubCommand1_Click()
x=InputBox(x)
Ifx^2<15Theny=1/x
Ifx^2>15Theny=x^2+1
Printy
EndSub
A.4B.17√C.18D.0.25
8.运行下面程序后,在弹出的消息窗口中显示的是______。
3
PrivateSubForm_Click()
Dimcounter
counter=0
Whilecounter<20
counter=counter+1
Wend
MsgBoxcounter
EndSub
A.0B.21C.20√D.19
9.运行下面程序后,在窗体中显示的是______。
4
PrivateSubForm_Click()
a$="*":
b$="$"
Fork=1To3
x$=String$(Len(a$)+k,b$)‘指定长度重复字符的字符串。
Printx$;
Nextk
EndSub
A.、*********B.*$*$*$ C.1*$2*$3*$D.、$$$$$$$$$√
10.下面程序运行后,单击命令按钮,在两个文本框中显示的值分别为______。
7
PrivateSubCommand1_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和0B.2和72√C.3和50D.4和168
11.执行下面的程序段后,I的值为______。
3
s=2
ForI=3.2To4.9Step0.8
s=s+1
NextI
A.6.4B.5.6√C.4.8D.7.2
12.执行下面的程序段后,变量S的值为______。
3
S=5
ForI=2.6To4.9Step0.6
S=S+1
NextI
A.7B.8C.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.64B.72C.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
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
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"k1=";k1
EndSub
10.请用正确的内容填空。
8
下面程序的功能是通过InputBox对话框接受一个二进制数,并把它转换成一个十进制数,结果显示在窗体中。
PrivateSubForm_Click()
b=InputBox("请输入一个二进制数")
m=Len(b)
Forj=1tom
dec=dec*2+val(Mid(b,j,1))
Nextj
Printb;"转换后的十进制数为:
";dec
EndSub
11.在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),单击命令按钮,在两个文本框Text1和Text2中分别显示的值是N和X,完成程序。
2
PrivateSubCommand1_Click
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 练习题 答案 打印
![提示](https://static.bingdoc.com/images/bang_tan.gif)