VisualBasic程序设计形成性考核册作业答案二电子教案.docx

VisualBasic程序设计形成性考核册作业答案二电子教案.docx

《VisualBasic程序设计形成性考核册作业答案二电子教案.docx》由会员分享，可在线阅读，更多相关《VisualBasic程序设计形成性考核册作业答案二电子教案.docx（8页珍藏版）》请在冰豆网上搜索。

VisualBasic程序设计形成性考核册作业答案二电子教案

VisualBsdic程序设计形成性考核册作业答案二

一、选择题

1．按照变量的作用域可将变量划分为（B）。

A、公有、私有、系统B、全局变量、模块级变量、过程变量

C、动态、常数、静态D、Public、Private、Protected

2.可获得字符的ASCII码的函数是（　C　）。

Ａ、Val　　Ｂ、Fix　　Ｃ、AscＤ、Chr

3、要退出Do….Loop循环，可使用的语句的（　D　）语句。

A、ExitB、ExitForC、EndDoD、ExitDo

4.把数值型转换为字符串型需要使用的函数是（B　　）。

A、ValB、StrC、AscD、Chr

5.关于语句行，下列说法正确的是（　B　）。

　Ａ．一行只能写一条语句　　　　Ｂ．一条语句可以分多行书写

　Ｃ．每行的首字符必须大写　　Ｄ．长度不能超过255个字符

６．表达式6+10Mod4*2+1的值是（　A　）．

　Ａ．９　　　Ｂ．11　　C．１　D.3

7.以下可以作为ＶisualBasic变量名的是（B）．

Ａ．SINB.CO1C.COS（X）D.X（-1）

8.表达式Ａbs（-5）+Len（“ABCDE”）的值为（C）．

　Ａ．5ABCDE　　Ｂ.－5ABCDEC.10D.0

9.在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符（A），表示下一行是当前行的继续．

　Ａ．一个空格加一个下划字符（＿）　　　Ｂ．一个下划字符（＿）

　Ｃ．直接回车　　　　　　　Ｄ．一个空格加一个字符（－）

10.Sub过程与Function过程最根本的区别是（D）．

　Ａ．Sub过程可以使用Ｃall语句或直接使用过程名调用，而Function过程不可以．

　Ｂ．Function过程可以有参数，Sub过程不可以．

Ｃ．两种过程参数的传递方式不同．

Ｄ．Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值．

11.＂Ｘ是小于80的非负数＂，用VB表达式表示正确的是（C）.

A..0≤X<80B.0<=X<80

C.0<=xandx<80D.0<=xOrx<80

12.在设计菜单时,如果要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设置为（B）

A.加号（+）B.减号（-）C.星号（*）D.感叹号（!

）

13.如果要在程序中显示一个弹出式菜单,那么要调用VisualBasic中提供的方法是（D）.

A.PrintB.MoveC.RefreshD.PopupMenu

14.下列可以用来存储图像供其他对象使用的控件是（C）.

A.ToolBarB.StatursBarC.ImageListD.TreeView

15.当单击工具拦上的按扭时,会触发的事件是（A）.

A.ButtonClickB.ChangeC.LoadD.KeyPress

16.要利用公用对话框控件来显示”打开文件”对话框,需要调用控件的（B）方法.

A.ShowPrinterB.ShowOpenC.ShowSaveD.ShowColor

17.对于窗体级变量,下列说法中错误的是（C）.

A.所在窗体的各子程序都可以访问

B.其他窗体的子程序不能访问

C.所在窗体发子程序不能访问用Private定义的窗体级变量

D.一定要在所在窗体的通用区内定义

18.从一个字符串中的第3个字符开始,获取5个字符,应使用（B）

A.Len函数B.Mid函数C.Left函数D.Right函数

19.用下面的语句所定义的数组的元素的个数是（D）.

DimA（-3To5）AsInteger

A.6B.7C.8D.9

20.有如下程序段:

DimstrlAsString*5

Strl=”VisualBasic”

当该段程序被执行完时,变量strl的值为（B）.

A.”Visual”B.”Visua”C.”V”D.”VisualBasic”

二、填空题

1．菜单一般有_下拉式_和_弹出式__两种基本类型。

2．通用对话框控件可显示的常用对话框有__打开_、_保存_、__颜色_、__字体_、__打印_。

3．组合框具有__文本框_和__列表框_两种控件的基本功能。

4．要使数组的默认下标从“1开始，则应在窗体或标准模块代码的声明部分使用语句__OptionBase1_。

5．调用Sub过程时，使用__call__语句,语句用于把程序控制传送到一个VisualBasic的Sub过程。

6．若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。

通过_工程_菜单__属性_命令的_通用_选项卡，可将启动窗体设置为Form2。

