《可視化程序設(shè)計(jì)》（專升本）期末試卷A卷、單選題（每小題4分，共60分）.下列運(yùn)算符中，運(yùn)算級(jí)別最高的是（B）A+B、*C、\DMod.下列選擇項(xiàng)中（C）不能獲得焦點(diǎn)。A、使用Tab鍵B、用鼠標(biāo)選擇對(duì)象C、設(shè)置GetFocus的值為TrueD使用SetFocus方法.執(zhí)行下面的程序段后，x的值為（A）2x=5Fori=1To20Step2x=x+i\5NextiA21B、22C、23D>24.有如下程序，執(zhí)行程序后單擊Button1按鈕，窗體上顯示的是什么（C）PrivateSubCommand1_Click（）DimaDimbAsIntegera=5/2b=5/2Printa,bEndSubA22B、22.5C、2.52D>2.52.5.如果希望用變量X存放數(shù)據(jù)12345.67890123,應(yīng)將X定義為什么類型？（A）A、數(shù)值B、字符串C、變體D數(shù)值或字符用（視輸入的數(shù)據(jù)而定）.以下說法正確的是（D）A、通用過程可以出現(xiàn)在窗體模塊和標(biāo)準(zhǔn)模塊中B、不同模塊中的通用過程可以重名C、同一標(biāo)準(zhǔn)模塊中的通用過程可以同D不同標(biāo)準(zhǔn)模塊中的通用過程不能同名.下列哪組語句可以將變量A、B的值互換（C）。A、A=BB=AB、A=C:C=BB=AC、A=A+B:B=A-B:A=A-BD>A=（A+B）/2:B=（A-B）/2.將文本框的（A）屬性設(shè)置為True時(shí)，文本框可以輸入或顯示多行文本，且會(huì)在輸入的內(nèi)容超出文本框的寬度時(shí)自動(dòng)換行。A、MultiLineB、ScrollBarsC、TextD>Enabled.在表達(dá)式y(tǒng)=InputBox（a,b,c）中，b為輸入函數(shù)對(duì)話框的（A）。A、標(biāo)題B、提示C、預(yù)設(shè)值D幫助文件名.如果要退出DoLoop循環(huán)，可使用語句（B）。A、ExitB、ExitDoC、ExitForD>ExitSub.VB中，將命令按鈕控件在窗體中失效（不可用）的屬性語句是（C）。---1412B卷16A、defaultB、CancelC、EnabledD、Visible12.在VB中，稱對(duì)象的數(shù)據(jù)為（A）。A、屬性B、方法C、事件D封裝.下面的哪一項(xiàng)不能用來在模塊之間傳遞數(shù)據(jù)（D）。A、全局變量B、對(duì)象屬性C、全局?jǐn)?shù)組D模塊級(jí)變量.令A(yù)、BC都是整型變量，A=3,B=4,C=5,下列表達(dá)式結(jié)果為TRUE勺是（。A、（A+B）C-1>0B、B+C*AB*B=B+C*A\B*BC、（A-C）*Sqr（B）+B=0D>AA2+BA2-CA2<0.下列哪個(gè)語句定義了包含8個(gè)元素的單精度數(shù)組（C）A、Dima（2,4）AsSingle3CB、Dima（1to8）!C、Dima!⑺D>Dima（1to2,3to6）AsLong二、填空題(每空2分，共20分).下面的程序段的運(yùn)行結(jié)果為_(_b)。charstr[]="job",*p=str;cout<<*(p+2)<<endl;.已知宏定義：#defineN3#defineY(n)((N+1)*n)執(zhí)行語句z=2*(N+Y(5+1));后，變量z的值是(48)。3,下列函數(shù)功能是將數(shù)字a中的n個(gè)元素逆序存放，填空使程序完整。voidinvert(inta[],intn){inti=0,j=n-1;while(i<j){intt;_(t=a[i])a[i]=a[j];a[j]=t;i++;j--;}}答案：t=a[i];.下列函數(shù)是判斷s所指的字符串是否是“回文”(即順讀和逆讀都是相同的字符串),若是“回文”，函數(shù)返回1,否則返回0,填空，使程序完整。voidfun(chars[]){int1=0,j;j=strlen(s);while(i<j){i++;j--;}}答案：if(s[i]==s[j-1])return0;.下面程序輸出兩個(gè)字符串中相同的字符，請(qǐng)?zhí)羁昭a(bǔ)充程序中的語句。#include<iostream.h>voidmain(){char*p="KSEiemP5R",*q="KsEnbMP8Q";while{_ifcout<<*p;p++;q++;}cout<<endl;}答案：*p!='\0'&&*q!='\0'(或(*p&&*q),*p==*q.編一程序，求滿足如下條件的最大的n：12+22+32--+n2<100(l#include<iostream.h>voidmain(){intsum,n;sum=0;for(n=1;;n++){sum+=n*n;if(sum>1000);}cout<<"1*1+2*2+3*3+...<1000的最大的n值為："<<,<<endl;}答案：break,n-1三、簡答題(每小題5分，共20分)1.下面程序的功能是什么？---1401批次C卷3PrivateSubCommand1_Click()Dima%,s%,n%a=Val(InputBox("Pleaseinputanumber:"))DoWhile(a>0)s=aMod10a=a/10n=n+func(s)LoopPrintnEndSubPrivateFunctionfunc(x%)AsIntegerfunc=x*xEndFunction答：求一個(gè)數(shù)各位上的數(shù)的平方和。.下面程序的功能是什么？---1504C卷1PrivateSubCommand1_Click()Dims%,n%DimaAsStringn=0a=InputBox("Pleaseinputanumber:")Fors=1ToLen(a)If(func(Val(Mid(a,s,1))))Thenn=n+1NextPrintnEndSubPrivateFunctionfunc(x%)AsBooleanIf(xMod2=0)Thenfunc=TrueElsefunc=FalseEndIfEndFunction答：判斷一個(gè)數(shù)各位上的偶數(shù)個(gè)數(shù).寫出下列事件過程的執(zhí)行結(jié)果。PrivateSubCommand1_Click()Dims%s=f(5)Print"s=";sEndSubPrivateFunctionf(ByValnAsInteger)Ifn=1Thenf=1Elsef=n+f(n-1)EndIfEndFunction答：s=15.寫出下列事件過程的執(zhí)行結(jié)果。PublicxAsIntegerPrivate