成人《VB程序设计》标准化大作业答案1.docx
- 文档编号:3666276
- 上传时间:2022-11-24
- 格式:DOCX
- 页数:37
- 大小:157.73KB
成人《VB程序设计》标准化大作业答案1.docx
《成人《VB程序设计》标准化大作业答案1.docx》由会员分享,可在线阅读,更多相关《成人《VB程序设计》标准化大作业答案1.docx(37页珍藏版)》请在冰豆网上搜索。
成人《VB程序设计》标准化大作业答案1
作业1
一、单项选择题
1.VisualBasic是一种面向对象的可视化程序设计语言,采取了A的编程机制。
(A)事件驱动(B)按过程顺序执行(C)从主程序开始执行(D)按模块顺序执行
2.在VisualBasic中最基本的对象是C,它是应用程序的基石,是其他控件的容器。
(A)文本框(B)命令按钮(C)窗体(D)标签
3.多窗体程序是由多个窗体组成。
在缺省情况下,VB在应用程序执行时,总是把B
指定为启动窗体。
(A)不包含任何控件的窗体(B)设计时的第一个窗体
(C)包含控件最多的(D)命名为Frm1的窗体
4.有程序代码如下:
Text1.Text="VisualBasic"
则:
Text1,Text和"VisualBasic"分别代表C。
(A)对象,值,属性(B)对象,方法,属性(C)对象,属性,值(D)属性,对象,值
5.VisualBasic是一种面向对象的程序设计语言,A不是面向对象系统所包含的三
要素。
(A)变量(B)事件(C)属性(D)方法
6.VisualBasic的一个应用程序至少包含一个B文件,该文件存储窗体上使用的所
有控件对象和有关的、对象相应的过程和代码。
(A)模块、方法、事件、程序(B)窗体、属性、事件、程序
(C)窗体、程序、属性、事件(D)窗体、属性、事件、模块
7.以下不属于VisualBasic的工作模式是A模式。
(A)编译(B)设计(C)运行(D)中断
8.在VB集成环境创建VB应用程序时,除了工具箱窗口、窗体中的窗口、属性窗口外,必不
可少的窗口是C。
(A)窗体布局窗口(B)立即窗口(C)代码窗口(D)监视窗口
9.保存新建的工程时,默认的路径是B。
(A)MyDocuments(B)VB98C)\(D)Windows
10.将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后,将该可执行文件拿到其他机器上不能运行的主要原因是A。
(A)运行的机器上无VB系统(B)缺少.frm窗体文件
(C)该可执行文件有病毒(D)以上原因都不对
11.对于窗体,下面D属性在程序运行时其属性设置起作用。
(A)MaxButton(B)BorderStyle(C)Name(D)Left
12.要使Print方法在Form_Load事件中起作用,要对窗体的C属性进行设置。
(A)BackColor(B)ForeColor
(C)AutoRedraw(D)Caption
13.若要使标签控件显示时不覆盖其背景内容,要对D属性进行设置。
(A)BackColor(B)BorderStyle
(C)ForeColor(D)BackStyle
14.若要使命令按钮不可操作,要对A属性设置。
(A)Enabled(B)Visible
(C)BackColor(D)Caption
15.文本框没有D属性。
(A)Enabled(B)Visible
(C)BackColor(D)Caption
16.不论何控件,共同具有的是B属性。
(A)Text(B)Name
(C)ForeColor(D)Caption
17.要使Form1窗体的标题栏显示“6欢迎使用VB”,以下D语句是正确的。
(A)Forml.Caption=“6欢迎使用VB”
(B)Forml.Caption=‘6欢迎使用VB’
(C)Forml.Caption=6欢迎使用VB
(D)Forml.Caption="6欢迎使用VB"
18.要使某控件在运行时不可显示,应对B属性进行设置。
(A)Enabled(B)Visible
(C)BackColor(D)Caption
19.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮,只要对下列B
属性设置就有效。
(A)MaxButton(B)BorderStyle
(C)Width(D)MinButton
20.当运行程序时,系统自动执行启动窗体的A事件过程。
(A)Load(B)Click
(C)UnLoad(D)GotFocus
二、填空题
1.VB6.0提供了一种新的数据库访问技术,即ADO技术,通过该技术,能方便地访问多种数据库中的数据。
2.当进入VB集成环境,发现没有显示“工具箱”窗口时,应选择视图菜单的工具箱选项,使“工具箱”窗口显示。
3.要使新建工程时,在模块的“通用声明”段中自动加入OptionExplicit语句,应对工具菜单的选项的编辑器选项卡进行相应选项的选择。
4.对象的属性是指对象的性质、特征。
5.对象的方法是指对象的动作、行为。
6.在刚建立工程时,使窗体上的所有控件具有相同的字体格式,应对Form1的
Font属性进行设置。
7.当对文本框的ScrollBar的属性设置为2(有垂直滚动条),但没有垂直滚动条显示时,是没有把Multiline属性设置为True的原因。
8.在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置,但运行后没有效果,原因是这些属性在运行时是无效的。
9.当对命令按钮的Picture属性装入.bmp图形文件后,选项按钮上并没有显示所需的图形,原因是没有对Style属性设置为1(Graphical)。
10.若已建立了Form1、Form2两个窗体,默认启动窗体为Form1。
通过工程菜单的工程属性的通用选项卡,可将启动窗体设置为Form2。
在程序中若要显示Form1窗体,则执行Form1.Show语句。
11.在文本框中,通过SelStart属性能获得当前插入点所在的位置。
12.要对文本框中已有的内容进行编辑,按下键盘上的按键,就是不起作用,原因是设置Locked的属性为True。
13.在窗体上已建立多个控件如Text1、Label1、Command1,若要使程序一运行焦点就定位在Command1控件上,应把Command1控件的TabIndex属性的值设置为0。
三、完成窗体控件与程序设计
第
(1)题
1.建立如图所示界面
2.建立如下事件过程:
(1)事件:
在文本框中输入口令(输入的字符都显示为“*”),单击“确认”按钮。
(2)响应:
如果输入的是“1234”时,应显示“口令正确”,否则显示“口令错误”。
PrivateSubCommand1_Click()
IfText1.Text="1234"Then
Label2.Caption="口令正确"
Else
Label2.Caption="口令错误"
EndIf
EndSub
第
(2)题
1.建立如图所示界面
2.建立如下事件过程:
(1)事件:
在文本框中输入一个姓名,单击“确认”按钮。
(2)响应:
将输入的内容添加到右面的列表框中。
PrivateSubCommand1_Click()
List1.AddItemText1.Text
EndSub
第(3)题
1.建立如图所示界面
2.建立如下事件过程:
(1)事件:
单击单选按钮。
(2)响应:
文本框中文字字体作相应改变。
PrivateSubOption1_Click()
Text1.FontName="宋体"
EndSub
PrivateSubOption2_Click()
Text1.FontName="隶书"
EndSub
第(4)题
1.建立如图所示界面
2.建立如下事件过程:
(1)事件:
单击相应复选框。
(2)响应:
文本框中文字字体效果作相应改变。
PrivateSubCheck1_Click()
IfCheck1.Value=1Then
Text1.FontUnderline=True
Else
Text1.FontUnderline=False
EndIf
EndSub
PrivateSubCheck2_Click()
IfCheck2.Value=1Then
Text1.FontItalic=True
Else
Text1.FontItalic=False
EndIf
EndSub
第(5)题
1.建立如图所示界面
2.建立如下事件过程:
(1)事件:
选择“对齐方式”框架内的单选按钮。
(2)响应:
上面的文本,按所选择的对齐方式对齐显示。
PrivateSubOption1_Click()
Label1.Alignment=0
EndSub
PrivateSubOption2_Click()
Label1.Alignment=1
EndSub
PrivateSubOption3_Click()
Label1.Alignment=2
EndSub
第(6)题
1.建立如图所示界面
2.建立如下事件过程:
(1)事件:
单击“最大化”按钮或单击“最小化”按钮。
(2)响应:
单击“最大化”按钮,窗体最大化;单击“最小化”按钮,使窗体最小化。
PrivateSubCommand1_Click()
Form1.WindowState=2
EndSub
PrivateSubCommand2_Click()
Form1.WindowState=1
EndSub
第(7)题
1.建立如图所示界面
2.建立如下事件过程:
(1)事件:
单击“显示”按钮和“停止”按钮。
(2)响应:
单击“显示”按钮文本框显示当前时间,且时间每秒钟变化一次,单击“停止”按钮时间显示停止。
PrivateSubCommand1_Click()
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click()
Timer1.Enabled=False
EndSub
PrivateSubTimer1_Timer()
Text1.TEXT=Time
EndSub
第(8)题
1.建立如图所示界面
2.建立如下事件过程:
(1)事件:
单击“确定”按钮和“取消”按钮。
(2)响应:
单击“确定”按钮,如果输入的是1234则显示左下图的对话框,如果输入的不是1234,则显示右下图的对话框。
PrivateSubCommand1_Click()
IfText1.Text="1234"Then
MsgBox("密码正确")
Else
MsgBox("密码错误")
EndIf
EndSub
PrivateSubCommand2_Click()
IfText1.Text="1234"Then
Text1.Text=""
Else
Text1.Text=""
EndIf
EndSub
第(9)题
1.建立如图所示界面,设计一个计算器模型
2.完成5+11,7+9的运算。
各控件功能:
按钮“5”、“7”、“9”、“11”用于输入参与运算的数据,按钮“+”决定算法,按钮“=”完成运算,文本框用于显示参与运算的数据和运算结果。
Dima,bAsInteger
PrivateSubCommand1_Click()
Text1.Text=5
a=5
EndSub
PrivateSubCommand2_Click()
Text1.Text=7
a=7
EndSub
PrivateSubCommand3_Click()
Text1.Text=9
a=9
EndSub
PrivateSubCommand4_Click()
Text1.Text=11
a=11
EndSub
PrivateSubCommand5_Click()
b=a
EndSub
PrivateSubCommand6_Click()
Text1.Text=a+b
a=a+b
EndSub
第(10)题
1.建立如图所示界面:
2.输入姓名、选定性别后,单击Command1按钮,姓名及性别在列表框中显示。
PrivateSubCommand1_Click()
IfOption1.Value=TrueThen
s="男"
List1.AddItemText1.Text&""&s
Else
s="女"
List1.AddItemText1.Text&""&s
EndIf
EndSub
第(11)题
1.建立如图所示界面:
2.建立如下事件过程:
(1)鼠标单击Option1控件时,Label1中的文字居中对齐;
(2)单击Option2控件,Label1中的文字左对齐;单击Option3控件,Label1中的文字右对齐。
PrivateSubOption1_Click()
Label1.Alignment=2
EndSub
PrivateSubOption2_Click()
Label1.Alignment=0
EndSub
PrivateSubOption3_Click()
Label1.Alignment=1
EndSub
第(12)题
1.
建立如图所示界面:
2.并编写事件过程:
(1)事件:
按钮的单击事件。
(2)响应:
单击“显示/隐藏”按钮显示/隐藏标签控件,单击“退出程序”按钮退出应用程序。
PrivateSubCommand1_Click()
StaticaAsInteger
a=a+1
IfaMod2=0Then
Label1.Visible=True
Else
Label1.Visible=False
EndIf
EndSub
PrivateSubCommand2_Click()
End
EndSub
第(13)题
1.建立如图所示的应用程序用户界面
2.建立如下事件过程输入圆的半径,利用选项按钮选择计算类型,计算圆的直径、周长或面积并利用标签输出。
PrivateSubCommand1_Click()
r=Text1.Text
IfOption1.Value=TrueThen
Label1.Caption="圆的直径是"&2*r
ElseIfOption2.Value=TrueThen
Label1.Caption="圆的周长是"&2*3.14159*r
Else
Label1.Caption="圆的面积是"&r^2*3.14159
EndIf
EndSub
PrivateSubCommand2_Click()
End
EndSub
第(14)题
1.建立如图所示的应用程序用户界面
2.建立如下事件过程:
(1)事件:
按下相应按钮,
(2)响应:
标签中的文字将按选项按钮选中的字体样式显示。
PrivateSubCommand1_Click()
Label1.FontBold=True
EndSub
PrivateSubCommand2_Click()
Label1.FontItalic=True
EndSub
PrivateSubCommand3_Click()
Label1.FontUnderline=True
EndSub
第(15)题
1.建立如图所示的应用程序用户界面
2.建立事件过程:
(1)事件:
输入年、月、日后,单击“确定”按钮,
(2)响应:
在标签上显示这一天为所在星期的第几天。
PrivateSubcommand1_click()
DimaAsDate
yy=Text1.Text
mm=Text2.Text
dd=Text3.Text
a=mm&"/"&dd&"/"&yy
tian=Weekday(a)
Label4.Caption="该日期是所在星期的第"&tian&"天"
Rem星期日是该星期的第1天
EndSub
第(16)题
1.建立如图所示的应用程序用户界面
2.建立事件过程:
(1)事件:
选择“exit”单选按钮,单击“确定”按钮
(2)响应:
结束程序
PrivateSubcommand1_Click()
IfOption1.Value=TrueThenEnd
EndSub
第(17)题
1.建立如图所示的应用程序用户界面
2.建立事件过程:
(1)事件:
单击复选框
(2)响应:
在标签上加下划线或使字体倾斜
PrivateSubCheck1_Click()
IfCheck1.Value=1Then
Label1.FontUnderline=True
Else
Label1.FontUnderline=False
EndIf
EndSub
PrivateSubCheck2_Click()
IfCheck2.Value=1Then
Label1.FontItalic=True
Else
Label1.FontItalic=False
EndIf
EndSub
PrivateSubCommand1_Click()
Label1.Visible=False
EndSub
第(18)题
1.建立事件过程:
(1)事件:
窗体的单击事件。
响应:
使用Inputbox函数输入学生成绩,若成绩在60分以下,在窗体上打印“不及格”,否则打印“及格”。
PrivateSubCommand1_Click()
n=InputBox("请输入学生成绩")
Ifn<60Then
Print"不及格"
Else
Print"及格"
EndIf
EndSub
PrivateSubCommand2_Click()
End
EndSub
第(19)题
1、建立如下界面:
2、单击“合计”按钮
3、在“合计”按钮右侧的标签中显示所选中的书的总价。
PrivateSubCommand1_Click()
Label6.Caption=Check1.Value*15.3*Text1.Text+Check2.Value*21.9*Text2.Text
EndSub
第(20)题
1、建立如下界面
2、事件:
拖动滚动条
3、响应:
拖动滚动条文本框中的文字的大小将随之发生变化(变化范围8-48)。
4、单击滚动箭头,条文本框中的文字的大小也将随之发生变化。
PrivateSubHScroll1_Change()
Text1.FontSize=HScroll1.Value
EndSub
作业2
批改教师
批改日期
作业成绩
一、单项选择题
1、VB提供了结构化程序设计的三种基本结构,三种基本结构是(D)。
(A)递归结构、选择结构、循环结构
(B)选择结构、过程结构、顺序结构
(C)过程结构、输入/输出结构、转向结构
(D)选择结构、循环结构、顺序结构
2、结构化程序由三种基本结构组成,下面属于三种基本结构之一的是(B)。
(A)递归结构(B)选择结构(C)过程结构(D)输入输出结构
3、下面程序段运行后,显示的结果是(B)。
Dimx
IfxThenPrintxElsePrintx+1
(A)1(B)0(C)1(D)显示出错信息
4、语句Ifx=1Theny=1,下列说法正确的是(C)。
(A)x=1和y=1均为赋值语句
(B)x=1和y=1均为关系表达式
(C)x=1为关系表达式,y=1为赋值语句
(D)x=1为赋值语句,y=1为关系表达式
5、用If语句表示分段函数
下列不正确的程序段是(A)。
(A)Ifx>=1Thenf=sqr(x+1)
f=x*x+3
(B)Ifx>=1Thenf=sqr(x+1)
Ifx<1Thenf=x*x+3
(C)Ifx>=1Thenf=sqr(x+1)_
Elsef=x*x+3
(D)Ifx<1Thenf=x*x+3_
Elsef=sqr(x+1)
6、计算分段函数的值。
下面程序段中正确的是:
(D)
(A)Ifx<0Theny=0
Ifx<1Theny=1
Ifx<2Theny=2
Ifx>=2Theny=3
(B)Ifx>=2Theny=3
Ifx>=1Theny=2
Ifx>0Theny=1
Ifx<0Theny=0
(C)Ifx<0Then
y=0
ElseIfx>0Then
y=1
ElseIfx>1Then
y=2
Else
y=3
EndIf
(D)Ifx>=2Then
y=3
ElseIfx>=1Then
y=2
ElseIfx>=0Then
y=1
Else
y=0
EndIf
7、下面的程序段,显示的结果是(A)。
Dimx
X=Int(Rnd)+5
SelectCasex
Case5
Print“优秀”
Case4
Print“良好”
Case3
Print“通过”
CaseElse
Print“不通过”
EndSelect
(A)优秀(B)良好(C)通过(D)不通过
8、下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是(D)。
(A)Ifsex=”男”Andage<40AndInStr(duty,”教授”)>0Thenn=n+1
(B)Ifsex=”男”Andage<40AndInStr(duty=”教授”orduty=”副教授”)Thenn=n+1
(C)Ifsex=”男”Andage<40AndRight(duty,2)=”教授”Thenn=n+1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB程序设计 成人 VB 程序设计 标准化 作业 答案