成人《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
升级会员 