大学计算机VB程序设计考试题目

实验三设计如下窗体,为五个命令按钮编写5段代码完成四则运算及退出程序,其中在计算除法时,如果第二个数就是零,在消息框中显示信息“除数为零”。ublicClassFormuttonClickimabAsSingleaTextBoxTextb=TextBox2、TextTextBox3、Text=a+bubuttonClickimabAsSingleaTextBoxTextb=TextBox2、TextTextBox3、Text=a-bubuttonClickimabAsSingleaTextBoxTextb=TextBox2、TextTextBox3、Text=a*bubuttonClickimabAsSingleaTextBoxTextb=TextBox2、TextTextBox3、Text=a/bEndIfubuttonClickubClass方程求解输入系数后,单击“求解”按钮后,根据判别式的3种不同情况,分别显示如下的不同结果。ublicClassFormuttonClickDima,b,c,deltaAsDoubleb=TextBox2、TextextBoxTextdeltabbacLabelVisibleTrueLabelVisibleTrueLabelText"方程有两个不相等实根"Label6、Text="X2="&((-b-Math、Sqrt(delta))/2/a)seIfdeltaThenLabel4、Text="方程有两个相等实根"Label4、Text="方程没有实根"Label6、Visible=FalseEndIfubuttonClickubClass第3题文本框中前景色与背景色的不同组合(1)设计窗体如下所示窗体中包含两组单选按钮、两个框架与一个命令按钮。(2)程序功能:分别单击不同的前景色与背景色按钮,在文本框中显示颜色的改变。(3)设置控件的主要属性1)窗体的文本属性为“不同前景色背景色的组合”2)初始前景色为红色、背景色为黄色3)其它属性根据图中显示来设置(4)事件代码dChangedByValsenderAsSystemObjectByValeAsSystemEventArgsHandlesRadioButton、CheckedChangedTextBox1、ForeColor=Color、RedubdChangedByValsenderAsSystemObjectByValeAsSystemEventArgsHandlesRadioButton、CheckedChangedTextBox1、ForeColor=Color、GreenubdChangedByValsenderAsSystemObjectByValeAsSystemEventArgsHandlesRadioButton、CheckedChangedTextBox1、ForeColor=Color、BlackubdChangedByValsenderAsSystemObjectByValeAsSystemEventArgsHandlesRadioButton、CheckedChangedTextBox1、BackColor=Color、WhiteubdChangedByValsenderAsSystemObjectByValeAsSystemEventArgsHandlesRadioButton、CheckedChangedTextBox、BackColor=Color、YellowubPrivateSubForm_Load(ByValsenderAsSystem、Object,ByValeAsSystem、EventArgs)HandlesMyBase、LoadubClass三位整数的反序显示中输入一个三位的整数,单击命令按钮后,在另一个框中按相反顺序显示提示:本题先将每位上的数字分解出来,这要用到整除与计算余数的ublicClassFormuttonClickDimabc,d,yAsSingleaTextBox1、Textba\100cab\10dab0*cTextBoxText=d&c&bubEndClass试验五ublicClassFormuttonClickDimisumAsLongFori=2To100Step2iTextBox1、Text=sumubClass第2题使用循环求解水仙花数的问题要求:(3)单击“开始”按钮后,在文本框中显示求出的结果。ublicClassFormuttonClickDimM,k1,k2,k3AsIntegerTextBoxClear()ForM100To999kM100k2=(M\10)Mod10k3=MMod10fMkkkThen"^3+"+k3、ToString()+"^3"+vbCrLfEndIfubClass编写程序,向一个文本框输入一个整数,单击“开始”按钮后,找出该数的所有因子,并统计因子的个数与总与,结果在另一个文本框中显示,共有三行,其中第一行该数的所有因子,第二行显示该数的因子个数,最后一行显示该数所有因子之与,窗体界面如下:ublicClassFormuttonClickDima,b,c,dAsLongc=0b=1Whileb<=ac+=1gEndIfb=b+1eubClass编写程序,判断某个整数就是否就是素数,在一个文本框中输入一个整数,单击命令按钮后,在该数就是否就是素数,程序代码可以参考例4-10的代码,在此基础上改写。以下就是输入不同整数后的两种不同的结果,窗体结构也参照下图。ublicClassFormuttonClickDimi,jAsIntegerDimflagAsBoolean=TrueWhilej<=i-1flag=FalseEndIfjj1eTextBox2、Text="就是素数"TextBox2、Text="不就是素数"EndIfubuttonClickubEndClass试验六示交换以前与交换以后的结果。Fori=1To10a(i)=InputBox("请输入整数")TextBox1、Text+=a(i)、ToString+""ubClassNextk=0TextBox1、Text+=vbCrLf+"交换后:"Fori=1To10Ifi>5Thenk=a(i)a(i)=a(11-i)a(11-i)=kTextBox1、Text+=a(11-i)、ToString+""Elsek=a(11-i)a(11-i)=a(i)a(i)=kTextBox1、Text+=a(i)、ToString+""EndIfNextPublicClassForm1uttonClickDima0),kAsIntegerFori=1To10a(i)=InputBox("请输入整数")k=0TextBox1、Text+=vbCrLf+"交换后:"Fori=1To10kaia(i)=a(11-i)a11-i)=kTextBox1、Text+=a(11-i)、ToString+""ka1-i)TextBox1、Text+=a(i)、ToString+""EndIfubPrivateSubForm_Load(ByValsenderAsSystem、Object,ByValeAsSystem、EventArgs)HandlesMyBase、Load这10个数中低于平均值的数ublicClassFormuttonClickDima(10),sum,iAsIntegeravAsSingleFori=1To10a(i)=InputBox("请输入整数")avsum0Fori=1To10EndIfubClass文本框中分别显示转换前后的两个矩阵。提示:str="交换前:"+vbCrLfgstr换后:"+vbCrLfNext完整程序:ublicClassFormuttonClickDima(,)AsInteger={{1,2,3,4},{4,5,6,7},{6,7,8,9}}Dimijb(3,2)AsInteger,strAsStringtrvbCrLfFori=0To2Forj=0To3bjiaij)str+vbCrLfFori=0To3Forj=0To2TextBox1、Text=strubClassClass编写程序,找出2~2000之间的所有完全数。完全数就是指某个整数的每个因子之与正好等要求:1)程序窗口界面及控件自行设计。(2)单击“开始”按钮后,在文本框中显示求出的结果。(3)请用进度条提示、ublicClassFormuttonClickDima,b,c,d,iAsIntegerForaTo00Forb=1Toa-1d=aModbEndIfTextBox1、Text+=a、ToString+""EndIfubClass111111提示:123451361415(3)其它元素为其上一行元素与上一行左侧元素之与,即:a(I,j)=a(i-1,j)+a(i-1,j-1)ublicClassFormuttonClickDima10,10)AsIntegerDimi,jAsIntegera(1,1)=1Fori=2To10a(i,1)=1Forj=2ToiFori=1To10Forj=1ToiTextBoxText+=vbCrLfubClass建立一个4行3列的二维数组,找出其中最小的元素所在的行与列,并在文本框中输出该值及ublicClassFormuttonClickDima(,)AsInteger={{45,21,13},{42,15,16},{37,18,29},{39,51,62}}Dimij,m,bAsIntegerDimminAsInteger=100Fori=0To3Forj=0To2mina(i,j)m=i+1:b=j+1EndIfTextBox1、Text+=min、ToString+""+m、ToString+"行"+b、ToString+"列"ubClassClass设计如下的窗体,向第一个文本框中输入一个整数,单击“计算”按钮,在另外一个文本框中显示该整数的阶乘,要求,阶乘的计算在按钮的单击事件中完成。ublicClassFormuttonClickDimab,cAsIntegeroxTextb=1Forc=1ToaStep1b=b*cTextBox2、Text=bubClass设计窗体与第1题相同,向第一个文本框中输入一个整数,单击“计算”按钮,在另外一个文本框SUB参数传递,阶乘在子过程中显示。ublicClassFormuttonClickgerubhByValnAsIntegerDimi,sAsIntegers=1Fori=1TonTextBox2、Text=subClass设计窗体与第1题相同,向第一个文本框中输入一个整数,单击“计算”按钮,在另外一个文本框阶乘,要求采用FUCTION函数过程,整数通过参数传递,阶乘由该过程返回。ublicClassFormuttonClickgerTextBoxText=jch(a)ubFunctionjch(ByValnAsInteger)Dimi,sAsIntegers=1Fori=1TonReturnsonClass第4题找出一维数组元素中的最大值与最小值设计窗体如下图,单击“开始”按钮后,从键盘输入10个整数,输入到一维数组中,输入时采用inputbox函数,见图(2),然后找出这10个数中的最大值与最小值,并在文本框中输出,见图,ublicClassFormuttonClickDima(9),b,c,iAsIntegera=InputBox("输入第一个数")Fori=0To9aiEndIfEndIf+b、ToStringubuttonClickubEndClassublicClassFormuttonClickDiman,s,i,m,bAsIntegerTextBoxTextn=TextBox2、Textb=nFori=1Tonb=b-1TextBox3、Text=subClass第2题计算长方形的面积与周长设计如下的窗体,向前两个文本框中分别输入长与宽,单击“计算”,在另外一个文本框中显示长TIONFunctionarea(ByRefaAsInteger,ByRefbAsInteger)AsLongongmonFunctionccc(ByRefaAsInteger,ByRefbAsInteger)AsIntegergereturnnonuttonClickDimab,cAsIntegerongbTextBox2、TextTextBox3、Text=sTextBox4、Text=cubClass第3题综合题,统计各个分数段的人数设计窗体如下:编程要求:(1)单击“开始”按钮后,显示如下的消息框,向框中输入总的人如果输入的人数小于1,则显示下列的消息框,然后重新输入人数(2)输入人数后,接下来分别输入这些学生的分数,如果输入的分数不在0~100之间,则显示下面的消息框,然后重新输入(3)输入分数时同时统计每个分数段的人数,每个分数段按下列的规定:(4)最后按下图显示统计后的结果:(图中就是输入10个分数后的结果)ublicClassFormuttonClickringgerstr"请输入学生人数"EndIfDimsa),iAsIntegerFori=1Toastr="请输入分数"henEndIfDimyou,liang,zhong,ji,buAsIntegerFori=1Toayou+=1ElseIfsi80Thenliang+=1ElseIfsi70Thenzhong+=1ElseIfsi60Thenji+=1Else:bu+=1EndIfstr"Fori=1Toaingbu、ToStringubuttonClickTextBoxClear()ubuttonClickubClass试验十:第1题计算二维数组每行的最大元素要求如下:(1)程序运行时,显示如下的窗体,窗体中有两个标签、两个文本框与四个命令按钮:(2)单击“显示二维数组”的按钮时,在第一个文本框中显示3行4列的二维数组,其中数组元素要求使用随机函数产生,范围在0~100之间,也就就是每次单击都产生不同的数据,如下所示:(3)单击“计算各行最大值”按钮时,计算二维数组各行的最大值,并在第二个文本框中显示,如下所示:(4)单击“清除”按钮时,清除两个文本框中的内容。(5)单击“退出”按钮,结束程序的执行。编程提示(1)由于两段事件代码都要用到同一个二维数组,因此,可以在过程之外定义如下的数组:(2)“显示二维数组”的按钮参考代码如下:ub(3)“计算各行最大值”按钮参考代码如下:ublicClassFormPublica(2,3)AsIntegeruttonClickDimi,jAsIntegerringstr=""Fori=0To2Forj=0To3ndTextBox1、Text=struttonClickDimij,maxAsIntegerringstr=""Fori=0To2Forj=0To3IfaijmaxThenmaxaij)ingvbCrLfTextBox2、Text=strubuttonClickTextBoxClear()TextBoxClear()ubuttonClickubClass第2题两个一维数组对应元素相加本题的有些方法可参考上一题,要求如下:(1)程序运行时,显示如下的窗体,窗体中有三个标签、三个文本框与四个命令按钮Fori=1To10(2)单击“产生两个一维数组元素”的按钮时,在前两个文本框中分别显示含有10个元素的一维(3)单击“数组相加”按钮时,计算这两个一维数组对应元素的与,即第0个元素与第0个相加,算后在第三个文本框中显示第三个一维数组,(4)单击“清除”按钮时,清除三个文本框中的内容。(5)单击“退出”按钮,结束程序的执行。ublicClassFormPublicc(10)AsIntegerPublica(10)AsIntegerPublicb(10)AsIntegeruttonClickgerDimstr1,str2AsStringRandomize()Fori=1To10IntRndstr1+=a(i)、ToString+""biIntRnd100)str2+=b(i)、ToString+""TextBox1、Text=str1TextBox2、Text=str2ubuttonClickDimi,nAsIntegerringstr=""naib(i)str+=n、ToString+""TextBox3、Text=strubuttonClickTextBoxClear()TextBoxClear()TextBoxClear()ubuttonClickubClass第3题计算二维数组中的最大值及出现的次数(1)程序运行时,显示如下的窗体,窗体中有二个文本框与四个命令按钮(2)单击“显示二维数组”的按钮时,在第一个文本框中显示3行4列的二维数组,其中数组元素要求使用随机函数产生,范围在0~100之间,也就就是每次单击都产生不同的数据(3)单击“计算最大值”按钮时,计算二维数组中的最大值,并统计最大值出现的次数,并在第二个文本框中显示(4)单击“清除”按钮时,清除二个文本框中的内容。(5)单击“退出”按钮,结束程序的执行。ublicClassFormPublica(2,3)AsIntegeruttonClickDimi,jAsIntegerringstr=""oizeFori=0To2Forj=0To3ndTextBox1、Text=strubuttonClickDimbi,j,maxAsIntegermax=a(0,0)b=0Fori=0To2Forj=0To3IfaijmaxThenmaxaij)Fori=0To2Forj=0To3Ifa(i,j)=maxThenb+=1TextBox2、Text="最大值="+max、ToString+vbCrLf+"出现次数="+b、ToStringubuttonClickTextBoxClear()TextBoxClear()ubuttonClickubClass第4题计算一维数组元素的与设计窗体如下图(1),单击“开始”按钮后,从键盘输入10个整数,输入到一维数组中,为返回值在文本框中输出,见图(3),striToString个整数"nextublicClassFormPublica(10)AsIntegerFunctionqiuheByValcAsIntegerAsLonggerFori=1To10ReturnconuttonClickDimi,mAsIntegerringFori=1To10str+i、ToString+"个整数"mTextBox1、Text="与="+m、ToStringubClass第5题计算长方形的面积与周长设计如下的窗体,向前两个文本框中分别输入长与宽,单击“计算”,在另外两个文本框中显示长方形的面积与周长,要求采用SUB函数过程计算面积与周长,长与宽通过参数传递,面积与周长通过引用传递返回。BerS=height*widthL=(height+width)*2EndSub完整程序:ublicClassFormSubarea(ByValheightAsInteger,ByValwidthAsInteger)gergerTextBoxText=l、ToStringubuttonClickDima,bAsIntegerb=TextBox2、TextubEndClass试验十一参考如下的代码,在窗体中绘制不同的图形,绘制时可以采用不同的工具、颜色与线宽。要求:在绘图中应明确下列的问题:(1)不同工具的定义方法(2)所使用的坐标系(3)所绘图形的位置ublicClassFormHandlesMe、PaintDimgAsGraphicse、GraphicsDimpengreenAsPen=NewPen(Color、Green)DimpenyellowAsPenNewPenColorYellow)DimbrushSolidAsSolidBrush=NewSolidBrush(Color、DarkGreen)DimfontMyfavorAsFont=NewFont("幼圆",26,FontStyle、Italic)DimptP1AsPoint=NewPoint(12,12)DimptPAsPoint=NewPoint(50,90)g、DrawLine(penyellow,55,55,224,99)gDrawLinepengreenptP1,ptP2)g、DrawRectangle(pengreen,55,200,100,100)g、DrawEllipse(penyellow,0,0,300,200)g、DrawEllipse(pengreen,300,0,400,300)g、FillEllipse(brushSolid,155,200,100,100)g、DrawEllipse(pengreen,300,0,400,300)ubPrivateSubForm_Load(ByValsenderAsSystem、Object,ByValeAsSystem、EventArgs)HandlesMyBase、LoadubClass束”,“画图”与“输出文字”的下拉菜单内容如下:(2)为“画图”菜单中每一条命令编写事件代码,可参考上一题中的部分结果自行编写。(3)“输出文字”菜单中两个命令的执行结果分别如下:这两部分的代码与“结束”菜单的代码可参考下面的代码:ublicClassFormemClickByValsenderAsSystemObjectByValeAsSystemEventArgsHandles画直线ToolStripMenuItem、ClickDimpenredAsPen=NewPen(Color、Red)g、DrawLine(penred,30,30,120,120)ubemClickByValsenderAsSystemObjectByValeAsSystemEventArgsHandles画矩形ToolStripMenuItem