练习题(知识复习)

1/5下列计算机语言中，______语言不属于高级语言。(A)Basic(B)C(C)Java(D)汇编下列可作为VisualBasic变量名的是______。(A)A#A(B)4AB(C)constA(D)ABS当一个命令按钮的______属性值被设为False时，它的提示文字呈现灰色且不能够响应用户操作。(A)Caption(B)Enabled(C)Picture(D)Visible如果一个窗体中只有以下代码，则当用户触发窗体的______事件时，会显示“Welcome”。PrivateSubForm_DblClick()PrintWelcomeEndSub(A)单击(B)双击(C)显示(D)关闭下面表达式中______的值为字符“S”。(A)Left(BASIC,3)(B)Right(BASIC,3)(C)Mid(BASIC,3,1)(D)Len(BASIC)VB程序中，工程文件的扩展名是______。标准模块文件的扩展名为。（A）bas（B）frm（C）ocx（D）vbp下列属性中，不能通过代码在运行时重新赋值的是______。(A)Name(B)Caption(C)Text(D)EnabledVB中窗体(Form)、图片框(PictureBox)或图像框(Image)装入图形可使用________函数。（A）LoadPicture（B）PictureLoad（C）LoadImage（D）ImageLoad下列取值中，复选框(CheckBox)Value属性可能的正确取值是________。（A）True（B）False（C）2（D）3设a=10，b=5，c=1，执行语句Printabc后，窗体上显示的是________。（A）True（B）False（C）1（D）出错信息下面属性中，不属于文本框（TextBox）的属性是________。（A）SelStart（B）Caption（C）PasswordChar（D）Text在系统默认情况下，语句Dima(-3To3，2)AsInteger定义的数组，其元素个数是________。（A）6（B）12（C）14（D）21表达式8／3*6Mod5的值是()。（A）0（B）1（C）2（D）3设a=VisualBasic，下面使b=”Basic”的语句是________。（A）b=Left(a，7，12)（B）b=Mid(a，7，5)（C）b=Right(a，5)（D）b=Left(a，7，5)下列________属性可设置控件在窗体中的大小。（A）Height与Width（B）Height与Top（C）Left与Top（D）Left与Width以下对象不属于容器的是________。（A）窗体(Form)（B）图片框(PictureBox)（C）图像框(Image)（D）框架(Frame)若要调用窗体并显示出来，其实现的方法是________。（A）Show（B）UnLoad（C）Load（D）HideInputBox函数返回值的类型为________。（A）数值（B）字符串（C）变体类型（D）数值或字符串(视输入的数据而定)为了清空列表框(ListBox)中的所有项目，应使用的方法为________。（A）Cls（B）Clear（C）Remove（D）RemoveItem设x＝10，则执行y=IIf(x0,x\3,0)之后，y的值为________。（A）0（B）1（C）3（D）语句有错设x=4,y=6，下面程序中不能输出“a=10”的语句是_____。（A）Printa=x+y（B）Printa=;x+y（C）Printa=+Str(x+y)（D）Printa=&x+y语句y=x–1的功能是______。（A）变量y取得表达式x-1的值（B）变量y取得变量x的值，然后再减1（C）将变量x存入变量y中，再加上1（D）将变量y存入变量x-1中窗体上有一个命令按钮Command1，且只有以下代码。运行时单击命令按钮，窗体显示______。PrivateSubCommand1_Click()Dimcitycity=Array(北京,上海,广州,武汉)Printcity(1)EndSub（A）北京（B）上海（C）广州（D）武汉DCBBCDAAACBBDBCACABBCAAB2/5下面的程序段运行时，用户输入3，显示的结果是______。DimxAsInteger,nAsInteger,iAsInteger,jAsIntegerx=0n=InputBox(n=)Fori=1TonForj=1Toix=x+1NextjNextiPrintx(A)3(B)4(C)5(D)6执行下面的程序段后，显示x的值为______。x=5Fori=10To1Step-2x=x+1NextiPrintx（A）8（B）9（C）10（D）11运行下面程序，单击命令按钮Command1，输出的结果是______。OptionBase1PrivateSubCommand1_Click()Dimas=0a=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub（A）4321（B）1234（C）34（D）12以下关于过程的叙述中，错误的是______。（A）事件过程由某个用户操作事件或系统事件触发而执行（B）函数过程的返回值可以有一个或多个（C）可以在事件过程中调用自定义过程（D）函数过程可在窗体的“通用”部分定义，而不能在事件过程的过程体中定义窗体上一个标签Label1和一个计时器Timer1，Timer1的Interval属性设置为1000，Enable属性为True。要求程序运行时每秒在标签中显示系统的当前时间，事件过程是________。（A）PrivateSubTimer1_Timer()Label1.Caption=TrueEndSub（B）PrivateSubTimer1_Timer()Label1.Caption=TimeEndSub（C）PrivateSubTimer1_Timer()Label1.Interval=1EndSub（D）PrivateSubTimer1_Timer()Fork=1toTimer1.IntervalLabel1.Caption=TimerNextkEndSub当滚动条滑块位于最右端或最下端时，Value属性被设置为________。（A）Min（B）Max（C）Max和Min之间（D）Max和Min之外要声明数组中默认下标由1开始，可在通用-声明代码段中加入语句________。（A）OptionBase0（B）OptionExplicit（C）OptionBase1（D）OptionCompare设在菜单编辑器中定义了一个菜单项，名为Menu1。为了在运行时隐藏该菜单项，应使用的语句是________。（A）Menu1.Enabled=True（B）Menu1.Enabled=False（C）Menu1.Visible=True（D）Menu1.Visible=False设a=2,b=3,c=4,d=5，则表达式Nota=cOr4*c=b^2Andba+c的值是________。（A）-1（B）1（C）True（D）FalseVB6.0的一行代码内可书写多个语句，语句间用________来分隔。（A），（B）；（C）_（D）：DCBBBBCDDD3/5以下叙述中正确的是________。（A）窗体的Name属性指定窗体的名称，用来标识一个窗体（B）窗体的Name属性的值是显示在窗体标题栏中的文本（C）可以在运行期间改变对象的Name属性的值（D）对象的Name属性值可以为空数组Score(4,3)中已经存放了4个学生3门课程的成绩，要计算每个学生的总分，程序如下：PrivateSubCommand1_Click()Dimsum%sum=0Fori=1To4Forj=1To3sum=sum+score(i,j)NextjPrint第;i;个学生的总分是:;sumNextiEndSub运行时发现，除了第1个人的总分计算正确外，其他人的总分都是错误的。应该怎样修改程序？______（A）把外循环Fori=1To4改为Fori=1To3，内循环语句Forj=1To3改为Forj=1To4（B）把sum=0移到Fori=1To4和Forj=1To3之间（C）把sum=sum+score(i,j)改为sum=sum+score(j,i)（D）把sum=sum+score(i,j)改为sum=score(i,j)下列程序运行时，在文本框Text1中输入字符串“abcdefg”，单击命令按钮Command1，标签Label1输出______。FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1))+s1NextiFun=s1EndFunctionPrivateSubCommand1_Click()Dimstr1AsString,str2AsStringstr1=Text1.Textstr2=Fun(str1)Label1.Caption=str2EndSub(A)abcdefg(B)gfedcba(C)ABCDEFG(D)GFEDCBA将数学表达式22xyx写成VB表达式，正确的形式是________。下面程序段中，函数Val的作用是__________，函数Str的作用是__________。DimxAsInteger,yAsLongx=Val(Text1.Text)y=x*2Label1.Caption=y=+Str(y)窗体Form1中有文本框、框架、单选按钮、复选框控件。单击单选按钮和复选框时，根据所选内容更新文本框中输出的文字（如图）。填空完成上述功能。Dim__________,TuanyuanAsStringPrivateSubCheck1_Click()If____________ThenTuanyuan=是ElseTuanyuan=不是EndIfCallGengxinEndSubPrivateSubOption1_Click()Xingbie=男CallGengxinEndSubPrivateSubOption2_Click()Xingbie=女CallGengxinEndSubSubGengxin()Text1.Text=Text1.Text=我是+Xingbie+孩，我Text1.Text=___________+团员EndSub下面程序运行时单击命令按钮，显示的结果是_________。OptionExplicitPrivateSubCommand1_Click()x=-9y=Abs(x)Printy=;yEndSubABD4/5下面的程序定义了判断素数的函数。在文本框输入正整数x，判断x是否素数。填空完善程序。FunctionIsPrime(nAsInteger)As________DimFlagAsBooleanFlag=True____________IfnModi=0Then__________ExitForEndIfNextiIsPrime=FlagEndFunctionPrivateSubCommand1_Click()DimxAsIntegerx=Val(Text1.Text)If___________ThenPrintx;是素数ElsePrintx;不是素数___________EndSubcity.txt文件内容如图中记事本窗口所示。在同一文件夹中建立一个VB程序，启动窗体时能够将city.txt文件中的字符串逐行地添加到列表框中。请填空完善程序。PrivateSub_________()DimcityAs_________OpenApp.Path+\city.txt________As#1DoWhile________LineInput