搜索
信息技术教师培训自学部分VB练习题二二、程序设计题51．设计一个程序，输入一个正整数N，求1＋2＋3＋…+N的和。界面如下：当用户输入N后，单击“计算”按钮，则输出1＋2＋3＋…+N的和。参考答案：PrivateSubCommand1_Click()Dimi,a,bAsIntegera=Val(Text1.Text)Fori=1Toab=b+iNextiLabel3.Caption=bEndSubPrivateSubCommand2_Click()EndEndSub52．编一个求圆柱的侧面积的程序：当用户输入半径与高后，单击“侧面积为”按钮，输出正确结果。参考答案：PrivateSubCommand1_Click()Dimr,h,c,sAsSingler=Val(Text1.Text)h=Val(Text2.Text)c=2*3.14159*rs=c*hLabel3.Caption=sEndSub53．设计一个计时程序。该程序用户界面如图所示，由一个文本框（text1），和两个按钮：命令按钮1（commandl）、命令按钮2（command2）组成。程序运行后，用户按开始按钮，则开始计时，文本框中显示秒数，接停止按钮，则计时停止。单击窗口则退出。（请阅读下面程序，编写出时钟控件的计时事件中的程序代码。）Dimi,tAsIntegerPrivateSubCommand1_Click()Timer1.Interval=1000Timer1.Enabled=Truet=0EndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubForm_Click()EndEndSubPrivateSubTimer1_Timer()EndSub参考答案：t=t+1Text1.Text=t&秒54．编制一个能在窗体中画出由用户指定圆心位置和半径大小的圆的程序,要求单击“绘圆”按钮时绘圆，单击“清除”按钮时清除绘图区中的图形及文本框中的内容。运行界面如下：参考答案：PrivateSubCommand1_Click()Dimx,y,rAsSinglex=Val(Text1.Text)y=Val(Text2.Text)r=Val(Text3.Text)Picture1.Circle(x,y),rEndSubPrivateSubCommand2_Click()Picture1.ClsText1.Text=Text2.Text=Text3.Text=EndSub一、选择题1．在VisualBasic环境下，当写一个新的VisualBasic程序时，所做的第一件事是BA、编写代码B、新建一个工程C、打开属性窗口D、进入VB环境2．若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置DA、Text属性值为*B、Caption属性值为*C、password属性值为空D、Passwordchar属性值为*3．能够将文本框控件隐藏起来的属性是BA、ClearB、VisibleC、HideD、New4．获得系统日期的函数是CA、data$B、time$C、date$D、gettime$5．下列运算符号中属于算术运算符的是_____。BA、NOTB、^C、=D、=6．VisualBasic属于:AA、高级语言B、汇编语言C、机器语言D、低级语言。7．一个程序可以有_____窗体。CA、1个B、2个C、多个D、无穷多个8．事件是指_____。BA、对象的外部特征。B、预先设置好的能被对象识别的特定动作。C、对象的属性。D、对象原来就包含的内部函数或程序。9．VB在运行中使用_______来临时存储数据。BA、常量B、变量C、函数D、方法10．布尔型又称_____。BA、数值型B、逻辑型C、字符串型D、整型11．下列运算符号中属于关系运算符的是_____。DA、—B、+C、ANDD、=12．关于高级语言，下列叙述正确的是。BA、不必编译即可执行B、可读性最高C、难学难记D、执行速度最快。13．下列各组控件都具有Caption属性的是（）CA、窗体、文本框B、标签、定时器C、窗体、标签D、文本框、定时器14．下列运算结果中，值最大的是（）DA、3\4B、3/4C、4mod3D、3mod415．VisualBasic语言中，下列那一项数值运算符号是正确的。(C)A、＠表示加B、～表示减C、*表示乘D、÷表示除。16．下面程序执行的结果是________。CPrivateSubForm_Click()A$=123:B$=456C=Val(A$)+Val(B$)PrintC\100EndSubA、123B、3C、5D、57917．函数Sqr(9)的值是（）BA、9B、3C、“3”D、“9”18．下列控件中可用于接受用户输入文本，又可用于显示文本的是（）BA、Label控件B、TextBox控件C、Timer控件D、CommandButton控件19．以下程序段执行后整型变量度n的值为（）Bn=0forL=1to20step5n=n+LnextLA、50B、34C、15D、21020．如果要改变窗体的标题,需要设置窗体对象的_____属性。BA、NameB、CaptionC、BackColorD、BorderStyle21．VisualBasic提供的标签控件（LABEL）可具有功能是BA、输入文本B、显示文本C、计时D、取得时间22．以下选项中，不是VisualBasic控件的是CA、文本框B、定时器C、窗体D、命令按钮23．若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为（）Difa5thenc=b-aelsec=a+bendifA、2B、-1C、1D、524.下列程序执行后，整型变量n的值为（）Bn=0forI=1to20ifImod4=0thenn=n+1nextIA、5050B、5C、6D、3325.下面哪些控件是输入控件______。AA、文本框B、标签C、列表框D、滚动条26．窗体初始化程序应写在_______事件中。AA、LoadB、UnLoadC、ActiveD、GotFocus27．在VisualBasic中，布尔型变量用来_____。DA、存放需要计算的数字。B、存放日期、时间或同时存储以上两种数据。C、存储长文本信息，最多可包含1.2GB字符。D、存放性别、婚否等逻辑信息。28．通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowOpen,显示____对话框。CA、保存文件B、字体C、打开文件D、颜色29．通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowFont,显示____对话框。BA、保存文件B、字体C、打开文件D、颜色30．计时器的Interval属性是用来设置一时间间隔，单位是_____。DA、1秒B、1毫秒C、1/100秒D、1/1000秒31.VB在计算三角函数时，所使用的度量单位是：BA、角度制B、弧度制C、角度制D、弧度制都可以32.设置窗体的背景色用属性_______。CA、CaptionB、FontC、BackColorD、Hight33.设置窗体中显示的文字前景色用属性_______。AA、ForColorB、FontC、BackColorD、Hight34．设置窗体左上角到屏幕左边距离的属性是______。AA、LeftB、TopC、WidthD、Name35．计算数x的算术平方根的函数是___。DA、SIN(x)B、ABS(x)C、STR(x)D、SQR(x)36．计算数x的余弦函数值的函数是______。DA、SIN(x)B、ABS(x)C、STR(x)D、COS(x)37．数学式|xy|+2(d+e)改写为VB表达式为______。CA、|xy|+2(d+e)B、-x*y+2*(d+e)C、ABS(x*y)+2*(d+e)D、|x*y|+2*(d+e)38．在IF语句的条件中，60≤F≤100应写成：DA、60=F=100B、60=F=100C、60≤F≤100D、F=60ANDF=10039．写成QBasic算术表达式为：BA、B、SQR（X）+ABS（Y+3）C、D、40．在VB中数据类型为单精度浮点型的“数据类型保留字”是。CA、integerB、longC、singleD、string41．在VB中数据类型为布尔型的“数据类型保留字”是。AA、booleanB、doubleC、singleD、string42．下列变量名正确的是。CA、xx-4B、4XXC、xx_y1D、y/t43．函数SIN(X)称为。CA、算术平方根函数B、绝对值函数C、正弦三角函数D、字符串转换为数值函数44．下列说法不正确的是。BA、FOR语句中可省略STEP及步长值,默认步长值为1B、循环变量只能用数值简单变量C、步长值可正可负D、初值、终值、步长值可以是数值表达式45．为了在运行时把图形文件picfile.jpg装入图片框Picture1,所使用的语句为。AA、Picture1.Picture=LoadPicture(picfile.jpg)B、Picture1.Picture=picfile.jpgC、Picture1.image=LoadPicture(picfile.jpg)D、Picture1.image=picfile.jpg46．使用print方法可在图片框中进行文本的输出(如：picture1.print“信息技术”)，用_____方法可画点。AA、psetB、lineC、circleD、move47．使用print方法可在图片框中进行文本的输出(如：picture1.print“信息技术”)，用_____方法可使图片框移动位置。DA、psetB、lineC、circleD、move48．双击工具箱中某个控件，该控件将____。CA、被选中B、出现在窗体左上角C、出现在窗体中部D、没变化49.为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是。DA、ControlBoxB、MinButtonC、EnabledD、MaxButton50.执行下面的程序段后，x的值为。Cx=0Fori=1To10x=x+i\5NextiA、5B、6C、7D、8二、程序设计题51．编写一个程序，输入任意两个整数，输出其中较大的数。界面如下：当用户输入两个整数后，单击“输出”按钮，则输出正确结果。参考答案：PrivateSubCommand1_Click()Dima,bAsIntegera=Val(Text1.Text)b=Val(Text2.Text)Ifa=bThenLabel3.Caption=aElseLabel3.Caption=bEndIfEndSub52.设计一程序，计算1*2+2*3+3*4+4*5+…+N*（N+1）的和。程序界面如下：当用户输入N后，单击“求1*2+2*3+3*4+4*5+…+N*（N+1）”按钮后，输出正确结果。参考答案：PrivateSubCommand1_Click()Dimi,n,sAsdoublen=Val(Text1.Text)s=0Fori=1Tons=s+i*(i+1)NextiLabel1.Caption=sEndSub53．设计一个从键盘接收三条边的值，测试能否组成三角形，若能，则计算所组成三角形面积，否则，给出相应信息的程序，运行之后界面如下。参考答案：PrivateSubCommand1_Click()Dima,b,c,dAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If(a+b)cAnd(a+c)bAnd(b+c)aThend=(a+b+c)/2Label3.Caption=Sqr(d*(d-a)*(d-b)*(d-c))ElseLabel3.Caption=此三边构不成三角形！EndIfEndSubPri