高一第二学期《算法与程序设计》学分认定试题
学校：_____________ 班级：____________ 学号：____________ 姓名：____________
一、单选题（每小题3分，20小题，共60分）
1、用计算机解决问题时，首先应该确定程序“做什么？”，然后再确定程序“如何做？”请问“如何做？”是属于用计算机解决问题的哪一个步骤？（）
A、分析问题
B、设计算法
C、编写程序
D、调试程序
2、在调试程序过程中，下列哪一种错误是计算机检查不出来的？（）
A、编译错误
B、执行错误
C、逻辑错误
D、任何错误计算机都能检查出来
3、下列关于算法的叙述中，错误的是（）
A、一个算法至少有一个输入和一个输出
B、算法的每一个步骤必须确切地定义
C、一个算法在执行有穷步之后必须结束
D、算法中有待执行的运算和操作必须是相当基本的。
4、流程图中表示判断的是（）。
Ａ、矩形框Ｂ、菱形框Ｃ、圆形框Ｄ、椭圆形框
5、任何复杂的算法都可以用三种基本结构组成，下列不属于基本结构的是（）
A、顺序结构
B、选择结构
C、层次结构
D、循环结构
6、能够被计算机直接识别的语言是（）
A、伪代码
B、高级语言
C、机器语言
D、汇编语言
7、在VB语言中，下列数据中合法的长整型常量是（）
A、08A
B、2380836E
C、88.12345
D、1.2345E6
8、求Mid(“ABCDEFG”,3,2)的结果是（）
A、“ABC”
B、“CD”
C、“ABCDEF”
D、“BCD”
9、表达式 A+B+C=3 OR NOT C<0 OR D>0
当A=3,B=4,C=-5,D=6时的运算结果是（）
A、0
B、1
C、TRUE
D、FALSE
10、在循环语句 For x=1 to 100 step 2
……
Next x 中，x能达到的最大值是（）
A、100
B、99
C、98
D、97
11、在下列选项中，不属于VB的对象的是（）
A、窗体的背景颜色
B、命令按钮
C、文本框
D、标签12、在调试程序的时候，经常要设置断点，设置断点的快捷键是（）
A、F1
B、F8
C、F9
D、F12
13、算法描述可以有多种表达方法，下面哪些方法不可以描述“闰年问题”的算法（）
A、自然语言
B、流程图
C、伪代码
D、机器语言
14、以下不属于非法用户自定义标识符（常量和变量命名）的是（）
A、8ad
B、ad8
C、_a8d
D、const
15、已知A，B，C，D是整型变量，且都已有互不相同的值，执行语句B=0；A=C；D=A；D=B；后，其值相等的变量是（）
A、A，D
B、A，C
C、C，B
D、B，A
16、要交换变量A和B的值，应使用的语句组是( )
A、A=B；B=C；C=A
B、C=A；A=B；B=C
C、A=B；B=A
D、C=A；B=A；B=C
17、Visual Basic中以单引号开头一行文字称为注释，它对程序的运行（）
A、起一定作用
B、有时候起作用
C、不起任何作用，但是必须的
D、不起任何作用，但能增加程序的可阅读性
18、要使一个命令按钮显示文字“确定”，正确的设置是把该命令按钮的（）。
A、属性Font设置为“确定”
B、属性.ForeColor设置为“确定”
C、属性Caption设置为“确定”
D、属性BorderStyle设置为“确定”
19、要从文本框TXTShowOut中输出"中国您好！"，代码为( )
A TextBox.text="中国您好！"
B TxtShowOut.Text="中国您好！"
C bel="中国您好！"
D Val(TxtShowOut.Text)=“中国您好！”
20、下列Visual Basic程序段运行后，变量max的值为（）。
a=11; b=15; max=a
IF b>max Then max =b
A、15
B、11
C、15或11都有可能
D、以上都不是
二、阅读程序写结果（第1～2小题每题5分，第3小题10分，共20分）
1、Private Sub Form_Load()
N=InputBox(“请输入N的值：”,“输入”)
S=1
For i=1 to N
S=S*i
Next i
MsgBox “S=”+Str(s),0,”计算结果”
End Sub
当N=5时，运行的结果是__________________。
2、Private Sub Command1_Click()
Dim X as integer,X1 as integer,X2 as integer
Dim X3 as integer,Y as integer
X=InputBox(“X=”，“输入”)
X1=X\100
X2=(X-X1*100)\10
X3=X-X1*100-X2*10
Y=X3*100+X2*10+X1
Print “Y=”;Y
End Sub
当X=258时，运行的结果是________________。
3、Private Sub Command1_Click()
Dim A as Integer,B as Integer,C as Single
Dim D as String
N=InputBox(“请输入N的值：”)
F=N MOD 5
A=N+1
B=ABS(N)
Select Case F
Case 1:C=A+B:D=”+”
Case 2:C=A-B:D=”-”
Case 3:C=A*B:D=”*”
Case 4:C=A/B:D=”/”
Case else:End
End Select
Print A;D;B;”=”;C
End Sub
当N=13时，运行的结果是_____________。
三、程序填空（每小题10分，2小题，共20分）
1、下面的程序是求100以内奇数和S的值（S=1+3+5+7...+99），请把空缺的地方填写完整。Private Sub Command1_Click()
Dim S As Integer
Dim I As Integer
S=__（1）__
For I=1 to 100 Step __（2）__
S=S+I
Next __（3）__
Label1.____（4）______=___（5）___(S)
End Sub
（1）________ （2）________ （3）________ （4）______ （5）______
2、某旅行团共有30个人，其中有男人、女人和小孩，他们在一家餐厅吃自助餐花去500元。已知自助餐的价格是每个男人30元，每个女人20元，每个小孩10元。问：男人、女人、小孩各为多少人。下面是解决该问题的VB程序，请在空缺的地方填写完整。
Private Sub Command1_Click()
Dim Man As Integer, Woman As Integer, Child As Integer
Dim Money As Integer,Count As Integer
Count=0 ‘用来记录符合条件的组合数
For Man = 1 To __(1)__(500/30)
For Woman = 1 To (30-Man)
Child = __________(2)___________
Money= 30 * Man + 20 * Woman + 10 * Child
If _______(3)________ Then
Count=Count+1
Print “第”;Count;”种情况：”
Print Tab(10);”男人”;Man;”个”;
Print Tab(25);”女人”;Woman;”个”;
Print Tab(40);”小孩”;Child;”个”;
Print
End If
Next ___(4)___
Next ___(5)____
End Sub
（1）__ _ （2）___ （3）__ ____
（4）_ _ （5）_ _
