《VB语言程序设计》课程试题3

第1页共8页学年第一学期《VB语言程序设计》课程试题课程号：1630013√考试□A卷√闭卷□考查√B卷□开卷题号一二三四五六总分阅卷教师各题分数101020182220100实得分数一、判断正误（请将答案填在括号内，每题1分，共10分）（）1.用VB编写的源程序无法在计算机中直接执行。（）2.长整型（Long）是VB中的一种基本数据类型，其表示范围为-32768~32767。（）3.一般情况下，系统事件是指用户在计算机系统中通过按键或鼠标操作而产生的事件。（）4.在属性窗口中，既可以按字母顺序，也可按分类顺序显示所选对象的属性。（）5.VB集成开发环境包括三种工作状态，用户只能在设计状态下修改程序代码。（）6.当文本框具有焦点时，用户按下光标键时将触发该文本框的KeyPress事件。（）7.我们可以将菜单编辑器看成是菜单控件的属性窗口，其中的“标题”、“索引”项分别对应着菜单控件的Caption、Index属性。（）8.为了选中某个单选按钮，可以在程序代码中将该单选按钮的Enable属性设置为True。（）9.设置图片框(PictureBox)对象的Stretch属性，可使该对象根据装入的图形自动调整本身的大小。（）10.文件既可以存储在计算机的外存储器中，也可以存储在计算机的内存储器中。二、单项选择（请将答案填在括号内，每题1分，共10分）（）1.以下四个变量名中，合法的是__________。A.PiB.7StudC.PrintD.Mod（）2.要通过代码删除列表框List1中当前选中的一项，可使用__________班级：姓名：学号：试题共页加白纸二张密封线GDOU-B-11-302第2页共8页语句。A.List1.ClearB.List1.DeleteList1.ListIndexC.List1.RemoveItemList1.ListIndexD.List1.ClearList1.ListIndex（）3.以下四个项目中，不可以用于用户输入的是__________。A.文本框控件B.组合框控件C.InputBox函数D.Label控件（）4.语句DimABC(-5To5)AsInteger定义的数组元素个数是__________。A.25B.11C.10D.36（）5.以下四个用于变量声明的关键字中，不能在模块通用声明段中使用的是________。A.StaticB.PublicC.PrivateD.Dim（）6.存储一个VB工程时，可能产生多个文件。扩展名.bas表明是_________文件。A.窗体B.标准模块C.类模块D.资源（）7.能够将文本框（Text1对象）清空的代码是___________。A.Text1.ClsB.Text1.ClearC.Text1.Caption=D.Text1.Text=（）8.以下鼠标事件中，无法在事件发生时获取鼠标当前位置的是___________。A.ClickB.MouseDownC.MouseMoveD.MouseUp（）9.要把菜单项降低一个级别成为下一级子菜单，应在菜单编辑器中按下_________按钮。A.↓B.←C.↑D.→（）10.以下列出了四个VB内部函数名，不合法的是___________。A.ABSB.MODC.SQRD.INT三、填空题（每空1分，共20分）1.在VB中，我们通常将窗体和控件都称为_______________。2.VB中可使用两种类型的常量，一种是________常量，另一种是_________常量。3.在VisualBasic中，通用过程分为两类，___________过程和_____________过程。第3页共8页4.数学表达式aacbb242的VB表达式形式为___________________________________。5.表达式43=98And3^3=4*6是________类型的表达式，其值为_____________。6.函数Len(Str(-3.14))的值为_____________。7.赋值语句S%=Int(Rnd(1)*20)中变量S可能获得的最大值为__________。8.若要每隔1000毫秒触发一次Timer事件，应设置定时器控件的_____________属性。9.通过文本框的__________________属性，可设置文本框中显示的内容。10.在程序代码中将某个复选框对象的____________属性赋值为1，就将选中该复选框。11.要在标签控件中显示指定的字符，应设置标签控件的________________属性。12.为使用户能够拖动窗口中的控件，可在程序设计时将该控件的___________属性设置为1，即可启动鼠标自动拖动模式。13.窗体的__________方法可以使窗体进入可见状态；要隐藏某个窗体，应使用_________方法。14.在窗体上绘图时，可使用窗体对象的____________方法来建立自定义的坐标刻度单位。15.对命令按钮对象而言，编程中使用最多的事件是命令按钮的___________事件。16.在VB中，有三种文件存取类型，分别为顺序存取、随机存取和________________。四、阅读分析程序（每空1分，共18分）1.分别阅读左右两段程序，然后按要求填空。程序段1：PrivateSubCommand1_Click()DimSAsIntegerDimIAsIntegerS=0ForI=1To100Step2S=S+INextIPrintSEndSub程序段2：PrivateSubCommand1_Click()DimSAsIntegerDimIAsIntegerS=0:I=1DoWhileI100I=I+2S=S+ILoopPrintSEndSub第4页共8页问题（1）程序段1的循环体中包含_________条语句，循环体的执行次数为_________。（2）程序段2的循环体中包含_________条语句，循环体的执行次数为_________。（3）程序段1的输出结果S=____________；程序段2的输出结果S=____________。2.窗体上含有一个命令按钮并编制如下代码，阅读程序后按要求填空。PrivateAAsIntegerPrivateBAsIntegerPrivateSubForm_Load()DimBAsIntegerA=10B=20C=30EndSubPrivateSubCommand1_Click()StaticCAsIntegerA=A+1B=B+1C=C+1PrintA,B,CEndSub问题（1）从变量作用域的角度来看，Form_Load()过程中的变量A属于_______变量。（2）从变量作用域的角度来看，Form_Load()过程中的变量B属于_______变量。（3）定义模块级变量时，关键字Private可用________代替。（4）程序运行期间，第2次单击命令按钮后，输出结果为A=_____，B=_____，C=_____。3.窗体上有命令按钮Comamnd1并编制程序如下，阅读程序后按要求填空。SubXYZ(ByValxAsInteger,ByValyAsInteger,zAsInteger)z=x-yx=0第5页共8页y=0EndSubPrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=200b=100CallXYZ(a,b,c)Printa,b,cEndSub问题（1）VB过程调用时有两种传递参数的方式。在上述程序中，调用过程XYZ时，第一个参数将按________传递，第二个参数将按________传递，第三个参数将按________传递。（2）运行该程序，并单击命令按钮，则窗体上的输出结果为a=______，b=______，c=______。五、程序填空（每空2分，共22分）1.以下程序将打印已知最大素数的最后六位。目前，人们所知道的最大素数是286243-1，使用VB中的基本数据类型，无法直接计算该数。以下程序只计算最大素数的最后六位，而将前面的数位省略，请仔细阅读程序代码及相应的注释，并补充完整。PrivateSubCommand1_Click()DimIAsLongDimNAsLongI=1______________DoWhileI=86243N=N*2'当N的值超出6位后,舍去前面的位数IfN1000000ThenN=N-1000000EndIf_________________第6页共8页Loop___________________PrintNEndSub2.以下程序随机产生100个整数存放于数组中，统计这些整数中有多少个数是5的倍数，并计算它们的和。请仔细阅读程序代码，并补充完整。PrivateSubCommand1_Click()DimiAsIntegerDimSAsInteger,NAsInteger__________________________________S=0N=0Fori=1To100A(i)=Int(100*Rnd)If___________________________ThenS=S+A(i)N=N+1EndIfNextiPrintS=,S,N=,NEndSub图13.以下程序使用窗体默认的坐标系统绘制如图1所示的图形。矩形线条为红色，左上角点的坐标为（1000，1000），水平方向的长为1000缇，垂直方向的宽为2000缇。半圆弧线条为蓝色，圆心位于矩形上边的中点。半径为500缇。请仔细阅读程序代码，并补充完整。PrivateSubForm_Click()Form1.DrawWidth=2Line____________________________________________________________Circle____________________________________________________________EndSub第7页共8页4.以下程序用来求两个正整数M和N的最大公约数和最小公倍数。请仔细阅读程序代码，并补充完整。程序中采用辗转相除法求最大公约数，该算法的思想如下：（1）令两个整数中大的为M，小的为N；（2）计算M除以N，余数为R；（3）若R=0，则最大公约数为N；（4）若R≠0，则令M=N、N=R，然后转向第（2）步重复上述过程，直至R=0。R=0时的N值即为最大公约数。最小公倍数的计算比较简单，用两个数的乘积除以最大公约数即可得到。PrivateSubCommand1_Click()DimMAsInteger,NAsInteger,RAsIntegerDimXAsInteger,YAsInteger'X为最大公约数，Y为最小公倍数M=InputBox(输入一个正整数)N=InputBox(输入另一个正整数)IfMNThenR=MM=NN=REndIfY=M*NDo_____________________M=NN=RLoopUntilR=0_____________________Y=Y/XPrintX;是最大公约数PrintY;是最小公倍数EndSub5.以下程序用随机函数产生10个整数存放于一个数组中，找出最小的数及其下标。请仔细阅读程序代码，并补充完整。PrivateSubCommand1_Click()DimA(1To10)AsInteger第8页共8页DimMinAsInteger'最小的数DimSAsInteger'最小数的下标Fori=1To10A(i)=Int(Rnd*100)PrintA(i);NextiPrintMin=A(1)S=1Fori=2To10IfMinA(i)Then________________________________________EndIfNextiPrintMin=,Min,S=,SEndSub六、编程（每题5分，共20分）1.利用Form_Click事