VB试题2

在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符________________，表示下一行是当前行的继续。A、直接回车B、一个空格加一个下划字符(_)C、一个下划字符(_)D、一个空格加一个连字符(-)答案：B下列没有类型说明符的变量是_________。A、货币型B、日期型C、字符串型D、长整型答案：B下面的表达试的值为真的是________。A、Mid(“VisualBasic”,1,12)=Right(“ProgramingLanguageVisualBasic”,12)B、78.9/32.77=97.5/43.97AND-45.44.98C、“ABCRG””abcde”D、Int(134.69)Cint(134.69)答案：A下列可以将变量A、B互换的语句是____________。A、A=B:B=C:C=AB、A=A+B:B=A-B:A=A-BC、A=(A+B)/2:B=(A-B)/2D、A=C:C=A答案：B表达式X+1X是_____________.A、字符串表达式B、非法表达式C、算术表达式D、关系表达式答案：D有变量定义语句Dima,bAsinteger,变量a的类型和初值是________。A、String,B、Integer,0C、Long,0,0D、Variant,空值答案：D数学关系3=x10表示成正确的VB表达式为____________。A、x=3ORx10B、3=xAND10C、3=xANDx10D、3=x0答案：Ci被j整除的逻辑表达式是________________。A、i/j=0B、i0C、i\j=0D、imodj=0答案：D函数Cint(-3.5)，Int(-3.5)，Fix(-3.5)的值分别是________。A、-3，-4，-3B、-4，-4，-3C、-3，-4，-4D、-4，-3，-3答案：B表达式16/4-2^5*8/4MOD5/2的值为____________。A、2B、14C、20D、4答案：D如果将布尔常量False赋值给一个整形变量，则整型变量的值为____________。A、0B、-1C、FalseD、True答案：A下列符号常量的声明中，______________是不合法的。A、Constaasinteger=12B、Constaasdouble=sin(1)C、Consta=”OK”D、Constaassingle=1.1答案：B在VisualBasic代码中，将多个语句合并在一行上的并行符是____。A、冒号(：)B、感叹号(！)C、撇号(’)D、问号(?)答案：A描述X、Y中只有一个小于Z的逻辑表达式是________。A、XZAndYZB、XZXorYZC、XYZD、XZOrYZ答案：B语句Print5*20输出的结果是________。A、5*20B、5*20C、出现错误信息D、100答案：B语句x=x+1的正确含义是__________.A、将变量X的值存在X+1中去B、将变量X的值加1后赋给变量XC、变量X的值与X+1的值相等D、变量X的值为1答案：B以下各项中，____________不是一个合法的字符串。A、等级考试B、#Basic#C、D、Visual答案：B下面程序的运行结果是_____。PrivateSubCommand1Click()x=1:y=1Fori=1TO3x=x+y:y=y+xNextiPrintx;yEndSubA、3435B、58C、66D、1321答案：D下面程序是一个求最大公约数的程序，执行程序后，m的值为_____DimmAsInteger,nAsIntegerm=200n=150Ifn*m=0ThenExitSubIfmnThent=m:m=n:n=tEndIfDor=mModnm=nn=rLoopWhiler0Text3=mA、50B、100C、200D、150答案：A计算机算法可以分为两大类：一类是_____算法，另一类是_____算法。A、计算机辅助设计、财务B、排序、查找C、步骤管理、通信D、数值计算、非数值计算答案：D执行下面的程序，单击窗体后在窗体上显示的结果是_____。PrivateSubCommand1_Click()DimStr1AsString,Str2AsStringDimStr3AsString,IAsIntegerStr1=eFori=1To2str2=UCase(Str1)Str1=Str2&Str1Str3=Str3&Str1Str1=Chr(Asc(Str1)+1)NextIPrintstr3EndSubA、EEEEB、eeFFC、EeFFD、eEfF答案：C下列程序的输出结果是_____。DimyAsIntegery=10DoWhiley0y=y-1LoopPrinty=;yA、y=-1B、y=0C、y=随机值D、y=1答案：B算法应具备的特征有：确定性、可行性、有穷性、_____性、_____性。A、步骤有限、可以实现B、输入、输出C、确切无误、可以实现D、步骤有限、确切无误答案：B在窗体中添加一个命令按钮，并编写如下程序代码：PrivateSubCommand1_Click()DimyAsIntegery=0DoWhiley7y=y+3LoopMsgBoxyEndSub程序运行后，消息对话框中显示_____。A、8B、9C、7D、6答案：B以下语句执行时，从键盘上输入Zhang，执行结果是_____。DimaAsStringa=InputBox(Input,,Name)PrintaA、InprtB、ZhangC、NameD、空字符串答案：B下面语句错误的是_____。A、Ifa=1Thenc=2ElseIfa=2Thenc=3EndIfB、Ifa=1Andb=2Thenc=3EndIfC、Ifa=1Thenc=2ElseIfa=2Thenc=3EndIfD、If(a=1,2,3)Thenc=2答案：D下列程序：PrivateSubForm_Click()Forj=1To15a=a+jMod3NextjPrintaEndSub运行后输出的结果是_____。A、15B、1C、90D、120答案：ADimyAsIntegerm=1DoWhilem=3m=m+1Printm;LoopA、2B、234C、23D、2345答案：B假设X的值是5，则执行以下语句时，可得到的输出结果是ABCDEF的SelectCase语句是_____。A、SelectCaseXCase1,3,Is5Print“ABCDEF”EndSelectB、SelectCaseXCaseIs15,Is5Print“ABCDEF”EndSelectC、SelectCaseXCaseIs5,1,3TO10PrintABCDEFEndSelectD、SelectCaseXCase10TO1Print“ABCDEF”EndSelect答案：C用Msgbox你好,vbokonly,Hello显示的消息对话框窗口的标题是_____。A、你好B、vbokonlyC、HelloD、Ok答案：C给出下面的程序PrivateSubCommand1_Click()DimCheck,CounterCheck=True:Counter=0DoCounter=Counter+1IfCounter=10ThenCheck=False:ExitDoLoopUntilCheck=FalseMsgBoxCounterEndSub程序最后弹出的消息对话框的内容是_____。A、FalseB、TrueC、20D、10答案：D下面程序的内层循环次数是_____。Fori=1TO3Forj=1TOiFork=jTO3...NextkNextjNextiA、3B、14C、9D、21答案：B以下程序段运行后，消息框的输出结果是a=sqr(5)b=sqr(3)c=abMsgboxc+2A、2B、-1C、1D、出错答案：C在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码:PrivateSubForm_Click()DimkAsIntegerDimentryAsString,itemAsStringentry=EDCBAFork=Len(entry)To1Step-1item=LCase(Mid(entry,k,1))&kList1.AddItemitemNextkEndSub运行此程序，单击窗体,列表框第4行为_____。A、d2B、b2C、b4D、d3答案：A下面程序段运行后，显示的结果是_____。DimxIfxThenPrintxElsePrintx+1A、-1B、0C、1D、显示出错信息答案：C在窗体上有一个文本框Text1，以下程序段的运行结果是_____。Text1=Fori=1To10Sum=Sum+iNextiText1=SumA、出错B、在文本框中Text1中输出55C、在文本框中Text1中输出不定值D、在文本框中Text1中输出0答案：B填空==================================================已知A=7.5，B=2，C=-3.6，表达式abandcaorabandnotcb的值为_____.答案：空1:False表示A+B+C大于等于255，或A与B分别大于90且C大于80的VB表达式的_____答案：空1:A+B+C=255OrA90AndB90AndC80已知K=2，J=3，A=True，则VB表达式(K-J=K)AND(NOTA)OR(K+J=J)的值为_____。答案：空1:True语句Print125+32=;125+32执行后，窗体上打印结果是_____.答案：空1:125+32=157执行下面的程序段后，b的值为_____a=5b=7a=a+bb=a-ba=a-b答案：空1:5输入一个三位的正整数，将之反向输出。如输入123，则输出321，完善下列程序。PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,mAsIntegerm=InputBox(输入一个正整数)a=m\100b=(m-a*100)\10c=_____MsgBox结果=+Str(c*100+b*10+a)EndSub答案：空1:mmod10运行下面的程序，单击窗体后在窗体上显示的内容是_____。PrivateSubForm_Click()Fori=1To10Step2PrintI;NextIEndSub答案：空1:13579找出1～10000之间的同构数。所谓同构数，是指此数的平方数的最后几位与该数相等。例如，25的平方为625，25是同构数。完善下列程序。程序代码如下：PrivateSubCommand1_Click()DimiAsInteger,yAsLongForx=1To1000y=x*xIf_____ThenPrintxEndIfNextxEndSub答案：空1:x=(ymod10)or(x=(ymod100))or(x=(ymod1000))