您好,欢迎访问三七文档
当前位置:首页 > 商业/管理/HR > 经营企划 > vb期末模拟题(答案)
《VB.NET程序设计课程》模拟题(A卷答案)一、选择题1.下列叙述中正确的是_____________。A.数组是用户自定义的数据类型B.数组元素在内存中的存放形式是连续的C.数组在使用时可以采用隐式声明D.数组的下界可以任意答案B2.复选框的CheckState属性为__________时,表示复选框内有灰色的勾即不可选。A.UncheckedB.IndeterminateC.CheckedD.None答案B3.删除列表框中第2项的项目,所使用的方法为______。A.Items.RemoveAtB.MoveC.Items.ClearD.Items.Remove答案A4.要想从子过程调用后返回两个结果,下面子过程语句说明合法的是__________。A.Subf1(ByValn%,ByValm%)B.Subf1(ByRefn%,ByValm%)C.Subf1(ByRefn%,ByRefm%)D.Subf1(ByValn%,ByRefm%)答案C5.下列各赋值语句,语法不正确的是()A.iNumber=15B.sLength=x+yC.x+y=5D.Label1.Text=TimeOfDay答案C6.在用通用对话框控件建立打开文件对话框时,在文件列表框只允许显示文本文件类型的文件,则Filter属性的正确设置是_________。A.Text(.txt)||*.txtB.Text(.txt)(*.txt)C.文本文件|(.txt)D.Text(.txt)|*.txt答案D7.以下程序输出的结果是___________。Dima()AsInteger={1,2,3,4,5,6,7}Fori=0ToUbound(a)a(i)=a(i)*a(i)NextiMsgBox(a(i))A.49B.0C.不确定D.程序出错答案D8.下列_____________方式声明的变量在每次调用该过程时其值不能保留。A.在过程体中用Dim语句声明的变量B.在标准模块中声明的变量C.在过程外声明的变量D.在过程体中用Static语句声明的变量答案A9.在下列关于定时器的说法中,正确的是()。A.当Enabled属性为False时,不产生Tick事件B.在程序运行时不可见的,这是因为Visible属性为FalseC.当Interval属性为0,则Tick事件不会发生D.通过适当的设置可以将Interval属性的单位改为秒答案A10.下面是用户界面控件的是()A.GroupBox控件B.Timer控件C.OpenFileDialog控件D.MenuStrip控件答案A二、程序填充1.程序的功能是读取a.txt文件,统计以,逗号间隔的每个字符串中汉字的个数,并以下右图的形式显示在Label1中。PrivateSubButton1_Click(......)HandlesButton1.ClickDimstr$,k%,i%Label1.Text=______(1)_____(1,c:\a.txt,OpenMode.Input)DoWhileNotEOF(1)Input(1,str)______(2)_____Fori=1ToLen(Str)IfAsc(Mid(str,i,1))0Thenk=k+1NextLabel1.Text&=str&______(3)______'以如图所示的形式显示LoopEndSub答案(1)FileOpen(2)k=0(3),&k&vbCrLf2.下列程序随机产生n个互不重复的三位数,存放在数组a中。子过程s()的功能是统计数组x中百位数与个位数相同的个数。单击按钮从键盘输入要随机产生的互不重复的三位数的个数,数据以每行5个的形式输出,同时调用子过程s(),将统计的结果输出。PrivateSubButton1_Click(......)HandlesButton1.ClickDima%(),c%,k%,n%,j%,i%,count%DimFlagAsBooleank=Val(InputBox(输入产生数的个数:))______(1)_____a(k-1)a(0)=Int(Rnd()*900+100)n=1DoWhilenkc=Int(Rnd()*900+100)Flag=TrueForj=0Ton-1'Ifa(j)=cThen_____(2)_____NextjIfFlagThen'没有找到,产生的字母非重复,存放到数组中a(n)=c:n=n+1EndIfLoopFori=0Tok-1Label1.Text&=a(i)&If______(3)_______ThenLabel1.Text&=vbCrLf'每行5个数据NextiCalls(a,count)Label1.Text&=vbCrLf&满足条件的个数:&countEndSubSubs(_____(4)_____)'要求严格区分是传值还是传地址Dimi,kAsInteger,fAsBooleanFori=0To______(5)_______k=x(i)Ifk\100=kMod10Thencount=count+1NextEndSub答案(1)ReDim(2)Flag=False(3)(i+1)Mod5=0(4)ByRefx%(),ByRefcount%(5)UBound(x)三、设计操作1.释放考试结果文件夹(C:\KS)中的error1.exe文件,打开文件夹error1中的应用程序,请修改调试该程序,并按原文件名和位置保存。正确的运行结果如图所示。注意:不能修改变量或重新定义变量,不允许增加和删除语句,但可以改变语句次序。改错题1:(4处错误)功能是通过调用函数过程sum(),将文本框Textbox1中输入的数字字符串的各位数字和在Label1中输出。改错题2:(3处错误)功能是将文本框Textbox2中输入的字符串大小写字母互换(即原来大写转换为小写、小写转换为大写),其它字符不作转换,并将结果显示在标签Label2中。2.参见样例,编一个完整的程序,要求:1.界面设计要求(1)在Form1窗体上放置一个列表框、一个标签,一个字体对话框,并建立一个菜单系统。窗体的标题为考生的学号;各菜单标题如样例所示。(2)在Form2窗体上放置一个简单组合框和一个命令按钮。2.保存要求必须将项目保存在C:\KS目录下,项目名为NET。3.Form1窗体编程要求产生10个数菜单项:在列表框中随机产生10个长度为1~20之间的大写字母字符串;最长串菜单项,将列表框中最长的字符串作☆标记,并在标签中输出最长的字符串及长度;字体菜单项,打开字体对话框,设置列表框中的字体和颜色;保存菜单项,将列表框中的数据写到c:\文件夹的a.txt文件中;窗体2菜单项:打开Form2窗体;结束菜单项:结束程序的运行。4.Form2窗体编程要求在简单组合框的文本框中输入一个正整数,回车后若该数为素数,则将其添加到列表框中,当输入非数字字符时,通过信息框给出输入错误!的提示。返回按钮:隐藏Form2窗体,返回Form1窗体。PublicClassForm1PrivateSub产生10个串ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles产生10个串ToolStripMenuItem.ClickDimstAsStringDimi%,n%,j%ListBox1.Items.Clear()Fori=1To10n=Int(Rnd()*20+1)st=Forj=1Tonst=st&Chr(Int(Rnd()*26+65))NextListBox1.Items.Add(st)NextEndSubPrivateSub最长串ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles最长串ToolStripMenuItem.ClickDimmaxlen%,maxstr$,i%Label1.Visible=Truemaxstr=maxlen=0Fori=0ToListBox1.Items.Count-1IfLen(ListBox1.Items(i))maxlenThenmaxlen=Len(ListBox1.Items(i))maxstr=ListBox1.Items(i)EndIfNextFori=0ToListBox1.Items.Count-1IfLen(ListBox1.Items(i))=maxlenThenListBox1.Items(i)=ListBox1.Items(i)&★EndIfNextLabel1.Text=最长字符串为:&maxstr&vbCrLfLabel1.Text&=字符数为:&maxlenEndSubPrivateSub字体ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles字体ToolStripMenuItem.ClickFontDialog1.ShowDialog()ListBox1.Font=FontDialog1.FontListBox1.ForeColor=FontDialog1.ColorEndSubPrivateSub保存ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles保存ToolStripMenuItem.ClickDimi%FileOpen(1,C:\a.txt,OpenMode.Output)Fori=0ToListBox1.Items.Count-1PrintLine(1,ListBox1.Items.Item(i))NextMsgBox(文件成功保存)FileClose(1)EndSubPrivateSub结束ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles结束ToolStripMenuItem.ClickEndEndSubPrivateSub菜单2ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles菜单2ToolStripMenuItem.ClickForm2.ShowDialog()EndSubEndClassPublicClassForm2ConstPI=3.1415926PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickMe.Close()EndSubPrivateSubComboBox1_KeyPress(senderAsObject,eAsKeyPressEventArgs)HandlesComboBox1.KeyPressIfAsc(e.KeyChar)=13ThenIfNotIsNumeric(ComboBox1.Text)ThenMsgBox(输入错误!)ComboBox1.Text=ElseDimfAsBoolean,x%,i%x=ComboBox1.Textf=TrueFori=2Tox-1IfxModi=0Thenf=False:ExitForNextIffThenComboBox1.Items.Add(ComboBox1.Text)EndIfComboBox1.Text=EndIfEndIfEndSubEndClass
本文标题:vb期末模拟题(答案)
链接地址:https://www.777doc.com/doc-2865821 .html