VB程序设计初步单元试题

VB程序设计初步单元试题山东省莒南县第一中学秦向芹一、选择题1、下列变量名写法错误的是（）。A、abcB、abc123C、abc_123D、123abc在VB中变量名由字母数字和下划线等字符组成，但必须以字母开头，在变量名中对大小写字母是不加区分的。2、在VB中表达式11\3+11mod3的运算结果值是（）。A、3B、4C、5D、6“\”整除，值为商的整数部分；“mod”求余，值为整除后的余数。3、语句段a=3:b=5t=a:a=b:b=t执行后，（）。A、a值为3，b值为3B、a值为3，b值为5C、a值为5，b值为5D、a值为5，b值为3最后三条语句是交换两个变量的值，交换两个变量的值也可以用下列语句：a=a+b:b=a-b:a=a-b4、语句if3*4=10thena=1elsea=2执行后，a的值为（）。A、12B、10C、1if条件语句当条件成立(为真)执行then后语句，否则执行else后语句。5、语句段s=0fori=1to5s:=s+inexti执行后，s的值为（）；i的值为（）。A、1B、5C、6D、15DC，for循环语句省略“step步长值”，步长值为1可省略；本程序段是求s=1+2+3+4+5的值，循环变量i的值超出终值5时退出循环，i的值应为66、使用VisualBasic编程,我们把工具箱在的工具称为()。A.事件B.工具C.控件D.窗体7、我们保存一个编写好的程序，“过程名”是以（）作为扩展名A、.frmB、.vbpC、.batD、.bas在保存VB文件时，会弹出两个保存窗口，一个是用于保存窗体文件，它的扩展名为.frm；另一个用于保存工程，它的扩展名为.vbp。8、结束当前程序的语句是（）。A、quitB、exitC、endD、sub9、要改变窗体的标题时，应当在属性窗口中改变的属性是（）。A、CaptionB、NameC、TextD、Label10、窗体能够响应的事件是（）。A、ActiveFormB、DriveC、LoadD、Change11、能显示窗体的方法是（）。A、VisibleB、ShowC、NewD、Open12、双击窗体中的对象后，VB将显示的窗口是（）。A、工程窗口B、工具箱C、属性窗口D、代码窗口13、确定复选框是否选中，可访问的属性是（）。A、ValueB、CheckedC、SelectD、Caption复选框Check的Value值的有三种：0表示未选，1表示选中，2表示不可用14、能够将文本框控件隐藏起来的属性是（）。A、VisibleB、ClearC、ClsD、Hide15、Sub过程与Function过程最根本的区别是（）。A、Sub过程Function过程不可以。B、Function过程可以有参数，Sub过程不可以。C、两种过程参数的传递方式不同。D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。二、判断题1．sum和int.sum都可以作为VB的变量名。int.sum不正确。变量名中不能包括小数点。2．变量名的长度最长可达1024个字符。错误，变量名的长度最长可达225个字符。3．程序可以改变定长字符串的内容和长度。不正确。程序不可以改变字符的长度，这是VB规定。4．在程序执行的过程中，变量的值始终保持不变，常量的值随时改变。错误。与题目的叙述正好相反。在程序执行的过程中，常量的值始终保持不变，变量的值随时改变。5．在VB中，“FOR计数变量＝初值TO终值[STEP步长]”语句中的“步长”不能为0，否则造成死循环。正确。在VB的FOR循环中，如果步长为0，则计数变量永远也不会超过终值，所以是死循环6.程序代码的基本结构有两种：选择结构和循环结构。错误，程序代码的基本结构有三种：顺序结构、选择结构和循环结构。7．在程序执行的过程中，变量的值始终保持不变，常量的值随时改变。答案：错误。与题目的叙述正好相反。在程序执行的过程中，常量的值始终保持不变，变量的值随时改变。8．在VB中，“FOR计数变量＝初值TO终值[STEP步长]”语句中的“步长”不能为0，否则造成死循环。答案：正确。在VB的FOR循环中，如果步长为0，则计数变量永远也不会超过终值，所以是死循环三、填表1、算术运算符及其含义(请写出运算结果)算术运算符含义例子运算结果^乘幂2^38-取负-5-5*乘法2*48/实数除法9/24.5\整数除法9\24Mod求余数9Mod21+加法1+23-减法-1-2-32、关系运算符(请写出运算结果)关系运算符例子运算结果=“abc”=”ABC”False12True79False=1+1=2True=3+1=2+1False5mod20True3、完成下表，将数学表达式写成VB中的算术表达式或将VB中的算术表达式写在数学表达式。数学表达式VB中的算术表达式dcba(a+b)/(c+d)33baa^3+b^3)]([cxbxaa*[x+b*(x+c)]dcaba*b/c+da^(1/3)-b^(1/3)(1/(1+1/a))^2+(1/(1-1/b))^2a*b/(c+d)4、试写出表达式的运算结果VB表达式运算结果2331^554mod154\15645abc“abc45”我的电话号码是&1234567“我电话号码是1234567”3+1=2+1False23True)12()21(orTrue)11(notFalse)12()21(andFalse5、函数表达式（请写出运行结果）举例运算结果Abs(-81)81Sqr(81)9Int(62.5)62Int(-62.5)-63四、阅读以下程序段，写出运行结果1、privateSubform_click()x=2y=3x=yprintx=;xprinty=;yx=x+1printx=;xprinty=;yEndSubx=3y=3x=4y=32、privateSubform_click()a=150b=100ifabthenprint较大数是：;aelseprint较大数是：;bendifEndSub较大数是：1503、x=8Fori=3to5printx,Nexti8884、s=0Fori=10to4Step-3s=s+iNextiprints=;ss=215、s=1Dowhiles10s=s+sLoopPrint运行结果：166、s=1fori=10to4step-3s=s*iPrinti,snexti10,107,704,2807、x=1y=2ifxythenprintx,yelseprinty,x2，1五、编程题1．设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成．程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。PrivateSubCommand1_Click()Text1.Text=[1][1]Text2.[2]=[2][3].Text=[3]EndSubPrivateSubCommand2_Click()IfText1.[4]=OrText2.Text=[5]OrText3.Text=Then[4]MsgBox成绩输入不全！[5]ElseText4.Text=([6]+Val(Text2.Text)[6]+Val(Text3.Text))/[7][7]End[8][8]SubEndPrivateSubCommand3_Click()Unload[9][9][10]Sub[10]答案：[1][2]Text[3]Text3[4]Text[5][6]Val(Text1.Text)[7]3[8]If[9]Me[10]End2．以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。PrivateSubCommand_Click()X=Val(Text1.Text)If（1）ThenPrintXElse（2）（3）（4）EndIfEndSub(1)xMod3=2AndxMod5=3AndxMod7=4(2)Text1.SetFocus(3)Text1.SetFocus=0(4)Text1.SelLength=Len(Text1.Text)3．设计一个欢迎程序。要求程序运行后，用户选中粗体复选框时“欢迎您！”几个字的字体变成粗体，用户选中斜体复选框时，“欢迎您！”几个字的字体变成斜体。若取消选中，则恢复原字体。按结束，则退出。PrivateSubCheck1_Click()IfCheck1.Value=1ThenLabel1.Font.Bold=TrueElseLabel1.Font.Bold=FalseEndIfEndSubPrivateSubCheck2_Click()IfCheck1.Value=1ThenLabel1.Font.Italic=TrueElseLabel1.Font.Italic=FalseEndIfEndSubPrivateSubCommand1_Click()UnloadMeEndSub4．任给3个数，求其中间数，写出程序代码。PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSingle,xAsSingle,tAsSinglea=Val(Text1.Text)b=Val(Text1.Text)c=Val(Text1.Text)IfabThent=a:a=b:b=tEndIfIfbcThenx=bElseIfacThenx=cElsex=aEndIfText4.Text=xText1.SetFocusEndSub