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 时，运行的结果是 _____________。
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
End If
Next ___(4)___
Next ___(5)____
End Sub （ 1） __
_ （2） __
_ （3） __
____
（ 4） _
_ （5）_
_
高一第二学期《算法与程序设计》学分认定试题答题卡
一、单选题（每小题 3 分， 20 小题，共 60 分）
二、阅读程序写结果（第 1～ 2 小题每题 5 分，第 3 小题 10 分，共 20 分） 1. 当 N=5 时，运行的结果是 _______S=120___________。 2. 当 X=258 时，运行的结果是 _______Y=852_________。 3. 当 N=13 时，运行的结果是 _____14*13=182 ________。 三、程序填空（每小题 10 分， 2 小题，共 20 分） 1. （1） ____0_____ （ 2） ____2_____ （3） ____i_____ （ 4） ___Caption ___ （ 5）___Str___ 2.（1） __Int 或 Fix__ （ 2）__30-Man-Woman __ （3） ___Money=500 ____
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
C、属性 Caption 设置为 “确定 ” 、D 属性 BorderStyle 设置为 “确定 ” 19、要从文本框 TXTShowOut 中输出 "中国您好！ "，代码为 ( )
A =" 中国您好！ "B ="中国您好！ " C ="中国您好！ "D Val=“中国您好！ ” 20、下列 Visual Basic 程序段运行后，变量 max 的值为（ ）。
3. 当 N=13 时，运行的结果是 _____________。 三、程序填空（每小题 10 分， 2 小题，共 20 分）
1. （1） __________ （ 2）___________（ 3） ______________ （4） ____________ （5） ____________
2.（ 1） ___________ （2） ___________（ 3） ______________ （ 4）____________ （ 5）____________
当 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、窗体的背景颜色
高一第二学期《算法与程序设计》学分认定试题
学校： _____________ 班级： ____________ 学号： ____________ 姓名： ____________
一、单选题（每小题 3 分， 20 小题，共 60 分）
1、用计算机解决问题时，首先应该确定程序“做什么”
机解决问题的哪一个步骤（
6、能够被计算机直接识别的语言是（
）
A、伪代码
B、高级语言
C、机器语言
D、汇编语言
7、在 VB 语言中，下列数据中合法的长整型常量是（
）
A、08A
B、2380836E
C、
D、
8、求 Mid( “ABCDEFG”,3,2)的结果是（
）
A、“ABC”
B、“ CD”
C、“ ABCDEF”
D、“BCD”
9、表达式 A+B+C<D AND A>=3 OR NOT C<0 OR D>0
题号
1
2
3
4
5
6
7
8
9
10
答案
题号
11
12
13
14
15
16
17
18
19
20
答案
二、阅读程序写结果（第 1～ 2 小题每题 5 分，第 3 小题 10 分，共 20 分） 1. 当 N=5 时，运行的结果是 __________________。
2. 当 X=258 时，运行的结果是 __________________。
题号
1
2
3
4
5
678来自910X1=X\100
答案
B
C
A
B
C
C
D
B
C
B
X2=(X-X1*100)\10
题号
11
12
13
14
15
16
17
18
19
20
答案
A
C
D
B
B
B
D
C
B
A
X3=X-X1*100-X2*10
Y=X3*100+X2*10+X1 Print “Y=”;Y
End Sub 当 X=258 时，运行的结果是 ________________ 。 3、Private Sub Command1_Click()
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、 VisualBasic 中以单引号开头一行文字称为注释，它对程序的运行（
）
A、起一定作用 B、有时候起作用
C、不起任何作用，但是必须的 D、不起任何作用，但能增加程序的可阅读性 18、要使一个命令按钮显示文字 “确定 ”，正确的设置是把该命令按钮的（ ）。 A、属性 Font 设置为 “确定 ” B、属性 .ForeColor 设置为 “确定 ”
三、程序填空（每小题 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） __
）
，然后再确定程序“如何做”请问“如何做”是属于用计算
A、分析问题
B、设计算法
C、编写程序
D、调试程序
2、在调试程序过程中，下列哪一种错误是计算机检查不出来的（
）
A、编译错误
B、执行错误
C、逻辑错误
D、任何错误计算机都能检查出来
3、下列关于算法的叙述中，错误的是（
）
A、一个算法至少有一个输入和一个输出
）
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
16、要交换变量 A 和 B 的值，应使用的语句组是 ( )
D、 B， A
S=S+I
Next __（ 3） __ （4） ______=___（5） ___(S)
End Sub （ 1） ________ （ 2） ________ （ 3） ________ （ 4） ______ （ 5） ______
2、某旅行团共有 30 个人，其中有男人、女人和小孩，他们在一家餐厅吃自助餐花去
高一第二学期《算法与程序设计》学分认定试题答题卡
学校： _____________ 班级： ____________ 学号： ____________ 姓名： ____________ 一、单选题（每小题 3 分， 20 小题，共 60 分）
高一第二学期《算法与程序设计》学分认定试题答题卡
学校： _____________ 班级： ____________ 学号： ____________ 姓名： ____________ 一、单选题（每小题 3 分， 20 小题，共 60 分）