《VB程序设计基础》期中练习一

第1页共5页《VB程序设计基础》期中练习一一、单选题（40%，每小题2分）1．在设计窗体时双击窗体的任何地方，可以打开的窗口是___。A．代码窗口B．属性窗口C．工程资源管理器窗口D．工具箱窗口2．VisualBasic是一种面向对象的程序设计语言，构成对象的三要素是。A．属性、控件和方法B．属性、事件和方法C．窗体、控件和过程D．控件、过程和模块3．函数Int(6*RND)+1的值是在哪个范围内的整数？___A．[0,6]B．[0,7]C．[1,6]D．[1,7]4．代数式的VisualBasic表达式是。A．a+b/Sqr(c+Log(a))+c/dB．(a+b)/Sqr(c+Log(a))+c/dC．(a+b)/(Spr(c+Log(a))+c/d)D．(a+b)/(Sqr(c+Log(a))+c/d)5．数学式子sin25°写成VB表达式是。A．Sin25B．Sin（25）C．Sin（25*3.14/180）D．Sin(25°)6．下面是日期型常量。A．12/19/99B．12/19/99C．#12/19/99#D．{12/19/99}7．若x是一个正实数，对x的第3位小数四舍五入的表达式是______。A．0.01*Int(x+0.005)B．0.01*Int(100*(x+0.005))C．0.01*Int(100*(x+0.05))D．0.01*Int(x+0.05)8．哪一条语句执行后将会删除文本框Text1中的文本？A．Text1.Text=””B．Text1.SelText=””C．Text1.ClearD．Text1.SelText.Clear９．下列函数中，返回值是字符串的是。A．ChrB．InStrC．ValD．Asc10．可作为VisualBasic变量名的是。A．showB．Alphi_1C．2E3D．4D+211．不正确的VB常量是。A．123!B．&HABCC．&O18D．#1-1-03#12．变量X#占字节内存容量。A．2B．4C．6D．813．声明符号常量应该用关键字。A．StaticB．ConstC．PrivateD．Variantdcacbaln第2页共5页14．下列各组函数中，函数值类型相同的一组是。A．Exp(x)、Chr$(x)、Lcase$(x)B．Asc(x)、Str$(x)、Rtrim$(x)C．Sgn(x)、Int(x)、Len(x)D．Fix(x)、Left$(x)、Ucase$(x)15．设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为。A．“中华民国”B．“中国人民”C．“中共人民”D．“人民共和”16．先声明DimXAsString*10，再赋值X=”浙江”，最后Len(X)的值为。A．10B．2C．4D．1217．判断变量x、y中有且只有一个为0的下列各表达式中，正确的是。A．x=0Ory=0andx*y0B．x+y=0andx*y0C．x+y0andx*y=0D．x=0andy018．函数Val(&H100)的返回值为。A．256B．0C．100D．6419．由Fork=35To0Step3：Nextk循环语句控制的循环次数是。A．0B．12C．1D．1120．在SelectCaseA的语句中，判断A是否大于等于10小于等于20的是。A．CaseA=10AndA=20B．Case10To20C．CaseIs10To20D．CaseIs=10AndIs=20二、程序填空题（10%，每空2分）请在以下两题的__(1)__、…、__(5)__处填入适当的内容，将程序补充完整。1．【程序说明】Form_Click过程用于求一组整数数据中的最大值和最小值，数据的个数由InputBox函数输入。PrivateSubForm_Click()DimnAsInteger,iAsInteger,xAsIntegerDimMaxAsInteger,MinAsIntegern=Val(InputBox(“请输入数据的个数”))x=Val(InputBox(“请输入数据”))Max=x__(1)__Fori=1To__(2)__x=Val(InputBox(“请输入数据”))IfxMaxThenMax=x__(3)__NextiPrint“最大值:”;Max,”最小值:”;MinEndSub第3页共5页2．【程序说明】设计一个用计算机给出三位整数加法的练习程序，程序界面如下图所示，单击一次，则在文本框中产生一题。其中已将文本框的Multiline属性设置为True，并设置垂直滚动(ScrollBars=2)；程序中Chr(13)+Chr(10)表示回车换行符。注：程序中有两个（4）空，算作一个空，答题时都要写出。PrivateSubForm_Load()Text1.text=””EndSubPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=__(4)__'产生三位随机数y=__(4)__'产生三位随机数Text1.Text=__(5)__&x&+&y&=()&Chr(13)&Chr(10)EndSub三、程序阅读题（20%，每小题4分）1．阅读下列程序，程序运行后，单击窗体，写出窗体上输出结果。【程序】PrivateSubForm_Click()DimkAsInteger,iAsIntegerFori=100To140IfiMod5=0ThenPrinti;k=k+1IfkMod10=0ThenPrintNextiEndSub2．下面程序运行时，单击窗体后，写出窗体上输出结果。【程序】PrivateSubForm_Click()DimxAsString,yAsString,dAsIntegerDimiAsInteger,nAsIntegerx=abcdefghijkld=Asc(a)-Asc(A)第4页共5页n=Len(x)y=i=1DoWhilei=ny=y+Chr(Asc(Mid(x,i,1))-d)i=i+3LoopPrinty=;yEndSub3．下列程序运行后，单击命令按钮后输出的结果是什么？【程序】PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,nAsIntegern=6Fori=1TonPrintTab(n-i+1);Forj=1ToiPrintTrim(Str(j));NextjForj=i-1To1Step-1PrintTrim(Str(j));NextjPrintNextiEndSub4．下面程序运行时，单击窗体后，请写出窗体上显示的结果。【程序】PrivateSubForm_Click()DimiAsInteger,sumAsLongsum=0Fori=1To6Step2sum=sum+iNextiPrintsum;iEndSub5．下面程序运行时，单击窗体后在输入对话框中输入13，写出窗体上程序运行结果。【程序】PrivateSubForm_Click()DimxAsInteger,yAsStringx=Val(InputBox())y=DoWhilex0第5页共5页y=xMod2&yx=x\2LoopPrintyEndSub四、程序设计题（30%，每小题10分）1．程序界面设计如下左图，运行程序后在Text1中输入数据（设输入数据类型是整形），单击“计算”按钮（Command1）由下右图给出的公式计算函数f(x)的值，并将结果输出到Label3标签框中；单击“结束”按钮（Command2）则结束程序运行。分别编写这两个命令按钮的单击事件Command1_Click()和Command2_Click()。2．编制Form_Click事件过程求s的值，直到最后一项的绝对值小于10-6为止，结果在窗体上显示。3．随机产生30个两位正整数，求它们的偶数平均数和奇数平均数，结果输出在窗体上，代码编写在Form_Click事件过程中。5log5552sin5123)(102xxxxxxxxxxfx)1()1(......4313212111nnsn