VisualBasic程序设计作业题解形成性考核作业二.docx
《VisualBasic程序设计作业题解形成性考核作业二.docx》由会员分享，可在线阅读，更多相关《VisualBasic程序设计作业题解形成性考核作业二.docx（10页珍藏版）》请在冰豆网上搜索。
VisualBasic程序设计作业题解形成性考核作业二
VisualBasic程序设计作业题解形成性考核作业二
一、选择题
1．按照变量的作用域可将变量划分为（）。
A．公有、私有、系统B．全局变量、模块级变量、过程级变量C．动态、常态、静态D．Public、Private、Protected
答案：
B
2．可获得字符的ASCII码的函数是（）。
A．ValB．FixC．AscD．Chr
答案：
D
3．要退出Do…Loop循环，可使用的语句是（）。
A．ExitB．ExitForC．EndDoD．ExitDo
答案：
D
4．把数值型转换为字符串型需要使用的函数是（）。
A．ValB．StrC．AscD．Chr
答案：
B
5．关于语句行，下列说法正确的是（）。
A．一行只能写一条语句B．一条语句可以分多行书写C．每行的首字符必须大写D．长度不超过255个字符
答案：
b
6．表达式6+10Mod4*2+1的值是（）。
A．9B．11C．1D．3
答案：
A
7．假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应制造的操作是（）。
A．SINB．COIC．COS（X）D．X（-1）
答案：
B
8．表达式Abs（-5）+Len（“ABCDE”）的值是（）。
A．5ABCDEB．-5ABCDEC．10D．0
答案：
C
9．在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符（），表示下一行是当前行的继续。
A．一个空格加一个下划线字符（_）B．一个下划线字符（_）C．直接回车D．一个空格加一个连字符（-）
答案：
A
10．Sub过程与Function过程最根本的区别是（）。
A．Sub过程可以使用Call语句或直接使用过程调用，而Function过程不可以B．Function过程可以有参数，Sub过程不可以C．两个过程参数的传递方式不同D．Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值
答案：
D
11．“x是小于80的非负数”，用VB表达式表示正确的是（）。
A．0≤x<80B．0<=x<80C．0<=xAndx<80D．0<=xOrx<80
答案：
C
12．在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为（）。
A．加号（+）B．减号（-）C．星号（*）D．感叹号（！
）
答案：
B
13．如果要在程序中显示一个弹出式菜单，那么要调用VisualBasic中提供的方法是（）。
A．PrintB．MoveC．RefreshD．PopupMenu
答案：
D
14．下列可以用来存储图像供其它对象使用的控件是（）。
A．ToolBarB．StatursBarC．ImageListD．TreeView
答案：
C
15．当单击工具栏上的按钮时，会触发的事件是（）。
A．ButtonClickB．ChangeC．LoadD．KeyPess
答案：
A
16．要利用公共对话框控件来显示"打开文件"对话框，需要调用控件的（）方法。
A．ShowPrintB．ShowOpenC．LoadD．ShowColor
答案：
B
17．对于窗体级变量，下列说法中错误的是（）。
A．所在窗体的各子程序都可以访问B．其它窗体的子程序不能访问C．所在窗体的各子程序都不能访问用Private定义的窗体级变量D．一定要在所在窗体的通用区内定义
答案：
C
18．从一个字符串中的第3个字符开始，获取5个字符，应使用（）。
A．Len函数B．Mid函数C．Left数D．Right函数
答案：
B
19．用下面的语句所定义的数组的元素个数是（）。
DimA（-3To5）AsInteger
A．6B．7C．8D．9
答案：
D
20．有如下程序段：
Dimstr1AsString*5Str1=”VisualBasic”当该程序段执行时，变量str1的之值是（）
A．”Visual”B．”Visua”C．”V”D．”VisualBasic”
答案：
B
二、填空题
1．菜单一般有（）和（）两种基本类型。
答案：
下拉式菜单弹出式菜单
2．通用对话框控件可显示的常用对话框有（）、（）、（）、（）、（）。
答案：
打开（Open）保存（Save）颜色（Color）字体（Font）打印（Print）
3．组合框具有（）和（）两种控件的基本功能。
答案：
文本框.列表框
4．要使数组的默认下标从“1“开始，则应在窗体或标准模块代码的声明部分使用语句（）。
答案：
4．Dim数组名（1To上界）
5．调用Sub过程时，使用（）语句，该语句用于把程序控制传送到一个VisualBasic的Sub过程。
答案：
过程名参数1,参数2,……
6．若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。
通过（）菜单（）命令的（）选项卡，可将启动窗体设置为Form2。
在程序中若要显示Form1窗体，则执行（）语句。
答案：
“工程”“工程属性”“工程属性”Form1.Show
7．列表框中项目的序号是从（）开始的。
。
答案：
0
8．Sub过程与Function过程最根本的区别是（）。
答案：
不会用过程名返回一个值
9．VB的代码存储在模块中，在VB中提供了三种类型的模块：
（）、（）和（）。
答案：
窗体模块标准模块类模块
10．使用Hide方法会隐藏被调用的窗体，但在调用Hide方法之后不会把窗体（）；被调用的窗体中的属性等已处于（）。
答案：
移出内存无效的状态
11．将下列函数式子写成VisualBasic表达式。
（1）
:
（ ）
（2）
：
（ ）。
（3）sin45o：
（ ）。
答案：
：
（1）2*cos（α）*sin（α）/（2*α）
（2）sqr（s*（s-a）*（s-b）*（s-c））（3）sin（45/180）
12．将下列各条件写成VisualBasic逻辑表达式。
（1）1≤x＜12：
（）
（2）A+B≥C或a-c≤c：
（）（3）a和b都为正数或同为负数：
（）
答案：
1）1<=xandx<12
（2）A+B>=Cora-c<=c（3）a>0andb>0ora<0andb<0
13．设A=2，B=3，C=4，D=5。
表达式NotA<=COr4*C=B^2AndB<>A+C的值为（）。
答案：
False
14．在VisualBasic语言中有三种形式的循环结构。
其中若函数的次数可以事先确定，可使用（）循环；若要求先判断循环的条件，可使用（）循环或（）循环。
答案：
For…NextDo[{While│Until}]条件式…LoopDo…Loop[{While│Until}]条件式
15．以下语句的输出结果是（）。
a%=3.14159Printa%
答案：
3（因为变量a被声明为整型变量——%表示整型变量）
三、阅读下列程序，写出程序的运行结果
1．PrivateSubForm_Click（）
StaticSumAsInteger
ForI=1To100
Sum=Sum+I
NextI
PrintSumEndSub
答案：
编程人员只需针对某个事件编写程序代码称为可视化编程。
应用程序是在响应不同的事件时执行不同的代码片段称为事件驱动。
2．PrivateSubForm_Click（）
A=10:
b=15:
c=20:
d=25
PrintA;Spc（5）;b;Spc（7）;c
PrintA;Spc（8）;b;Space$（5）;c
Printc;Spc（3）;"+";Spc（3）;d;
PrintSpc（3）;"=";Spc（3）;c+dEndSub
答案：
窗体和控件是创建应用程序所使用的对象，方法是对象的动作，事件是对象的响应，属性可看作对象的性质。
3．PrivateSubForm_Click（）
Fori%=1To3
Forj%=1Toi
PrintLTrim（Str（i%））+"*"+LTrim（Str（j%））+"=";i%*j%;
Nextj%
PrintNexti%
EndSub
答案：
传统编程方式是结构化程序设计，它从系统的功能入手，按照工程的标准和严格的规范将系统分解为若干功能模块，系统是实现功能模块的函数和过程的集合。
事件驱动编程则是从所处理的数据入手，以数据为中心而不是以服务（功能）为中心来描述系统。
它把编程问题视为一个数据集合，数据相对于功能而言，具有更强的稳定性。
事件驱动编程与传统编程方式相比，最大的区别在于：
前者首先关系关心的是所要处理的数据，而后者首先关心的是功能。
4．PrivateSubCommand1_Click（）
Dima,b
AsIntegera=3.4
b=3.4
Text1.Text=a
Text2.Text=b
EndSub
答案：
答：
事件驱动的工作过程为：
1.启动应用程序，装载和显示窗体。
2.窗体或窗体上的控件等待事件的发生。
3.当某个事件发生后，执行其对应的事件过程代码。
4.重复执行第2和第3步，直到遇到End语句或单击结束按钮停止程序的运行。
5、PrivateSubForm_Click（）
Fori=1To5
PrintTab（11-i）;
ForJ=1Toi*2-1
Print"*";
Next
Nexti
EndSub
答案：
答：
事件驱动的工作过程为：
1.启动应用程序，装载和显示窗体。
2.窗体或窗体上的控件等待事件的发生。
3.当某个事件发生后，执行其对应的事件过程代码。
4.重复执行第2和第3步，直到遇到End语句或单击结束按钮停止程序的运行。
四、程序设计题
1．购物优惠程序。
某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物
（1）在100元以上者，按九五折优惠；
（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者，按七折优惠。
在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品的总金额，单击命令按钮，在Text2输出优惠后的价格。
程序运行结果如图4所示。
图4
答案：
PrivateSubCommand1_Click（）x=Val（Text1.Text）SelectCasexCaseIs>=500Text2.Text=x*0.7CaseIs>=300Text2.Text=x*0.8CaseIs>=200Text2.Text=x*0.9CaseIs>=100Text2.Text=x*0.95EndSelectEndSub=x*0.95EndSelectEndSub
2．输出100~200之间不能被3整除的数，要求用Do语句的一种形式实现，程序运行结果如图5所示。
图5
答案：
程序代码：
PrivateSubForm_Load（）x=101Text1.Text="100"DoWhilex<=200IfxMod3<>0ThenText1.Text=Text1.Text+Chr（13）+Chr（10）+Trim（Str（x））EndIfx=x+1LoopEndSub
3．编写程序，打印如下的乘积表：
图6
答案：
程序代码：
PrivateSubForm_Click（）Print"*","3","6","9","12"Print"15","45","90","125","180"Print"16","48","96","144","192"Print"17","51","102","153","204"Print"18","54","108","152","216"EndSub
4．设计一个计算程序。
该程序用户界面如图7所示。
要求程序运行后，用户选中单选按钮，则程序作10和2的相应计算，并把计算结果在文本框中显示出来。
如用户选中加法单选按钮，则程序作10和2的相加，计算结果12在文本框中显示出来。
按结束，则退出。
图7
答案：
程序代码：
PrivateSubForm_Load（）Option1（0）.Value=FalseOption1
（1）.Value=FalseOption1
（2）.Value=FalseOption1（3）.Value=FalseEndSubPrivateSubOption1_Click（IndexAsInteger）SelectCaseIndexCase0Text1.Text=10*2Case1Text1.Text=10/2Case2Text1.Text=10+2Case3Text1.Text=10-2EndSelectEndSubPrivateSubCommand1_Click（）EndEndSub
5．编写输入一个0~6数字，显示汉字对照输出星期的Function过程。
程序运行结果如图8所示。
图8
答案：
程序代码：
DimxAsIntegerPrivateFunctionMystring（xAsInteger）AsStringSelectCasexCase1Mystring="星期一"+Chr（13）+"Monday"Case2Mystring="星期二"+Chr（13）+"Tuesday"Case3Mystring="星期三"+Chr（13）+"Wednesday"Case4Mystring="星期四"+Chr（13）+"Thursday"Case5Mystring="星期五"+Chr（13）+"Friday"Case6Mystring="星期六"+Chr（13）+"Saturday"Case7Mystring="星期日"+Chr（13）+"Sunday"EndSelectLabel1.Caption=MystringEndFunctionPrivateSubText1_Change（）x=Val（Text1.Text）Mystring（x）EndSub
6．编写一个程序，当鼠标移到Picture1控件上时，鼠标指针改变形状；当在Picture1控件上单击鼠标右键时，通过消息框显示“YouPressedbutton”，并再次改变鼠标指针形状。
答案：
程序代码：
PrivateSubPicture1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）IfButton=2ThenMsgBox"YouPressedrightbutton",0,"提示"EndIfEndSubPrivateSubPicture1_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）Picture1.MousePointer=5EndSub
7．列表框应用程序。
要求从文本框再输入姓名，然后“按”添加“按钮，把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改“按钮，把列表框中选择的项送到文本框且“修改“按钮变为“修改确认”。
在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。
程序运行结果如图9所示。
图9
升级会员 