医学VB练习题复习资料 1.docx

医学VB练习题复习资料 1.docx

《医学VB练习题复习资料 1.docx》由会员分享，可在线阅读，更多相关《医学VB练习题复习资料 1.docx（98页珍藏版）》请在冰豆网上搜索。

医学VB练习题复习资料1

第一卷客观题

第一题：

是非题（共10分，每项1分）

  1.ActiveX部件是可以重复使用的编程代码和数据。

A

   A.对   B.错

 2.窗体的Enabled属性设为False时，窗体题的按钮、文本框控件就不会对用户的操作做出反应。

A

   A.对   B.错

 3.每一个控件实质上都是一个微型程序。

A

   A.对   B.错

 4.在程序运行过程中，变量中的值不会改变，而常量中的值会被改变。

B

   A.对   B.错

 5.用Dim语句声明变量时，VB系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。

B

   A.对   B.错

 6.定义菜单项时，可以不设置分隔线的菜单项控件名称。

B

   A.对   B.错

 7.在事件驱动的应用程序中，代码是按照预定的路径执行的。

B

   A.对   B.错

 8.函数调用时，实际参数与形式参数在数量必须完全一致。

A

   A.对   B.错

 9.每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。

A

   A.对   B.错

 10.通用过程可以放在标准模块中，也可以放在窗体模块中。

A

   A.对   B.错

第二题、单选题（共45分，每项1.5分）

 11.要判断“命令按钮”是否被鼠标单击，应在“命令按钮”的事件中判断。

C

   A.Chang   B.KeyDown   C.Click   D.KeyPress

 12.InputBox函数的返回值的类型为____B__。

   A.数值   B.字符串   C.逻辑值   D.日期值

 13.要想在过程调用后返回两个结果，下面的过程定义语句合法的是___D___。

   A.SubProc1（ByValn,Byvalm）   B.SubProc1（ByValn,m）

   C.SubProc1（n,Byvalm）   D.SubProc1（n,m）

 14.下面关于打印对话框属性的说法错误的是____C__。

   A.Copies属性指定打印的份数。

   B.HDC属性指定分配给打印机的句柄，用来识别对象的设备环境。

   C.FromPage属性指定要打印文档的页范围。

使用该属性时必须把Flags属性设置为1。

   D.Max和Min属性用来显示FromPage和ToPage的范围，其中Min指定允许的起始页码，Max指定允许的最后页码。

 15.常量2.7856E-6的类型是_B_____。

   A.整型   B.实型   C.字符型   D.双精度

 16.Print#1，STR1$中的Print是___A___。

   A.顺序文件的写语句   B.在窗体上显示的方法

   C.子程序名   D.打印命令

 17.使用Publicx声明一个全局的变量时，该语句应放在__C____。

   A.过程中   B.窗体模块的通用声明段

C.标准模块的通用声明段

D.窗体模块或标准模块的通用声明段

 18.文本框没有__D___属性。

A.Enabled   B.VisibleC.BackColor   D.Caption

 19.记录长度最大可取的值是__A____字节。

   A.32767   B.32768   C.65535   D.65536

 20.下面四项中，_A_____是VB中的数值变量。

   A.ABC   B.E+2   C."True"   D.1.35E-2

 21.将数据项“China”添加到列表框（List）中成为第一项应使用＿A＿＿语句。

   A.List1.AddItem”China”，0   B.List1.AddItem”China”，l

   C.List1.AddItem0，”China”   D.List1.AddItem1，”China”

 22.下列不能打开菜单编辑器的操作是___D___。

   A.按Ctrl+E

   B.单击工具栏中的“菜单编辑器”按钮

   C.执行“工具”菜单中的“菜单编辑器”命令

   D.按Shift+Alt+M

 23.文本框（Text1）中有选定的文本，执行Text1.SelText=”Hello”的结果是＿A＿＿。

   A.“Hello”将替换掉原来选定的文本

   B.“Hello”将插入到原来选定的文本之前

   C.Text1.SelLength为5   D.文本框中只有“Hello”

 24.语句PrintFormat（"HELLO","<"）的输出结果是_B_____。

   A.HELLO   B.hello   C.He   D.he

 25.函数Int（Rnd*11）+10产生的数值的范围是____C__。

   A.（0,10）   B.[10,10]   C.[10,20]   D.（0,20）

 26.如果文本框的Enabled属性设为False，则＿A＿＿。

   A.文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上

   B.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容

   C.文本框的文本将变成灰色，用户仍然能改变文本框中的内容

   D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容

 27.框架内的所有控件是＿＿A＿。

   A.随框架一起移动、显示、消失和屏蔽

   B.不随框架一起移动、显示、消失和屏蔽

   C.仅随框架一起移动   D.仅随框架一起显示和消失

 28.Integer类型的数据由_B_____字节组成。

   A.1   B.2   C.3   D.4

 29.数学表达式x>y>z的正确VB逻辑表达式是__D____。

   A.x>yAndy>z   C.x>yAnd>z   D.x>yAndy>z

 30.如果要使一个窗体从屏幕上和内存中完全消失，所要使用的语句是___D___。

   A.Hide   B.Show   C.Load   D.Unload

 31.在下列说法中，正确的是＿＿D＿。

   A.通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上

   B.在列表框中不能进行多项选择

   C.在列表框中能够将项目按字母顺序从大到小排列

   D.框架也有Click和DblClick事件

 32.为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为__D____。

   A.Get文件号，记录号，变量名

   B.Get文件号，变量名，记录号

   C.Put文件号，变量名，记录号

   D.Put文件号，记录号，变量名

 33.按文件的组织方式分为____A__。

   A.顺序文件和随机文件   B.文本文件和二进制文件

   C.程序文件和数据文件   D.只读文件和读写文件

 34.以下__C____不能作为VB中的变量名。

   A.Abx45   B.P1234   C.89TasFF   D.xy

 35.已编译的控件部件的扩展名是＿＿A＿。

   A..OCX   B..VBP   C..EXE   D..CTL

 36.为了建立一个随机文件，其中每一条记录有多个不同数据类型的数据项组成，应使用__A____。

   A.自定义类型   B.数组  C.字符串类型   D.变体类型

 37.表达式Int（23.4）+Round（-35.5）的计算结果为___C___。

   A.-11   B.-12.1   C.-13   D.-12.5

 38.引用列表框（List1）最后一个数据项应使用＿B＿＿。

   A.List1.List（List1.ListCount）

   B.List1.List（List1.ListCount-1）

   C.List1.List（ListCount）

   D.List1.List（ListCount-l）

 39.通过代码在运行时设置属性的语法格式为__B____。

   A.对象名＝属性.新值   B.对象名.属性＝新值

   C.对象名.新值=属性.新值  D.对象名.属性=属性.新值

 40.在下面选项中，不能完成对顺序文件的读操作的是____D__。

   A.LineInput#语句   B.Input#语句

   C.Input（）函数   D.Get#语句

