注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

幽居阁&*#$

健康、快乐、幸福就好~~

 
 
 

日志

 
 
关于我

2006年,获得全国书画业余考核五级, 2007年,获得第三届艺教之星全国师生书画大赛大学组金奖, 2008年,获得中国当代优秀青少年书画家称号, 2008年,第三届英才全国书画大赛,获得银奖。 2008年,通过普通话考核, 2008年,通过一级B考核, 2008年,获得第四届艺教之星全国师生书画大赛大学组铜奖 在博客上如需要帮助可以留言,在48小时之内我会解答.(如果是圈子中的问题,本人也无能为力哦。)

网易考拉推荐

VB程序设计形成性考核册作业  

2009-12-23 10:41:43|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

VB程序设计形成性考核册作业

 

一、选择题

1.按照变量的作用域可将变量划分为( B   )。

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

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

2. 可获得字符的ASCII码的函数是( C )。

A、Val  B、Fix  C、Asc     D、Chr

3、要退出Do….Loop循环,可使用的语句的( D )语句。

A、Exit   B、Exit   For   C、End Do   D、Exit Do

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

A、Val     B、Str   C、Asc     D、Chr

5.关于语句行,下列说法正确的是( B )。

 A.一行只能写一条语句    B.一条语句可以分多行书写

 C.每行的首字符必须大写   D.长度不能超过255个字符

6.表达式6+10 Mod 4*2+1的值是( A ).

 A.9   B.11   C.1  D.3

7.以下可以作为Visual Basic 变量名的是(B).

A.SIN       B.CO1     C.COS(X)   D.X(-1)

8.表达式Abs(-5)+Len(“ABCDE”)的值为(C).

 A.5ABCDE  B.-5ABCDE       C.10     D.0

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

 A.一个空格加一个下划字符(_)   B.一个下划字符(_)

 C.直接回车                  D.一个空格加一个字符(-)

10.Sub过程与Function过程最根本的区别是(D).

 A.Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以.

 B.Function过程可以有参数,Sub过程不可以.

C.两种过程参数的传递方式不同.

D.Sub过程的过程名不能返回值,而Function过程能够通过过程名返回值.

11."X是小于80的非负数",用VB表达式表示正确的是(C).

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

   C.0<=x and x<80                     D.0<=x Orx<80

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

A.加号(+)       B.减号(-)     C.星号(*)   D.感叹号(!)

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

   A.Print         B.Move       C.Refresh   D.PopupMenu

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

   A.ToolBar       B.StatursBar     C.ImageList   D.TreeView

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

   A.ButtonClick     B.Change   C.Load         D.KeyPress

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

   A.ShowPrinter   B.ShowOpen   C.ShowSave     D.ShowColor

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

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

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

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

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

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

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

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

   DimA(-3 To 5)As   Integer

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

20.有如下程序段:

Dim strl As String*5

Strl=”Visual Basic”

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

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

二、填空题

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

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

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

4.要使数组的默认下标从“1开始,则应在窗体或标准模块代码的声明部分使用语句__Option Base 1_

5.调用Sub过程时,使用__call__语句,语句用于把程序控制传送到一个Visual Basic的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<=x and x<12

   ⑵A+B≥C或a-c≤c: (A+B)>=C OR (a-c)<=c

   ⑶a和b都为正整数或同为负数: (a>=0 and b>=0) or (a<=0 and b<=0)

13.设A=2,B=3,C=4,D=5。表达式Not A<=C Or4*B^2 And B< >A+C的值为_False_。

14.在Visual Basic语言中有三种形式的循环结构。其中,若循环的次数可以事先确定,可使用_For…next__循环;若要求先判断循环进行的条件,可使用_Do while…loop_循环或_ while…Wend_循环。

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

a%=3.14159

Print a%

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

1、Private Sub Form_Click( )

         Static Sum As Integer

         For I= 1 to 100

         Sum=Sum+I

         Next I

Print Sum

End Sub

程序运行结果为:1+2+…….+99+100=5050

2、private Sub Form_Click( )

     A=10: b=15:c=20:d=25

     Print A;Spc(5);b;Spc(7);c

     Print A;Spc(8);b;Space$(5);c

     Print c;Spc(3);”+”;Spc(3);c+d

   End Sub

10(5个空格)15(7个空格)20

10(8个空格)15(5个空格)20

