VB试题　[转]--hudemo_space
&&&载入中...& /&
VB试题&[转]
vb试题一、选择题1．Variant是一种特殊的数据类型，除了(&&& )以外，它可以包含任一种数据。A．固定长度字符串&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．可变长度字符串C．整形&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．自定义型2．下列符号中，只有(&&& )是合法的VB变量名。A．xy23&&&&&&&&&&&&&&&& B．23xy&&&&&&&&&&&&&&&& C．Sub&&&&&&&&&&&&&&&&&&&&& D．xy8[1]3．下列符号中，只有(&&& )不能用作VB的变量名。A．IntX&&&&&&&&&&&&&&&&& B．2log&&&&&&&&&&&&&&&&& C．txtSm&&&&&&&&&&&&&&&&&& D．txt4．函数Int(Rnd(0)*10)+1是下列(&&& )范围内的整数。A．(0，100)&&&&&&&&&& B．(1,100)&&&&&&&&&&&&& C．(0,10)&&&&&&&&&&&&&&&&&& D．(1,10)5．下列常量中，(&&& )不是字符串常量。A．"北京"&&&&&&&&&&&&& B．" "&&&&&&&&&&&&&&&&& C．"True"&&&&&&&&&&&&&&&&& D．#False#6．数学表达式Sin30°写成VB表达式是(&&& )。A．Sin30&&&&&&&&&&&&&&& B．Sin(30)&&&&&&&&&&&&& C．Sin(30°)&&&&&&&&&&&& D．Sin(30*3.14/180)7．在VB的逻辑运算中，级别最高的是(&&& )。A．Xor&&&&&&&&&&&&&&&&&& B．And&&&&&&&&&&&&&&&&& C．Or&&&&&&&&&&&&&&&&&&&&&&& D．Not8．表达式a=1是(&&& )。A．算术表达式&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．关系表达式C．字符串表达式&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．非法表达式9．判断任意3条线段a、b、c能否构成三角形的表达式为(&&& )。A．a+b&=c Or a+c&=b Or b+c&=aB．Not(a+b&c Or a+c&b Or b+c&a)C．a+b&c Or a+c&b Or b+c&aD．a+b&c And a+c&b And b+c&a10．以下常量中，不合法的是(&&& )。A．10^2&&&&&&&&&&&&&&&&& B．100&&&&&&&&&&&&&&&& C．100.0&&&&&&&&&&&&&&&&&&&&&&& D．10E+111．以下常量中，不合法的是(&&& )。A．True&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．## C．&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．False12．下列叙述中不正确的是(&&& )。A．变量名的长度不能超过255个字符B．变量名的第一个字符必须是字母C．变量名不能使用VB的关键字D．变量名可以包含内嵌的类型声明符13．不能正确表示“两个整形变量a与b之一为0，但不同时为0”的表达式是(&&& )。A．a*b=0 And a&&b&&&&&&&&&&&&&&&&&&&&&&&&&& B．(a=0 Or b=0) And a&&bC．Not(a=0 And b=0) And (a=0 Or b=0)D．a*b=0 And (a=0 Or b=0)14．设b的值为7，一表达式为“x=b=7”，则运算后x为(&&& )。A．True&&&&&&&&&&&&&&&&& B．b=7&&&&&&&&&&&&&&& C．7&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．b15．在表达式54+3*12^2-Sin(x+1)/2中最先进行运算的是(&&& )。A．12^2&&&&&&&&&&&&&&&&& B．3*12&&&&&&&&&&&&&& C．x+1&&&&&&&&&&&&&&&&&&&&&&&&&& D．Sin()16．x+y小于10且x-y大于0的逻辑表达式是______。A．x+y&10 or x-y&0&&&&&&&&&&&&&&&&&&&&&&&&&&& B．(x+y&10):(x-y)&0C．x+y&10 And x-y&0&&&&&&&&&&&&&&&&&&&&&&&& D．x+y&10.AnD．x-y&017．代数表达式 ，对应Visual Basic 表达式是______。A．E^(x+y)+|x+y|^1/2/2π+1B．Exp(x+y)+Sqr(Abs(x+y))/2*3.14159+1C．(Exp(x+y)+Sqr(Abs(x+y)))/(2*3.14159+1)D．(Exp(x+y)+Sqr(Abs(x+y)))/2*π+118．代数表达式 对应的Visual Basic表达式为(&&& )。A．Log(Abs((Exp(3.14159)+Sin(x)^3)/(x+y)))B．Ln(Abs((Exp(3.14159)+Sin(x)^3)/(x+y)))C．Log(Abs(Exp(3.14159)+Sin(x)^3)/(x+y))D．Log|Abs(Exp(3.14159)+Sin(x)^3)/(x+y)|19．下面表达式的值为真的是(&&& )。A．Mid("Visual Basic",1,12)=Right("Programming Language Visual Basic",12)B．"ABCRG"&"abcde"C．Int(134.69)&=Cint(134.69)D．78.9/32.77&=97.5/43.97 And -45.4&-4.9820．下面说法不正确的是(&&& )。A．VB允许将一个数字字符串赋值给一个数值型的变量B．VB允许使用未经说明的变量，其类型都是Variant类型C．Cls只清除运行时在窗体或图形框中显示的文本或图形D．事件过程既可建在窗体模块中，也可建在标准模块中21．假定变量Logic的类型是Boolean，下面赋值语句(&&& )是正确的。A．logic="True"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．logic=.True.C．logic=#True#&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．logic=3&422．在过程中可以用(&&& )语句定义变量。A．Dim、Private&&&& B．Dim、Static&&& C．Dim、Public&&&&&&&&&&&& D．Dim、Static、Private23．执行语句“Print Format(,"##,##0.00")”的正确输出结果是(&&& )。A．5459.48&&&&&&&&&&&& B．5,459.48&&&&&&&& C．5,459.478&&&&&&&&&&&&&&&&& D．5,459.4724．下列语句中(&&& )语句可以用来正确地声明一个动态数组。A．Private A(n) As Integer&&&&&&&&&&&&&&&&&& B．Dim A() As IntegerC．Dim A(,) As Integer&&&&&&&&&&&&&&&&&&&&&&& D．Dim A(1 To n)25．假定变量Logic的类型是Boolean，下面赋值语句中(&&& )是不正确的。A．Logic=True&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．Logic=Not TrueC．Logic=#True#&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．Logic=3&426．表达式Str(Len("3212"))+Str(88.8)的值为(&&& )。A．488.8&&&&&&&&&&&&&&&& B．488.8&&&&&&&&&&&&& C．3300.8&&&&&&&&&&&&&&&&&&&&& D．27．函数Len(Str(Val("111.1")))的值为(&&& )。A．5&&&&&&&&&&&&&&&&&&&&&& B．6&&&&&&&&&&&&&&&&&&& C．111.1&&&&&&&&&&&&&&&&&&&&&&& D．11128．设B=""，则表达式Val(Left(B,4))+Val(Mid(B,4,2))的值为(&&& )。A．2389&&&&&&&&&&&&&&&&& B．234455&&&&&&&&&& C．2344&&&&&&&&&&&&&&&&&&&&&&&& D．5529．设A="abcdefgh",下面函数中只有(&&& )的值不为"fgh"。A．Mid(A,6,8)&&&&&&&& B．Right(A,3)&&&&& C．Left(A,6,3)&&&&&&&&&&&&&&& D．Mid(A,6,3)30．Rnd函数不可能产生(& )值。A．0&&&&&&&&&&&&&&&&&&&&&& B．1&&&&&&&&&&&&&&&&&&& C．0.9999&&&&&&&&&&&&&&&&&&&&& D．0.0000131．表达式的值不为2的是(&&& )。A．10/5&&&&&&&&&&&&&&&&&& B．12\5&&&&&&&&&&&&&&& C．5 mod 3&&&&&&&&&&&&&&&&&&& D．12\5 mod 232．能产生30~100之间随机数的表达式为(&&& )。A．Int(71*Rnd)+30&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．Int(100*Rnd)+30C．Int(70*Rnd)&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．Int(100*Rnd)33．在Rnd(n)函数中，要想生成不相同的随机数，n的取值必须为(&&& )。A．&0&&&&&&&&&&&&&&&&&&&& B．&0&&&&&&&&&&&&&&&&& C．&1&&&&&&&&&&&&&&&&&&&&&&&&&&& D．=034．要使用Rnd函数来模拟方形骰子投掷，应使用(&&& )表达式。A．Int(6*Rnd(1))&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．Int(1+6*Rnd(1))C．Int(6*Rnd(1)-1)&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．Int(7*Rnd(1)-1)35．以下函数中，不属于算术函数的是(&&& )。A．Sin()&&&&&&&&&&&&&&&&& B．Str()&&&&&&&&&&&&&& C．Abs()&&&&&&&&&&&&&&&&&&&&&&& D．Exp()36．能够返回字符代码的函数为(&&& )。A．Chr()&&&&&&&&&&&&&&&& B．Mid()&&&&&&&&&&&&& C．InStr()&&&&&&&&&&&&&&&&&&&&& D．Asc()37．删除字符串前导与尾随空格的函数是(&&& )。A．Ltrim()&&&&&&&&&&&&& B．Rtrim()&&&&&&&&&& C．Trim()&&&&&&&&&&&&&&&&&&&&&& D．Lcase()38．能实现字符ANSI编码方式与Unicode方式转换的函数是(&&& )。A．Str&&&&&&&&&&&&&&&&&&&& B．Strconv&&&&&&&&&& C．Trim&&&&&&&&&&&&&&&&&&&&&&&& D．Mid39．Double类型的数据由(&&& )个字节组成。A．2&&&&&&&&&&&&&&&&&&&&&& B．4&&&&&&&&&&&&&&&&&&& C．16&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．840．获得系统日期的函数为(&&& )。A．Data$&&&&&&&&&&&&&&&& B．Time$&&&&&&&&&&&& C．Date$&&&&&&&&&&&&&&&&&&&&&&& D．GetTime$41．执行以下程序后，变量c$的值为(&&& )。a$="Visual Basic Programming"b$="C++"c$=Ucase(left$(a$,7)) & b$ & Right$(a$,12)A．Visual Basic Programming&&&&&&&&&&&&& B．VISUAL C++ ProgrammingC．Visual C++ Programming&&&&&&&&&&&&&&& D．VISUAL BASIC Programming42．下列各组变量声明正确的是(&&& )。A．Dim abc as integer,num as single&&&&& B．Dim I%,N$ as integerC．Dim A%,b%,c%,a$&&&&&&&&&&&&&&&&&&&&&&& D．Public Dim n%43．字符串的连接运算符为(&&& )。A．@&&&&&&&&&&&&&&&&&&&&& B．$&&&&&&&&&&&&&&&&&&& C．&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．*44．下列选项中为十六进制数的是(&&& )。A．123&&&&&&&&&&&&&&&&&&& B．&123&&&&&&&&&&&&& C．&O123&&&&&&&&&&&&&&&&&&&&& D．&H12345．要声明一个长度为20个字符的定长字符串，下列只有(&&& )是正确的。A．Dim str as string&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．Dim str as string(20)C．Dim str as string[20]&&&&&&&&&&&&&&&&&&&&&& D．Dim str as string*2046．下列表达式不合法的是(&&& )。A．"123"+"abc"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．123 & "abc"C．1+2\3&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．[3*(4+5)-6]/747．下列逻辑运算结果为“True”的是(&&& )。A．false or not true&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．false and not trueC．true or not true&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．true and not true48．Single类型的数据由(&&& )字节组成。A．1&&&&&&&&&&&&&&&&&&&&&& B．2&&&&&&&&&&&&&&&&&&& C．4&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．849．日期型常量必须用(&&& )括起来。A．"&&&&&&&&&&&&&&&&&&&&&& B．'&&&&&&&&&&&&&&&&&&&& C．()&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．#50．设a=2,b=3,c=4,d=5，表达式“a&b And c&=d Or 2*a&c”的值为(&&& )。A．-1&&&&&&&&&&&&&&&&&&&&& B．1&&&&&&&&&&&&&&&&&&& C．True&&&&&&&&&&&&&&&&&&&&&&&&& D．False51．用InputBox函数可以生成(&&& )。A．消息框&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．“保存”对话框& C．简单输入框&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．“颜色”对话框52．执行下列语句在用户输入并按“确定”后，st$变量的内容为(&&& )。st$=InputBox("请输入字符串","字符串对话框","字符串")A．字符串&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．请输入字符串&&&& C．字符串对话框&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．用户输入的内容53．已知变量x、y为整形量，且x=4,y=12,s="a",lblok为标签，下列修改标签文字语句合法的是(&&& )。A．x=lblok.caption&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．lblok.caption=Str(x)C．x*y=3&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．y=x*s54．下列各赋值语句中不正确的是(&&& )。A．x+y=5&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．iNumber=15C．lblsj="Time"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．sLength=x+y55．如果想在程序中反复使用一个日期数据“”，为了避免在编写程序时反复输入这个数据，也为了能一次修改所有用到这个数据的语句，可以采用(&&& )。A．将这个数据声明为字符常量，用一个常量标识符代表它B．将这个数据声明为字符变量，用一个变量标识符代表它C．将这个数据声明为日期型常量，用一个常量标识符代表它D．将这个数据声明为日期型变量，用一个变量标识符代表它56．执行语句Print Format(,"##,##0.00"),正确的输出是(&&& )。A．5456.68&&&&&&&&&&&& B．5,456.68&&&&&&&& C．5,456.678&&&&&&&&&&&&&&&&& D．5,456.6757．执行语句Print Format$(54567, "")，正确的输出是(&&& )。A．54567&&&&&&&&&&&&&&& B．&&&&&&& C．&&&&&&&&&&&&&&&&& D．58．对于InputBox函数，下列说法不正确的是(&&& )。A．每执行一次InputBox函数，只能输入一个值B．InputBox函数输入的是数值型C．InputBox函数中的提示参数能省略D．函数值必须赋于一个变量，否则用户的输入就会丢失59．Boolean型数据只有两种取值，它们是(&&& )。A．0和1&&&&&&&&&&&&&&& B．Yes和No&&&&&& C．"是"和"不是"&&&&&&&&&&& D．True和False60．在InputBox函数的参数中，必选的参数为(&&& )。A．输出信息&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．提示信息&&&& C．定义无输入时的缺省值&&&&&&&&&&&&&&&&& D．定义输入框的位置61．下列调用错误的是(&&& )。A．x%=inputbox("请输入数据")&&&&&&&&& B．Inputbox("请输入数据")C．x=Msgbox("是否继续查询")&&&&&&&&&& D．Msgbox("是否继续查询")62．下列输出语句中，错误的是(&&& )。A．? x,y&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．Print x,yC．form.print x,y&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．print format x,y63．若要强制变量先声明后使用，应该用(&&& )语句来说明。A．Public const&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．Option ExplicitC．Explicit&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．Option Base64．如果有图片框Picture1与文本框Text1,下列不正确的语句是(&&& )。A．Print 25&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．Picture1.Print 25C．Text1.Print 25&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．Debug.Print 2565．在立即窗口中以下语句的输出结果为(&&& )。(□为空格，下同。)a=27b=65PbA．27□65&&&&&&&&&&&&& B．□27□65&&&&&&& C．□27□□65&&&&&&&&&&&&&& D．□27□□65□66．在立即窗口中以下语句的输出结果为(&&& )。a="Beijing"b="ShangHai"PbA．Beijing□ShangHai&&&&&&&&&&&&&&&&&&&&&&&& B．□Beijing□ShangHai& C．BeijingShangHai&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．□Beijing□ShangHai□67．语句Print 5*5\5/5的输出结果为(&&& )。A．25&&&&&&&&&&&&&&&&&&&& B．5&&&&&&&&&&&&&&&&&&& C．1&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．068．语句Print Sgn(-4^2)+Abs(-4^2)+Int(-4^2)的输出结果是(&&& )。A．-16&&&&&&&&&&&&&&&&&&& B．-32&&&&&&&&&&&&&&&& C．-1&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．169．执行以下语句后的输出结果是(&&& )。a=Sql(3)Print Format(a,"$$####.###")A．$1.732&&&&&&&&&&&&&& B．$$1.732&&&&&&&&& C．$1732&&&&&&&&&&&&&&&&&&&&&& D．$$70．InputBox函数的返回值是(&&& )。A．数值&&&&&&&&&&&&&&&&& B．字符串&&&&&&&&&& C．变体&&&&&&&&&&&&&&&&&&&&&&&& D．视输入而定71．一命令按钮的Click事件过程为：Dim a,b as Integera=InputBox("请输入第一个数：")b=InputBox("请输入第二个数：")Print b+a程序运行时，单击该按钮并分别输入456和123，则输出的结果为(&&& )。A．579&&&&&&&&&&&&&&&&&&& B．123&&&&&&&&&&&&&&&& C．456&&&&&&&&&&&&&&&&&&&&&&&&&& D．12345672．以下4个运算符中，(&&& )运算级别最高。A．+&&&&&&&&&&&&&&&&&&&&&& B．Mod&&&&&&&&&&&&&& C．\&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．-73．执行下面的语句后，所产生的信息框标题为(&&& )。a=MsgBox("AAAA","BBBB","",5)A．AAAA&&&& B．BBBB&&&& C．出错，不能产生信息框&& D．空74．MsgBox函数的参数中，只有(&&& )是不能省略的。A．prompt&&&&&&&&&&&&&& B．buttons&&&&&&&&&&& C．title&&&&&&&&&&&&&&&&&&&&&&&&&& D．helpfile75．MsgBox函数中的buttons参数具有控制对话框内除(&&& )之外的作用。A．按钮的种类&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．图标的种类C．按钮的数量&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．对话框的标题76．执行以下命令所产生的对话框为(&&& )。MsgBox "继续查询吗？",vbYesNoCancel+vbQuestion,"提问"A．&&&&&&&&& B．C．&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．77．MsgBox函数的返回值是(&&& )。A．字符型&&&&&&&&&&&&& B．整形&&&&&&&&&&&&&& C．布尔型&&&&&&&&&&&&&&&&&&&&& D．不一定78．假设程序中有如下语句：answer=MsgBox("string1",,"string2","string3",2)，执行该语句后将显示一信息框。此时如果单击“确定”按钮，则answer的值为(&&& )A．string1&&&&&&&&&&&&&& B．string2&&&&&&&&&&& C．string3&&&&&&&&&&&&&&&&&&&&& D．179．在VB中可以对字体除(&& )以外的属性进行设置。A．粗体&&&&&&&&&&&&&&&&& B．斜体&&&&&&&&&&&&&& C．下划线&&&&&&&&&&&&&&&&&&&&& D．空心80．使用Print方法可以将信息输出到除(&&& )以外的对象上。A．窗体&&&&&&&&&&&&&&&&& B．文本框&&&&&&&&&& C．打印机&&&&&&&&&&&&&&&&&&&&& D．立即窗口81．数组定义时的上下界只能用(&&& )来表示。A．数值&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．变量C．字符&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．大于等于0的整数变量或整数数值常量82．定义了一个数组变量为A(-2 to 4)，则该数组包含了(&&& )个元素。A．7&&&&&&&&&&&&&&&&&&&&&& B．6&&&&&&&&&&&&&&&&&&& C．-2&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．483．下列关于数组说法，正确的是(&&& )。A．一个数组中只能包含相同类型的数据。B．数组只能在模块中定义，不能在过程中定义。C．在有些情况下，数组同普通变量一样也可以不定义，先使用。D．定义数组时，数组的每一维元素的个数必须是常数，不能是变量或表达式。84．用下面的语句所定义的数组的元素个数为(&&& )。Dim arrA(3 to 5,-2 to 2)A．20&&&&&&&&&&&&&&&&&&&& B．12&&&&&&&&&&&&&&&&& C．15&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．2485．执行以下代码后，输出结果为(&&& )。Option Base 0Dim aa=Array("a","b","c","d","e","f","g","h")Print a(1);a(3);a(5)A．abc&&&&&&&&&&&&&&&&&&& B．bdf&&&&&&&&&&&&&&&& C．ace&&&&&&&&&&&&&&&&&&&&&&&&&&& D．出错86．数组x中合法的数组元素表示为(&&& )。A．x9&&&&&&&&&&&&&&&&&&&& B．x[9]&&&&&&&&&&&&&&& C．x(i+1)&&&&&&&&&&&&&&&&&&&&&& D．x{6}87．定义了一个a(5)的数组，现将数组的最后一个元素赋给变量b，正确的是(&&& )。A．b=a(5)&&&&&&&&&&&&&& B．b=a[5]&&&&&&&&&&& C．b=a(4)&&&&&&&&&&&&&&&&&&&&&& D．b=a[4]88．下列数组声明的语句中，(&&& )是正确的。A．Dim A[3,4] As Integer&&&&&&&&&&&&&&&&&&& B．Dim A(3,4) As Integer C．Dim A[3;4] As Integer&&&&&&&&&&&&&&&&&&& D．Dim A(3;4) As Integer89．有变量定义语句Dim a As Integer，变量a的类型和初值是(&&& )。A．Integer,0&&&&&& B．Variant,空值&&&&&& C．String,""&&&&&& D．Long,090．下列语句中(&&& )语句可以用来正确地声明一个动态数组。A．Private A(n) As Integer&&&&&&&&&&&&&&&&&& B．Dim A() As IntegerC．Dim A(,) As Integer&&&&&&&&&&&&&&&&&&&&&&& D．Dim A(1 To n)91．在Form_Click事件中，执行如下语句的正确结果是(&&& )。Print Format(1236.54,"+ ##,##0.0%")A．123456&&&&& B．+123,654.0%&&&&& C．+123,6.54%&&&&& D．+123,65492．在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为arrM。设窗体Form1的标题为"Myform1"，双击控件数组中的第三个按钮，打开代码编辑器，输入以下代码：Private Sub arrM_Click(Index As Integer)Form1.Caption="Myform2"End Sub运行时，单击按钮数组中的第一个按钮，窗体的标题为(&&& )。A．Form1&&&&&&&&&&&&&& B．arrM&&&&&&&&&&&&&& C．Myform1&&&&&&&&&&&&&&&&&& D．Myform293．一个具有4个按钮的控件数组，运行时为了判断用户单击了哪一个按钮，可以通过检查(&&& )来获得。A．按钮的标题&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．按钮的名称& C．事件过程中的Index参数值&&&&&&&&&&& D．按钮的序号94．使用复制、粘贴的方法建立了命令按钮数组Command1，以下对该数组的说法错误的是(&&& )。A．命令按钮的所有Caption属性都是Command1& B．在代码中访问任意一个命令按钮只需要使用名称Command1C．命令按钮的大小都是相同的D．命令按钮共享相同的事件过程95．以下说法不正确的是(&&& )。A．使用ReDim语句可以改变数组的维数B．使用ReDim语句可以改变数组的类型&&&&& C．使用ReDim语句可以改变数组的每一维大小&& D．使用ReDim语句可以对数组中所有的元素进行初始化96．在控件数组的事件过程中，有一个参数Index,它表示的是(&&& )。A．数组中控件个数&&&&&&&&&&&&&&&&&&&&&&&&&&& B．控件数组的名称C．数组中的控件编号&&&&&&&&&&&&&&&&&&&&&&&& D．控件的位置97．以下关于建立控件数组的说法中，(&&& )是错误的。A．可以通过复制、粘贴的方法建立& B．对已创建好的控件不能再建立控件数组C．不同的控件不能建立控件数组D．对同类控件可以将其名称修改为相同来建立控件数组98．下列程序段的执行结果为(&&& )x=5y=-20If Not x&0 Then x=y-3 Else y=x+3Print x-y;y-xA．-3 3&&&&&&&&&&&&&&&& B．5 -8&&&&&&&&&&&&& C．3 -3&&&&&&&&&&&&&&&&&&&&&&& D．25 -2599．下列语句正确的是(&&& )。A．If x&3*y And x&y Then y=x^3&&&&&&& B．If x&3*y And x&y Then y=x3C．If x&3*y:x&y Then y=x^3 -2&&&&&&&&&&& D．If x&3*y And x&y Then y=x**3100．能够实现以下分段函数的程序段是(&&& )。A．If x&=0 Then y=1+x&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．If x≥0 Then y=1+xy=1-x&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Else y=1-x&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& End IfC．If x&0 Then y=1+x&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．If x&0 ThenIf x&=0 Then y=1-x&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& y=1-x&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Else&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& y=1+x&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& End If101．下列程序段中，只有(&&& )能正确实现条件：如果a&b,则输出a；否则输出b。A．If a&b Then Print a&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．Iif(a&b,Print a,Print b)&& Print b&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& If A&B Then&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Print a&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Else&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Print b&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& End IfC．If a&b Then Print a Else Print b&&&&&&&&&&&&&&&&& D．If a&b Then&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Print a&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Else&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Print b&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& End If102．下列程序段执行的结果为(&&& )。&x=3&y=2&If x*y&1 Then y=y-1 Else y=-2&Print y-x&0A．True&&&&&&&&&&&&&& B．False&&&&&&&&&&&&&& C．-1&&&&&&&&&&&&&&&&&&&&&&&&&&& D．1103．下列程序段的执行结果为(&&& )。A="abcd"B="bcde"E=Right(A,3)F=Mid(B,2,3)If E&F Then Print E+F Else Print F+EA．cdebcd&&&&&&&&&&& B．cdd&&&&&&&&&&&&&&&&& C．cdcd&&&&&&&&&&&&&&&&&&&&&&&& D．bcdcde104．计算分段函数：正确的程序段是(&&& )。A．&If x&0 Then y=0If x&1 Then y=1If x&1 Then y=2&B．&If x&1 Then y=2If x&=0 Then y=1If x&0 Then y=0C．&If x&0 Then&y=0ElseIf x&=0 Then&y=1Else&y=2End If&D．&If x&=1 Then&y=2ElseIf x&=0 Then&y=1Else&y=0End If105．以下语句正确的是(&&& )。A．&Select Case a&Case "A"&&&&&&&& b=1&Case "B"&&&&&&&& b=2&Case Else&&&&&&&& b=3End Select&B．&Select Case a&Case "A"&&&&&&&& b=1&Case "B"&&&&&&&& b=2&Case Default&&&&&&&& b=3End SelectC．&Switch a&Case "A"&&&&&&&& b=1&Case "B"&&&&&&&& b=2&Case Else&&&&&&&& b=3End Switch&D．&Switch a&Case "A"&&&&&&&& b=1&Case "B"&&&&&&&& b=2&Case Default&&&&&&&& b=3End Switch106．下列程序执行后，变量x的值为(&&& )。Dim a,b,c,d As SingleDim x As Singlea=100b=20c=1000If b&a Thend=a:a=b:b=dEnd IfIf b&c Thenx=bElse If a&c Then&x=cElse&x=aEnd IfA．100&&&&&&&&&&&&&&&& B．20&&&&&&&&&&&&&&&&&& C．1000&&&&&&&&&&&&&&&&&&&&&&& D．0107．执行下列程序后，整形变量c的值为(&&& )。a=24b=328Select Case b\10&&&&&&&& Case 0&&&&&&&& c=a*10+b&&&&&&&& Case 1 to 9&&&&&&&& c=a*100+b&&&&&&&& Case 10 to 99&&&&&&&& c=a*1000+bEnd SelectA．537&&&&&&&&&&&&&&&& B．2427&&&&&&&&&&&&&&& C．24328&&&&&&&&&&&&&&&&&&&&&& D．240328108．程序的基本控制结构是(&&& )。A．顺序结构、多分支结构与单分支结构B．For…Next结构、Do…Loop结构和Select…Case结构C．顺序结构、选择结构与循环结构D．单行结构与多行结构109．若整形变量a=2,b=3，则下面的程序段执行后整形变量c的值为(&&& )。If a&5 ThenIf b&4 Then c=a-b Else c=b-aElseIf b&3 Then c=a*b Else c=a mod bEnd IfA．2&&&&&&&&&&&&&&&&&&& B．-1&&&&&&&&&&&&&&&&&&& C．1&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．6110．执行下列程序段后，变量a的值为(&&& )。Dim a, b, c, d As Singlea = 100b = 20c = 1000If b & a Thend = a: a = b: b = dEnd IfIf c & a Thend = a: a = c: c = dEnd IfIf c & b Thend = b: b = c: c = dEnd IfA．0&&&&&&&&&&&&&&&&&&& B．1000&&&&&&&&&&&&&&& C．100&&&&&&&&&&&&&&&&&&&&&&&&& D．20111．窗体上有3个文本框Text1、Text2、Text3和一个命令按钮Command1。如果在Text1中输入200，在Text2中输入150，则执行下列程序后，Text3的值为(&&& )。Private Sub Command1_Click()Dim m, n, t As Integerm = Val(Text1.Text)n = Val(Text2.Text)If n * m = 0 ThenExit SubEnd IfIf m & n Thent = m: m = n: n = tEnd IfDor = m Mod nm = nn = rLoop While r && 0Text3.Text = mEnd SubA．200&&&&&&&&&&&&&&&& B．50&&&&&&&&&&&&&&&&&& C．100&&&&&&&&&&&&&&&&&&&&&&&&& D．150112．关于多行结构的条件语句的执行过程，正确的是(&&& )。A．各个条件所对应的语句序列中，一定有一个语句序列被执行B．找到条件为True的第一个入口，便从此开始执行其后所有的语句序列C．若有多个条件都为True，则它们对应的语句序列都被执行D．多行结构中的语句序列，有可能任何一个语句序列都不被执行。113．下列块结构条件语句中，正确的是(&&& )。A．&If x&10 Then&& Print "a"Elseif x&5 Then&& Print "b"Elseif x&5 Then&& Print "c"End If&B．&If x&10 Then&& Print "a"Elseif x&5&& Print "b"Else&& Print "c"End If&C．&&If x&10 Then&& Print "a"Else if x&5 Then&& Print "b"Else x&5 Then&& Print "c"End If&&D．&&If x&10 Then&& Print "a"Elseif x&5 Then Print "b"Else&& Print "c"End If114．当条件为5&x&10时，x=x+1,则以下语句正确的是(&&& )。A．If 5&x&10 Then x=x+1&&&&&&&&&&&&&&&& B．If 5&x Or x&10 Then x=x+1C．If 5&x And x&10 Then x=x+1&&&&&&& D．If 5&x Xor x&10 Then x=x+1115．以下语句错误的是(&&& )。A．&If a=1 And b=2 Then&& c=3End If&B．&If a=1 Then&& c=2End If&C．&&c=Iif(a f=1,2,3)&&&D．&&If a=1 Then&& c=2ElseIf a=2 Then&& c=3End If116．关于多分支选择结构的Case语句，下列写法错误的是(&&& )。A．Case 1,5,7,9&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．Case 8 to 10C．Case 10 to 2&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．Case Is&"man"117．下列程序的输入值为5时，其运行结果为(&&& )。Dim a As Integera = InputBox("请输入A的值：")If a & 10 Then&&& If a &= 5 Then Print "A" Else Print "B"Else&&& If a &= 5 Then Print "C" Else Print "D"End IfA．A&&&&&&&&&&&&&&&&&& B．B&&&&&&&&&&&&&&&&&&& C．C&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．D118．在下面程序中如输入15，其运行结果为(&&& )。Dim a As Integera = InputBox("请输入A的值：")Select Case a&&& Case 1 To 4&&&&&&& Print "D"&&& Case 5 To 10&&&&&&& Print "C"&&& Case Is = 15&&&&&&& Print "B"&&& Case Else&&&&&&& Print "A"End SelectA．D&&&&&&&&&&&&&&&&&& B．C&&&&&&&&&&&&&&&&&&& C．B&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．A119．下列程序段的执行的结果为(&&& )。Dim a, b, c As Integera = 5: b = 9: c = 14: a = a + b: c = c - bIf a - c & b - c Then a = b + cIf a - b & b - c Then b = a - cPrint a, b, cA．3&& 6&& 9&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．20 40 60C．80 14 14&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．14 9&& 5120．多分支结构执行哪一个分支的根据是(&&& )。A．Select Case语句的“测试表达式”与Case语句中的“变量值列表”同为FalseB．Select Case语句的“测试表达式”与Case语句中的“变量值列表”同为TrueC．Select Case语句的“测试表达式”与Case语句中的“变量值列表”相匹配D．Select Case语句的“测试表达式”与Case语句中的“变量值列表”完全相等121．假设x的值为5，则在执行以下语句时，其输出结果为“Result”的Select Case语句是(&&& )。A．&Select Case x&Case 10 to 1&&& Print "Result"End Select&B．&Select Case x&Case Is&5,Is&5&&& Print "Result"End SelectC．&Select Case x&Case Is&5,1,3 to 10&&& Print "Result"End Select&D．&Select Case x&Case 1,3,Is&5&&& Print "Result"End Select122．下列程序段的运行结果为(&&& )。Dim x As Integerx = Int(Rnd * 3)Select Case x&&& Case 5&&&&&&& Print "优秀"&&& Case 4&&&&&&& Print "良好"&&& Case 3&&&&&&& Print "通过"&&& Case Else&&&&&&& Print "不通过"End SelectA．优秀&&&&&&&&&&&&&& B．良好&&&&&&&&&&&&&&& C．通过&&&&&&&&&&&&&&&&&&&&&&& D．不通过123．以下正确的叙述是(&&& )。A．Select Case语句中的测试表达式可以是任何形式的表达式B．Select Case语句中的测试表达式只能是数值或字符串表达式C．在执行Select Case语句时，所有Case子句均按出现的次序被顺序执行。D．如下的Select Case语句中的Case表达式是错误的Select Case x&&&&&&&& Case 1 to 10&&&&&&&& …End Select124．语句For i=n1 To n2 Step n3的循环体内有下列4条语句，其中语句(&&& )会影响循环执行的次数。① nl=nl+i&&&&&&&&&&& ② n2=n2+n3③ i=i+n3&&&&&&&&&&&& ④ n3=2*n3A．①②&&&&&&&&&&&&&& B．①②③&&&&&&&&&&& C．③&&&&&&&&&&&&&&&&&&&&&&&&&&& D．①②③④125．对Do Until…Loop循环，正确的是(&&& )。A．如果循环条件为常数0，则一次循环也不执行B．如果循环条件为常数0，则至少执行一次循环C．如果循环条件是不为0的常数，则至少执行一次循环D．无论循环条件是否为"True"，则至少执行一次循环126．要在Do…Loop循环中退出循环，应使用(&&& )语句。A．Exit&&&&&&&&&&&&&&& B．Exit Do&&&&&&&&&& C．Continue&&&&&&&&&&&&&&&&&& D．Stop Loop127．以下循环结构中，VB不支持的是(&&& )。A．For…Next&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．For Each…NextC．Do…Loop&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．Do…End Do128．要在For…Next循环中退出循环，应使用(&&& )语句。A．Exit&&&&&&&&&&&&&&& B．Exit For&&&&&&&&&& C．Continue&&&&&&&&&&&&&&&&&& D．Stop Loop129．下列关于For循环的说法中正确的是(&&& )。A．循环变量、初值、终值和步长都必须是数值型B．Step后的值必须为正数C．初值必须小于终值D．初值必须大于终值130．下列关于Do…Loop语句叙述不正确的是(&&& )。A．Do…Loop语句采用逻辑表达式来控制循环体执行的次数B． Do While…Loop语句与Do Until…Loop语句中While与Until后的表达式值为True或非零时，循环继续C．Do…Loop While与Do…LoopUntil语句都至少执行一次循环D．Do While…Loop语句与Do Until…Loop语句可能不执行循环131．如下循环程序，执行时将(&&& )。For i=1 to 10 Step 0&&&&&&&& k=k+2Next iA．形成无限循环&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．仅循环一次C．语法错误&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．一次也不循环132．对Exit For,叙述正确的是(&&& )。A．Exit For语句可以退出任何类型的循环B．一个循环只能有一条Exit For语句C．Exit For表示返回到For语句执行D．一个For循环可以有多条Exit For语句133．对For循环中的初值、终值与步长，下列说法正确的是(&&& )。A．只能是具体的数值&&&&&&&&&&&&&&&&&&&&& B．只能是表达式C．可以是数值表达式&&&&&&&&&&&&&&&&&&&&& D．可以是任何类型的表达式134．要使循环至少执行一次，应使用(&&& )循环。A．For…Next&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．While…EndC．Do…Loop while|until&&&&&&&&&&&&&&&&&& D．Do[while|until]…Loop135．有如下的程序段，该程序段执行完毕后，共循环了(&&& )次。For i = 1 To 2&&& For j = 1 To i&&&&&&& For k = 1 To j&&&&&&&&&&& Print "a"&&&&&&& Next k&&& Next jNext IA．4&&&&&&&&&&&&&&&&&&& B．5&&&&&&&&&&&&&&&&&&&& C．6&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．7136．执行完下面的程序段后，循环执行了(&&& )次。For i = 1.7 To 5.9 Step 0.9&&& a = a + 1&&& Print aNext IA．3&&&&&&&&&&&&&&&&&&& B．4&&&&&&&&&&&&&&&&&&&& C．5&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．6137．以下程序段的循环次数为(&&& )。For i = 1 To 3&&& For j = 5 To 1 Step -1&&&&&&& Print i * jNext j, iA．15&&&&&&&&&&&&&&&&& B．16&&&&&&&&&&&&&&&&&& C．17&&&&&&&&&&&&&&&&&&&&&&&&&&& D．18138．执行以下程序后，x的值为(&&& )。x = 5For i = 1 To 20 Step 2&&& x = x + i \ 5Next iA．24&&&&&&&&&&&&&&&&& B．23&&&&&&&&&&&&&&&&&& C．22&&&&&&&&&&&&&&&&&&&&&&&&&&& D．21139．一命令按钮的事件过程如下，程序运行后单击该命令按钮，输出结果为(&&& )。For i = 1 To 4&&& x = 4&&& For j = 1 To 3&&&&&&&&&&& x = x + 6&&& Next jNext iPrint xA．72&&&&&&&&&&&&&&&&& B．22&&&&&&&&&&&&&&&&&& C．4&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．7140．以下三重循环的程序运行后，A的值为(&&& )。For i = 1 To 3&&& For j = 1 To i&&&&&&& For k = j To 3&&&&&&&&&&& a = a + 1&&&&&&& Next k&&& Next jNext IA．3&&&&&&&&&&&&&&&&&&& B．9&&&&&&&&&&&&&&&&&&&& C．14&&&&&&&&&&&&&&&&&&&&&&&&&&& D．21141．窗体上有一文本框Text1，对应窗体的Click事件过程如下，程序运行单击窗体后其结果是(&&& )。Private Sub Form_Click()Text1.Text = ""Text1.SetFocusFor i = 1 To 10&&& Sum = Sum + iNext iText1.Text = SumEnd SubA．在文本框Text1中输出55&&&&&&&&&&& B．在文本框Text1中输出0C．出错&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．在文本框Text1中输出不定值142．在窗体上有一命令按钮和一个标签，其名称分别为Command和Label1，然后编写如下事件过程：Private Sub Command1_Click()Counter = 0For i = 1 To 4&&& For j = 6 To 1 Step -2&&&&&&& Counter = Counter + 1&&& Next jNext iLabel1.Caption = Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是(&&& )。A．11&&&&&&&&&&&&&&&&& B．12&&&&&&&&&&&&&&&&&& C．13&&&&&&&&&&&&&&&&&&&&&&&&&&& D．14143．下列程序中，第一个Do语句共执行了(&&& )次循环。Dim i As Integer, j As Integeri = 1Do&&& j = 1&&& Do&&&&&&& Sum = Sum + j&&&&&&& j = j + 2&&&&&&& P&&& Loop Until j & 3&&& i = i + 2Loop Until i & 10Print SumA．10&&&&&&&&&&&&&&&&& B．20&&&&&&&&&&&&&&&&&& C．5&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．7144．一命令按钮的事件过程如下，程序运行后单击该按钮，其输出结果为(&&& )。Private Sub Command1_Click()For i = 1 To 4&&& If i = 1 Then x = i&&& If i &= 4 Then x = x + 1&&& PNext iEnd SubA．1 2 3 4&&&&&&&&&&& B．2 3 4 5&&&&&&&&&&&& C．1 3 4 5&&&&&&&&&&&&&&&&&&&& D．3 4 5 6145．一个命令按钮所对应的事件过程为：Private Sub Command1_Click()Dim a(5, 5) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3&&& For j = 1 To 3&&&&&&& a(i, j) = (i - 1) * 3 + j&&&&&&& Print a(i, j);&&& Next j&&& PrintNext iEnd Sub程序运行的结果为(&&& )。A．&1 4 72 5 83 6 9&B．&1 2 34 5 67 8 9&C．&&1 2 3 4 5 6 7 8 9&&D．&&没有输出146．窗体上一个命令按钮的事件过程如下：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1&&& s = s + a(i) * j&&& j = j * 10Next iPrint sEnd Sub程序运行的结果为(&&& )。A．4321&&&&&&&&&&&&&& B．12&&&&&&&&&&&&&&&&&& C．34&&&&&&&&&&&&&&&&&&&&&&&&&&& D．1234147．窗体上一个命令按钮的事件过程为：Private Sub Command1_Click()For i = 1 To 4&&& x = 4&&& For j = 1 To 3&&&&&&& x = 3&&&&&&& For k = 1 To 2&&&&&&&&&&& x = x + 6&&&&&&& Next k&& Next jNext iPrint xEnd Sub程序运行的结果为(&&& )。A．7&&&&&&&&&&&&&&&&&&& B．15&&&&&&&&&&&&&&&&&& C．157&&&&&&&&&&&&&&&&&&&&&&&&& D．538148．以下程序的输出结果是(&&& )。Option Base 1Private Sub Command1_Click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10&&& a(i) = iNext iFor i = 1 To 3&&& p(i) = a(i * i)Next iFor i = 1 To 3&&& k = k + p(i) * 2Next iPrint kEnd SubA．33&&&&&&&&&&&&&&&&& B．28&&&&&&&&&&&&&&&&&& C．35&&&&&&&&&&&&&&&&&&&&&&&&&&& D．37149．命令按钮的Click事件过程如下。程序运行结果为(&&& )。Option Base 1Private Sub Command1_Click()Dim a(4, 4)For i = 1 To 4&&& For j = 1 To 4&&&&&&& a(i, j) = (i - 1) * 3 + j&&& Next jNext iFor i = 3 To 4&&& For j = 3 To 4&&&&&&& Print a(j, i);&&& Next j&&& PrintNext iEnd Sub&A．&6 97 10&B．&7 108 11&C．&&8 119 12&&D．&&9 1210 13150．在窗体上添加一命令按钮，其名为Command1，然后编写如下事件代码：Private Sub Command1_Click()Dim a(5) As Integer, b(5) As Integern = 3For i = 1 To 5&&& a(i) = i&&& b(n) = 2 * n + iNext iPrint a(n); b(n)End Sub程序运行的结果为(&&& )。A．3 11&&&&&&&&&&&& B．11 3&&&&&&&&&&&&& C．13 3&&&&&&&&&&&&&&&&&&&&&& D．3 13151．以下程序的运行结果是(&&& )。Private Sub Command1_Click()Dim x As IntegerFor i = 1 To 10&&& If i Mod 3 = 0 Then&&&&&&& x = x + i&&& End IfNext iPrint xEnd SubA．3&&&&&&&&&&&&&&&&&&& B．6&&&&&&&&&&&&&&&&&&&& C．9&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．18152．以下是一个计算1~100之间所有奇数和的程序，所缺部分应填(&&& )。Dim s As LongDim x As Integers = 0For x = _________ Step -2&&& s = s + xNext xPrint sA．100 to 1&&&&&&&&& B．1 to 100&&&&&&&&&& C．99 to 1&&&&&&&&&&&&&&&&&&&& D．1 to 99153．下列程序的执行结果为(&&& )。100:k = k + 1s = s + kIf k &= 10 Then GoTo 100Print sA．66&&&&&&&&&&&&&&&&& B．33&&&&&&&&&&&&&&&&&& C．10&&&&&&&&&&&&&&&&&&&&&&&&&&& D．200154．以下程序是输出1~100之间偶数的和，所缺部分应填(&&& )。Dim x As LongFor i = 0 To 100&&& If__________Then&&&&&&& x = x + i&&& End IfNext iPrint xA．x mod 2=0&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& B．i mod 2=0C．x mod 2& &0&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．i mod 2& &0155．下列程序共循环了(&&& )次。For i = 1 To 10 Step 2&&& For j = 1 To 5 Step 2&&&&&&& intsum = intsum + j&&& Next j&&& If intsum & 10 Then Exit ForNext iA．15&&&&&&&&&&&&&&&&& B．5&&&&&&&&&&&&&&&&&&&& C．3&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．6156．窗体上有一个文本框Text1和一个命令按钮Command1，则执行下列事件过程后文本框的输出为(&&& )。For i = 1 To 4&&& If x & 12 Then Exit For&&& For j = 1 To 3&&&&&&& For k = 1 To 2&&&&&&&&&&& x = x + 3&&&&&&& Next k&&& Next jNext iText1.Text = Str(x)A．6&&&&&&&&&&&&&&&&&&& B．12&&&&&&&&&&&&&&&&&& C．18&&&&&&&&&&&&&&&&&&&&&&&&&&& D．21157．下列程序段的执行结果为(&&& )。For i = 5 To 1 Step -1&&& For j = 1 To 6 - i&&&&&&& Print Tab(j + 5); "*";&&& Next j&&& PrintNext IA．&***************&B．&*****&****&***&& **&&& *&C．&&***************&&D．&&&&& *&& ***&*****&****************158．下列程序段的执行结果为(&&& )。n = 0j = 1Do Until n & 2&&& n = n + 1&&& j = j + n * (n + 1)LoopP jA．0 1&&&&&&&&&&&&&& B．3 7&&&&&&&&&&&&&&& C．3 21&&&&&&&&&&&&&&&&&&&&&& D．3 13159．下列程序段的执行结果是(&&& )。x = 0: y = 1Do&&& x = x + y&&& y = y + 1Loop While x & 10P yA．10 5&&&&&&&&&&&& B．x y&&&&&&&&&&&&&&& C．0 1&&&&&&&&&&&&&&&&&&&&&&& D．10 30160．以下程序段执行后依次输入5、4、3、2、1、-1，则输出结果是(&&& )。Dim a As Integer, b As Integer, x As Integerx = 0Do Until x = -1&&& a = InputBox("请输入A的值")&&& b = InputBox("请输入B的值")&&& x = InputBox("请输入X的值")&&& a = a + b + xLoopPrint aA．2&&&&&&&&&&&&&&&&&&& B．3&&&&&&&&&&&&&&&&&&&& C．14&&&&&&&&&&&&&&&&&&&&&&&&&&& D．15161．有两个文本框Text1、Text2及一个命令按钮Command1，有以下事件过程：Private Sub Command1_Click()x = 0Do While x & 50&&& x = (x + 2) * (x + 3)&&& n = n + 1LoopText1.Text = nText2.Text = xEnd Sub程序运行后，单击命令按钮，在两个文本框中显示的分别为(&&& )。A．1和0&&&&&&&&&&&& B．2和72&&&&&&&&&&& C．3和50&&&&&&&&&&&&&&&&&&&& D．4和168162．以下循环程序执行完毕后共循环了(&&& )次。n = 5Do&&& If n Mod 2 = 0 Then&&&&&&& n = n \ 2&&& Else&&&&&&& n = n * 3 + 1&&& End IfLoop Until n = 1A．5&&&&&&&&&&&&&&&&&&& B．4&&&&&&&&&&&&&&&&&&&& C．3&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．2163．如下程序如果要求运行时只能循环3次，则所缺部分应填上(&&& )。x = 1Do&&& x = x + 3&&& Print xLoop Until _______A．x&=8&&&&&&&&&&&&& B．x&=8&&&&&&&&&&&&&& C．x&=7&&&&&&&&&&&&&&&&&&&&&&& D．x&=7164．以下程序运行后，其变量x的值是(&&& )。k = 10Do While k &= 5&&& x = x + 2&&& k = k - 1LoopA．12&&&&&&&&&&&&&&&&& B．8&&&&&&&&&&&&&&&&&&&& C．4&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．2165．如下程序段，执行完该程序后共循环(&&& )次。Do Until k &= 3&&& x = x + 2&&& k = k + 1LoopA．2&&&&&&&&&&&&&&&&&&& B．4&&&&&&&&&&&&&&&&&&&& C．3&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D．5166．以下程序的运行结果为(&&& )。Dim x As Integer, i As Integerx = 1Do Until x & 10&&& If x Mod 3 & & 0 Then&&&&&&& i = i + x&&& End If&&& x = x + 1LoopPrint iA．55&&&&&&&&&&&&&&&&& B．37&&&&&&&&&&&&&&&&&& C．18&&&&&&&&&&&&&&&&&&&&&&&&&&& D．25167．下列程序运行时输入的值分别为100、10，则执行结果为(&&& )。Dim m As Integer, n As Integerm = InputBox("输入第一个数")n = InputBox("输入第二个数")If n * m = 0 Then&&& MsgBox "两数都不能为0"End IfIf m & n Then&&& t = m: m = n: n = tEnd IfDo&&& r = m Mod n&&& m = n&&& n = rLoop While r & & 0Print mA．100&&&&&&&&&&&&&&&& B．250&&&&&&&&&&&&&&&& C．50&&&&&&&&&&&&&&&&&&&&&&&&&&& D．10二、填空题1．常量可分为普通常量与_______常量。2．数学表达式 的VB表达式为________________。3．与下列式子对应的VB表达式为__________。4．要表示一个日期常量，必须用____符号括起来。5．双精度数由____和_____两部分构成，中间用_____字母隔开。6．表达式9\5*3的值为______。7．以下程序将3个数从小到大进行排序，试填空完成程序。If a & b Then d = a: a = b: b = dIf ______ Then d = a: a = c: c = dIf b & c Then d = b: b = c: c = d8．在Select Case语句中，至少应有一个_______子句。9．表达式"1234"& &"12345" & "Abc"的值为______。10．使程序停止运行的命令是______。11．面向对象的程序设计方法是把程序和____封装起来作为一个对象，并为每个对象设置所需要的_____。12．逻辑常量的值为______或_______。13．判断三条边a、b、c能否构成三角形的逻辑表达式为_____________。14．要想在窗体上显示文字，可使用______方法。15．一组具有相同名称、不同下标的下标变量称为______。16．定义动态数组需要分两步进行：首先在模块级或过程级定义一个没有下标的数组，然后在______使用________语句定义数组的实际元素个数。17．某个程序要使用一个二维数组，要求数组名A，类型为字符型，第一维下标为1~5，第二维为下标-2~6，则相应的数组声明语句为：________。18．一般情况下，数组定义时其默认的下标下界为_____，但可以使用___________语句来改变默认的下界。19．能够使用变量作为下标定维的数组只能是_______。20．用ReDim语句只能用来改变数组的_______。21．在启动VB 6.0时，其默认的工程类型为_______。22．True Xor False的值为______。23．7 mod 3+3^3/4\5的值为______。24．字符型数据的类型标识符为_____。25．x、y均小于z的表达式为______。26．在For…Next循环中，其循环次数由循环变量的初值、终值与步长决定，计算公式为_________。27．在Do…Loop循环中，如省略While或Until子句，则会形成________。28．表达式4&5 and 7=5的值为______。29．若a的值为True，则表达式a=(4=3)的值为_____。30．字符串常量必须用_____括起来。31．语句“Print Sgn(-2)”的运行结果为_______。32．对a=Sqr(2)，以下语句的输出结果分别为_________和_________。Print Format(a,"###.#00")Print Format(a,"000.00")33．由Array函数建立的数组变量必须是_____类型。34．执行下列语句序列后，输出的结果分别为____________和___________。str1="Visual Basic "s=6.0Print str1+sPrint str1 & s35．以下程序的运行结果是________。&&&&&& a=9Print a+1;a+2;a+336．设当前日期为日，星期四，则执行“Print Day(now)”后的结果是_________。37．执行“x=InputBox("请输入数据")”并输入1234后，x的值为______类型的数据。38．Print int(123..5)/100的结果是______。39．在VB中，变量名只能由_____、_____与下划线构成。40．执行以下语句后，输出结果为________。str$="ABCDEFGHIJKL"Print InStr(str$,"efg")Print lcase(str$)41．Len("VB程序设计教程")的值是______。42．控件的名称属性只能在_____中设置，而不能在______中设置。43．如下的VB表达式相当于数学式子_______。&&&&&&&& 5*x^2-3*x-2*Sin(A)/344．有以下程序，执行时输入456与123，则输出结果是______。a = InputBox("请输入a")图2-1&b = InputBox("请输入b")Print a + b45．根据图2-1写出InputBox函数中的参数。InputBox(______，______，______)46．写出满足下列条件的逻辑表达式：(1) 判断闰年：年号(intyear)能被4整除，但不能被100整除；或能被400整除。(2) 一元二次方程ax2+bx+c=0存在实根的条件：a不等于0，且b2-4ac大于等于0。(3) 当选先进条件：党员(party),教龄(teach)3年以上，任教学时(teaching)240~350。47．下列函数的值分别为：(1) Int(-3.14159)&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& (2) Int(Abs(99-100)/2)(3) Fix(-3.14159)&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& (4) Val("16 year")(5) Str(-456.78)&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& (6) Len("Hello 你好!")(7) Lcase("Hello")&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& (8) Sqr(Sqr(9))48．对布尔型、字符型、数值型、变体型变量在没有赋值时，其初值分别是__________。49．写出下列语句所对应的输出_________。a=Print Format(a,"##,0")Print Format(a,"###,#0")Print Format(a,"#.00E+00")Print Format(a,"##,0.00")Print Format(a,"")50．语句Print "14+54=";14+54的输出结果为_______。51．执行以下程序段后，b的值为________。a=300b=20a=a+bb=a-ba=a-b52．以下程序判断从文本框Text1中输入的数据。如果该数据能被3或7整除，则输出；否则将焦点定位在文本框Text1中，选中其中的文本，等待重新输入。试补充以下程序。Private Sub Command1_Click()x = Val(Text1.Text)If ________Then&&& Print xElse&&& ______________&&& Text1.SelStart =0&&& Text1.SelLength = __________End IfEnd Sub53．计算分段函数：&&&&& 用下面的程序试补全程序。Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)Select Case a&&& Case __________&&&&&&& n = a + b&&& Case 5&&&&&&& n = b / a&&& Case__________&&&&&&& n = 0End SelectText3.Text = nEnd Sub54．以下程序根据文本框中输入的成绩x进行处理，试补充以下程序。x≥90&&&&&&&&&&& 打印“成绩优秀”90&x≥80&&&&&&&&&&&&& 打印“成绩良好”80&x≥70&&&&&&&&&&&&& 打印“成绩中等”70&x≥60&&&&&&&&&&&&& 打印“成绩合格”x&60&&&&&&&&&&&&& 打印“成绩不合格”否则&&&&&&&&&&&&&&&&&&&& 打印“非法数据”Private Sub Command1_Click()x = Val(Text1.Text)Select Case x&&& Case___________&&&&&&& Print "非法数据，请重新输入"&&&&&&& Text1.SetFocus&&&&&&& Text1.SelStart = 0&&&&&&& Text1.SelLength = ___________&&& Case Is &= 90&&&&&&& Print "成绩优秀"&&& Case___________&&&&&&& Print "成绩良好"&&& Case Is &= 70&&&&&&& Print "成绩中等"&&& Case Is &= 60&&&&&&& Print "成绩合格"&&& Case ___________&&&&&&& Print "成绩不合格"End SelectEnd Sub55．在窗体上画一个标签和一个命令按钮，其名称分别为Label1和Command1，然后编写以下事件过程：Private Sub Command1_Click()Dim a(10) As IntegerFor i = 1 To 5&&& a(i) = i * i&&& num = a(i)NextLabel1.Caption = numEnd Sub程序运行后，单击命令按钮，在标签中显示的结果是_____。56．在下面的程序中，要求循环体执行4次，试填空。Private Sub Command1_Click()x = 1Do While _______&&& x = x + 2LoopEnd Sub57．在窗体上画一个命令按钮，然后编写事件过程：Private Sub Command1_Click()Dim a(1 To 10)Dim p(1 To 3)k = 5For i = 1 To 10&&& a(i) = iNext iFor i = 1 To 3&&& p(i) = a(i * i)Next iFor i = 1 To 3&&& k = k + p(i) * 2Next iPrint kEnd Sub程序运行后，输出的值是____________。58．运行下面的程序，单击窗体后在窗体上显示的第一行结果是______；第二行结果是_____；第三行结果是____。Private Sub Form_Click()Dim i As Integer, s As IntegerFor i = 1 To 10&&& s = s + i&&& If s & 10 Then&&&&&&& Print s&&&&&&& s = 0&&& End IfNext iEnd Sub59．运行下面的程序，单击窗体后在窗体上显示的内容是______；若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是_____。Private Sub Form_Click()Dim a As Integer, b As Integera = 0: b = 0Do While a &= 8&&& a = a + 2&&&&&&&&&& 'A语句&&& b = b + a * a&&&&&&& 'B语句LoopPrint a, bEnd Sub60．运行下面的程序，单击窗体后在窗体上显示的第一行结果是______；第三行结果是______。Private Sub Form_Click()Dim mst As String, mst1 As String, mst2 As StringDim i As Integermst1 = "CeBbAa"For i = Len(mst1) To 1 Step -2&&& mst2 = Mid(mst1, i - 1, 2)&&& mst = mst & mst2&&& Print mstNext iEnd Sub61．下面的程序用“冒泡”法将数组a中的10个整数按升序排列，试将程序补充完整。Private Sub Command1_Click()Dim aa = Array(678, 45, 334, 540, 430, 387, 89, 889, 234, 876)For ________&&& For j =________&&&&&&& If a(i) ____a(j) Then&&&&&&&&&&& a1 = a(i)&&&&&&&&&&& a(i) = a(j)&&&&&&&&&&& a(j) = a1&&&&&&& End If&&& Next jNext iFor i = 1 To 10&&& Print a(i)Next iEnd Sub62．给出下面程序段的输出结果。设运行时依次输入数据：7,2,-3,8,-5,-10,18,-15,31,4,-1,-1。x = 0Do While x & & -1&&& x = Val(InputBox("请输入数据x"))&&& y = Val(InputBox("请输入数据y"))&&& If x * y & x + y Then Print x, yLoop63．下面程序段运行后，第一行输出______，第二行输出________。Private Sub Command1_Click()Dim i As Integer, j As Integer, k As Integerk = 0For i = 0 To 10 Step 3&&& For j = 1 To 10&&&&&&& If j & 5 Then k = k + 4: Exit For&&&&&&& k = k + 1&&& Next j&&& Print i, k&&& If i & 8 Then Exit ForNext iEnd Sub64．下列程序段的输出结果是________。p = 0s = 0Do&&& p = p + 2&&& s = s + pLoop While p & 11Print "S="; s65．以下程序是一个评分程序，10名评委，去掉一个最高分和一个最低分，计算平均分(设满分为100分)。试填空。Private Sub Command1_Click()Max = 0Min = 100For i = 1 To 10&&& n = Val(InputBox("请输入分数"))&&& If ________Then Max = n&&& If ________Then Min = n&&& s = s + nNext is =__________p = s / 8Print "最高分："; Max, "最低分："; MinPrint "最后得分："; pEnd Sub66．下列程序段的运行结果是_________。For i = 1 To 6&&& Print Tab(7 - i);&&& For j = 1 To 2 * i - 1&&&&&&& Print "*";&&& Next jNext i67．窗体上有一个命令按钮Command1、两个文本框Text1与Text2。在Text1中输入任一字符串，单击命令按钮后该字符串以反序的形式出现在Text2中。试完成下列程序。Private Sub Command1_Click()Dim n As String, c As String, d As Stringn = Text1.Textm =________For i = m To 1 Step -1&&& c= _________&&& d= d & __Next iText2.Text = dEnd Sub68．以下程序产生20个随机的10~100之间的整数，并将其中的奇数打印出来(每行打印4个数)。完成程序。Private Sub Command1_Click()RandomizeFor i = 1 To 20&&& x = Int(Rnd *________)&&& If __________Then&&&&&&& k = k + 1&&&&&&& If _________ Then Print x&&&&&&& Print x；&&& End IfNext iPrintEnd Sub69．一个数组y有10个元素，已按升序排列，现又输入一个元素插入到该数组中，插入后该数组中的元素仍然按升序排列。试补充以下程序。Private Sub Command1_Click()Dim yy = Array(3, 23, 34, 56, 66, 67, 78, 85, 89, 90)ReDim Preserve y(1 To 11) 'Preserve关键字：保留原数组中的数据n = Val(InputBox("请输入一个数"))For i = 10 To 1 Step -1&&& If________Then y(i + 1) = n: Exit For&&& y(_____)= y(i)Next iy(______) = nFor i = 1 To 11&&& Print y(i); Space(1);Next iEnd Sub70．以下程序代码实现单击命令按钮Command1时输出一个主对角线上元素值为1、其余元素为0的6×6方阵。完成程序。Private Sub Command1_Click()Dim a(6, 6)For i = 1 To 6&&& For j = 1 To 6&&&&&&& If i = j Then&&&&&&&&&&& ________&&&&&&& Else&&&&&&&&&&& ________&&&&&&& End If&&&&&&& Print ________&&& Next j&&& PrintNext iEnd Sub71．以下程序将整形动态数组x声明成有20个元素的数组，并给数组所有的元素赋值1。完成程序。________As IntegerReDim________For i = 1 To 20&&& x(i) = 1&&& Print x(i)Next i72．给出下列程序的运行结果________________。Dim a() As IntegerReDim a(1 To 5)For i = 1 To 5&&& a(i) = iNext iReDim a(1 To 10)For i = 6 To 10&&& a(i) = 2 * iNext iFor i = 1 To 10&&& Print a(i);Next i73．执行下面的程序，第一行输出结果是______，第二行输出结果是_____。Private Sub Form_Click()Dim i As Integer, j As Integerj = 10For i = 1 To j&&& i = i + 1&&& j = j - 1Next iPrint iPrint jEnd Sub74．执行下面程序后，a(1，3)的值是______，a(2，2)的值是______，a(3，1)的值是______。Private Sub Form_Click()Dim a(3, 3) As Integer, i As IntegerDim j As Integer, k As Integer, n As Integern = 9For k = 1 To 5&&& If k &= 3 Then&&&&&&& For i = 1 To k&&&&&&&&&&& a(i, k - i + 1) = n&&&&&&&&&&& n = n + 1&&&&&&& Next i&&& Else&&&&&&& For i = 1 To 6 - k&&&&&&&&&&& a(k - 3 + i, 4 - i) = n&&&&&&&&&&& n = n + 1&&&&&&& Next i&&& End IfNext kFor k = 1 To 3&&& For i = 1 To 3&&&&&&& Print a(k, i);&&& Next i&&& PrintNext kEnd Sub75．以下命令按钮的事件过程用于计算10!，试填空。Private Sub Command1_Click()x = 1Result = _____While x &= 10&&& Result = ___________&&& x = x + 1WendPrint ResultEnd Sub76．执行下面程序，第一行输出的结果是______，第二行输出的结果是_____。Private Sub Form_Click()Dim a As Integer, b As Integera = 1: b = 0Do While a &= 5&&& b = b + a * a&&& a = a + 1LoopPrint aPrint bEnd Sub77．执行下面的程序，第二行输出结果是______，第三行输出结果是______。Private Sub Form_Click()图2-2&Dim ch As String, i As Integerch = "ABC"For i = 1 To 3&&& ch = Mid(ch, 2 * i - 1, 1) + Left(ch, Len(ch))&&& Print chNext iEnd Sub78．本程序的功能是统计输入字符串中字母、数字和其他字符的个数。其中的vbCrLf为产生回车换行的VB常数控件内容见表2-2。程序界面如图2-2所示。表2-2 对&&& 象&名称(Name)&标题(Caption)&正文(Text)文本框1&TxtInput&X&空文本框2&TxtOutput&X&空命令按钮1&Cmdsta&统计&X命令按钮2&CmdExit&结束&XPrivate Sub CmdExit_Click()UnLoad MeEnd SubPrivate Sub CmdSta_Click()Dim i As Integer,n1 As Integer,n2 As Integer,n3 As IntegerDim s As StringFor i=1 To Len(TxtInput.Text)Select Case__________________Case "A" To "Z","a" To "z"&n1=n1+1&Case _____________&n2=n2+1&__________&n3=n3+1End SelectNext is="字母个数："&Str(n1)&vbCrLfs=s&"数字个数:"&Str(n2)&vbCrLfs=s&"其他字符个数："&Str(n3)________________End Sub79．根据题中给出的窗体(见图2-3)，填写表2-3中的相关内容，"X"表示对象无该属性。表2-3对&&& 象&名称(Name)&标题(Caption)&口令字符(Passwordchar)窗体&Form1&&&X标签&Label1&&&X文本框&Text1&X&&命令按钮&Command1&&&X80．执行下面的程序，第一行输出结果是______，第二行输出结果是______。Private Sub Form_Click()Dim m As Integer,n As Integer,k As Integern=-3For m=6 To 1 Step nm=m+1n=n-mk=k+1Next m图2-3Print kPrint nEnd Sub&&&&&&&&&& 81．执行下面的程序，在窗体上显示的输出结果的第一行是______，第二行是______。Private Sub Form_Click()Dim s As String, i As Integer, flag As Booleans = "THIS IS A BOOK."s = Lcase(s)Print sflag = TrueFor i = 1 To Len(s)&&& If Mid(s, i, 1) = " " Then&&&&&&& flag = True&&& ElseIf flag Then&&&&&&& s = Left(s, i - 1) & UCase(Mid(s, i, 1)) & Right(s, Len(s) - i)&&&&&&& flag = False&&& End IfNext iPrint sEnd Sub82．执行下面程序，在窗体上显示的输出结果的第二行是______，第五行是______，第六行是______。Private Sub Form_Click()Dim a(3, 3) As Integer, i As IntegerDim j As Integer, k As IntegerFor i = 1 To 3&&& For j = 1 To 3&&&&&&& a(i, j) = (i - 1) * 3 + j&&&&&&& Print a(i, j);&&& Next j&&& PrintNext ik = (i - 1) * 3For i = 1 To 3&&& For j = 1 To 3&&&&&&& a(i, j) = k&&&&&&& k = k - 1&&&&&&& Print a(i, j);&&& Next j&&& PrintNext iEnd Sub83．以下程序用于在带垂直滚动条的文本框中输出3~100之间的全部素数。完成程序。Private Sub Command1_Click()Text1.Text = ""For n = 3 To 100&&& k = Int(Sqr(n))&&& i = 2&&& flag = 0&&& Do While _________If n Mod i = 0 Then&flag =___&Exit DoElse&i = i + 1End If&&&&&& LoopIf _______ Then&Text1.Text = Text1.Text & Str(n) & vbCrLfEnd IfNext nEnd Sub&&2.2.2 答案与分析一、选择题(打“*”答案有分析)【答案】1．D*&&&&&&&&&&&&& 2．A&&&&&&&&&&&&&&&&&& 3．B&&&&&&&&&&&&&&&&&&&&&& 4．D*&&&&&&&&&&&&&&&&& 5．D*6．D*&&&&&&&&&&&&& 7．D*&&&&&&&&&&&&&&&&& 8．B*&&&&&&&&&&&&&&&&&&&& 9．D*&&&&&&&&&&&&&&&&& 10．A11．C&&&&&&&&&&&&& 12．D*&&&&&&&&&&&&&&& 13．D&&&&&&&&&&&&&&&&&&&& 14．A*&&&&&&&&&&&&&&& 15．C*16．C&&&&&&&&&&&&& 17．C&&&&&&&&&&&&&&&&& 18．A&&&&&&&&&&&&&&&&&&&& 19．A*&&&&&&&&&&&&&&& 20．D*21．D&&&&&&&&&&&&& 22．B&&&&&&&&&&&&&&&&& 23．B*&&&&&&&&&&&&&&&&&& 24．B*&&&&&&&&&&&&&&& 25．C26．B*&&&&&&&&&&& 27．B&&&&&&&&&&&&&&&&& 28．A&&&&&&&&&&&&&&&&&&&& 29．C*&&&&&&&&&&&&&&& 30．B*31．D*&&&&&&&&&&& 32．A*&&&&&&&&&&&&&&& 33．A&&&&&&&&&&&&&&&&&&&& 34．B&&&&&&&&&&&&&&&&& 35．B36．D*&&&&&&&&&&& 37．C*&&&&&&&&&&&&&&& 38．B*&&&&&&&&&&&&&&&&&& 39．D*&&&&&&&&&&&&&&& 40．C41．B*&&&&&&&&&&& 42．A*&&&&&&&&&&&&&&& 43．C&&&&&&&&&&&&&&&&&&&& 44．D*&&&&&&&&&&&&&&& 45．D46．D*&&&&&&&&&&& 47．C&&&&&&&&&&&&&&&&& 48．C&&&&&&&&&&&&&&&&&&&& 49．D&&&&&&&&&&&&&&&&& 50．D51．C&&&&&&&&&&&&& 52．D*&&&&&&&&&&&&&&& 53．B*&&&&&&&&&&&&&&&&&& 54．A&&&&&&&&&&&&&&&&& 55．C56．B*&&&&&&&&&&& 57．C*&&&&&&&&&&&&&&& 58．B&&&&&&&&&&&&&&&&&&&& 59．D&&&&&&&&&&&&&&&&& 60．B61．A&&&&&&&&&&&&& 62．D*&&&&&&&&&&&&&&& 63．B*&&&&&&&&&&&&&&&&&& 64．C*&&&&&&&&&&&&&&& 65．D*66．C&&&&&&&&&&&&& 67．A*&&&&&&&&&&&&&&& 68．C&&&&&&&&&&&&&&&&&&&& 69．B&&&&&&&&&&&&&&&&& 70．B71．A*&&&&&&&&&&& 72．C&&&&&&&&&&&&&&&&& 73．C&&&&&&&&&&&&&&&&&&&& 74．A&&&&&&&&&&&&&&&&& 75．D*76．A&&&&&&&&&&&&& 77．B*&&&&&&&&&&&&&&& 78．D&&&&&&&&&&&&&&&&&&&& 79．D&&&&&&&&&&&&&&&&& 80．B81．A&&&&&&&&&&&&& 82．A*&&&&&&&&&&&&&&& 83．C&&&&&&&&&&&&&&&&&&&& 84．C&&&&&&&&&&&&&&&&& 85．B86．C*&&&&&&&&&&& 87．A&&&&&&&&&&&&&&&&& 88．B&&&&&&&&&&&&&&&&&&&& 89．A&&&&&&&&&&&&&&&&& 90．B*91．B&&&&&&&&&&&&& 92．D*&&&&&&&&&&&&&&& 93．C&&&&&&&&&&&&&&&&&&&& 94．B&&&&&&&&&&&&&&&&& 95．A*96．C&&&&&&&&&&&&& 97．B&&&&&&&&&&&&&&&&& 98．A&&&&&&&&&&&&&&&&&&&& 99．A&&&&&&&&&&&&&&&&& 100．D*101．D&&&&&&&&&&& 102．B*&&&&&&&&&&&&& 103．D&&&&&&&&&&&&&&&&&& 104．D*&&&&&&&&&&&&& 105．A*106．A*&&&&&&&&& 107．C*&&&&&&&&&&&&& 108．C&&&&&&&&&&&&&&&&&& 109．A&&&&&&&&&&&&&&& 110．B*111．B*&&&&&&&&&& 112．D&&&&&&&&&&&&&&& 113．B*&&&&&&&&&&&&&&&&& 114．C&&&&&&&&&&&&&&& 115．C116．C*&&&&&&&&&& 117．C&&&&&&&&&&&&&&& 118．C&&&&&&&&&&&&&&&&&& 119．D&&&&&&&&&&&&&&& 120．C121．C&&&&&&&&&&& 122．D*&&&&&&&&&&&&& 123．B&&&&&&&&&&&&&&&&&& 124．C*&&&&&&&&&&&&& 125．B*126．B&&&&&&&&&&& 127．D&&&&&&&&&&&&&&& 128．B&&&&&&&&&&&&&&&&&& 129．A&&&&&&&&&&&&&&& 130．B131．A&&&&&&&&&&& 132．D&&&&&&&&&&&&&&& 133．C&&&&&&&&&&&&&&&&&& 134．C*&&&&&&&&&&&&& 135．A*136．C*&&&&&&&&& 137．A&&&&&&&&&&&&&&& 138．D&&&&&&&&&&&&&&&&&& 139．B*&&&&&&&&&&&&& 140．C141．A&&&&&&&&&&& 142．B&&&&&&&&&&&&&&& 143．A&&&&&&&&&&&&&&&&&& 144．B*&&&&&&&&&&&&& 145．B*146．D*&&&&&&&&& 147．B&&&&&&&&&&&&&&& 148．A&&&&&&&&&&&&&&&&&& 149．D&&&&&&&&&&&&&&& 150．A151．D*&&&&&&&&& 152．C*&&&&&&&&&&&&& 153．A*&&&&&&&&&&&&&&&& 154．B&&&&&&&&&&&&&&& 155．D*156．C&&&&&&&&&&& 157．C*&&&&&&&&&&&&& 158．C&&&&&&&&&&&&&&&&&& 159．A&&&&&&&&&&&&&&& 160．A161．B&&&&&&&&&&& 162．A*&&&&&&&&&&&&& 163．A*&&&&&&&&&&&&&&&& 164．A&&&&&&&&&&&&&&& 165．C166．B&&&&&&&&&&& 167．D【分析】1．变体型不能存放自定义型数据，只能存放标准类型。4．Rnd(n)函数用于产生[0,1]之间的随机数，常数n决定了随机数的生成方式，一般n只有取大于0或省略才能生成不同的随机数。5．字符串常量必须有定界符，其定界符为双引号。6．VB的三角函数的参数应该取弧度，因此必须将角度转化为弧度。7．逻辑运算符的运算级别由高到低的顺序是：Not→And→Or→Xor。8．该题的D有很强的干扰性，作为表达式，它只能是关系表达式，判断A是否为1。9．构成三角形的3条边必须满足两边之和大于第三边的条件。4个答案中A与C明显错误，B看起来正确，但它没有去掉等于的情况，故正确的是D。12．类型声明符只能尾随在变量名的最后，不能内嵌。14．注意两个“=”的区别，后一个“=”是关系运算符，前一个是赋值号。15．按照运算符的优先法则，括号内的运算级别最高，因此最先运算。19．Mid函数是取子串，而Rigth函数是取右子串。Int函数与Cint函数都可以得到整型值，但Cint函数对数据进行四舍五入处理。20．事件过程只能出现在窗体模块中，不能出现在标准模块中。23．在Format格式输出函数中，要注意“#”、“0”、“,”等格式字符的含义。24．动态数组的声明格式是固定的，其维的说明必须为空，在数组使用前再用ReDim来重新定义，指定数组的维数及其上下界。26．这是一个字符串的连接运算，但Str函数输出时在正的数据前有一空格，因此答案是B。29．答案所提供的3个函数均为取子串函数，但取法不同。Left函数只有一个参数；Mid函数有两个参数，第一个参数决定所取的位置，第二个参数决定所取的字符个数。特别地，当剩余下的字符不够取时，默认取剩余的全部。30．Rnd函数只能产生[0,1]之间的值，可以产生0，但不能产生1。31．此题要分辨除法、整除、取余3种运算的区别。32．产生指定范围n~m之间随机数的一般表达式为：Int((m-n+1)*Rnd)+n。36．Asc与Chr可以认为是一对反函数。Asc函数返回的是指定字符串中首字符的字符值，一般是ASCII值。如要返回Unicode值，可使用AscW函数。37．去除空格的函数有3个：左空格(L)、右空格(R)与所有空格。38．所谓Unicode编码方式国际标准化组织(ISO)字符标准：Unicode 使用16位(2?B)编码方案，允许65?536个不同的字符空间，它将原来ANSI标准的单字节编码与汉字等非西文字符的双字节编码统一起来。39．在VB中，各种不同的数据类型在存储时占用的内存空间是不同的，几种主要数据类型的占用空间为：Byte――1，Boolean―― 2，Integer――2，Long――4，Single――4，Double――8，Date――8，String(变长)――10，Variant ――16。41．“&”运算为连接运算，它与“+”运算的区别是：前者可以进行不同数据类型的表达式强制转换成字符串后进行连接，而后者只能进行字符串表达式的连接。Ucase函数是将指定的字符串转化为大写字母。42．B的错误在于类型声明重复，既使用了类型声明符，就不需要使用As子句；C的错误是变量声明重复(两个A变量)；D使用了两个相互矛盾的关键字。因此只有A是正确的。44．VB中可以接受以不同进制表示的数据。不同进制采用不同的表示方法：&O――八进制、&H――十六进制。默认是使用十进制数据。46．一个表达式合法与否，首先要看构成表达式的元素是否是VB所能接收的，其次是一个表达式应该有确定的运算结果，第三是表达式的构成必须符合VB的语法规定。由于在D中使用了方括号，所以D是不正确的。52．InputBox函数是VB提供的构成简单输入框的函数，该函数的返回值为用户所输入的内容，其类型为字符型。它有多个参数，但只有第一个参数是不可省略的。53．直观判断，显然B是正确的，而且该语句亦可写成：lblok.Caption=x。A是将标签文字赋于x，C和D显然不是合法的VB语句。56．这是Format格式输出函数的典型用法，使输出保留2位小数、加千分位分隔、不输出前导零。所以B正确。57．由于在格式控制中采用的0格式字符，因此输出时的数据位数将保留与0的个数相等的长度，数据前补零。62．如果使用Format函数来控制输出格式，则输出项目必须位于Format函数中。63．由于VB并不要求在变量使用前必须先声明，但为了避免变量使用上的混乱，在编程时还是推荐使用先声明后使用的原则。这就需要在窗体/模块级的声明处写上Option Explicit语句。64．在文本框上不支持Print方法。65．在Print方法中，如果使用紧凑格式输出多个数值或日期，则在数值或日期之间会加上一个空格作为分隔，而输出字符时则不加。所以正确答案是D。67．整除的运算级别要低于乘除，因此答案为25，而不能认为是1。71．此题很容易选成D，但正确的答案是A。因为已经定义了a、b为整型，所以InputBox函数将返回的值自动转换为整型。要注意在输入时必须输入数值而不能是其他字符，也不能为空。75．MsgBox函数中最难掌握的是第二个参数buttons的使用，该参数主要有二个作用：一是确定按钮的种类与数量，二是选择图标的类型。而对话框的标题是另外一个参数所决定的。77．MsgBox函数的返回值取决于用户对该信息框的响应。对不同按钮的响应VB采用不同的整型值来表示，程序可根据用户的响应决定程序的执行流程。82．数组定义时可以指定下标的上下界，如果不指定下界，则默认为0。一维数组中包含元素个数的计算方法是：上界-下界+1。86．要注意数组的元素引用与数组定义的区别。例如对a(5)：如果出现在定义语句中则指的是数组名，如果出现在一般语句中则指的是数组元素。90．动态数组声明时，数组名后的括号不能省略，而且不能加任何下标。92．当对控件数组中的任一个控件施以动作时，整个控件数组都会接收到该动作，并执行同一个事件过程。通过事件过程中的Index参数可以确定用户的动作对象。该题中，由于命令按钮的控件数组所对应的单击事件过程没有区分是哪一个按钮，因此无论单击。哪一个按钮，都执行同一个事件过程，所以正确答案应该是D。95．动态数组由于在定义时并没有给出其大小，只有通过ReDim语句才能确定其大小。ReDim语句不仅可以确定数组的维数与每一维的大小，而且可以多次使用。每次使用后默认情况下原数组的值被初始化，但如果加上Preserve关键字就可以保留原先的数值。开始初始化b&a？a、b交换c&a?c&b?c、a交换c、b交换结束图2-4100、A的错误是不理解选择结构的执行流程，B的错误是大于等于号，C的错误是条件不当，因此只有D是正确的。102．该题要注意最后一句“Print y-x&0”,这显然是输出一个逻辑值，所以排除了C与D。根据前面的选择结构，不难确定正确的是B。104．在块形式的选择结构中，ElseIf可以有多个，实际上它构成了嵌套的选择结构。另外，在该题中还要注意条件判断的顺序，如C的判断次序就不对。正确的是D。105．此题主要是测试Select…Case的语法结构，不难回答。106．对于嵌套的或并列的选择结构程序的分析方法：①根据给定变量的初始值与条件确定程序的执行流程；②根据执行流程逐句执行；③记录每一句执行后相关变量的值(最好以列表的形式)，尤其是变量改变后的值，流程执行完成后程序的运行结果自然就出来了。107．该程序的作用实际上是将变量a、b进行数值上的拼接，其中b不超过3位数(因为程序只有3个分支，要求b整除10后不超过99)，以形成a在高位、b在低位的一个数。110．该程序用来比较3个变量a、b、c的大小，将这3个数从小到大排序。前两个选择将3个数中的最大数选择出来存在变量a中，后一个选择显然是比较余下的两个数的大小。程序的执行流程如图2-4所示。111．该程序代码是用辗转相除法求两个数m、n的最大公约数。分析该代码时要注意3个方面：①从文本框取数据时需使用Val函数将其转化为数值型 (因文本框的值一般为字符串)；②对原始数据的处理，要求两个数均不能为0，且m应大于n,如果小于则将两个数交换；③求最大公约数使用了Do循环进行辗转相除直到余数为0。因此正确答案是B。113．此题关键是要熟悉多行选择结构的语法，不难得出正确的答案。116．VB中Select语句中的Case语句与其他语言不同，它不能出现关系表达式，而只能使用特殊的表示方法，详见教材中的说明。122．该程序是根据x的值来决定输出的内容，而x的值由随机函数来产生，产生的范围显然在0~2之间，因此该程序在运行后只能输出“不通过”。124．从For循环的循环次数计算公式可以看出，似乎I、N1．N2．N3对循环次数都有影响。实际上，For循环语句在执行时N1、N2与N3 都已经赋值，一旦进入循环，这3个变量的值已经保存在一个特定的区域，其值与名称已经脱离，因此在循环体内再改变这3个变量中的任何一个都不会影响循环次数。但循环变量I却不同，它是通过与终值N3比较来确定是否继续循环的，因此在循环体内一旦改变它的值将直接影响循环的次数。125．从Do Until循环的执行过程及常数0的含义可以看出，正确答案为B。134．VB提供的Do循环共有4种不同的形式，可分为两类：一类为当型循环，另一类为直到型循环。显然直到型循环至少能循环一次。135．在分析多重循环的程序时，一定要注意循环变量的变化情况与变化范围。本题中当i的值为1时，只循环了1次；而当i的值为2时，第二层循环有2次，再分析第三层的变化可以得出共循环了4次。136．当For循环中的初值、终值与步长均为小数时，循环的执行流程是相同的，循环次数的计算方法与整数的相同。139．本题的循环次数尽管仍然是4×3×2=24次，但x最后的值并不等于累加24个6，而是在初值3的基础上累加了2个6，循环结束后x的值为3+6+6=15。因为在每次第二层循环与第三层循环开始前，x均分别被重置为4和3。144．该题循环体内的两个单行选择结构中，只有第二个才起作用，因为第一个选择条件包含在第二个之内。所以正确答案为B。145．分析该程序主要在于其打印的格式控制。通常对一个二维数组的输出要用二重循环，外层循环控制行，内层循环控制列。输出元素的Print语句不换行，而在内外循环之间进行换行。146．该程序是将一个具有4个10以内的整数元素的数组转变成一个4位数，其数字顺序与数组元素的顺序相同。转换方法为：S=a(1)×103+a(2)×102+a(3)×10+a(4)。正确答案为D。151．此程序通过取余运算求3、6、9的和。152．一般情况下，在For循环中只要步长的值为负数循环变量的初值通常要大于终值，因此排除了B与D。备选答案中A具有一定的干扰，但这是计算偶数的和。正确答案为C。153．利用GoTo语句也可以构成循环结构。由于循环结束的条件为k&10,而且是先计算后判断，因此循环结束时k的值为11，也就是说该程序计算的是1~11的累加和。155．由于在程序的循环体内有Exit For语句，这样，循环的次数就不仅取决于循环变量的3个要素，而且还取决于满足Exit For的条件intsum&10,所以当到第6次循环时，intsum的值已经是18了，自然循环就强行退出了。157．利用循环与Print语句及输出的格式控制函数Tab()可以输出各种不同的字符图形。图形的输出通常使用二重循环，外层循环控制图形的行数，内层循环控制每行图形中字符的数目与位置。在内外层循环之间总要有一个空输出语句用于换行。162．由于Do循环结构不能自动修改循环变量，因此在循环体内必须具有修改循环变量的语句使循环能满足正常结束的条件n=1。对n的修改是通过一个选择结构来完成的。163．Do循环结构中，While与Until的后面都有逻辑表达式，其主要区别在于：While是当其后的逻辑表达式的值为真时循环继续；而 Until是当其后的逻辑表达式的值为真时循环结束。由此B与D均不对。A与C两个答案的主要不同在于条件的具体值，这就要分析程序，要求程序能循环3 次，所以A是正确的。二、填空题1．符号2．Exp(x+y)*Sqr(x*y)3．x^3+3*x*y/(x+1/y)4．#5．尾数 指数 D6．0。该题要注意运算符的优先次序，整除的级别低于乘。7．a&c8．Case9．True10．End。该命令与Unload Me命令不同，它是结束VB应用程序返回系统而后者只是卸载当前窗体。11．数据 方法12．True False13．a+b&c And a+c&b And b+c&a或者Not (a+b&=c Or a+c&=b Or b+c&=a)，往往一种逻辑关系可以用不同的逻辑表达式来表示。14．Print15．数组16．过程或模块 ReDim17．Dim A(1 to 5,-2 to 6)18．0 Option base n19．动态数组20．维数与大小21．标准EXE22．True23．224．$25．x&z and y&z或者not (x&=z or y&=z)26．Int((终值-初值)/步长)+1或者Int((终值-初值)/步长+1)27．无限循环或者死循环。当然这也不是绝对的，如果在循环体内利用条件判断结合Exit Do亦可退出循环。28．False29．False。这个表达式实际上是嵌套比较表达式，由于4=3的值显然为False，而a的值为True，所以结果为False。30．双引号或者""31．-132．1.41 001.4133．Variant或者变体34．出错 Visual Basic 6。当不同类型的数据放在同一个Print语句中输出时，必须使用“&”连接，而不能使用“+”。35．10 11 1236．1。Day函数是输出指定日期的日数字值，Now函数返回当前日期。37．字符。但如果x是已经过定义的数值型变量，则x也为数值型。38．123.46。在VB中有一个四舍五入函数Round，该语句也可以实现这个功能。39．字母 数字40．5 abcdefghijkl。IntStr函数是返回指定字符串在给定字符中的位置，如不存在则返回0。41．8。由于VB采用的是Unicode编码，因此一个汉字与一个西文字符的长度是一样的。42．属性窗口 程序代码。由于控件的名称属性是用来标识一个控件的，也是作为程序代码中引用控件对象的名称，所以必须在代码编写前决定控件的名称或采用控件的默认名称。43．& 44．456123。由于在没有事先声明的情况下，VB将由InputBox函数输入数据作为字符来处理，因此在输出a+b时并不是将两个变量的数值相加，而是将两个变量中的字符连接起来。45．"请输入半径"&& "输入对话框" 10。3个参数的含义分别为输入框提示信息、输入框名称与默认的输入值。46．(1) (intyear mod 4=0 and intyear mod 100 & &0) or intyear mod 400=0(2) a& &0 and b*b-4ac&=0(3) party and teach&3 and teaching&=240 and teaching&=350&&& 47．(1) -4&&&&&&&&&&&&&&&&&&& (2) 0&&&&&&&&&&&&&&&&&&&&&& (3) -3&&&&&&&&&&&&&&&&&&&&&&&& (4) 16&&& &(5) -456.78&&&&&&&&&&& (6) 9&&&&&&&&&&&&&&&&&&&&&& (7) hello&&&&&&&&&&&&&&&&&&&& (8) 1.73248．False "" 0 空值。当变量定义后，尽管没有被赋值，但已经分配了内存空间，因此每个变量都有一个默认的初值。49．3,146 3,146 3.15E+03 3,145.57 03,145.650．14+54= 6851．30052．x Mod 3 = 0 Or x Mod 7 = 0 Text1.SetFocus Len(Text1.Text)。第一个空较为好填；第二个空格要使用文本框的SetFocus方法；第三个空格需要填入文本框中字符的长度，其功能为将文本框的内容全部选中。53．Is&5 Is&554．Is&0,Is&100 Len(Text1.Text) Is&=80 Is&6055．2556．x&857．3358．15&&& 13&&& 1759．10 220 10 120。将两个语句交换后主要是a的值不同。60．Aa AaBbCe61．i=1 to 9 i+1 to 10 &=&&&&& 62．&& C3&& 8&&&&&& 18 C1563．&& 0&& 9&&&&&& 3&& 18本程序要注意内外两层循环的Exit For语句的使用，它会影响到循环的次数，进而影响程序的输出结果。64．S= 4265．n&Max n&Min s=s-Max-Min66．这是一个简单的典型图形的输出程序，主要注意Tab(7-i)函数的使用。&&&& *&&& ***&& *****&*******&********************67．Len(n) Mid(n,i,1) C。将一个字符串反序显示的方法很多，本程序即为其中的一种：先取出字符串的长度，然后通过一个循环从字符串的尾部开始，每次取出一个字符并送到另一个字符中，最后将该字符串在指定的文本框中输出。68．91+10 x/2& &x\2或者x/2& &Int(x/2) k Mod 4=069．n&y(i) i+1 i+1该程序有3个方面需要注意：(1) 存放原始数据的数组必须先扩展且必须保持原有的数据，这可以通过Preserve关键字实现。(2) 插入的算法：从原数组的最后一个元素开始逐个与插入的数进行比较，如比插入的元素小，该位置的后一个位置(第i+1的值显然与第i+2上的值相同)即为插入位置，将输入的数据插入，然后循环结束；否则将当前位置的数据后移一个位置，继续循环。(3) 如果循环结束仍然没有插入，则表示输入的数比原数组中任何一个数都要小，即应插入在数组的头部。70．a(i,j)=1 a(i,j)=0 a(i,j);71．Dim x() x(1 to 20)72．0 0 0 0 0 12 14 16 18 20。该程序主要是提高对动态数组的认识与理解。73．11 -2074．12 13 1475．1 Result*x76．6 5577．BAABC CBAABC。该程序分析时要注意字符串的相关函数Mid、Left、Len的使用。78．Mid(txtInput.Text,i,1) "0" To "9" Case Else&& txtOutput.Text=s对字符串进行分类统计通常要将使用循环与多分支结构相结合。本题中将输入框中的字符串的长度作为循环变量的终值，循环体内将该字符串中每一个字符串取出，通过3种情况进行判断并分类，循环结束后得出的3个变量n1、n2、n3即为字母个数、数字个数与其他字符个数。79．验证口令 请输入口令 * 验证80．3 -1881．this is a book. This Is A Book.程序在第二次转换时，使用了标志变量Flag,用来判断取出的字符是否为空格。如为空格则将其后的一个字母转换为大写，否则不变。82．4 5 6 6 5 4 3 2 183．i &= k And flag = 0 1 flag = 0判断一个数是否为素数的算法很多，本程序采用了运算标志Flag,只要在循环中一旦出现了被除尽的情况，立即置该标志为1，同时退出循环。退出循环后只要判断Flag的值，即可知道该数是否为素数。
发表评论：}