《2022冬季补考15套（算法部分）》由会员分享，可在线阅读，更多相关《2022冬季补考15套（算法部分）（4页珍藏版）》请在金锄头文库上搜索。
1、本文格式为Word版，下载可任意编辑2022冬季补考15套（算法部分） 2022冬季补考第一套(算法片面) 23、以下选项中，关于算法的描述正确的是（ ）。 A算法只能用自然语言描述 B算法务必在有限步骤内实现 C 算法就是一种高级程序设计语言 D算法可以有0个或多个输入，但只能有一个输出 24、以下选项中，能作为VB程序变量名的是（ ）。 A while B 4A123 C a%c D dist 25、以下程序段执行后，输出结果为（ ）。 m=29 If m Mod 3 0 Then Print m & “不能被3整除” Else Print m & “能被3整除” End If A n能被
2、3整除 B n不能被3整除 C 29不能被3整除 D 29能被3整除 26、下列VB表达式中，值为字符串类型的是（ ）。 (1) Abs(x) (2) Text1.Text (3)”123+45” (4) Sqr(x) (5) Labell.Caption A (1)(3)(5) B (2)(3)(5) C (2)(4)(5) D (1)(2)(3) 27、在VB中，下列哪个选项是正确的赋值语句？（ ） A 2018=x B 5s=80 C a+b=c D s=s+5 第 1 页 共 19 页 28、阅读程序，写出运行结果 Dim n As Integer n=Val(InputBox(“n=
3、”) Do While n Mod 2=0 n=n2 Loop Print n 程序运行时，输入24，输出n的值是：_ 29、分析并完善程序 以下是计算s=1+6+11+101的程序代码，请完善程序。 Dim s As Integer Dim i As Integer s=0 For i=1 To 101 Step_ s=_ Next i Print s 30、算法设计与程序实现 某市出租车收费标准如下： （1）3公里内（含3公里），收费8元； （2）超过3公里但未超过6公里部分，按1.5元/公里收费； （3）超过6公里部分，按2.25元/公里收费。 根据以上标准，输入出租车行驶的公里数，请计
4、算顾客需付费多少元？ 【参考代码】 Dim s As Single Dim p As Single s=Val(InputBox(“s=”) If s6 Then p=2.25*(s-6)+1.5*3+8 End If 第 2 页 共 19 页 Print p 根据上述回复以下问题： 1、 此题采用的算法是_（填写：解析法/查找法/枚举法/排序法）。 2、 程序代码中空白处应填写的条件是_（填写字母：A/B/C/D）. A 33 And s3 Or sb And b3的值是（A 1 B -1 C False D True 24、以下程序段运行后，x和st的值分别是（ ）。 Dim x As I
5、nteger Dim st As String x=123+678 st=”123”+”678” A 123678 “123678” B 801 “123678” C 123678 “801” D 801 “801” 第 3 页 共 19 页 ）。25、用流程图表示条件“AB”是否成立，要用到以下哪个图形？（ ） A 平行四边形 B 菱形 C 圆角矩形 直角矩形D 26、以下选项中，能作为VB程序变量名的是（ ）。 A dim B 3ab C a*b D xy 27、以下程序段运行后， s的值是（ ）。 n=0 s=0 Do While s=10 n=n+3 s=s+n loop A 30 B
6、 18 C 0 第 4 页 共 19 页 D 3 28、阅读程序，写出运行结果 Dim a(10) As Integer Dim iAs Integer a(1)=1 a(2)=1 Fori=3 To 6 a(1)=a(i-1)+a(i-2) Next i Print a(6) 上述程序运行后，输出a(6)的值是_。（ 29、分析并完善程序 以下是计算s=1*2*3*10的程序代码，请补全程序。（6） Dim s As Long Dim i As Integer s=_ For i=1 To 10 s=_ Next i Print s 30、算法设计与程序实现 勾股数 求出100以内得志ab的全体勾股数。 【参考程序】 Dim a As Integer Dim b As Integer 第 5 页 共 19 页 6分） 4