20(三个空格)+(三个空格)45

3、Private Sub Form_click( )

     For i% =1 to3

       Forj% = 1 to i

       Print L Trim(Str(i%))+ “*”+L Trim(Str(j%))+ “=”;i% * j%;

           Next j%

         Print

Next i%

End Sub

1*1= 1

2*1= 2   2*2= 4

3*1= 3   3*2= 6   3*3= 9

4、Private Sub Command1_Click( )

   Dim a,b As Integer

   A=3.4

B=3.4

Text1.Text=a

Text2.Text=b

End Sub

Text1显示3 、4

Text2显示3

5、Private Sub Form_Click()

     For I =1 to 5

         Print Tab( 11 – I )

       For J =1 To I * 2 – 1

               Print “*”;

         Next

       Next i

End Sub

               *

               ***

             *****

             *******

           *********

四、程序设计题

1、购物优惠程序。某商场为了加速促成商品流通,采用购物打折的优惠办法,每位顾客一次购物(1)在100元以上者,按九五折优惠;(2)在200元以上者,按九折优惠;(3)300元以上者,按八折优惠;(4)500元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮,要求在Text1中输入购物商品总金额,单击命令按钮,在Text2中输入优惠后的价格。程序运行结果如图解所示。

If Val(text1)>=500 then text2=Val(text1)*0.7

Else if Val(text1)>=300 then text2=Val(text1)*0.85

   Else if Val(text1)>=200 then text2=val(text1)*0.9

   Else if val(text1)>=100 then text2=val(text1)*0.95

End if

        

                                      

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

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

Dim a as integer

A=100

Do while a <=200

If (a mod 3)<> 0 then

List1.additen str(a)

End if

A=a+1

loop

3、编写程序,打印如下的乘积表:

Dim I ,j as integer

Print”*”:space(5):

For i=3 to 12 step 3

Print str(i);space(5);

Next i

Print

For I = 15 to18

Print str(i);space(3);

For j=3 to 12 step3

Print str(i*j);space(4);

Next j

Print

Next j

4、设计一个计算程序。该程序用户界面如图7所示。要求程序运行后,用户选中单击选按钮,则程序作10和2的相应计算,并把计算结果在文本框中显示出来。如用户选中加法单选按钮,则程序作10和2的相加,计算结果12在文本框中显示出来。按结束,则退出。

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

Text1=10*2

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

Text1=10/2

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

Text1=10+2

减法单选按钮中添加如下代码:text1=10-2

结束按钮中代码: end 或unload me

5、编写输入一个0~6数字,显示汉字对照输出星期的Function过程。程序运行结果如图8所示。

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

Select case val(text1)

Case 0

Label1.caption=”星期天”+chr(13)+”(Sunday)”

Case 1

Label1.caption=”星期一”+chr(13)+”(monday)”

Case2

Label1.caption=”星期二”+chr(13)+”(Tuesday)”

Case 3

Label1.caption=”星期三”+chr(13)+”(wednesday)”

Case 4

Label1.caption=”星期四”+chr(13)+”(thursday)”

Case 5

Label1.caption=”星期五”+chr(13)+”(firday)”

Case 6

Label1.caption=”星期六”+chr(13)+”(saturday)”

End select

6、编写一个程序,当鼠标移到Picturel控件时,鼠标指针改变形状;当在Picturel控件上单击鼠标右键时,通过消息框显示“You pressed right button”,并再次改变鼠标指针的形状。

Picture1_mouseup

If button=2 then

I=1

Msgbox” you pressed right button”

End if

End sub

7、列表框应用程序。要求从文本框中输入姓名,然后按“添加”按钮,把姓名添加到列表框中;当选择列表框中某一项时,按“删除”按钮,从列表框中删除;当列表框中某一项时,按“修改”按钮,把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后,按“修改确认”按钮,再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图9所示。

添加按钮代码:list1.additem text1.text

Text1.text=””

删除: if list1.text<>”” then

List1.removeitem =list1.listindex

End if

修改:

If command3.caption=“修改” then

Text1.text=list1.text

Command3.caption=”修改确认”

Else

If   command3.caption=”修改确认” then

List1.list=list1.listindex>=text1.text

Command3.caption=”修改”

End if

End ifVB程序设计形成性考核册作业 - 冰菊物语 - 幽居阁*

  评论这张
 
阅读(1899)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017