在程序中若要显示Form1窗体，则执行_Form1.show_语句。

7．列表框中项目的序号是从_0_开始的。

8．Sub过程与Function过程最根本的区别是_Sub过程名无返回值，Function过程名有返回值。

9．VB的代码存储在模块中。

在VB中提供了三种类型的模块：

_类模块_、_窗体模块__和_标准模块_。

10．使用Hide方法会隐藏被调用的窗体，但是在调用Hide方法之后不会把窗体__卸载_，被调用的窗体中的属性等已处于_内存中_。

11．将下列数学式子写成VisualBasic表达式。

⑴答：

2*cos（a）*sin（a）/（2*a）

⑵答：

sqr（s*（s-a）*（s-b）*（s-c））

⑶sin45°:

sin（45*2*3.1415/360）_

12.将下列数学式子各条件写成VisualBasic逻辑表达式。

⑴1≤x<12:

1<=xandx<12

⑵A+B≥C或a-c≤c:

（A+B）>=COR（a-c）<=c

⑶a和b都为正整数或同为负数:

（a>=0andb>=0）or（a<=0andb<=0）

13．设A=2，B=3，C=4，D=5。

表达式NotA<=COr4*B^2AndB<>A+C的值为_False_。

14．在VisualBasic语言中有三种形式的循环结构。

其中，若循环的次数可以事先确定，可使用_For…next__循环；若要求先判断循环进行的条件，可使用_Dowhile…loop_循环或_while…Wend_循环。

15．以下语句的输出结果是__3_。

a%=3.14159

Printa%

三、阅读下列程序，写出程序运行结果。

1、PrivateSubForm_Click（）

StaticSumAsInteger

ForI=1to100

Sum=Sum+I

NextI

PrintSum

EndSub

程序运行结果为：

1+2+…….+99+100=5050

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）;c+d

EndSub

10（5个空格）15（7个空格）20

10（8个空格）15（5个空格）20

20（三个空格）+（三个空格）45

3、PrivateSubForm_click（）

Fori%=1to3

Forj%=1toi

PrintLTrim（Str（i%））+“*”+LTrim（Str（j%））+“=”;i%*j%;

Nextj%

Print

Nexti%

EndSub

1*1=1

2*1=22*2=4

3*1=33*2=63*3=9

4、PrivateSubCommand1_Click（）

Dima,bAsInteger

A=3.4

B=3.4

Text1.Text=a

Text2.Text=b

EndSub

Text1显示3、4

Text2显示3

5、PrivateSubForm_Click（）

ForI=1to5

PrintTab（11–I）

ForJ=1ToI*2–1

Print“*”;

Next

Nexti

EndSub

*

***

*****

*******

*********

四、程序设计题

1、购物优惠程序。

某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物

（1）在100元以上者，按九五折优惠；

（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者按七折优惠。

在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输入优惠后的价格。

程序运行结果如图解所示。

IfVal（text1）>=500thentext2=Val（text1）*0.7

ElseifVal（text1）>=300thentext2=Val（text1）*0.85

ElseifVal（text1）>=200thentext2=val（text1）*0.9

Elseifval（text1）>=100thentext2=val（text1）*0.95

Endif

2、输出100~200之间不能被3整除的的数，要求用Do语句的一种形式来实现，程序运行结果如图5所示。

窗体的装入事件中加入如下代码：

Dimaasinteger

A=100

Dowhilea<=200

If（amod3）<>0then

List1.additenstr（a）

Endif

A=a+1

loop

3、编写程序，打印如下的乘积表：

DimI,jasinteger

Print”*”:

space（5）:

Fori=3to12step3

Printstr（i）;space（5）;

Nexti

Print

ForI=15to18

Printstr（i）;space（3）;

Forj=3to12step3

Printstr（i*j）;space（4）;

Nextj

Print

Nextj

4、设计一个计算程序。

该程序用户界面如图7所示。

要求程序运行后，用户选中单击选按钮，则程序作10和2的相应计算，并把计算结果在文本框中显示出来。

如用户选中加法单选按钮，则程序作10和2的相加，计算结果12在文本框中显示出来。

按结束，则退出。

乘法单选按钮的单击事件中添加如下代码：

Text1=10*2

除法单选按钮中添加如下代码：

Text1=10/2

加法单选按钮中添加如下代码：

Text1=10+2

减法单选按钮中添加如下代码：

text1=10-2

结束按钮中代码:

end或unloadme

5、编写输入一个0~6数字，显示汉字对照输出星期的Function过程。

程序运行结果如图8所示。

文本框的change事件中代码如下:

Selectcaseval（text1）

Case0

Label1.caption=”星期天”+chr（13）+”（Sunday）”

Case1

Label1.caption=”星期一”+chr（13）+”（monday）”

Case2

Label1.capti