vbnet模拟题(含答案)

1、VBNET2005程序设计课程考试模拟题（A卷答案）考试日期2010-6-25专业姓名学号一、选择题下列叙述中正确的是oA数组是用户自定义的数据类型B数组元素在内存中的存放形式是连续的C.数组在使用时可以采用隐式声明D.数组的下界可以任意答案B要判断在文本框是否按了Enter键，应在文本框的事件中判断。ChangeB.KeyDownCKeyPressDClick答案C3当指针指向窗体Fonnl时，鼠标指针改为用户自己定义的指针图标，应使用（）语句形式。Forml.Cursor=NewCursor图标文件划“)Me.Cursor=NewCursorC图标文件名)Forml.Cursor=Curs

2、orC图标文件4V)Me.Cursor=Cursor图标文件名)答案B4复选柜的CheckState屈性为时，表示复选框内有灰色的勾即不川选。UncheckedBIndeterminateCCheckedDNone答案B为了使标签不覆盖背景，应将标签的屈性设置为TransparentoBBorderStyleDBackColorAAutoSizeC.FlatStyle答案D语句：StructureMyStruDimNoasintegerDimSexAsCharEndStructureDimS（100）ASMyStru以下叙述不正确的.B.MyStru是结构类型D.s（0）.No=1234是正确

3、的賦值语句A.MyStru是结构变量C.s是结构数组答案A下列各赋值语句，语法不正确的是（）A.iNumber=15BsLength=x+yCx+y=5DLabel1Text=TimeOfDay答案C8在用通用对话框控件建立打开文件对话框时，在文件列表框只允许显示文本文件类型的文件，则Filter属性的正确设置是oA.Text(.txt)11*.txtB.Text(.txt)(*.txt)C.文本文件|(.txt)D.Text(.txt)|*.txt答案D随机文件使用下述语句读数据。A.WriteB.FilePutC.InputD.FileGet答案D下列方式声明的变呈在每次调用该过程时其值不

4、能保留。A.在过程体中用Dim语句声明的变量B.在标准模块中声明的变量C.在过程外声明的变量D.在过程体屮用Static语句声明的变量答案A以下关于VisualBasic的叙述中不正确的是Dima,basInteger变量声明语句将a、b声明为整型。当Boolean类型的值转换为数值类型的数时，False转成为0,而True转成为-1在VB.NET中，数组的下界可以是小于上界的任何整数。顺序文件的每条记录的长度可以相等答案C12在下列属性和事件中，滚动条和进度条共有的是（）。A.ScrollBValueChangedC.LargeChangeD.Maximum答案D13在下列关于定时器的说法中

5、，正确的是（）当Enabled属性为False时，不产生Tick事件在程序运行时不可见的，这是因为Visible屈性为False当Interval性为0,则Tick事件不会发生通过适当的设置可以将Interval性的单位改为秒答案A14./创建菜单时，可在菜单标题中某字母前插入符号，那么在运行程序时按Alt键和该字母键就可打开该命令菜单。TOC o 1-5 h zA.下划线B.&C.-D.答案B15在VB.NET中，下面屈于方法的是。A.FocusBLostFocusDSelectedTextB.Timer控件D.MenuStrip控件CKeyPress答案A16.下面是用户界而控件的是（A.

6、GroupBox控件C.OpenFileDialog控件答案A二、程序填充程序的功能是在TextBox2输入一个字符串，将该字符串及其长度以下图的形式显示在TextBoxlPrivateSubTextBox2_KeyPress()HandlesTextBox2.KeyPressDimk%IfAsc(1)=13Thenk=Len(TextBox2.Text)TextBoxl.Text(2)TextBox2.Text&Space(15-k)&k&vbCrLfTextBox2.Text=EndIfEndSub答案e.KeyChar&=程序运行后，在列表框中产生16个80到110Z间间隔为2的华氏温度

