VB练习题DOC.docx
- 文档编号:26678955
- 上传时间:2023-06-21
- 格式:DOCX
- 页数:280
- 大小:109.98KB
VB练习题DOC.docx
《VB练习题DOC.docx》由会员分享,可在线阅读,更多相关《VB练习题DOC.docx(280页珍藏版)》请在冰豆网上搜索。
VB练习题DOC
━━━━━━━━━━━━━━
一、判断共5题(共计5分)
━━━━━━━━━━━━━━
第1题(1分)VB支持弹出菜单,所谓"弹出菜单"是指单击鼠标后打开的菜单.
答案:
N
第2题(1分)VB通过窗体管理构成应用程序的各类文件的集合.
答案:
N
第3题(1分)VisualBasic程序的运行可以从Main()过程启动,也可以从某
个窗体启动.
答案:
Y
第4题(1分)VB是一种面向对象的程序设计语言.
答案:
Y
第5题(1分)VisualBasic程序的运行,仅能从某一窗体启动,如Form1窗体.
答案:
N
━━━━━━━━━━━━━━━━
二、单项选择共5题(共计5分)
━━━━━━━━━━━━━━━━
第1题(1分)VisualBasic的编程机制是().
A:
可视化
B:
面向对象
C:
面向图形
D:
事件驱动
答案:
D
第2题(1分)RGB函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB
(红.绿.蓝),括号中红、绿、蓝三基色的成分使用0~255之间
的整数.若使用三个滚动条分别输入三种基色,为保证输入数值
有效,则应设置()属性.
A:
Max和Min
B:
Smallchange和LargeChange
C:
Scroll和Change
D:
Value
答案:
A
第3题(1分)VB应用程序的运行模式是().
A:
解释运行模式
B:
编译运行模式
C:
两者都有
D:
汇编模式
答案:
C
第4题(1分)vb程序设计中的窗体在OOP中称为().
A:
屏幕
B:
事件
C:
对象
D:
控件
答案:
C
第5题(1分)vb中的坐标系最小刻度为().
A:
缇
B:
象素
C:
厘米
D:
一个标准字符宽度
答案:
A
━━━━━━━━━━━━━━━━
三、程序填空共1题(共计20分)
━━━━━━━━━━━━━━━━
第1题(20分)'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能:
要求在Text1中输入一段字符,选中“大写转为小写小写转为大写”,
'单击转换按钮后,Text2显示大小写相反的字符串;选中“全部小写”,
'单击转换按钮后,Text2显示全部小写的字符串;
'选中“全部大写”,单击转换按钮后,Text2显示全部大写的字符串。
'-------------------------------------------------------
PrivateSubCommand1_Click()
DimnAsInteger,kAsInteger,chAsString,aAsString
'**********SPACE**********
n=Len(【?
】)
ch=""
Fork=1Ton
'**********SPACE**********
a=Mid(Text1.Text,【?
】,1)
IfOption1.Value=TrueThen
Ifa>="a"Anda<="z"Then
ch=ch+UCase(a)
ElseIfa>="A"Anda<="Z"Then
ch=ch+LCase(a)
Else
ch=ch+a
EndIf
EndIf
IfOption2.Value=TrueThen
ch=UCase(Text1)
EndIf
IfOption3.Value=TrueThen
ch=LCase(Text1)
'**********SPACE**********
【?
】
Text2=ch
Nextk
EndSub
答案:
=======(答案1)=======
Text1
=========或=========
text1.text
=======(答案2)=======
k
=========或=========
k%
=======(答案3)=======
endif
━━━━━━━━━━━━━━━━
四、程序改错共1题(共计20分)
━━━━━━━━━━━━━━━━
第1题(20分)
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目:
挑选单数并排序程序:
程序启动后由计算机自动产
'生20个属于[100,300]之间的随机整数,单击"显
'示全体"按钮时,在Form1上显示这20个随机数;
'单击"显示奇数"按钮时,在Form1上显示其中的奇数;
'单击"排序"按钮时,在Form1上将这些奇数从小到大显示。
'要求显示格式为每行显示5个数据。
'------------------------------------------------
OptionExplicit
Privatea(20)AsInteger,b(20)AsInteger
PrivatekAsInteger
PrivateSubcmdodd_Click()
DimIAsInteger
k=0
ForI=1To20
'**********FOUND**********
Ifa(I)/2=Int(a(I)/2)Then
k=k+1
b(k)=a(I)
EndIf
NextI
ForI=1Tok
Printb(I);
'**********FOUND**********
IfInt(I/5)<>I/5ThenPrint
NextI
EndSub
PrivateSubcmdAll_Click()
Randomize
DimIAsInteger
ForI=1To20
'**********FOUND**********
a(I)=Int(Rnd()*20+100)
Printa(I),
IfInt(I/5)=I/5ThenPrint
NextI
EndSub
PrivateSubcmdsort_Click()
DimIAsInteger
DimJAsInteger
DimTempAsInteger
ForI=1Tok-1
ForJ=ITok
Ifb(I)>b(J)ThenTemp=b(I):
b(I)=b(J):
b(J)=Temp
NextJ
NextI
ForI=1Tok
Printb(I);
IfInt(I/5)=I/5ThenPrint
NextI
EndSub
答案:
=======(答案1)=======
Ifa(I)/2<>Int(a(I)/2)Then
=========或=========
Ifa(I)mod2<>0Then
=========或=========
If0<>a(I)mod2Then
=========或=========
Ifa(I)/2<>a(I)\2Then
=========或=========
Ifint(a(I)/2)<>a(I)/2Then
=========或=========
Ifa(I)\2<>a(I)/2Then
=======(答案2)=======
IfInt(I/5)=I/5ThenPrint
=========或=========
IfImod5=0ThenPrint
=========或=========
If0=Imod5ThenPrint
=========或=========
IfI/5=int(I/5)ThenPrint
=========或=========
IfI/5=I\5ThenPrint
=========或=========
IfI\5=I/5ThenPrint
=======(答案3)=======
a(I)=Int(Rnd()*200+100)
━━━━━━━━━━━━━━━━
五、程序设计共1题(共计30分)
━━━━━━━━━━━━━━━━
第1题(30分)'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目:
(事件)单击按钮。
'(响应)随机产生N个两位正整数(N由输入对话框
'输入,且N>0),求出其中的最大数和最小
'数,并在标签框Label1上显示最大数与最
'小数的差。
'-------------------------------------------------
'注意:
请在指定的事件内编写代码。
'-------------------------------------------------
答案:
--------------------------------
x=InputBox("请输入x")
n=1
t=x
s=x
DoUntilAbs(t)<0.00000001
n=n+1
t=t*(-1)/n
s=s+t
Loop
Label1.Caption="s="&s
--------------------------------
━━━━━━━━━━━━━━━━━━
六、VB窗体设计共1题(共计20分)
━━━━━━━━━━━━━━━━━━
第1题(20分)---------------------------------------------------------------------
【窗体设计】
---------------------------------------------------------------------
题目:
请按照题目要求设计指定的窗体。
(本题有6个项目要完成)
建立如图009所示界面:
注意:
保存时不得修改窗体和工程文件的名称及路径,否则后果自负。
---------------------------------------------------------------------
1、窗体设置
1)名称为“模板”
2)标题为“南京工程学院”
2、在窗体上方添加一个标签控件
1)对齐方式为右对齐
2)设置背景透明,边框风格为1
3)内容为“透明右对齐”
3、在前一个标签下方添加另一个标签控件
1)能自动调整大小
2)背景色为白色,值为H00FFFFFF
3)标题为“0”
4)字体大小为36
4、在窗体上添加一个时钟控件
1)时间间隔为1秒
2)在Timer事件过程中添加代码,使第二个标签的标题的值加一。
5、在窗体下方添加一个列表框控件
1)名称为“列表”
2)设置为不可用
3)排序属性设为真
4)Top为3360,Left为2280
6、在窗体右下角添加一个命令按钮
1)名称为“计时切换”
2)标题为“计时”
3)在单击事件过程中添加代码,使时钟控件的Enabled属性值取反。
━━━━━━━━━━━━━━
一、判断共5题(共计5分)
━━━━━━━━━━━━━━
第1题(1分)VB支持弹出菜单,所谓"弹出菜单"是指单击鼠标后打开的菜单.
答案:
N
第2题(1分)VB通过窗体管理构成应用程序的各类文件的集合.
答案:
N
第3题(1分)VisualBasic程序的运行可以从Main()过程启动,也可以从某
个窗体启动.
答案:
Y
第4题(1分)VB是一种面向对象的程序设计语言.
答案:
Y
第5题(1分)
VisualBasic提供的几种标准坐标系统的原点都是在绘图区域
的左上角,如果要把坐标原点放在其它位置,则需使用自定义
坐标系统.
答案:
Y
━━━━━━━━━━━━━━━━
二、单项选择共5题(共计5分)
━━━━━━━━━━━━━━━━
第1题(1分)VisualBasic是一种()程序设计语言.
A:
过程式
B:
非过程式
C:
机器
D:
低级
答案:
B
第2题(1分)VisualBasic的编程机制是().
A:
可视化
B:
面向对象
C:
面向图形
D:
事件驱动
答案:
D
第3题(1分)
窗体的Caption属性的作用是().
A:
确定窗体的名称
B:
确定窗体的标题
C:
确定窗体的边界类型
D:
确定窗体的字体
答案:
B
第4题(1分)窗体的Enable属性的属性值是()类型的数据.
A:
整型
B:
字符型
C:
逻辑型
D:
实型
答案:
C
第5题(1分)"对象"是计算机系统运行的().
A:
程序单位
B:
逻辑单位
C:
物理实体
D:
基本实体
答案:
D
━━━━━━━━━━━━━━━━
三、程序填空共1题(共计20分)
━━━━━━━━━━━━━━━━
第1题(20分)'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能:
在窗体上有两个列表框List1(处理前数据)和List2(处理
'后数据),以及标签Label1。
程序功能为:
随机生成100个
'0-20(不包括0和20)的随机数填入List1,并将这些随机
'数中的零元素删除,填入List2中。
最后在Label1中显示零
'元素个数
'-------------------------------------------------------
PrivateSubForm_Load()
DimnAsInteger
Dimi,x,kAsInteger
Dima(100)AsInteger,b(100)AsInteger
Randomize
n=100
'**********SPACE**********
Fori=1To【?
】
'**********SPACE**********
x=Int(20*【?
】)
List1.AddItemx
a(i)=x
Nexti
k=0
Fori=1Ton'删除零元素
Ifa(i)<>0Then
'**********SPACE**********
【?
】:
b(k)=a(i)
List2.AddItemb(k)
EndIf
Nexti
Label1.Caption="数组中零元素个数:
"+Str(n-k)
EndSub
答案:
=======(答案1)=======
n
=========或=========
100
=======(答案2)=======
Rnd
=========或=========
Rnd
(1)
=======(答案3)=======
k=k+1
=========或=========
k=1+k
━━━━━━━━━━━━━━━━
四、程序改错共1题(共计20分)
━━━━━━━━━━━━━━━━
第1题(20分)
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目:
挑选单数并排序程序:
程序启动后由计算机自动产
'生20个属于[100,300]之间的随机整数,单击"显
'示全体"按钮时,在Form1上显示这20个随机数;
'单击"显示奇数"按钮时,在Form1上显示其中的奇数;
'单击"排序"按钮时,在Form1上将这些奇数从小到大显示。
'要求显示格式为每行显示5个数据。
'------------------------------------------------
OptionExplicit
Privatea(20)AsInteger,b(20)AsInteger
PrivatekAsInteger
PrivateSubcmdodd_Click()
DimIAsInteger
k=0
ForI=1To20
'**********FOUND**********
Ifa(I)/2=Int(a(I)/2)Then
k=k+1
b(k)=a(I)
EndIf
NextI
ForI=1Tok
Printb(I);
'**********FOUND**********
IfInt(I/5)<>I/5ThenPrint
NextI
EndSub
PrivateSubcmdAll_Click()
Randomize
DimIAsInteger
ForI=1To20
'**********FOUND**********
a(I)=Int(Rnd()*20+100)
Printa(I),
IfInt(I/5)=I/5ThenPrint
NextI
EndSub
PrivateSubcmdsort_Click()
DimIAsInteger
DimJAsInteger
DimTempAsInteger
ForI=1Tok-1
ForJ=ITok
Ifb(I)>b(J)ThenTemp=b(I):
b(I)=b(J):
b(J)=Temp
NextJ
NextI
ForI=1Tok
Printb(I);
IfInt(I/5)=I/5ThenPrint
NextI
EndSub
答案:
=======(答案1)=======
Ifa(I)/2<>Int(a(I)/2)Then
=========或=========
Ifa(I)mod2<>0Then
=========或=========
If0<>a(I)mod2Then
=========或=========
Ifa(I)/2<>a(I)\2Then
=========或=========
Ifint(a(I)/2)<>a(I)/2Then
=========或=========
Ifa(I)\2<>a(I)/2Then
=======(答案2)=======
IfInt(I/5)=I/5ThenPrint
=========或=========
IfImod5=0ThenPrint
=========或=========
If0=Imod5ThenPrint
=========或=========
IfI/5=int(I/5)ThenPrint
=========或=========
IfI/5=I\5ThenPrint
=========或=========
IfI\5=I/5ThenPrint
=======(答案3)=======
a(I)=Int(Rnd()*200+100)
━━━━━━━━━━━━━━━━
五、程序设计共1题(共计30分)
━━━━━━━━━━━━━━━━
第1题(30分)'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目:
已知,猴子吃一堆桃子,每天吃桃子总数的一半多一个。
'到第n天时,桃子只剩一个。
编写函数fun,函数的功能是:
'求出开始桃子的数量并显示。
如:
'n为7时,则显示"190"
'要求使用For语句来实现。
'-------------------------------------------------
'注意:
请在指定的事件内编写代码
'代码只能写在两行标识之间
'不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径,否则后果自负。
'-------------------------------------------------
PrivateFunctionfun(nAsLong)AsString
'**********Program**********
'**********End**********
EndFunction
PrivateSubForm_Load()
Show
Printfun(7)
NJIT_VB
EndSub
PrivateSubNJIT_VB()
DimiAsInteger
Dima(10)AsString
DimfInAsInteger
DimfOutAsInteger
fIn=FreeFile
OpenApp.Path&"\in.dat"ForInputAs#fIn
fOut=FreeFile
OpenApp.Path&"\out.dat"ForOutputAs#fOut
Fori=1To10Step1
LineInput#fIn,a(i)
Print#fOut,fun(Val(a(i)))
Next
Close#fIn
Close#fOut
EndSub
答案:
x=1
Fori=1Ton-1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 练习题 DOC