38.如图所示:三个文本框自上而下的顺序是: Text1， Text2， Text3,在文本框Text1中输入3，在文本框Text2中输入4，单击命令按钮“计算”后，文本框Text3中显示的内容为（ B ）
第 1 3 页
A、7 B、14 C、24 D、12
解析：val是一个将字符串参数转换成数值的函数。a=3,b=4,结果=2*(a+b)=2*(3+4)=14。
39.在VB中，能表示一元二次方程ax2+bx+c=0有两个不相等的实数解的条件是 ( A )。
A. b*b-4*a*c>0 B. a<>0
C. a<> And b*b-4*a*c>0 D. a<>0 Or b*b-4*a*c>0
40.下列程序段运行后，输出“*”的个数是( 9 )。
For i =2 To 10
Print \Next i
A、7 B、8 C、9 D、10 41.VB算术表达式68 Mod 10的结果是（ B ）
A、6 B、8 C、0 D、14 42.下列流程图中是选择结构的是（ D ）
第 1 4 页
A.②④ B.②③④ C.①②④ D.①③
43、用计算机解决某个问题，问题分析清楚后，给出解决这个问题详细的( A )， 这个过程称为设计算法。
A.方法和步骤 B.编程语言 C.程序代码 D.加密措施
44、以下程序段运行后，整形变量max1, min1的值分别是( D )。
a=3 b=5
max1=(a+b)/2+Abs(a-b)/2 min1=(a+b)/2-Abs(a-b)/2
A.3，5 B.5，5 C.3，3 D.5，3
解析：Abs是一个取绝对值的函数。
max1=(a+b)/2+Abs(a-b)/2=(3+5)/2+|3-5|/2=4+1=5
min1=(a+b)/2-Abs(a-b)/2=(3+5)/2-|3-5|/2=4-1=3
45、已知赋值语句s=\则下列定义变量s正确的是( A )。
A.Dim s As String B.Dim s As Long C.Dim s As Double D.Dim s As Integer
解析：参考第3题解析，string：变长与定长的字符串。对于字符串类型变量，如果其存放的字符串长度是固定的，那么可以把它定义为定长字符串，如：
第 1 5 页
Dim s As String * 50 '声明固定长度字符串变量可最多放50个
46、水仙花数是三位整数:其各位数字立方和等于该数本身，如
153=1^3+5^3+3^3。如果要求出所有的水仙花数，下列算法最合适的是( C )。
A.查找法 B.排序法 C.枚举法 D.解析法
解析：参考第24题解析。
穷举法（枚举法、列举法）：将求解对象一一列举出来，然后逐一加以分析、处理，并验证结果是否满足给定的条件，穷举完所有对象，问题最终得以解决。如：输出100～200之间不能被3整除的数。
47、给定一个四位数的年份，判断它是否为闰年:四年一闰、百年不闰;四百年又闰(年份能被4整除，不能被100整除是闰年，或者年份能被400整除也是闰年。例如2004年和2000年都是闰年，2100 年不是闰年)。下列判断年份y是闰年的表达式正确的是( B )。 A.y Mod 4=0
B.y Mod 4=0 And y Mod 100<>0 Or y Mod 400=0 C.y Mod 4=0 Or y Mod 100<>0 And y Mod 400=0 D.y Mod 400=0
48.以下程序段运行后，整型变量s的值是( C )。
s=1
for i=1 to 10 step 3
s=s*i next i print S
A.28 B.55 C.280 D.3640
解析：注意step是步长。 ①s=1,i=1,s=s*i=1*1 ②s=1*1,i=4,s=s*i=1*1*4 ③s=1*1*4,i=7,s=s*i=1*1*4*7
④s=1*1*4*7,i=10,s=s*i=1*1*4*7*10=280
49.己知S=1+2+3......+N，找出一个最大数N,使得S<3000。编写程序，解决此问题，最适合的程序结构是( C )。
第 1 6 页