VB语言程序设计-在线作业-1

VB语言程序设计_在线作业_1一、单选题(每题5分,共20道小题,总分值100分)1.在窗体上有一个标签框控件，名称为LblTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间。程序代码为：PrivateSubTimer1_______()LblTime.Caption=TimeEndSub在下划线上应填入的内容是（B）。(5分)A.VisibleB.TimerC.IntervalD.Enabled是否存疑2.表达式4+56*7/8Mod9的值是（C）。(5分)A.4B.6C.5D.7是否存疑3.语句Print5*55/5的输出结果是（A）。(5分)A.25B.1C.0D.5是否存疑4.通过改变单选按钮控件的什么属性值，可以改变单选按钮的选取状态（A）。(5分)A.ValueB.AppearanceC.StyleD.Caption是否存疑5.设a=6，则执行x=IIf(a5,-1,0)后，x的值为（C）。(5分)A.5B.6C.-1D.0是否存疑6.设置复选框或单选按钮标题对齐方式的属性是（B）。(5分)A.AlignB.AlignmentC.SortedD.Value是否存疑7.阅读下面的程序：Functionfunc(nAsInteger)AsIntegerSum=0Fori=1TonSum=Sum+(i+1)*iNextifunc=SumEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=5s=func(a)PrintsEndSub程序运行后，单击命令按钮，输出结果为（D）。(5分)A.15B.80C.60D.70是否存疑8.按文件存取方式和结构来区分有（A）。(5分)A.顺序文件和随机文件B.ASCII文件和二进制文件C.磁盘文件和打印文件D.程序文件和数据文件是否存疑9.假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是（D）。(5分)A.Picture1.Print25B.Debug.Print25C.Print25D.Text1.Print25是否存疑10.在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（D）。(5分)A.3和50B.1和0C.4和168D.2和72是否存疑11.下列程序段的执行结果为（B）。x=3:y=4IfxyThenPrinty;:Printx(5分)A.4B.43C.3D.34是否存疑12.下面控件中，用于将对象分组的是（A）。(5分)A.框架B.文本框C.复选框D.窗体是否存疑13.以下语句的输出结果是（D）。a=Sqr(3)PrintFormat(a,$$####.###)(5分)A.$$0001.732B.$1.732C.$1732D.$$1.732是否存疑14.阅读下面的程序：FunctionFunc(xAsInteger,yAsInteger)AsIntegerDimnAsIntegerDoWhilen=4x=x+yn=n+1LoopFunc=xEndFunctionPrivateSubCommand1_Click()DimxAsInteger,yAsInteger,nAsInteger,zAsIntegerx=1:y=1Forn=1To6z=Func(x,y)NextnPrintzEndSub程序运行后，单击命令按钮，输出结果是（D）。(5分)A.16B.26C.21D.31是否存疑15.一个语句如果在下一行继续写，应在本行尾部加符号（A）。(5分)A._B.;C.,D.:是否存疑16.使用通用对话框控件时，要在打开的对话框的标题栏上显示“保存文件”，应把这4个汉字赋给的属性变量是（B）(5分)A.FileTitleB.DialogTitleC.FontNameD.FileName是否存疑17.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签框。列表框中显示若干城市的名称，当单击列表框中的某一城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是（D）。(5分)A.PrivateSubList1_Click()Label1.Name=List1.TextEndSubB.PrivateSubList1_Click()Lbel1.Caption=List1.ListIndexEndSubC.PrivateSubList1_Click()Label1.Name=List1.ListIndexEndSubD.PrivateSubList1_Click()Label1.Caption=List1.TextEndSub是否存疑18.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=InputBox(EntertheFirstinteger)b=InputBox(EntertheSecondinteger)Printb+aEndSub程序运行后，单击命令按钮，先后在输入对话框中输入456和123，则输出结果是（A）。(5分)A.579B.123C.123456D.456是否存疑19.可唯一标志控件数组中某一个控件的属性是（C）。(5分)A.CaptionB.NameC.IndexD.TabIndex是否存疑20.为了在按下Esc键时执行某个命令按钮的事件过程，需要把该按钮的哪个属性设为True（D）。(5分)A.ValueB.EnabledC.DefaultD.Cancel