还剩23页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
《计算机程序设计基础》课后练习题11.判断题1(错)事件过程由某个用户事件或系统事件触发执行,但不能被其他过程调用2(错)若X=2Y=5,则表达式Y-2X ANDX+2>Y的结果为True3(错)常量是指在程序运行过程中其值可以改变的那些量4(错,timer没有)VB工具箱中的所有控件都具有宽度(Width)和高度(Height)属性5(错)定义变量DimmaxminasSingle则max和min的数据类型均为Single6(对)如果创建的菜单项的标题是一个减号“-”,则该菜单项显示为一条分隔线7(错)标准模块文件的扩展名是“*.VBP”8(错,都不能)定时器控件可以响应Click事件,但不能响应DbClick事件9(错)在默认情况下,数组下标下界的缺省值为110(对)在使用字体对话框时,需要对其Flags属性先进行相应设置2.单选题11在VisualBasic中,表示鼠标单击事件的是CA)ActivateB)DoubleClickC)ClickD)MouseDown12用于设置计时器时间间隔的属性是AA)IntervalB)NameC)LeftD)Top13函数Int10*Rnd是在D范围内的整数A)[1,10]B)[1,10]C[0,9D)[0,9]14Selectcase语句结构的结尾应使用DA)EndB)EndCaseC)EndSubD)EndSelect15改变了容器的坐标系后,该容器的A属性值不会改变A)leftB)scaleleftC)scaletopD)scalewidth16执行下列语句后,列表框中各表项顺序为DList
1.ClearFori=1to4:List
1.AddItemi-10NextiA)B)C)D)17输入对话框InputBox的返回值的类型是AA)字符串B)整数C)浮点数D)长整数18将焦点主动设置到指定的控件或窗体上,应采用B方法A)SetDateB)SetFocusC)SetTextD)GetData19有如下程序段DimIAsIntegerSAsIntegerS=1FORI=1TO8STEP2S=S*INEXTIPRINT“S=“;S运行结果为BA)S=9B)S=105C)S=1D)S=1620利用以下___D____语句,可以输出日期和时间信息A)PrintDateB)PrintMonthC)PrintTimeD)PrintNow21一只漂亮的酒杯被摔碎了,则漂亮,酒杯,摔是___D____A)对象,属性,事件B)对象,属性,方法C)属性,对象,方法D)属性,对象,事件22将通用对话框以“打开文件对话框”方式打开,则选以下 A 方法AShowOpenB)ShowColorC)ShowSaveD)ShowFont23执行语句“Line100100-150200vbBlueB”在窗体上绘制出一个矩形,那么该矩形的面积=AA)5000B)10000C)15000D)2000024如何使一个标签或按钮控件在运行时不可用___C____A)把它的Visible属性设置成FalseB)把它的Visible属性设置成TrueC)把它的Enabled属性设置成FalseD)把它的Enabled属性设置成True25下列C表达式的结果为1234556789A)Trim12345+56789B)Ltrim12345+Rtrim56789C)Rtrim1234556789D)Ltrim12345Rtrim5678926将图形框(PictureBox)控件的AutoSize属性设置为True后,则对于图形框而言,____B____A)图形框中的图片自动改变大小适应图形框B)图形框自动改变大小适应其中的图形C)如果图片的大小比图形框大,则图形框自动裁剪图象以适应图形框的大小D)如果图片的大小比图形框小,则图形框大小不发生变化27要获得当前驱动器应使用驱动器列表框的哪个属性BA)Path B)Drive C)Dir D)Pattern28以下关于函数过程的叙述中,正确的是____A____A)函数过程形参的类型与函数返回值的类型没有关系B)在函数过程中,过程的返回值可以有多个C)数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递D)如果不指明函数过程参数的类型,则该参数没有数据类型29单击滚动条的滚动箭头时,产生的事件是___C____A)ClickB)ScrollC)ChangeD)Move30以下能返回文件长度的函数是__B___A)BOFB)LOFC)LEND)EOF3.程序填空题【程序填空1】在C盘当前文件夹下已存在名为Data.txt的文件,利用文本框(Text1)输入若干英文单词要求每输入一个单词后,按下回车键将文本框中的单词写入文件,然后清除文本框的内容以便输入下一个单词当在文本框中输入的单词是“END”时,则表示结束输入(对于单词“END”不论大小写都视为结束),最后将文件关闭PrivateSubForm_Load
(31)AText
1.Text=EndSubPrivateSubText1_KeyPressKeyAsciiAsIntegerIfKeyAscii=13ThenIf
(32)D=ENDThenClose#EndElse
(33)A(注意,Text1的默认属性为text,可省略不写)Text
1.Text=EndIfEndIfEndSub31A)OpenC:\Data.txtForOutputAs#1B)OpenC:\Data.txtForInput#1C)OpenC:\Data.txtInputAs#1D)OpenC:\Data.txtOutputAs#132A)LCaseText
1.TextB)Text
1.TextC)StrText1D)UCaseText
1.Text33A)Write#1Text1B)Write#1TextC)Write#3Text
1.TextD)Write#1Text.Text【程序填空2】程序运行后如下图所示,Label1的Caption显示为字体定时变大,影响字体大小的属性每隔
0.5秒增加1,数值在[8,72]之间变化OptionExplicitPrivateSubForm_LoadTimer
1.Enabled=True
(34)BLabel
1.Caption=字体定时变大EndSubPrivateSubTimer1_TimerStaticiAsIntegerIfi7Ori=72Theni=7i=i+1
(35)AEndSub34A)Timer
1.Interval=5/10B)Timer
1.Interval=500C)Timer
1.Interval=TrueD)Timer
1.Interval=False35A)Label
1.FontSize=iB)Label
1.Font=iC)Label
1.Size=iD)Label
1.FontSize=i+1【程序填空3】已知五个数存放在数组中,用冒泡法对该数组进行递减排序(冒泡法一旦发现数组中两个数逆序马上交换这两个数)PrivateSubCommand1_ClickDima1To5AsIntegerDimn%i%,j%t%a1=53:a2=34:a3=45:a4=89:a5=23Fori=1To4(确保第i轮循环后,ai位置上存放第i大的数)Forj=5Toi+1Step-1If
(36)BThent=aj
(37)Daj-1=tEndIfNextjNextiFori=1To5Printai;NextiEndSub36A)ajaj-1B)ajaj-1C)aiajD)ajai37A)ai=ajBaj-1=ajC)aj=aiDaj=aj-1【程序填空4】在窗体上画一个名称为Combol的组合框,画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签程序运行后(如下图所示),当在组合框中输入一个新的项目按回车键时(回车键的ASCII码为13),如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项;如果存在,则在Label2中给出提示“输入项已在组合框中”PrivateSubCombo1_KeyPressKeyAsciiAsIntegerIf_38BThenFori=0ToCombo
1.ListCount-1IfCombo
1.Text=_39BThenLabel
2.Caption=输入项已在组合框中ExitSubEndIfNextiLabel
2.Caption=已成功添加输入项Combo
1._40CCombo
1.TextEndIfEndSub38A)KeyAscii=0B)KeyAscii=13C)KeyAscii=8D)KeyAscii=939A)Combo
1.ListIndexB)Combo
1.ListiC)Combo
1.AddItemiD)Combo
1.Clear40ASelectedBRemoveItemCAddItemDListIndex4.程序阅读题【程序阅读1】根据以下代码,单击窗体三次,那么第一次单击后输出的a、b、c的值为_____41_C__,第二次单击后输出的a、b、c的值为_____42__D_,第三次单击后输出的a、b、c的值为_____43_A_Privatea%b%c%PrivateSubForm_ClickDimaAsIntegerc=2CallAAcb=BBaPrintabcEndSubPublicSubAAc%a=c+bc=a+cEndSubPublicFunctionBBByValb%b=b+1BB=a+bEndFunction41A)254B)234C)034D)03242A)7129B)7159C)062D)06743A)0910B)092C)171935D)102732【程序阅读2】阅读下列程序并回答问题,在每小题提供的若干可选答案中,挑选一个正确答案PrivateSubForm_ClickForm
1.Scale-1010-10-10Form
1.Circle005-3*
3.14/2-
3.14Form
1.FillStyle=0EndSub44运行以上程序,第一次单击窗体后,Form1上的输出结果是44A,A)B)C)D)45第二次单击窗体后Form1上的输出结果是45BA)B)C)D)【程序阅读3】阅读下列程序并回答问题,在每小题提供的若干可选答案中,挑选一个正确答案(↙表示回车)PrivateSubForm_LoadText
1.Text=:Form
1.ClsEndSubPrivateSubText1_KeyPresskAsIntegerStaticsAsIntegerIfChrk0OrChrk9Andk13Thenk=0Ifk=13Thens=s+ValText
1.Text:Text
1.Text=:Prints;EndSub46写出运行时在Text1中依次按“1↙3↙5↙”输入后窗体上的显示结果_46_A__A)149B)9C)135D)547写出运行时在Text1中依次按“1↙-3↙5↙”输入后窗体上的显示结果_47_B___A)1-23B)149C)1-35D)348写出运行时在Text1中依次按“1↙2a↙5↙”输入后窗体上的显示结果_48D__A)14348B)125C)5D)138【程序阅读4】PrivateSubForm_clickDimxAsSinglex=ValInputBox输入xSelectCasex\2Case1Printy=;xCase2Printy=;xMod2Case3Printy=;xMod3CaseElsePrinty=;x\2EndSelectEndSub49当x的输入值为5时的运行结果为
(49)CA)y=5B)y=
2.5C)y=1D)y=050当x的输入值为
5.5时的运行结果为
(50)DA)y=5B)y=
2.5C)y=1D)y=051当x的输入值为-7时的运行结果为
(51)BA)y=-7B)y=-3C)y=1D)y=
3.5【程序阅读5】设text
1.text为“abcdef”,运行时连续单击2次控件Hscroll1右侧箭头后,组合框控件中的第一项为_52A_、第二项___53A_PrivateSubForm_LoadHScroll
1.SmallChange=1:HScroll
1.Max=5HScroll
1.Min=1:HScroll
1.Value=1Combo
1.ClearEndSubPrivateSubHScroll1_ChangeCombo
1.AddItemLeftText
1.TextHScroll
1.Value0EndSub52A)abcB)abcdC)abD)abcde53A)abB)abcdeC)abcD)abcd【程序阅读6】阅读下列程序并回答问题,在每小题提供的若干可选答案中,挑选一个正确答案PrivateSubfsAsString(解释根据代码推测功能是将字符串s等分为两部分,并交换前半部与后半部的位置,如“abcde”,交换后得“decab”)DimiAsIntegernAsIntegercAsStringn=LensIfnMod2=1Thenc=Midsn\2+11Fori=1ToLens\2c=MidsLens+1-i1+c+Midsi1Nextis=cEndSubPrivateSubCommand1_ClickDimxAsStringx=InputBoxx=CallfxPrintxEndSub54单击Command1后输入abc,窗体上显示结果为
(54)A A)cbaB)bcaC)abcD)acb55如果将Sub过程f首句改为PrivateSubfByvalsAsString,单击Command1后输入abcd,窗体上显示结果为
(55)CA)abdcB)cdabC)abcdD)bcad《计算机程序设计基础》课后练习题2
一、判断题1.(错)任何控件都有一个Caption属性2.(对)对于事件驱动型应用程序,每次运行时的执行顺序可以不一样3.(错)用以下语句定义DimmaxminasSingle则max和min的数据类型均为Single4.(对)通用对话框不能真正实现文件打开、文件存储、设置颜色、字体设置、打印等操作,如果想要实现这些功能则需要编程实现5.(对)用Scale方法改变了窗体坐标系后,窗体的Left、Top属性值不变6.(对)在某列表框中一共有5个选项,而当选中第三项时,这时列表框的ListIndex属性为27.(错,标准模块文件格式为.bas)VB中工程文件是指与该工程有关的全部文件和对象,其扩展名是.vbp;窗体文件包括窗体及其控件的正文描述,其扩展名是.frm;标准模块文件是可选的,其扩展名是.cls8.(错,Clear方法)用Cls方法可以清除组合框中的所有表项9.Frame控件可以作为其他控件的容器10.(错)VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性
二、单选题
11.P的值为-3时,-P^2的值是___B_____A、9B、–9C、6D、-
612.以下程序段的执行结果为_____A_______A=0:B=1DoA=A+BB=B+1LoopWhileA10PrintA;BA、105B、ABC、01D、
103013.设置列表框中列表数量的属性是__B____A、List B、ListCount C、ListIndex D、Columns
14.要获得当前驱动器应使用驱动器列表框的哪个属性__B__A、Path B、Drive C、Dir D、Pattern
15.以下Case语句中错误的是___C_____A、Case0To10B、CaseIs10C、CaseIs10AndIs50D、Case357Is
1016.执行语句s=LenMidVisualBasic05后,s的值是___D_____A、VisualB、BasicC、6D、表达式有错
17.以下关于函数过程的叙述中,正确的是___A_____A、函数过程形参的类型与函数返回值的类型没有关系B、在函数过程中,过程的返回值可以有多个C、当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递D、如果不指明函数过程参数的类型,则该参数没有数据类型
18.在窗体上画一个名称为TxtA的文本框然后编写如下的事件过程 PrivateSubTxtA_KeyPresskeyasciiasinteger………… EndSub 若焦点位于文本框中则能够触发KeyPress事件的操作是____D____ A、单击鼠标B、按下键盘上的“A”键 C、鼠标滑过文本框D、按下键盘上的任意键
19.执行行下面的事件过程,在窗体显示的内容是___B_____PrivateSubCommand1_ClickDimaAsVarianta=Array1223344556Fori=1To3PrintTrimai;NextIEndSubA、122334B、233445C、122334D、
23344520.将图形框(PictureBox)控件的AutoSize属性设置为True后,则对于图形框而言,____B____A、图形框中的图片自动改变大小适应图形框B、图形框自动改变大小适应其中的图形C、如果图片的大小比图形框大,则图形框自动裁剪图象以适应图形框的大小D、如果图片的大小比图形框小,则图形框大小不发生变化
21.在图形框控件picture1上坐标100100和500500之间画一条红色直线,写作__C__A、Line100100-500500vbRedB、Line100100-500500RGB02550C、picture
1.Line100100-500500RGB25500D、picture
1.Line100100-500500Red
22.下列赋值语句中,___C_____是错误的A、x=x+1B、x=x+yC、x+y=xD、x=
4623.单击滚动条的滚动箭头时,产生的事件是____C______A、ClickB、ScrollC、ChangeD、Move
24.在程序运行期间可以用____D______函数把图形装入窗体、图片或图象框A、AutosizeB、StretchC、PictureD、LoadPicture
25.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程PrivateSubCommand1_Click DimnumAsInteger num=1 DoUntilnum6 Printnum; num=num+
2.4 LoopEndSub程序运行后,单击命令按钮,则窗体上显示的内容是____B______A、
13.
45.8 B、135 C、147 D、无数据输出
26.___C____对象具有Clear方法A、窗体B、复选框C、列表框D、图片框
27.设a=16,b=7,c=1,则表达式a\3+2=bAndc=91Mod3的结果_____A_____A、True B、False C、1 D、出错信息
28.设有如下通用过程PublicSubFunaByValxAsInteger Fori=1To5 x=x+ai NextEndSub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程PrivateSubCommand1_Click Dimarr5AsVariant DimnasInteger Fori=1To5 arri=i Next n=10 CallFunarrn Text
1.Text=nEndSub程序运行后,单击命令按钮,则在文本框中显示的内容是AA、10 B、15 C、25 D、
2429.窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程PrivateSubCommand1_Click DimnumAsIntegerFornum=1To6Step3Printnum;NextnumPrintnumEndSub程序运行后,单击命令按钮,则窗体上显示的内容是____C______A、144 B、135 C、147 D、无数据输出
30.以下___A____方式打开的文件只能读不能写A、Input B、Output C、AppendD、Random
三、程序填空程序1.在C盘当前文件夹下建立一个名为Data.txt的顺序文件,要求用文本框输入若干英文单词,每次按下回车键时将文本框中的内容写入文件,并清除文本框的内容,直到文本框输入END为止,最后关闭文件PrivateSubForm_Load
(31)CText
1.Text=EndSubPrivateSubText1_KeyPressKeyAsciiAsIntegerIfKeyAscii=13ThenIf
(32)D=ENDThen
(33)BEndElse
(34)AText
1.Text=EndIfEndIfEndSub
31.A、OpenD:\Data.txtForOutputAs#1B、OpenC:\Data.txtForInput#1C、OpenC:\Data.txtForOutputAs#1D、OpenC:\Data.txtOutputAs#1
32.A、LCaseText
1.TextB、Text
1.TextC、StrText1D、UCaseText
1.Text
33.A、Quit#1B、Close#1C、End#1D、Exit#
134.A、Write#1Text1B、Write#1TextC、Write#3Text
1.TextD、Write#1Text.Text程序2.下面程序的作用是利用随机函数产生100个随机整数范围在[20,120]之间(包含20和120),打印其中为5或7的倍数的数,求出它们的总和并打印请将下列程序补充完整PrivateSubCommand1_ClickSUM=0Fori=1To100X=Int(
(35)B)If
(36)DThenSUM=SUM+X
(37)AEndIfNextiPrintSUM=;SUMEndSub
35.A、IntRnd*100+20B、IntRnd*101+20C、IntRnd*101+19D、IntRnd*100+
2136.A、XMod5=0andXMod7=0B、X\5=0andX\7=0C、X\5=0OrX\7=0D、XMod5=0OrXMod7=
037.A、PrintX;B、PrintSUM+X;C、PrintSUM;D、PrintSUM*X;程序3.单击窗体后,用输入对话框输入x、n,然后按下式计算结果要求将计算结果以标签控件显示,且标签控件每秒随机变换一次颜色S=OptionExplicitPrivateSubForm_LoadTimer
1.Interval=1000Timer
1.Enabled=TrueEndSubPrivateSubForm_ClickDimxAsSinglenAsIntegeriAsIntegertAsSingle
(38)Bs=0x=InputBoxx=n=InputBoxn=
(39)Dfori=
(40)At=t*x/is=s+tNexti
(41)CEndSubPrivateSubTimer1_TimerLabel
1.BackColor=RGBRnd*255Rnd*255Rnd*255EndSub
38.A、StaticsAsSingleB、DimsAsSingleC、OptionBase1D、ConstsAsSingle
39.A、t=-1B、t=0C、t=2D、t=
140.A、2Ton+1B、1TonC、2TonD、1Ton+
141.A、Label
1.Caption=xB、Label
1.Caption=nC、Label
1.Caption=sD、Label
1.Caption=s+x程序4.设计一个程序,用于从文本框Text1输入课程名称,单击按钮,添加到列表框(List1)中显示出来具体要求单击“Command1”按钮,若文本框Text
1.Text中不是空格串,并且列表中也没有,则将该课程添加列表框中,然后清除文本框Text1的内容,再将焦点返回到文本框Text1,以便再次在文本框Text1输入内容,继续添加PrivateSubCommand1_ClickDimIAsIntegerDimAddFlagAsBoolean
(42)AIf
(43)CThenFori=0To
(44)BIfList
1.Listi=Text
1.TextThenAddFlag=FalseExitForEndIfNextiIfAddFlagThenList
1.AddItemText
1.TextEndIfText
1.Text=
(45)BEndSub
42.A、AddFlag=-1B、AddFlag=FalseC、AddFlag=1D、AddFlag=
043.A、text
1.text=“”B、text
1.text=“”C、text
1.text“”D、text
1.text“NULL”
44.A、List
1.ListIndex–1B、List
1.ListCount-1C、List
1.ListIndexD、List
1.ListCount
45.A、text
1.ClearB、text
1.SetFocusC、text
1.MoveD、text
1.ReFresh
四、程序阅读程序1.写出下列程序运行结果,单击命令按钮控件后窗体上的显示结果PrivateSubCommand1_ClickDima1To6AsIntegerFori=1To6ai=i*iNextiForj=1To3(解释将后3个数挪到数组前头)temp=a6Fori=6To2Step-1ai=ai-1Nextia1=tempNextjFori=1To6Printai;NextiEndSub结果程序2.单击窗体后,在四个PictureBox控件中的图形分别是(答案略)OptionExplicitPrivateSubForm_ClickDimi%Fori=0To3Picture1i.Scale-1010-10-10NextiPicture
10.Line-1010-00Picture
10.Line--10-10Picture
11.Circle005Picture
12.Circle
00503.14159Picture
13.Circle0052EndSubPrivateSubForm_LoadDimiAsIntegerFori=0To3Picture1i.FillStyle=i+1Mod2Picture1i.ClsNextiEndSub结果程序3.事先将text
1.text设为为空,在获得焦点后从键盘上依次按下以下键:12+34-56/14然后按回车键,写出输出结果PrivateSubText1_KeyPressKAsIntegerIfKAsc0OrKAsc9ThenK=0PrintText
1.TextEndIfEndSub结果程序4.在窗体上画一个名称为Command1的命令按钮,然后编写相应的事件过程程序运行后,如果单击命令按钮,则在窗体上显示的内容是PublicFunctionfxAsIntegerDimyAsIntegerx=20y=2f=x*yEndFunctionPrivateSubCommand1_ClickStaticxAsIntegerx=10y=5y=fxPrintx;yEndSub结果《计算机程序设计基础》课后练习题3一.判断题1.(错)窗体或控件的事件的名称可以由编程人员确定2.(错)关系运算表达式1+2=3的运算结果为True3.(对)变量是指在程序运行过程中其值可以改变的那些量,而值不能改变的是常量4.(对)控件的有些属性只能在运行时设置5.(对)数组在内存中占据一片连续的区域6.(错)驱动器列表框、目录列表框、文件列表框三者之间能够自动实现关联7.(错)当按钮的Default属性设置为True时,任何情况下按Enter键,相当于单击该按钮8.(错,dim定义的也可能是模块量)在过程中用Dim和Static定义的变量都是局部变量9.(对)设置数组下标下界缺省值为1的语句为optionbase110.(对)For-Next循环结构的默认步长为1二.单选题11.当建立好一个简单的应用程序后,假定该工程仅有一个窗体模块问该工程涉及到多少个文件要保存?B个A1B2C3D412.能够将文本框控件隐藏起来的属性是BAClearBVisibleCHideDNew
13.下列符号中,哪个是VB合法的变量名? C Aa123 BInteger CX_yz Dπ
14. inputBox函数返回值的类型为 B A数值 B字符串C变体 D数值或字符串(视输入的数据而定)
15. 表达式5+5\3*10/8Mod9的值是C.A4 B5 C6 D
716.如果在立即窗口中执行以下操作a=4 CR CR是回车键,下同b=6 CRprint ab CR则输出结果是 C A-1 B0 CFalse DTrue
17.当程序运行时在窗体上单击鼠标以下哪个事件是窗体不会接收到的CA)MouseDownB)MouseUpC)LoadD)Click
18.在设计菜单时如在菜单中加入一个菜单分隔项则菜单分隔项的标题必须设置为B A)加号+B)减号-C)星号*D)感叹号!
19.SelectCase语句属于程序基本结构中的注意本题有问题,C和D均可A)顺序结构B)循环结构C)分支结构D)选择结构
20.为了把焦点移到某个指定的控件,所使用的方法是AASetFocus BVisible CRefresh DGetFocus
21.设a=3,则执行x=IIfa5-10后,x的值为 C(详见附录IIf函数定义) A5 B6 C0 D-
122. 执行下面的程序段后,x的值为 A x=5For i=1To10Step2x=x+i\5NextiA8 B10 C6 D
1223. 在窗体上画一个命令按钮,然后编写如下事件过程PrivateSubCommand1_ClickFori=1To2x=2Forj=iTo3x=x+6NextjNextiPrintxEndSub程序运行后,单击命令按钮,输出结果是 B A20 B14 C32 D
3824. 在窗体上画一个命令按钮,然后编写如下事件过程PrevateSubCommand1_Clickb=0DoWhileb-1a=ValInputBox“请输入A的值”b=ValInputBox“请输入B的值”a=a+bLoopPrintaEndSub程序运行后,单击命令按钮,依次在输入对话框中输入
5、
3、
3、-1,则输出结果为 A A2 B3 C14 D
1525.将通用对话框以打开对话框打开,则选以下(A)方法A)ShowOpenB)ShowColorC)ShowSaveD)ShowFont
26.计时器控件能够引发的唯一事件是(C)A.Keypress B.ClickC.TimerD.Timer
127.用于设置计时器时间间隔的属性是A A、IntervalB、NameC、LeftD、Top
28.在窗体上画两个文本框其Name属性分别为Text1和Text2和一个命令按钮其Name属性为Command1,然后编写如下事件过程PrivateSubCommand1_Clickx=0DoWhilex40x=x+2*x+3n=n+1LoopText
1.Text=StrnText
2.Text=StrxEndSub程序运行后,单击命令按钮,在两个文本框中显示的值分别为BA1和0 B2和72 C3和50 D4和
16829.用下面语句定义的数组的元素个数是 D DimA-2To6AsIntegerA6 B7 C8 D
930.循环语句ForI=-3To20Step4执行的次数为CA4 B5 C6 D
831.函数Int10*Rnd是在(D)范围内的整数A.[0,1]B.[1,10]C.[1,9]D.[0,9]
32.利用下面哪个函数可访问文件大小(A) A)LOFB)LOCC)EOFD)BOF
33.假定有如下的Sub过程SubS(xAsSingleyAsSingle)t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮,然后编写如下事件过程PrivateSubCommandl_ClickDimaAsSingleDimbAsSinglea=2b=4SabPrintabEndSub程序运行后,单击命令按钮,输出结果为 C A2 4 B10 C
0.5 2 D
0.5
034.阅读程序FunctionFaAsIntegerStaticcb=0b=b+1c=c+1f=a+b+cEndFunction PrivateSubCommandl_ClickDimaAsIntegera=2Fori=1To2PrintFaNextiEndSub运行上面的程序,单击命令按钮,输出结果为 D A4 B4 C4 D44 5 6
735.阅读程序PrivateSubCommandl_Clicks=InputBox输入字符串Fori=LensTo1Step-1PrintMidsi1;NextiEndSub运行上面的程序,单击命令按钮,输入“ABCD”输出结果为 B A)ABCDBDCBACAAAADDDDD
36.在程序运行期间,如果拖动滚动条上的滚动块,则触发的滚动条事件是 C AMove BChange CScroll DGetFocus
37.设窗体上有一个列表框控件List1,且其中含有若干列表项则以下能表示当前被选中的列表项内容的是DAList
1.ListBList
1.ListIndexCList
1.IndexDList
1.ListList
1.ListIndex
38.为了暂时关闭计时器,应把该计时器的某个属性设置为False,这个属性是 C AVisible BTimer CEnabled DInterval
39.对窗体编写如下事件过程PrivateSubForm_MouseDownButtonAsInteger_ShiftAsIntegerXAsSingleYAsSingleIfButton=2ThenPrintAAAAAEndIfEndSub PrivateSubForm_MouseUpButtonAsInteger_ShiftAsIntegerXAsSingleYAsSinglePrintBBBBBEndSub程序运行后,如果单击鼠标右键,则输出结果为 A AAAAAA BBBBBB CAAAAA DBBBBBBBBBB AAAAA
40.当标签的大小由Caption属性的值进行自动扩展或缩小,应对该控件的某个属性设置为True,这个属性是 A AStretch BAutoSize CLeft DScalewidth三.填空题(注意过去有填空题,现在全部都是选择题)
(1)设有如下的VisualBasic表达式-b+sqrb*b-4*a*c/2*a它相当于代数式【1】(略,veryeasy)
(2)数学表达式sin30°写成VB表达式应为_【2】__sin30/180*
3.1415926________
(3)执行下面的程序段后,i的最后值为【3】
5.1 s=5Fori=
3.6To
4.9Step
0.3s=s+1Nexti
(4)将任意一个两位数x的个位数与十位数对换例如,x=78,则表达式的值应为87其VB表达式为【4】trimxmod10trimx\10或righttrimx1lefttrimx15执行下面的程序段后,a的值为【5】20(不用中间变量也能实现两数交换)a=30b=20a=a+bb=a-ba=a-b6下面程序的作用是利用随机函数产生20个10~100之间(包含
10、100)的随机数,打印其中为5的倍数的数,并求出它们的总和请将下列程序补充完整 PrivateSubCommand1_Clickk1=0 Form=1To20 x=IntRnd*_【6】_91+10________ If【7】xmod5=0Then Printx; k1=_【8】_k1+x_______ EndIf Nextm Printk1=;k1 EndSub9下面的程序打开顺序文件,按行读入内容并在文本框中按行显示,请在【9】、【10】、【11】处将程序补充完整OpenSeqold.datFor【9】InputAs#1strTest=””DoWhile【10】NotEOF1LineInput#1sstrTest=strTest+s+【11】vbCrLf或Chr10Chr13Loop
(10)确保文本框中输入的全部是数字的程序如下,请在【12】、【13】处将程序补充完整SubText1_【12】KeyPressKeyAsciiAsIntegerIfKeyAsciiAsc0OrKeyAsciiAsc9Then【13】KeyAscii=0(此句表示“输了也白输,输入非数字内容一律清空”EndIf11假定建立了一个工程,该工程包括两个窗体,其名称Name属性分别为Form1和Form2,启动窗体为Form1在Form1画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请在【14】和【15】处将程序补充完整PrivateSubCommand1_ClickForm
1.【14】Hide Form
2.【15】ShowEndSub《计算机程序设计基础》课后练习题41.判断题12345678910BBBBBBAABA2.单选题11121314151617181920DBABCCADCB21222324252627282930CDBABCBBDC3.程序填空题31323334353637383940ADCCBABBCC414243BCB4.程序阅读题44454647484950515253CDCADBDBAD5455DB。