A.选择结构 B.顺序结构 C.循环结构 D.环形结构
解析：本题可用如下VB程序实现。 Private Sub Command1_Click() Dim s As Long, n As Integer n = 1 s = 0
Do While s < 3000
n = n + 1 s = s + n Loop Print n End Sub
50. 某晚会的猜数字游戏中，有100张写有1~100之间整数的卡片，主持人随机抽取一张卡片，让大家竞猜。有一种方案是:第一次猜50，若提示低了，则第二次猜75，若提示还是低了，则第三次猜87，依次类推，这种每次缩小一半查找范围而达到确定目标的算法称为( C )。
A.顺序查找法 B.解析法 C.二分查找法 D.排序法 51、程序有三种基本结构，下列不属于这三种基本结构的是( B )
A.循环结构 B.树形结构 C.选择结构 D.顺序结构 52、下列序列能采用二分查找法查找某一元素的是( B )。
A.1，4，7，15,13 B.6，9，12,14，23，25 C.34，25,17,9,10,3 D.15,14,12，7，2,3 53、以下程序段语句执行后，y的值是( C )。 x=16
If x < 0 Then
y = Abs(x) Else
y = Sqr(x) End If
A. 16 B.256 C.4 D.其他三项都不对 54、下列选项中，能作为VB程序变量名的是( A )。
A.sl B.s+1 C.3stu D.true 55、Visual Basic 程序设计语言属于( B )。
A.汇编语言 B.高级语言 C.机器语言 D.自然语言
第 1 7 页
56、在VB中，用变量code存储学生的借阅卡编码(code=\，则变量code的数据类型应定义为( B )。
A.Integer B.String C.Boolean D.Double 57、以下程序段运行后，x和st的值分别是( A )。 Dim x As Integer Dim st As String x=123 + 678 st=\
A.801 \C.123678 \
58、a=2，b=5，在VB中，表达式a>b And b>3 的值是( D )
A. True B. 1 C.-1 D. False
解析：a>b And b>3 = 2 > 5 and 5 > 3 = false and true =false
59、以下程序段运行后，s的值是( D )。 n=0 s=0
Do While s<=10
n=n+3 s=s+n Loop
A.0 B.3 C.30 D.18
解析：
①n=0,s=0,s<=10 yes
n=n+3=0+3=3,s=s+n=0+3=3; ②n=3,s=3,s<=10 yes
n=n+3=3+3=6,s=s+n=3+6=9; ③n=6,s=9,s<=10 yes
n=n+3=6+3=9,s=s+n=9+9=18
④n=9,s=18,s<=10 no 退出循环
60、下列选项中，能作为VB程序变量名的是( C )
A.a*b B.3ab C.xy D.dim
第 1 8 页
二、分析题
1.“完数”是指一个自然数恰好等于它的因子（不包含本身）之和。 如6的因子为1、2、3，6=1+2+3，因而6就是完数。
再如28的因子为1、2、4、7、14，28=1+2+4+7+14，因而28也是完数。 问题：输入一个正整数，判断该正整数是否为完数。 要判断一个数是否为完数，最简单的方法是：
求出1到n-1之间n的所有因子和为Sum，如果Sum的值和n的值相同，则n就是完数。
以下代码是判断n是否为完数的程序片段，请你补全代码。(10分) Dim n As Long
Dim Sum As Long ‘Sum用来记录n的因子和 Dim i as integer n=InputBox(\sum = 0
第 1 9 页
For i=1 to n-1 ‘求n的因子和sum If n Mod i=0 Then Sum = ① End If Next i
If sum = ② Then Print n & \是完数\Else
Print n &\不是完数\End If ① sum+i ② n
2.圆周率π值的计算方法有多种，其中一种近似值的计算公式如下： 对于n的不同取值，得到的π值精度不同。 如：当n=100000时，计算出π=3.14158310432646， 当n=1000000时，计算出π=3.14159169866051。
以下程序是利用上述公式求n=10000000时π近似值的主要程序片段，请你补全代码。（8分） Dim s As Double Dim pi As Double Dim i as integer s=0
For i=1 to 10000000 '求公式右边的值 s= s + 1/ (i * i ) Next i
pi= sqr(6*s) Print \π=\
解析： 根据程序片段可以公式右边的值为s，即pi^2/6=s,所以，pi^2=6*s,pi=sqr(6*s)
3. 阅读程序，写出其程序运行结果（8分）。
第 2 0 页