第三题、简单程序（共15分，每项1.5分）

 41.下列程序段的运行结果。

A

         PrivateSubForm_Click（）

             DimMsg

             Hide

             Msg=”选择‘确定’按钮”

             MsgBoxMsg

             Show

          EndSub

   A.隐藏窗体，按‘确定’按钮使窗体重现

   B.隐藏窗体

   C.显示窗体，按‘确定’按钮使窗体隐藏

   D.显示窗体

 42.执行下面程序段后，变量c$的值为___D___。

 a$="VisualBasicProgramming" 

 b$="Quick"

 c$=b$&Ucase（Mid$（a$,7,6））&Right$（a$,12）

   A.VisualBASICProgramming

   B.QuickBasicProgramming

   C.QUICKBasicProgramming

   D.QuickBASICProgramming

 43.运行下面程序后，在窗体中显示的是__D____。

 PrivateSubForm_Click（）

     a$="*":

b$="$"

    Fork=1 To3

           x$=String$（Len（a$）+k,b$）

       Printx$;

    Nextk

     Print

 EndSub

   A.、*********   B.*$*$*$　

   C.1*$2*$3*$　   D.、$$$$$$$$$

 44.执行下面程序段后，变量a的值为___C___。

 ForI=1To3 

     Forj=1ToI

         Fork=jTo3

            a=a+1

         Nextk

    Nextj

 NextI

   A.3   B.9　   C.14   D.21

 45.写出如下程序运行结果。

D

 Functionf（mAsInteger）AsInteger

 b=1

 StaticcAsInteger

 b=b+1

 c=c+1

 f=m*b*c

 EndFunction

 PrivateSubCommand1_Click（）

 DimaAsInteger

 a=2

 sum=0

 ForI=1To3

   sum=sum+f（a）

 NextI

  printsum

 EndSub

   A.12   B.16   C.20   D.24

 46.以下程序的输出结果是____B__。

   PrivateSubCommand1_Click（）

 　　a=1234

     b$=Str$（a）

     c=Len（Trim（b））

     printc;LenB（b）

 EndSub

   A.38  B.410　C.510   D.48

 47.执行下面程序段后，变量x的值为____A__。

 x=5  

 ForI=1To20step2   

     x=x+I\5

 NextI

   A.21   B.22   C.23   D.24

 48.以下程序的输出结果是__D____。

 PrivateSubCommand1_Click（）

     a=100

     Do

         s=s+a

         a=a+1

     LoopUntila>100

     printa

 EndSub

   A.100   B.120   C.201   D.101

 49.以下程序的循环次数是___A___。

 PrivateSubCommand1_Click（）

 　　Forj=8To35Step3

         Printj;

     Nextj

 EndSub

   A.10   B.9   C.27   D.28

 50.下列程序运行后，其结果为__A____。

 PrivateSubForm_Click（）

     Filename=“c:

\testfile.txt”

    OpenfilenameForOutputAs#1 

    Print#1,“ABCD我是一个学生”

    Close#1

    OpenfilenameForInputAs#1 

    MsgBoxInput（8,1）

    Close#1

 EndSub

   A.在通用对话框中显示“ABCD我是一个”

   B.在通用对话框中显示“ABCD我是”

   C.在窗体中显示“ABCD我是一个”

   D.在窗体中显示“ABCD我是”