7、及其对应的摄氏温度表，如图所示。单击按钮，要求从键盘输入一个华氏温度，在列表框屮的查找，若找到，显示已在表中!信息，否则将该华氏温度及其对应的摄氏温度添加到列表框屮，使Z仍然有序。PrivateSubForml_Load()HandlesMyBase.LoadDimf%,c%ListBoxlItemsClear()ListBoxl.Items.Add(“华氏摄氏)Forf=80To110Step2c=5/9*(f-32)求摄氏温度ListBoxl.(1)(f&Space(10-Len(Str(f)&c)NextEndSubPrivateSubButtonl_Click()HandlesButt

8、onlClickDimd%,i%,k%,f%,s%,x$DimflagAsBoolean=Trued=ValCtnputBoxL输入要插入的华氏温度)s=5/9*(d-32)该温度对应的摄氏温度Fori=1ToListBox1(2)x=ListBoxlIterns(i)f=Vai(Mid(x,1,3)Iff=dThenMsgBoxC已在表中！)flag=FalseExitForElselffdThen找到插入位置(3)EndIfNextIfflagThen表中不存在，则插入ListBoxlItemsAdd()Fork=ListBoxlItems.Count-2ToiStep-1ListBoxl

9、.Items(k+1)二ListBoxl.Items(k)Next(4)二d&Space(10-Len(Str(d)&s插入EndIfEndSub答案Items.AddItems.Count-1ExitForListBox1Iterns(i)3下列程序随机产生n个互不重复的三位数，存放在数组&中。子过程s()的功能是统计数组x中百位数与个位数相同的个数。单击按钮从键盘输入要随机产生的互不重复的三位数的个数，数据以每行5个的形式输出，同时调用子过程$(),将统计的结果输出。EHFotbI匚叵冈0224002817896451487684&o83o8754836781166031437763153

10、383889B39満足条件的个数：2PrivateSubButtonl_Click()HandlesButton1.ClickDima%(),c%k%,n%,j%,i%,count%DimFlagAsBooleank=Vai(InputBox(z，输入产生数的个数：)(1)a(0)=Int(RndO*900+100)n=1DoWhilenkc=Int(Rnd()*900+100)Flag=TrueForj=0Ton-11Ifa(j)=cThen(2)NextjIfFlagThen没有找到，产生的字母非重复，存放到数组中a(n)=c:n=n+1EndIfLoopFori=0Tok-1Labell

11、.Text&二a(i)&If(i+1)Mod5=0ThenLabell.Text&二vbCrLfNextiCalls(a,count)Labell.Text&二vbCrLf&满足条件的个数：&countEndSubSubs(3)要求严格区分是传值还是传地址Dimi,kAsInteger,fAsBooleanFori=0To(4)k=x(i)Ifk100=kMod10Thencount=count+1NextEndSub答案ReDima(k-l)Flag=FalseByRefx%(),ByRefcount%UBound(x)三、设计操作1.释放考试结果文件夹(C:KS中的errgl.exe文件，

12、打开文件夹errxl中的应用程序，请修改调试该程序，并按原文件名和位置保存。止确的运行结果如图所示。注意不能修改变量或重新定义变量，不允许增加和删除语句，不能改变语句次序.改错题h(2处错误)功能是将文本框Textboxl中输入的数字字符串的各位数字和在Labell屮输出。改错題2：(3处错误)功能是谆文本框Textbox?中输入的字符串大小写字母互换(即原来大写转换为小写、小写转换为大写)，其它字符不作转换，并将结果显示在标签Label2中。改错题9(3处错误)功能是找出文本框Textbox3+输入的字符串UAscII码最小的字符，并在Label3屮输出。2参见样例，编一个完整的程序，要求：（1）创建项目。项目文件名为netl,在C:KS目录下建立此项目文件。（2）建立两个窗体。在Fonnl窗体上放置一个列表框、一个标签，一个字体对话框，并建立一个菜单系统。窗体的标题为考生的学号；怨菜单标题如样例所示。在Form2窗体上放置二个命令按钮。（3）程序功能如下：单击产生10个串菜单项，在列表框中随机产生10个长度为r20Z间的大写字母字符串：单击最长串菜单项，在标签屮显示最长的字符串及长度；单击毒字体菜单项，打开字体对话框，设置列表框屮的字体和颜