end ifA 25B 26C 10D 525、以下程序段运行后，整型变量s的值是（）。
s=1For i=1 To 10 Step 3s=s*iNext iPrint sA 55B 3640C 28D 28025、以下程序段执行后，输出结果为（）。
m=29If m Mod 3 <> 0 ThenPrint m & “不能被3整除”ElsePrint m & “能被3整除”End IfA n能被3整除B n不能被3整除C 29不能被3整除D 29能被3整除26.以下程序段语句执行后，y的值是（）X=16If x<0 thenY=abs(x)ElseY=sqr(x)End ifA 其他三项答案都不对B 256C 4D 1624.如图所示，三个文本框自上而下的顺序是Text1，text2, text3，在文本框text1中输入3，在文本框text2中输入4。
单击命令按钮“计算”后，文本框text3中显示的内容是（）“计算”按钮事件过程代码：Private sub command1_click()Dim a as integerDim b as integerA=val(text1.text)B=val(text2.text)Text3.text=2*(a+b)End subA 14B 24C 7D 1225.下列程序段执行后，变量s的值是（）。
S=0For i=1 To 10s=s+iNext IA 10B 0C 1D 5524.下列程序段运行后，输出“*”的个数是（）For I =2 to 10Print “ * ”Next iA 7B 9C 6D 827下列序列能采用二分查找法查找某一元素的是（）A 15,14,12,7,2,3B 1,4,7,15,13C 34,25,17,9,10,3D 6,9,12,14,23,25三、函数/数学表达式的值25、在VB中，Int(x) 函数的功能是返回不大于x的最大整数，设a=3 ，b=4，c=5，则下列表达式的运算结果中值最大的是（ C ）。
A 、 Sqr(c) B、Abs(a-b) C 、 Int(2*a-c/b) D 、a^2+b^2-c^223、设a=2，b=5，在VB中，表达式a>b And b>3的值是（ C ）。
A 1B -1C FalseD True26、以下程序段运行后，整型变量max1，min1的值分别是（）。
a=3b=5max1=(a+b)/2+Abs(a-b)/2min1=(a+b)/2-Abs(a-b)/227、在VB中，下列哪个选项是正确的赋值语句？（）A 2018=xB 5s=80C a+b=cD s=s+524.已知在VB语言中，int（x）函数的功能是返回不大于X的最大整数，abs(x)函数的功能是取绝对值，则表达式int(2.88)+abs(-3)的值是（）A 1B 0C 5D 623已知n是一个两位的正整数，则下列表达式能表示整数n的个位数字的是（）A n\10B n/10C int (n/10)D n mod 1023. 算数表达式68 mod 10 的值是（）A 6B 14C 8D 0四、数据类型26、在VB中，用变量code存储学生的借阅卡编码（code=”N020170502”），则变量code 的数据类型应定义为（ C ）。
A IntegerB DoubleC StringD Single24、以下程序段运行后，x和st的值分别是（ B ）。
Dim x As IntegerDim st As Stringx=123+678st=”123”+”678”A 123678 “123678”B 801 “123678”C 123678 “801”D 801 “801”26、下列语句正确定义了一个单精度实型变量x 的是（ A ）。
A Dim x As SingleB 其它三项都不对C Dim x As IntegerD Dim x As String23、在VB中，下列属于字符串常量的是（）。
A cnt B3.14 C 2018 D “Visual Basic”26、下列VB表达式中，值为字符串类型的是（）。
(1) Abs(x) (2) Text1.Text (3)”123+45” (4) Sqr(x) (5) Labell.CaptionA (1)(3)(5)B (2)(3)(5)C (2)(4)(5)D (1)(2)(3)25已知赋值语句s=”Good Bye!”, 则下列定义变量s正确的是（）A dim s as integerB dim s as longC dim s as doubleD dim s as string五、关于算法或结构24、某晚会的猜数字游戏中，有100张写有1~100之间整数的卡片，主持人随机抽取一张卡片，让大家竞猜。
有一种方案是：第一次猜50，若提示低了，则第二次猜75，若提示还是低了，则第三次猜87，依次类推；若第一次猜50，提示高了，则第二次猜25，若提示还是高了，则第三次猜12，依次类推；……。
这种每次缩小一半查找范围而达到迅速确定目标的算法称为（ D ）。
A 顺序查找法B 排序法C 解析法D 二分查找法23.已知S=1+2+3+……+N，找出一个最大数N，使得S<3000。
编写程序，解决此问题，最合适的程序结构是（）A 选择结构B 顺序结构C 分支结构D 循环结构23.水仙花数是三位整数；其各位数字立方和等于该书本身，如153=1^3+5^3+3^3,如果要求出所有的水仙花数，下列算法最合适的是（）A 枚举法B 排序法C 解析法D 查找法25.以下程序段的结构是（）X=100If x<0 thenY=abs(x)ElseY=sqr(x)End ifA 顺序结构B 循环结构C 三项都是D 选择结构27.下列问题适合用解析法求解的是（）A 一个小球从100米高的楼顶做自由落体运动，求落地时的速度VB 在一组彩球中出所有的红球C 输出1000以内所有的完全平方数D 将全班同学按照身高从高到矮排队24.程序有三种基本结构，下列不属于这三种基本结构的是（）A 选择结构B 树形结构C 循环结构D 顺序结构26. 下列流程图中是选择结构的是（）A ①B ②C ③D ④六、 VB中数学表达式的表示25、在平面直角坐标系中，设点A（x1,y1）、点B（x2，y2），则AB两点之间的距离为：VB表达式是（ A ）。
A Sqr((x1-x2^2+(y1-y2)^2)B Sqr[(x1-x2)^2+(y1-y2)^2]C Sqr((x1-x2)2+(y1-y2)2)D Sqr[(x1-x2)2+(y1-y2)2]27、在VB中表示“x 属于区间[a,b)”的正确表达式是（ A ）。
A a<=x And x<bB a<=x Or x<bC a≦x And x<bD a<=x<b24、将数学表达式转化为VB表达式，下列选项正确的是（）。
27、给定一个四位数的年份，判断它是否为闰年：四年一闰、百年不闰；四百年又闰（年份能被4整除但不能被100整除是闰年，或者年份能被400整除也是闰年。
例如2004年和2000年都是闰年，2100年不是闰年）。
下列判断年份。
下列判断年份y是闰年的表达式正确的是（）。
A yMod 4=0 Or y Mod 100<>0 And y Mod 400=0B yMod 4=0C yMod 4=0 And y Mod 100 <>0 Or y Mod 400=0D yMod 400=027.已知n是一个两位的正整数，则下列表达式能表示整数n的各位数字的是( )A n/10B n\10C n mod 10D int(n/10)27.下列表达式能判断正整数X是偶数的是（）A x mod 2 =0B x mod 2 <> 0C x mod 2=1D x\2=026.一元二次方程判别式b^2-4ac的正确vb表达式是（）A b^2-4acB b*b-4*a*cC b^2-4*acD b*b-4a*c26.仪仗队队员对身高H的选拔要求是：高于1.85米，但不能超过1.90米。
下列表达式能正确表达的是（）A H >1.85 and H<=1.90B H >=1.85 or H<=1.90C H >=1.85 and H<=1.90D H >1.85 or H<=1.9025.一元二次方程ax^2+bx+c=0由两个不相等的实数解的条件是（）A a<>0 or b*b-4*a*c>0B a<>0C a<>0 And b*b-4*a*c>0D b*b-4*a*c>0七、其他27、Visual Basic程序设计语言属于（ C ）。
A、汇编语言B、自然语言C、高级语言D、机器语言23、下列选项中，关于算法的描述正确的是（）。
A算法只能用自然语言描述 B算法必须在有限步骤内实现C 算法就是一种高级程序设计语言 D算法可以有0个或多个输入，但只能有一个输出25、用流程图表示条件“A>B”是否成立，要用到以下哪个图形？（ B ）A 平行四边形B 菱形C 圆角矩形 D直角矩形24.下列关于算法的描述正确的是（）A 算法的步骤可以是无穷的B 算法就是程序C 算法必须有输入D 算法必修有输出。