计算机模拟题1

二．填空1.窗体是用来存放_____的容器，窗体的left和top属性是相对_____对象的。2.对象的标题文字的颜色是由_____属性决定的。3.语句PrintNot1015And85+2的输出结果为_____。4.用Dimc(2to5)AsInteger语句定义的数组占用_____个字节的内存空间。5.要编写一个VisualBasic程序，该程序通过单选按钮来设置文本框中字体的颜色。程序中用到的控件及其属性清单如表7-1所示。表7-1控件名称（Name）标题（Caption）文本（Text）文本框Text1无“计算机等级考试”单选按钮1Option1“红色”无单选按钮2Option2“绿色”无单选按钮3Option3“蓝色”无已知红、绿、蓝三种颜色分别用”vbRed”、”vbGreen”、”vbBlue”表示。请在空白处填入适当的内容，将程序补充完整。PrivateSubOption1_Click()_____EndSubPrivateSubOption2_Click()_____EndSubPrivateSubOption3_Click()_____EndSub6.程序说明】单击窗体后输出6～100之间所有整数的质数因子。PrivateSubpp(_____kAsInteger)DimiAsIntegeri=2Whilek1If_____=0ThenPrinti;_____Elsei=i+1EndIfWendPrintEndSubPrivateSubForm_Click()Fori=6To100:_____:NextiEndSub有问题7.【程序说明】窗体上已建立命令按钮Command1（开始）、Command2（结束）和文本框Text1，Text1中输入字符个数不得超过100个。开始运行时，“结束”命令按钮不能响应；按“开始”命令按钮后，将文本框中的字符按其ASCII码值由小到大顺序从左到右重新排列，并在窗体上输出重新排列后的字符串，同时“结束”命令按钮能响应，“开始”按钮不能响应。PrivateSubCommand1_Click()DimnAsByte,iAsByte,jAsByte,pAsByteDima(100)AsString*1,str1AsString,tAsStringstr1=Text1.Text:n=Len(str1)Fori=1Ton:_____:NextiFori=1Ton-1p=iForj=i+1TonIfa(p)a(j)Then_____NextjIfpiThent=a(i):_____:a(p)=tNextiFori=1Ton:Printa(i);:Nexti_____Command1.Enabled=FalseEndSub8.读文件的_____语句从文件的当前位置起至换行符前的所有字符读入到字符串变量。9.若控件Picture1中要显示C:盘Windows目录下的Cloud.bmp图片，则它的方法是_____。10.请写出在Text1、Text2中输入96、40后，单击Command1时窗体上的显示结果_____。PrivateSubCommand1_Click()DimaAsLong,bAsLong,rAsLonga=Val(Text1.Text):b=Val(Text2.Text)DoWhileb0r=aModb:a=b:b=rLoopPrintaEndSub答案:1.控件screen屏幕2.forecolor3.False4.85.Text1.ForeColor=vbRedText1.ForeColor=vbGreenText1.ForeColor=vbBlue6.空1byevalByeVal【空2】kmodikModI【空3】k=k\i【空4】callpp(i)7.【空1】False【空2】Date【空3CommonDialog1.Color【空4】m18.【空1】LineInput9.【空1】Picture1.Picture=LodePicture(C:\Windows\Cloud.bmp)10.【空1】8五【程序设计】'-------------------------------------------------'题目：编写函数fun，函数的功能是：当x的初值为10，'每年增长率为百分之一，计算多少年以后x的值能达到y，'并显示所需年数的值（变量名必须为n）。'要求使用Do...LoopUntil语句来实现。'-------------------------------------------------'注意：请在指定的事件内编写代码'代码只能写在两行标识之间'不得修改已有代码'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。【参考代码】x=10n=0Dox=x*1.01n=n+1LoopUntilx=yfun=n'------------------------------------------------'六【程序改错】'------------------------------------------------'1.题目：在下面的程序段中过程pd可以判断任意三个数能'否构成三角形的三边，利用该过程的判定结果，'对能构成三角形的计算其面积，构不成的显示'不能构成三角形【改错1】【参考答案】Dimx%,y%,z%,s!,bAsBoolean,hAsSingleDimx%,y%,z%,sasSingle,bAsBoolean,hAsSing、【改错2】【参考答案】Ifb=notfalsethenifb=truethen【改错3】【参考答案】PublicFunctionpd(x%,y%,z%)AsBooleanPublicFunctionpd(x,y,z)AsBooleanPublicFunctionpd(xasInteger,yasInteger,zasInteger)AsBoolea2.'【程序改错】'------------------------------------------------'题目：下面程序可输出如下图形：'*'***'*****'*******'*********'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimmAsInteger,nAsInteger,sAsString,iAsInteger,jAsIntegern=4m=1s=*Fori=5To1Step-1'**********ERROR**********PrintSpc(n)Forj=1To2*m-1Prints;NextjPrint'**********ERROR**********n=n+1'**********ERROR**********m=m-1Nexti【改错1】【参考答案】PrintSpc(n);PrintSpc(i);?Spc(n);?Spc(i)【改错2】【参考答案】n=n-1【改错3】【参考答案】m=m+15.'------------------------------------------------'【程序改错】'------------------------------------------------'题目：以下程序段用于输出100-300的所有素数'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimnAsInteger,kAsInteger,iAsInteger,switAsIntegerForn=101To300Step2k=Int(Sqr(n))i=2'**********ERROR**********swit=1'**********ERROR**********Whileswit=0IfnModi=0Thenswit=1Else'**********ERROR**********i=i-1EndIfWendIfswit=0ThenPrintn;EndIfNextnEndSub【改错1】错误【学生答案】swit=1【参考答案】swit=0============================================================【改错2】0【参考答案】whilei=kandswit=0whilek=iAndswit=0【参考答案】i=i+1============================================================七．程序填空1.下面的程序实现：从键盘输入一个数字，将其插入一个有序数组中，插入后的数组仍保持有序。PrivateSubForm_Click()Dima(10)AsInteger,xAsIntegerFori=1To8a(i)=2*i-1Printa(i);NextiPrintx=InputBox(请输入要插入的整数)'**********FILL**********_____i=8DoWhilea(i)x'**********FILL**********_____i=i-1Loop'**********FILL**********Ifi0Then_____Fori=1To9Printa(i);Nexti【空1【参考答案】a(0)=x【空2】【参考答案】a(i+1)=a(i)a(1+i)=a(i)【空3】【参考答案】a(i+1)=xa(1+i)=x5'------------------------------------------------'【程序改错】'------------------------------------------------'题目：以下程序段用于输出100-300的所有素数'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimnAsInteger,kAsInteger,iAsInteger,switAsIntegerForn=101To300Step2k=Int(Sqr(n))i=2'**********ERROR**********swit=1'**********ERROR**********Whileswit=0IfnModi=0Thenswit=1Else'**********ERROR**********i=i-1EndIfWendIfswit=0ThenPrintn;EndIfNextnEndSub【改错1】错误【学生答案】swit=1【参考答案】swit=0============================================================【改错2】错误【学生答案】Whileswit=0【参考答案】whilei=kandswit=0whilek=iAndswit=0============================================================【改错3】错误【学生答案】i=i-1【参考答案】i=i+1八.窗体设计题目：请按照题目要求设计指定的窗体。建立如(图1)所示界面。------------------------------------------------1、窗体设置1）名称设置为ColorPicker。2）标题内容为调色板。3）隐藏控件菜单栏。4）边框样式设置为1。5）窗体启动位置设置为2。2、在窗体的左侧添加图片框（PictureBox）1）名称设置为picYanSe。2）背景色设置为&H000000FF&。3、在图片框的右侧添加如下3个标签（Label），3个标签都为自动调整大小1）名称设置为lbl