VISUAL BASIC语言程序设计 模拟样题

VisualBasic语言程序设计模拟样题一、选择题（1）—（35）题每题2分，共70分。下列各题A)、B)、C)、D)四个先项中,只有一个选择是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。(1)下列不能打开属性窗口的操作是。A)执行“视图”菜单中的“属性窗口”命令B)按F4键C)按Ctrl+TD)单击工具栏上的“属性窗口”按钮。(2)下列可以打开立即窗口的操作是。A)Ctrl+DB)Ctrl+EC)Ctrl+FD)Ctrl+G(3)inputBox函数反回值的类型为。A)数值B)字符串C)变体D)数值或字符串（视输入的数据而定）(4)可以同时删除字符串前导和尾部空白的函数是。A)LtrimB)RtrimC)TrimD)Mid(5)表达式4+5\6*7/8Mod9的值是A)4B)5C)6D)7(6)如果在立即窗口中执行以下操作：a=8CR (CR是回车键，下同)b=9CRprintabCR则输出结果是。A)-1B)0C)FalseD)True(7)以下语句的输出结果是。PrintFormat$(32548.5,“000,000.00”)A)32548.5B)32,548.5C)032,548.50D)32,548.50(8)执行以下程序段后，变量c$的值为a$=“VisualBasicPrograming”b$=“Quick”c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,11)A)VisualBASICProgramingB)QuickBasicProgramingC)QUICKBasicProgramingD)QuickBASICPrograming(9)为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是。A)ValueB)DefaultC)CancelD)Enabled(10)为了把焦点移到某个指定的控件，所使用的方法是A)SetFocusB)VisibleC)RefreshD)GetFocus(11)设a=6，则执行x=IIf(a5,-1,0)后，x的值为。A)5B)6C)0D)-1(12)执行下面的程序段后，x的值为。x=5Fori=1To20Step2x=x+i\5NextiA)21B)22C)23D)24(13)在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To3x=3Fork=1To2x=x+6NextkNextjNextiPrintxEndSub程序运行后，单击命令按钮，输出结果是。A)7B)15C)157D)538(14) 在窗体上画一个命令按钮，然后编写如下事件过程：PrevateSubCommand1_Click()x=0DoUntilx=-1a=InputBox(“请输入A的值”)a=Val(a)b=InputBox(“请输入B的值”)b=Val(b)x=InputBox(“请输入x的值”)x=Val(x)a=a+b+xLoopPrintaEndSub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为。A)2B)3C)14D)15(15)在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：PrivateSubCommand1_Click()a=Text1.Text+Text2.TextPrintaEndSubPrivateSubFormm_Load()Text1Text=Text2Text=Endsub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为。A)444B)321123C)123321D)132231(16)阅读下面的程序段：Fori=1To3Forj=1ToiFork=jTo3a=a+1NextkNextjNext i执行上面的三重循环后，a的值为。A)3B)9C)14D)21(17)在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：PrivateSubForm_Load()Ttext1.Text=Text1.SetFocusFori=1To10Sum=Sum+iNextiText1.Text=SumEndSub上述程序的运行结果是。A)在文本框Text1中输出55B)在文本框Text1中输出0C)出错D)在文本框Text1中输出不定值(18)在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为A)1和0B)2和72C)3和50D)4和168(19)用下面语句定义的数组的元素个数是。DimA(-3To5)AsIntegerA)6B)7C)8D)9(20)以下程序的输出结果是OptionBase1PrivateSubCommand1_Click()Dima(10),p(3)AsIntegerk=5Fori=1To10a(i)=iNextiFori=1To3p(i)=a(i*i)NextIFori=1To3k=k+p(i)*2NextiPrintkEndsubA)33B)28C)35D)37(21)在窗体上面画一个命令按钮，然后编写如下事件过程：OptionBase1PrivateSubCommandl_Click()Dimaa=Array(1,2,3,4)j=1Fori=4ToStep-1s=s+a(i)*jj=j*10NextiPrintsEndSub运行上面的程序，单击命令按钮，其输出结果是。A)4321B)12C)34D)1234(22)在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：OptionBase1PrivateSubCommandl_Click()Dima(4,4)Fori=1To4Forj=1To4a(i,j)=(i-1)*3+jNextjNextiFori=3To4Forj=3To4Printa(j,i);NextjPrintNextiBREndSub程序运行后，单击命令按钮，其输出结果为。A)69B)710C)811D)9127108119121013(23)假定有如下的Sub过程：SubS（xAsSingle,yAsSingle）t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()DimaAsSingleDimbAsSinglea=5b=4Sa,bPrinta,bEndSub程序运行后，单击命令按钮，输出结果为。A)54B)11C)1.254D)1.251(24)阅读程序：FunctionF(aAsInteger)b=0Staticcb=b+1c=c+1f=a+b+cEndFunctionPrivateSubCommandl_Click()DimaAsIntegera=2Fori=1To3PrintF(a)Nexti EndSub运行上面的程序，单击命令按钮，输出结果为。A)4B)4C)4D)445674689(25)阅读程序：SubsubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommandl_Click()Dima(1To4)AsIntegera(1)=5a(2)=6a(3)=7a(4)=8subPa()Fori=1To4Printa(i)NextiEndSub运行上面的程序，单击命令按钮，输出结果为。A）2B）5C）10D）出错46 1267148816(26)下列不能打开菜单编辑器的操作是。A）按Ctrl+EB）单击工具栏中的“菜单编辑器”按钮C）执行“工具”菜单中的“菜单编辑器”命令D）按Shift+Alt+M(27)假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为。A)MenuItem.Enabled=FalseB)MenuItem.Enabled=TrueC)MenuItem.Visible=TrueD)Menultem.Visible=False(28)在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是。A)MoveB)ChangeC)ScrollD)GetFocus(29)假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为。A)Label1.BackStyle=0Label1.Borderstyle=0B)Label1.BackStyle=1Label1.Borderstyle=1C)Label1.BackStyle=TrueLabel1.BorderStyle=TrueD)Label1.BackStyle=FalseLabel1.Borderstyle=False(30)在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：PrivateSubForm_Load()List1.AddItem357List1.AddItem246List1.AddItem123Listl.AddItem456Text1.Text=EndSubPrivateSubList1_DblClick()a=List1.TextPrinta+Text1.TextEndSub程序运行后，在文本框中输入“789”（见图1），然后双击列表框中的456，则输出结果为。A)1245B)456789C)789456D)0p;。(31)为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是。A)VisibleB)TimerC)EnabledD)Interval(32)为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为。A）Get文件号，记录号，变量名B）Get文件号，变量名，记录号C）Put文件号，变量名，记录号D）Put文件号，记录号，变量名(33)对窗体编写如下事件过程：PrivateSubForm_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingleYAsSingle)IfButton=2ThenPrintAAAAAEndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)PrintBBBBBEndSub程序运行后，如果单击鼠标右键，则输出结果为。A)AAAAAB)BBBBBC)AAAAAD)BBBBBBBBBB&nbsVisualBasic语言程序设计模拟样题(第一部分)p;AAAAA(34)为了在运行时能显示窗体左上角的控制框（系统菜单），必须。A)把窗体的Contro1Box属性设置为Fale,其他属性任意B)把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5C)把窗体的ControlBox属性设置为False,同时把BoderStyle属性调协为非0值D)把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值(35)对窗体编写如下代码：OptionBase1PrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(237,126,87,48