大一下vbtest3.2阅读程序写出运行结果

VBTOC\o"1-2"\h\z\u综合练习 选择 填充 综合练习 选择 填空 选择 填空 综合练习 选择 答 综合练习 选择 程序填 答 综合练习 选择 填空 答 VisualBasic是用于开 环境下的应用程序的工具 C．DOS和 VisualBasic程序设计时常用的Print、move属于 一个可执行的VisualBasic的应用程序至少要包括一 Ａ．标准模 Ｂ．类模 Ｃ．窗体模 Ｄ．前面三种模在VisualBasic中最基本的对象 Ａ．Ｂ．窗 Ｃ．文本 Ｄ．命令按N_studentInputBox("请输入你的学号：程序示例数学表达式ln(exy+|arctan(x)|+cos2y)对应的VisualBasic算术表达 执行语句:PrintFormat(1234.567,"##,##0.00"),正确的输出结果 B.C. D.下列语句中的2 语句可以用来正确地一个动态数组。A．PrivateB(m)asInteger B．DimB()asIntegerC．DimB(,)asInteger D．DimB(1tom) B．C．&D．# VisualBasic程序是按行书写的。一个语句可写在一行上；也可以通过在行的末尾加上“续行标志”(_：一个空格加一个下划线字符)，而分写在多行上；另外，假定变量LOGIC类型是BOOLEAN,下面赋值语句 A．LOGIC='TRUE' C．LOGIC=#TRUE# 在VisualBasic中文件的类型 当你启动VisualBasic时在工具箱中所得到的全部工具都 可 B．固C．添 B.C. D.控件 确定了当一个发生时执行代码 C．子程 C．拖动鼠 DCtrl B．Name、 17 Click。 选项按钮、B．复选框、 B．2C．3 D．多执行下面程序,第一行打印结果5，第二行打印结果30PrivateSubDimxAsIntegeryAsInteger注意不是“4，30”x=1:y=0DoWhiley<=25y=y+x*xx=x+1PrintxPrintEnd ：PrivateSubproc1(ByvalaAsInteger,ByvalbAs ；第二行结果是： PrivateSub DimxAsInteger,yAs x= y= Callproc1(x, Printx,yEndSubPrivateSubproc1(aAsInteger,bAs a=x+b=x–yPrintEnd111213 1121 1323 （111213PrivateSubDimiAsInteger,jAsIntegerDimmAsInteger,nAsIntegerDima()AsIntegerCalln=UBound(a,1):m=UBound(a,2)Fori=1TomForj=1TonPrinta(j,NextNextiEndSubPrivateSubArry(b()AsDimiAsInteger,jAsInteger,kAsIntegerReDimb(2,3)Fori=1ToForj=1Tob(i,j)=i*10+jNextjNextiEndSub PrivateSubi取值ch值都会变Dimi取值ch值都会变Fori=1Toch=Mid(ch,2*i-1,1)+Left(ch,Len(ch))PrintchNextEnd x=32Br=4 Dima(10)AsPrivateSubconv(dAsInteger,rAsInteger,iAsInteger)i=0DoWhiled<>0 i=i+1a(i)=dModr:d=d\rEndPrivateSub11:122==11012::324==2011:122==11012::324==20r= BPrintx;r;"==";Ifx=0ThenPrint0Callconv(x,r,Fork=nTo1Step-1:Printa(k);:NextkEndIfEnd （15）Cmd1（错的（16）PrivateSubEndPrivateSubDimxAsInteger,yAsInteger,sumAsIntegerx=1:y=2Call EndSubPrivateSubaddition(nAsInteger,mAsInteger,sumAsInteger)sum=n+mEnda,b(a<b);(1)a+b=99,(2)a,b3的倍数。并统计DimaasInteger,basInteger,casInteger,nasPrivateFunction(ByValaAsInteger,ByValbAsInteger)AsIntegerDimcAsInteger c=aModb:a=b:b=cLoop（19） =aEndFunctionPrivateSubn=Fora=1Tob=99- c=(a,IfcMod3=0 a,b,cEndIfNexta EndvbCrLfVisualBasic 空空PrivateSubcmdExit_Click()UnloadMeEndPrivateSubDimiAsInteger,n1AsInteger,n2AsInteger,n3AsIntegerDimsasStringFori=1ToSelectCase Case"A"To"z"n1=n1+ （23）"0"To"9"n2=n2+1）Caseelsen3=n3+1EndSelectNextis字母个数：Str(n1)ss数字个数：Str(n2)vbCrLfs=s+"其他字符个数："+Str(n3)End图8-1的窗体上，文本框对象txtInput的MultiLine属性取值 (26)。例一数组如下： 各元素的值从文件DATA.TXT中。PrivateSubDima(3,3)AsInteger,iAsInteger,jAsIntegerDimmaxvrAsInteger,colAsInteger,AsIntegerOpen"Data.txt"ForInputAs#1Fori=1ToForj=1ToInput#1,a(i,j)Printa(i,j);NextjNextiFori=1Tomaxvr a( col=Forj=2ToIfmaxvr<a(i,j)maxvr= （28）a(i,j)col=jEndIfNextjForj=1ToexitIfmaxvr>a(j,col)exitIfj>3Print"a(";i;",";col;")=";a(i,col)=1EndIfNextiIf（30） ThenPrint无鞍点元素不存在End2. 3. 4. 5. 6. 7. 8 9. 10.11. 12. 13. 14.A15. 16. 17. 18. 19. 20. 2== 4== （16）（19）Untilc=（20）b=99-（21）n=n+"0"ToCaseExit（30） A.、方 B.方法 C.属性、方 D.过程、在窗体Form1的Click过程中有以下语句Label1.Caption="Visual若本语句执行前，控件的Caption属性取缺省值，则该控件的名称属性和Caption属性在执 A.Label，Label B.Label，Caption C.Label1，Label1 D.Caption，Label3．同上题，该语句执行后，控件的名称属性和Caption属性取值分别为 A.Label，Visual B.Label1，VisualC.Label1，Caption D.Label，Label1 只能使用CallSub语句来使用。Sub(1)Function(1)FunctionFunctionCall在使用VisualBasic进行图形操作时，有关坐标系的说明中错误的 VisualBasicPrintVisualBasic坐标系的Y0 Myv1&=5*x%\3+x%ModMyv2%=5*x%\3+x%ModMyv3&="5*X%\3+X%ModMyv4$=5*x%\3+x%Mod为True的是 Instr([n,]x,"字符xnx中的位置，n1xASCIIxASCII代码值(十进制数Mid(Mys1,8,1)>Len(Mys1)<>2*Instr(Mys1,Chr(66)&Right(Mys1,4)=Instr(Left(Mys1,6),"a")+60>Asc(Ucase在窗体单击中执行下面语句的正确结果 PrintFormat(1732.46,A. B. C.+ （错 Open"Text.Dat"ForOutputAs#的功能说明中错误的 以顺序输出模式打开文件1)1)OpenFOROutputAS2)2)OpenFORAppendAS# ReDimDimDim11.AB.CD A方 B属CDC A BC D控件 确定了当一个发生时执行代码AA D控件 使用户能够移动控件并调节其大小A拖曳 B标题C工具 D工程资源管理 AAltBCDCtrl 的Click。A BC DCommand1.Caption= A BC D同上题，该语句执行后，控件的名称属性和Caption属性取值分别 ACommand，Visual BC D 被踢进球门，则白色,,踢,进球门 A属性,对象,方法 B属性,对象,,方C对象,属性,方法,D对象,属性,,方运行下面的程序，单击窗体后在窗体上显示的内容是（1）33 ；若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是（2）35 PrivateSubForm_Click()Dimx,yAsIntegerx=1:y=0DoWhilex<y=y 'Ax=x 'BPrintx,yEnd 第三行结果是。PrivateSubDimMystr,Mystr1,Mystr2AsStringMystr1="B"Fori=1Mystr2=LCase(Mystr1)Mystr1=Mystr1&Mystr2Mystr=Mystr&Mystr1PrintMystrMystr0Mystr1=Chr(Asc(Mystr1)+i)NextiEndSub运行下面的程序，当单击窗体时，窗体上显示的内容的第一行 （5）23。；第二行1（6）47 。Array函数创建的数组的下界从０开始，若使用了OptionBase11PrivateSubTest(xAs x=x*2+ Ifx<6 Call End x=x*2+ Form1.PrintxEndSubPrivateSub EndSub容是5102.5；若将说明语句B注释掉，而使说明语句A有效（删去语句前的注释号执行本程序，分别单击命令按钮Command1和Command2，在窗体上显示的输出内容是5102 PublicxAsIntegerSubMain()x=5Form1.Printx;End'DimyAsInteger PrivateSubCommand1_Click()DimyAsInteger y=x*2Printy;EndSubPrivateSubCommand2_Click()y=x/2Printy;EndSub内容是（9），第二行内容是（10）；若将形参表中的ByVal关键字删除，再执行本程序，单击窗体后在窗体上显示的第第一行内容是（11），第二行内容是（12）。PrivateSubvalue(ByValmAsInteger,ByValnAsm=m*n=n- PrivateSubDimxAsInteger,yAsIntegerx=10:y=15Callvalue(x,Print"x=";x,"y=";yEndSub PrivateSubDimpasswordAsStringIfpassword="Myname"Unloadd=MsgBox("（14）口令 !",vbOKOnly,"企业资源管理 EndIfEndSubPrivateSub（15）End图6-1的窗体中，文本框对象的名称属性是（16）Text1 (不是Text.Text) 性取值是（17）*：命令按钮Command1的Default属性取值是（18）True dNN个连续的奇数之和。其中最大的奇数P=N（N+1）-143=19+17+15+13197-1是本程序的运行界面。DimnAsIntegerPrivateSubDimnumAsLong,pAsInteger,xAsn= num=n*n*Text2.Text= （20）strnumnum转为字符串)p=n*(n+1)-1x=x&Str(p)&"+"Fori=1Ton-2x=x&Str(p)&Nextp=p-x= （22）x& Text3.Text=xMsgBox数据错误！48,"VB试题EndIfEndSubPrivateSubIfText1.Text<>""ThenText1.Text=""IfText2.Text<>""ThenText2.Text=""IfText3.Text<>""ThenText3.Text=EndPrivateSubCmd3_Click()End图7-1的窗体中命令按“验证“清除的名称属性分别是 和（24 8-1OptionExplicitDimxAsIntegerPrivateFunctioncovert(xAsInteger)AsString DimrAsInteger,i,nAsInteger,cov,cAsStringr=xModDoWhile （25）x>=1cov=cov&Str(r)（26）x=x\2 r=xMod2Fori=（27）Len(cov)To1Step-1c=c&Mid(cov,i,1)Nexticovert=cEndPrivateSubCommand4_Click()EndPrivateSubIfText2.Text<>""ThenText2.Text=""x= Text2.Text=covert(x)EndPrivateSubIfText2.Text<>""ThenText2.Text=""x=Val(Text1.Text)EndSubPrivateSubIfText2.Text<>""ThenText2.Text=""x=Val(Text1.Text)EndSubPrivateSubCmd4_Click()End8-1Text2Alignment1-Right（29）MultiLineTrue2. 3. 4. 5.A6. 7. 8 9. 10. 12. 13.A14. 15.A16. 17. 18. 19. 20.35 2（9）m=n=（10）x=y=（11）m=n=（12）m=n=Unload口令！",vbOKOnly,"企业资源管*（21）p=p–（22）x&（25）x>=（26）x=x\11．VB是 B．Win A．和方 C．和属 在代码FrmForm1.Caption="Form1"FrmForm1Caption和"Form1"分别为对象的 D．方法、和属性有一个过程SUB1要被多个窗体模块，这过程应存放 窗体模 End语句会中 含有该语句的窗 6???．以下变量名不合法的是 变量变量 名规则是在 以下日期型常量合法的 Print"2*5"的输出结果 窗体上有多个控件，在Form_Activate()过程中添加 在程序中将变量INTA、BI、ST、D分别定义为整型、布尔型、字符串型和日期型，下列 C．ST=5& xlnae2txlna

对应的VB表达式 Public说明的变量才是全局变量块的通用部分；StaticDim的通用部分使用)，也可用于说明过程级的变量(在过程内使用)70False（0）。Public在标准模块的通 窗体的通 B．在过程中不能用PRIVATE定义数组CReDim Integer说明变量K，在过程SUB1中DimKasInteger说明同名变量K，在过程SUB1中要全局变量K，可 _ 名为sort的Sub子过程的形式参数为一数组，以下定义语句中正确的 PrivateSubsort（a（）asPrivateSubsort（a（10）asPrivateSubsort（a（10PrivateSubsort（ByvalA（）asinteger） C．通过设置，指定标准Main()为启动窗体。1)3)在“启动对象”(StastupObject)2)1)从“工程”(project)菜单中，选择“工程属性”(projectPropesties)体构成。在缺省情况下，VisualBasic2)3)4)SubMain语句ForI=N1TON2STEPN3，在该循环体内有下列四条语句，其中(18) Alt