第二卷 主观题

填空题（共30分，每项2分。

注意：

填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！

）

 1.下列程序运行后，能求出20个数中的最大值。

请填上适当的内容，将程序补充完整。

 PrivateSubForm_Activate（）

   Randomize

   DimIAsInteger,sslAsInteger,DimttAsInteger

   ssl=Int（Rnd*51+50）

      ForI=1To19

       tt=Rnd*51+50

         ___iftt.>sslthenssl=tt____

      NextI

       Print

       Printssl

  EndSub

 2.在C盘根目录下建立一个名为Student.dat的顺序文件。

 要求用InputBox函数输入10名学生的学号（StuNo）、姓名（StuName）和性别（StuSex）。

 PrivateSubForm_Load（）

    Open“C:

Student.dat”ForOutputAs#1

    ForI=1to10

           StuNo=InputBox（“请输入学号”）

           StuName=InputBox（“请输入姓名”）

           StuSex=InputBox（“请输入性别”）

           _write#1,____,StuNo,Stuname,StuSex

    NextI

    Close#1

 EndSub

 3.编写一个求最大公约数的函数，并调用该函数，程序如下：

 Functiongcd（ByValaAsInteger,ByValbAsInteger）AsInteger

   Dimreasinteger

   DoWhileb<>0

      re=amodb

     a=b

     b=re

   Loop

   gcd=a

 EndFunction

 SubCommand1_Click（）

  DimxAsInteger,yAsInteger,zAsinteger

   X=96

   Y=64

    _z=gcd（x,y）_____

   Print“结果=”;z

 EndSub

 4.请用正确的内容填空。

 下面程序的作用是利用随机函数产生10个（1～200）

 之间的随机整数，打印其中7的整数倍的数并求其和。

 PrivateSubForm_Click（）

  　ForI=1To10

         x=Int（Rnd*200+1）

     If _（xmod7）=0_____Then

         k1=k1+x

         Printx

  EndIf

        NextI

        Print

        Print"k1=";k1

 EndSub

 5.下面程序运行时，内层循环的循环总次数是___6____。

  Form=1To3

    Forn=0Tom-1

    Nextn

  Nextm

 6.在窗体中添加两个命令按钮，其名称分别为Command1和Command2，

 窗体加载时要求Command1不可用，Command2可用；单击Command2后，

 Command1可用。

请将下列程序补充完整。

   PrivateSubCommand2_Click（）

     __command1.enabled=true__________

  EndSub

   PrivateSubForm_Load（）

____command1.enabled=false

_command2.enabled=true___________

   EndSub

 7.函数odd用于判断一个数是否是奇数。

当单击命令按钮时，产生

 [1,9]之间的随机数，调用odd过程，判断该数是否为奇数。

 如果是则显示“奇数”，否则显示“偶数”。

 PrivateSubodd（nAsInteger）

    Printn;

   Ifn/2<>n\2Then

   Print"奇数"

  Else

   Print___“偶数”___

  EndIf

 EndSub

 PrivateSubCommand1_Click（）

  DimxAsInteger

  Randomize

  x=__int（rnd*9+1）____

  oddx

 EndSub

 8.下列程序允许用户按Enter键将一个组合框（cboComputer）中没有的项目添加到组合框中。

 SubcboComputer_KeyPress（KeyAsciiAsInteger）

     DimflagAsBoolean

     IfKeyAscii=13Then

           flag=False

           ForI=0TocboComputer.ListCount-1

           IfcboComputer.Text=cboComputer.list（i）Then

                   Flag=True

                   ExitFor 

               EndIf

           Nexti

           IfNotflagThen

               cboComputer.AddItemComputer.Text

           Else

               MsgBox（”组合框中已有该项目！

”）

           EndIf

      EndIf

 EndSub

 9.请用正确的内容填空。

 下面程序的功能是通过InputBox对话框接受一个

 二进制数，并把它转换成一个十进制数，结果显示在窗体中。

 PrivateSubForm_Click（）

    b=InputBox（"请输入一个二进制数"）

    m=Len（b）

    Forj=__1tom____

       dec=dec*2+___val（Mid（b,j,1））

    Nextj

    Printb;"转换后的十进制数为：

";dec

 EndSub

 10.以下程序的功能是：

把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。

请填空。

 PrivateSubCommand1_Click（）

   DiminDataAsString

   Text1.Text=""

   Open".\smtext1.txt"_forInput____As#1

   DoWhile___noteof

（1）___

     Input#1,inData

     Text1.Text=Text1.Text&inData

   Loop

 EndSub

第一卷客观题

第一题：

是非题（共10分，每项1分）

 1.函数过程和子过程的区别是子过程结束将返回值过程值，函数过程结束不必返回函数值。

   A.对   B.错

 2.当窗体上有多个控件时，一般只有一个控件是当前控件，对控件的所有操作都是针对当前控件进行的。

   A.对   B.错

 3.窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。

   A.对   B.错

 4.用Dim语句声明变量时，VB系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。

   A.对   B.错

 5.在VB系统中，没有用Dim语句声明的变量不能使用，因为它没有数据类型。