VB程序设计阶段练习2(专科)解析.doc

该【VB程序设计阶段练习2(专科)解析 】是由【泰山小桥流水】上传分享，beplayapp体育下载一共【15】页，该beplayapp体育下载可以免费在线阅读，需要了解更多关于【VB程序设计阶段练习2(专科)解析 】的内容，可以使用beplayapp体育下载的站内搜索功能，选择自己适合的beplayapp体育下载，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此beplayapp体育下载到您的设备，方便您编辑和打印。《VB程序设计(专)》第二阶段练****题一、。A.%B.&,把R定义为双精度型变量的是C。%!#$。。A./.+(“程序设计”)的值是B。。,正确的是____B____。%=”VBP”!=+a=+%=,正确的是___B_____。%=”VBP”=!=+1=,不正确的是____C____。=MsgBox("除数为零,请重新输入!",vbCritical,"警告框")=MsgBox("除数为零,请重新输入!",vbCritical+vbOKOnly,"警告框")("除数为零,请重新输入!",vbCritical,"警告框")"除数为零,请重新输入!",vbCritical+vbOKOnly,"警告框",正确的是__A______。=MsgBox("除数为零,请重新输入!",,"警告框")=MsgBox("除数为零,请重新输入!","警告框")("除数为零,请重新输入!",,"警告框")"除数为零,请重新输入!","警告框",不能交换变量a和b的值的是____D____。=b:b=a:a==a+b:b=a-b:a=a-=a:a=b:b==b:b=,每个语句之间用B符号分隔。A.,B.:C.、D.;,用C符号作为续行符。A.+B.-。-。.&O100C.&H100D.%。$B.”ABC”C.’ABC’。!%$#。!++-2^5*8/4MOD5\2的值为B。≤x<10表示成正确的VB表达式为B。<=x<<=xANDx<>=3ORx<<=xAND<,优先级别最低的是C。./.*。(*100+)/100的值是C。$=”12345678”,则表达式Val(Left$(A,4)+Mid$(A,4,2))的值为。(“123程序设计ABC”)的值是A。(“123程序设计ABC”)的值是C。。+y==π*r*=x+=,y,z三个变量赋初值1,下面正确的赋值语句是A。=1:y=1:z==1,y=1,z==y=z===123+Mid$(“123456”,3,2)执行后,a变量中的值是D。A.”12334”=123&Mid$(“123456”,3,2)执行后,a变量中的值是A。A.”12334”,下面属于三种基本结构之一的是B。、。>yThenPrint“x>y”=t*=2Then?<0Theny=2*x-1:%,b%,cAsIntegerA=1:b=2:c=3Ifa=c-bThenPri nt “####以上程序 C 。 ,b之中的最大值存放于 max”ElsePrint “*****#####,下面语句书写正确的是”D。*****>bThenmax=aelsemax=>bThenmax=aElsemax=>bThenmax=aElsemax=>bThenmax=aElsemax= 语句中正确的是 C 。=x*x-1CaseIs>10y=x+<=0=2*x-1CaseIs<=1y=2-x+>=1Andx<=5y=x-1CaseIs>0y=sqr(x)+. Case1,5,7,9C. Case5To2Casey=x-1CaseIs>10y=x*x+1EndSelect语句,写法错误的是 C 。B. Case8To12D. CaseIs< “Man”,三种基本结构是 D 。、选择结构、循环结构 、过程结构、、输入、输出结构、转向结构 、循环结构、,显示的结果是 A 。DimxIfxThenPrintxElsePrintx+ C.(1 =1Theny=1 ,下列说法正确的是 =1 和y=1 均为赋值语句 =1 和y==1 为关系表达式, y=1 =1 为赋值语句, y=1 ,显示的结果是 A 。。均为关系表达式Dimxx=Int(Rnd)+5SelectCasexCase5Print"优秀"Case4Print"良好"Case3Print"通过"CaseElsePrint"不通过"。==3To–3Step–==3To–3Step–3l1:NexxNextyIfi=%K=5DoUntilk=0K=k-1Loop则下面对循环语句描述正确的是C 。A. 循环体1次也不执行C. 循环体执行 5次B. 循环体执行1次D. C 。Dimi,SumasIntegerWhilei>1Sum=Sum+ii=i-1WendPrintSumA. 无显示B. 10C. 0D. Do UntilA 。<条件> Loop语句中,当循环<条件>为False时,结束循环体的执行。< 条件> Wend语句时,循环体可能一次也不执行。 LoopWhile< 条件>语句的循环体可能一次也不执行。 LoopUntil< 条件>语句中,当循环条件为 True时,结束循环体的执行。 B 。Forx=0ToStep –=1To3:i=i+1:Nexti后,变量i的值是B。-Next循环结构中,若循环控制变量的步长为0,则A。 C 。=5=1DoDoi=i+1LoopUntili<=10i=i+2LoopUntili==6DoDoi=i-1LoopUntili<0i=i-2LoopUntili=149.执行以下程序段后, x的值为DimxAsInteger ,iAsIntegerx=0Fori=20To1Step-2x=x+i\ 。,输出结果为A。DimiAsInteger ,xAsIntegerFori=1To6Ifi=1Thenx=iIfi<=4Thenx=x+1Elsex=x+ 、 常用 标识符 来标记用户自定义的常量、类型、变量、控件、过程、函数等名字。 ”MadeIn China”中截取子字符串 ”In可”使用函数 Mid(”MadeInChina ”,6,2) 。3 .产 生 从 整数 a 到 整 数 b 之 间 的随 机 整数或 使 用表 达 式Int(Rnd*(b-a+1)+a。,则它的值为0。,可使用函数Cint()。。。,Integer变量初始化为0。,各种运算之间的顺序为函数运算→算术运算→关系运算→逻辑运算。,如果没有显式说明给定变量的数据类型,则默认为变体类型或Variant类型。,1234、123456&、+5、+5四个常数分别表示整型、长整型、单精度型、双精度型类型。,要将两位数交换位置,例如,13变成31,实现的表达式是(xMod10)*10+x\10。=0ORxMod9=0。=,b=,c=,d=True,则表达式:a>=0ANDa+c>b+3ORNOTd的值是False。(Mid("abcdefgh",3,4))的值是CDEF。,若为偶数就把它显示出来。使用单行结构条件语句为IfiMod2=0Printi。,若大于0,则累加到变量s1中,否则,累加到变量s2中,使用单行结构条件语句为Ifx>0Thens1=s1+xElses2=s2+x。,反复执行的程序段称为循环体。~Wend语句是先判断条件表达式的值,再决定是否执行循环体。~Next循环中含有ExitFor语句,当执行到这条语句时,将跳出循环,执行Next后面的语句。。,循环变量的初值应当是:14。Fork=To-5Step-1To-5Step-1(To-5Step-1)"*"。Fori=1To5Forj=2ToiPrint “*;”NextNext三、,利用 InputBox 函数从键盘上输入三个数据,然后在窗体上显示该三个数据的和与它们的平均值,请填空。PrivateSubForm_Click()a1=Val(InputBox("请输入第1个数:"))a2=Val(InputBox("请输入第2个数:"))a3=Val(InputBox("请输入第3个数:"))Sum=a1+a2+a3Aver=Sum/3Print"输入的三个数分别为:";a1;a2;a3Print"三个数和为:";SumPrint"三个数平均值为:";。下面程序可以计算鸡兔各有多少只,鸡兔总头数和总脚数从键盘输入,请填空。PrivateSubForm_Click()h=Val(InputBox(" 鸡兔总头数:f=Val(InputBox(" 鸡兔总脚数:"))"))y =(f-2*h)/2=(4*h-f)/2Print"鸡总头数为:";xPrint"兔总头数为:";,统计有多少个元音字母、有多少个其他字母,直到按键结束,并显示结果, 大小写不区分。其中 CountY 中放元音字母个数, CountC字符数。Enter中放其他DimCountY%,CountC%PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimC$C= UCase(Chr(KeyAscii))If"A"<=CAndC<="Z"ThenSelectCase CCase "A","E","I","O","U"CountY=CountY+1Case ElseCountC=CountC+1EndSelectEndIfIf KeyAscii=13 ThenPrint" 元音字母有";CountY;" 个"Print" 其他字母有";CountC;" 个",要求将字符顺序到置,例如,将输入的 “ABCDEFG”变换成“GFEDCBA”。a=InputBox(" 输入字符串n= Len(a)Fori=nTo1Step-1c= Mid(a,i,1)d= d+cNexti"),找出大于或等于该数的第一个质数。Dimm%,x%,TagAsBooleanTag=Falsex=Val(InputBox(" 输入正整数"))DoWhileNotT agm=2:Tag= TrueDoWhileT agAnd(m<(x\2))IfxModm=0Then Tag=FalseElsem=m+1LoopIfNotT agThenx=x+:在窗体的3个文本框(Text1、Text2、Text3)中输入三个数,将它们从大到小排序,并在文本框(Text4)中输出排序结果。请填写程序空白处使程序完整。mand1_Click()a=Val()b=Val()c= Val()IfabThenm=aElsem=bEndIfIfc>mThenm=cMsgBox" 最大的数为: "&m,vbOKOnly," 信息框":通过输入对话框输入一个字符,首先将该字符显示在文本框 1(Text1)内,再判别该字符,若它是大写字母,则把它变成小写字母;若它是小写字母,则把它变成大写 字母;若它是其他字母, 则其值不变。最后再将该字符显示在文本框 2(Text2)中。请填写程序空白处使程序完整。mand1_Click()DimchAsString*1ch=InputBox(" 请输入一个字符: ")=chIf ch>="A"Andch<="Z" Thench=LCase(ch)ElseIfch>="a"Andch<="z"Thench=UCase(ch)=:求S=1+2+3++100的和,将求和结果显示在窗体的第10列位置处,显示内容为S=5050。请填写程序空白处使程序完整。mand1_Click()DimkAsInteger ,sAsLongs=0Fork=1To100s=s+kNextPrintPrint Tab(10);"s=";:在窗体上输出10~30之间不能被3整除的数(要求每一个数都在同一行上输出)。请填写程序空白处使程序完整。mand1_Click()ClsDimxAsIntegerx=10PrintDoIfxMod3<>0ThenPrint xEndIfx=x+1Loop Whilex<30 或 Untilx>30EndSub四、,输出结果为 7 。x=Int(Rnd)+3Ifx^2>8Theny=x^2+1Ifx^2=9Theny=x^2-2Ifx^2<8Theny=x^,输出结果为 a=15 。a=0Fori=1To5Forj=iTo5a=a+1NextjNextiPrint"a=";,输出结果为 42 。