在磁盘C上并不存在文件C:\DATA1.DAT下列语句中会产生错误的 DimiAsInteger,jAs DimaAsInteger,bAs a=5:b= Fori=1Toa+bStep i=i+ a=a+ b=b+ k=k+ Next Print Printb,EndPrivateSubForm_Click()DimiAsInteger,jAsIntegerDima(3,3)AsIntegerFori=1ToForj=1ToIfi<=jThena(i,j)=i+a(i,a(i,j)=i- 3End 2Next 1NextFori=3To1Step- 6Forj=3To1Step-1Printa(i,j);Next

。 1，第三行为_43。 1NextiEnd PrivateSub DimaAsInteger,bAsInteger,c Callsub1(a,b,c)Printa,b,cCallsub1(a,a+b+c,b)Printa,b,cCallsub1(a+b,b/a,a)Printa,b,cEndPrivateSubsub1(ByValxAsInteger,ByValyAsInteger,zAsInteger)z=x+y+zEnd保留A语句，去掉B语句，执行程序，输出为 ⑻288 ⑼784 PrivateSubDimaAsInteger,bAs 'a6:b 'A a5:b= 'B Printf1(a,b)EndSubPrivateFunctionf1(xAsInteger,yAsInteger)AsIfx=1 f1= IfxMod2<>0 f1=(f1(x-1,y+1))^ f1=f1(x\2,y+2)* End EndIfEnd 6PrivateSubForm_Click()6DimiAsInteger,jAsIntegerDimaAsInteger,kAsIntegeri=1:j=1DoWhilea<=10a=i*jk=k+Ifa>5ThenExiti=i+j=a+iPrinta,kPrinti,jEnd

⑿ 出 PrivateSubForm_Click()DimchAsString,sAsStringDimiAsInteger,jAsIntegerch="ABCDEFGHIJ":j=1Fori=1ToLen(ch)Step2j=j+iIfjMod2=0s=s+Mid(ch,j,s=s+Chr(Asc(Mid(ch,i,1))+32)EndIfPrintsNextiEnd0Aa ⒂22 PrivateSubDimxAsStringx="12"test(x)PrintEndPrivateSubtest(aAsInteger)DimiAsIntegerFori=3To1Step-If(a\2)Mod2=0Thena=a+10a=a*2EndIfPrintaNextiEndSub 421 。如果将SU3中参数前的 421 一行输出 PrivateSubDimaAsInteger,bAsDimiAsInteger,jAsIntegera=5:b=4Callsub3(a,b)Printa,bEnd

PrivateSubsub3(ByValxAsInteger,ByValyAsInteger)DimiAsIntegerFori=1To3x=x+yy=y+iNextiPrintx,yEndA10个二位数随机数，后将其按升序排列。排序时先找最小数的位置，然后交在调用Rnd之前，可先使用无参数的Randomize。PrivateSubDima(10AsIntegeriAsIntegerjAsIntegerPrint"排序前："Fori=1To Printa(i);NextiPrint排序后："Callsort(a)Fori=1To10Printa(i);NextiEndPrivateSubsort(a()AsDimiAsInteger,jAsInteger,tempAsIntegerDimkAsInteger,xAsIntegerFori=1To10_(错的)_ Forj=i+1ToIfa(k)>a(j)Then ⑶_a(j)=a(i)答案：K=J Nextjtemp=a(i)a(i)=a(k)a(k)=tempNextIEnd10个随机正整数中偶数和奇数的个数，求出偶数和奇数的各自总和，并在框(Picturebox)内显示，框的名称属性为Picture1。OptionPrivateSubDimxAsInteger,s1AsInteger,s2AsIntegerDimn1AsInteger,n2AsInteger,iAsIntegerFori=1Tox=Int(Rnd*90)+If_⑷_xMod_2<>0Thenn1=n1+1s1=s1+x s2=s2+xEndIfNext "偶数和=";s2;"偶数个数=";n2,"奇数和=";s1,"奇数个数EndPrivateSubDimsAsString,iAsInteger,chAsDimx1AsInteger,x2AsInteger,x3AsIntegerOpen"data.txt"ForInputAs#10flen=s Fori=1Toch= Mid(s,i,1)⑻ Ifch>="A"Andch<="Z"Thenx1=x1+1x3=x3+ElseIfch>=”a”_Andch<=”z”_⑼_Thenx2=x2+1x3=x3+EndIfNextiPrint大写字母占x1x3*100,小写字母占x2x3*100EndSub4．C盘根下有文件Data.txt的内容是：2，4，6，8，10，1，3，5，7，9。下面程序的功能是将10（实现方法是：通过将前半部分数据适当后移，第一次调整后的数列是1，2，4，6，8，10，3，1，2，3，468，10，57，9OptionExplicitPrivateSubDima()AsInteger,iAsInteger,jAsIntegerOpen"c:\data.txt"ForInputAs#12DoWhile ⑽Not y意思是一直执行到文件末 j=j+ReDimPreservea(j)Input#12,a(j)Callinsert(a)Close#12Open"d:\data.txt"ForOutputAs#10Fori=1To10Print#10,a(i);NextiClose#10EndSubPrivateSubinsert(a()AsDimiAsInteger,putpAsInteger,jAsIntegerDimgetpAsInteger,nAsInteger,temAsIntegern=UBound(a)/2putp=1:getp=n+1Fori=1Tontem=Forj=getpToputp+1Step-Iftem<a(j-1) Nextja(putp)=temgetp= putp=putp+2NextiEnd数组的内容，应在语句中使用关键字BABCCCCBBAADBADDCAB926124325856223B12934 56789Ch>=”a”andNot .vbp工程

一个对象所能执行的动作与可被对象识别的动作分别称为对象的2) 方法

过程、 如果要在命令按扭上显示图形文件，应设置命令按扭的（3） Stytle和Graphic Stytle和Picture

以下不合法的常量是（4 下列（5） “你好 “下列叙述中不正确的是（6 变量名的长度不超过255个字 变量名可包含小数点或者内嵌的类 字 eex0x 在一个语句行内写多条语句时，语句之间应该用（8x

如果将布尔常量值True赋值给一个整型变量，则整型变量的值为（9 则所有的非0则所有的非0True Ture值将为-1False 任何控件都具有（10） 以下关于Name属性的说法，正确的是（11 Name

Name Name “Form1.frm” 要清除已经在框Picture1中打印的字符串而不清除其中的图象，应使用语句（12 Picture1.Picture=LoadPicture(““) Picture1.print““ Picture1.Picture=“列表框的最后一项应使用（13

下面（14）。 下面的过程定义语句中合法的是 SubProc1(ByValn()) SubProc1(n)AsInteger

使用PublicConst语句一个全局的符号常量时，该语句应放在（16 窗体模块的通用 标准模块的通用 窗体模块或标准模块的通用 在用菜单编辑器设计菜单时，必须输入的项是（17

运行程序产生死循环时，按（18） 以下说法不正确的是（19

Vb Vb允许使用说明的变量，其类型都是Variant类 Cls 过程既可建在窗体模块中，也可建在标准模块中，只是在窗体模块 PublicSubSort(IAsInteger)I是一个按（20） 以下程序段在窗体上输出（21在框中输出（22，在立即窗口中输出（23）PrivateSubForm_Click()a=b=c=PrintRight(a,Picture1.PrintMid(b,2,Debug.PrintLeft(c,2)EndSubx字符串的长度(字符个数xnxnxn1n2 PrivateSubForm_Click()a=Ifa>60Theni=1Ifa>70Theni=2Ifa>80Theni=3Ifa>90Theni=4Print"I=";iEnd PrivateSubForm_Click()a=Fori=6To2Step-2x=Mid(a,i,1)y=Left(a,z=Right(a,i)z=x&y&PrintzEnd PrivateSubForm_Click()i=a=5i=i+1a=a+LoopUntili>=7Print"i=";iPrint"a=";aEndSub PrivateSubForm_Click() a=b=Fori=-1To-2Step-Forj=1Tob=b+a=a+Printa;bEndSub 下列程序段的执行结果为（PrivateSub Dima(5)As Fori=1To a(i)=i* Printa(i-1)EndSub PrivateSubFormClick()Dimm(10)AsInteger,n(10)Asi=Fort=1To m(t)= n(i)=2*i+Printn(i);m(i)EndSub 下列程序段的执行结果为（30）PrivateSubForm_Click() Dima(4)As a(1)=Fork=0Ton–Forl=1Tok+1x=k+2-la(x)=a(x)+a(x-Ifk<n-1ThenExitForPrinta(x);EndSub 下列程序段的结果为PrivateSubDimm(5,5)AsInteger,s(5)AsIntegerFori=1To5 Forj=1Tom(i,j)=i+s(i)=s(i)+m(i,Fori=1To5Prints(i);End 单击一次命令按扭后，下列程序代码的执行结果为（32，如果去掉StaticSUMas Integer语句，则单击一次命令按扭的执行结果为（33）PrivateFunctionp(NAsInteger)StaticSUMAsIntegerFori=1ToSUM=SUM+p=EndPrivateSubCommand1_Click()s=p(1)+p(2)+p(3)+PrintEnd （34关键字，那么单击窗体时，程序代码的执行结果为PrivateSubproc1(xAsInteger,yAsInteger,zAsInteger)x=3*zy=2*z=x+yPrintx;y;zEndPrivateSubDimxAsInteger,yAsInteger,zAsIntegerx=1y=z=Callproc1(x,x,z)Callproc1(x,y,End 下面的过程随机产生一个三位正整数然后逆序输出并将产生的数与逆序数显示在一行上。例如，产生345，输出345 PrivateSubDimaAsInteger,sAsInteger,bAsIntegera= printa;( EndSub Form=1ToForf=1ToForb=2To36Step2 (40) Printm,f,bEndEndSub

PrivateSubForm_Click()T=m=sum=0 m=m+2loopwhile Print"Sum=";sumEndSub ACommand1时使矩阵的两条对角线10。PrivateSubCommand1_Click()DimA(4,4)AsIntegerFori=1ToForj=1To )= )= )=Fori=1ToForj=1ToPrintA(i,EndSub Y3xx后Y中的数据仍按降序排PrivateSubDimy(4)AsInteger,iAsIntegery(1)=33:y(2)=22:y(3)=11Fori=1To3Ifx>y(i)ThenExitForNexti )Forj=4Toi+1Step-1y(j)=y(j-1)NextjEndIf Fori=1To4 )&Str(y(i))&"EndSub FunctionOddOddTrueFalse。FunctionOdd(ByValnAsInteger)AsBooleanif( )thenOdd=Odd=EndIfEndFunctionPrivateSubDimxAsInteger Printx,Odd(x)EndSub 2100PrivateFunctionIsp(mAsInteger)AsBooleanDimiAsInteger Fori=2Toif )thenisp=False:exitEndPrivateSubDimiAsIntegerp1=Isp(3)Fori=5To100Step2p2=Isp(i)if( )thenprinti-2,i End一、选择题（1.530分123456789BBBADCBDBCBAADDCDCDA二、根据程序写结果（230分2411126669664三、程序填空（240分Val(Right(s,1)&mid(s,2,1)& m*4+f*3+b/2=mti<y(i)=Nmod2MmodIP1And在VisualBasic中最基本的对象

D.应用程序窗体的Name属性为Frm1，窗体上有一个命令按纽，其Name属性为Cmd1，窗体和命令按纽的Click过程名分别为 Form_Click Command1_ClickFrm1_Click Commamd1_ClickForm_Click Cmd1_ClickFrm1_Click Cmd1_Click A. B. C. D.下列表达式中，值为True的 14/2\3<10MODNot(Sqr(4)-3>=-下 说法是不正确的CloseUnlockxlnxlna

xy)

对应VisualBasic表达式 Sqr((x+log(x))/(a+b))+exp(-t)+sin((x+y)Sqr(x+log(x)/(a+b))+exp(-t)+sin((x+y)Sqr(（x+ln(x)）/(a+b))+exp(-t)+sin((x+y)Sqr(（x+log(x)）/(a+b))+exp(-t)+sin(x+y在程序中可以通过复选框和单选按纽 属性值来判断它们的当前状态A. B. C. D. &

@在多窗体程序中，可以在标准模块或某个窗体模块的通用处，分别用 有窗体模块都可以的变量IntA。PrivateIntAas PublicIntAasPublicIntAas PrivateIntAasPublicIntAas PublicIntAasPrivateIntAas PrivateIntAas在应用程序中用PrivateFunctionFun(Xas Yasinteger)定义了函数Fun。调用函数Fun过程中的变量I，J均定义为Integer型，能正确函数Fun的 (1)Fun(I,J (2)CallFun(I,(3)Fun(3.14 (4)Fun(“245”,(1)、（3（11若使用Lable控件实现滚动字幕，且背景为透明，应将

A.- B.-5.6291E- C.-56.291E- D.-5.6291E-VB的文件管理控件分别为：驱动器列表框 列表框

A.按 B.按地 C. D.按形当移动控件，重新设定其位置时， Enabled、

Cancel、当命令按钮 属性设置为True时，用户按下<ESC>键可以激发对应命令按钮的Click

在调试程序时,不能用来观察变量值或控件属性值的 。以下所列出的控件的属性是存在

Command控件的Value属 (2)Command控件的Picture属(3)Text控件的Caption属 (4)Listbox控件的Text属(5)Combol控件的Value属 (6)Check控件的Value属要使文本框能够显示多行内容，应设 属

假设列表框控件List1当前有7个条目且没有选中任何一个条目，则列表框控件的ListIndex值 70无 (1)# ，第三行输出结果是###(2) (3)##### OptionPrivateSubDimXAsInteger,YAsIntegerForX=5To1Step-1ForY=1To6-PrintTab(Y+5);EndSub运行下面的程序，第一行输出结果 ，第三行输出结果 OptionPrivateSubDimMystrAsString,Mystr1AsString,Mystr2AsStringMystr1=“B”ForI=1ToMystr2=Lcase(Mystr1)printMystrNextIEnd执行下面程序，第一行输出结果是（6）（7）PrivateSubDimNAsInteger,IAsIntegerN=2ForI=3To1Step-1CallSub2(I