相关试卷
- 上海市浦东新区上海师范大学附属中学2024-2025学年高一上学期10月期中信息技术试题
- 海南省临高县第二中学2024-2025学年高一上学期期中考试信息技术试题
- 浙江省衢州市2024-2025学年高一下学期6月教学质量检测（期末）技术试题-高中信息技术
- 浙江省宁波市2024-2025学年高二下学期期末考试技术试题-高中信息技术
- 浙江省舟山市2024-2025学年高二下学期6月期末技术试题-高中信息技术
- 浙江省丽水市2024-2025学年高二下学期期末教学质量监控技术试题-高中信息技术
- 浙江省浙南名校联盟2024-2025学年高二下学期期末联考技术试题-高中信息技术
- 浙江省宁波市九校2024-2025学年高二下学期期末考试技术试题-高中信息技术
- 2025届浙江省Z20联盟（名校新高考研究联盟）高三下学期第三次联考技术试题-高中信息技术
- 2025届浙江省强基联盟高三下学期三模技术试题-高中信息技术
-
1、对10个数据进行冒泡排序，需要比较的次数是( )A、90 B、110 C、45 D、55
-
2、在 Visual basic中，要将字符串变量a和b的值连接并将结果在文本框Text1中输出，下列代码合适的是（ ）。A、Str(a+b)=Text1. Text B、Text. Text=a+b C、a+b= Text1. Text D、Text1. Text=a+b
-
3、下图是王明同学编写的一段VB代码，运行后A和B的值分别是（ ）。
Dim A, B As Integer
A=5
B=6
B=A+B
A=A*B
Print A,B
A、30 11 B、55 11 C、55 66 D、11 55 -
4、张羽用VB编写了一个程序，保存在计算机中根据图标判断，下面4个文件中，其中为张羽编写的工程文件是（ ）。A、
算法的特征.htm
B、
斐波那契数列问题.vbp
C、
Visua Basic精简版.exe
D、
VB精编程技巧.wmv
-
5、小张同学在学习了选修教材《算法与程序设计》后，准备小试牛刀一下，就编了“判断一个数能否被7整除”的小程序，其中有三处错误，请帮助他修改。
Private Sub Command1_ Click()
Dim i As Integer
Dim As String
i= Text1.Text
If i/7=0 Then '判断文本框中输入的数是否是7的倍数
j=i & “是7的倍数，能被7整除! ” '是7的倍数,输出能被7整除!
Else
j=i&"不是7的倍数,不能被7整除!" '不是7的倍数,就输出不是7的倍数,不能被7整除!!
EndIf
Label3. Caption=j
End Sub
(1)、修改语句“Dim As String”行中的错误；(2)、修改语句“If i/7=0 Then”行中的错误；(3)、修改语句“End”行中的错误。 -
6、张文同学使用VB编写了一个程序用来求半径为r（通过Text1输入）的圆面积（π取值3.14），该程序如下。请帮助他修改程序中的错误。
Private Sub Command1_ Click( )
Dim pi As Single
Const pi=3. 14
Text2.Text=2 pi*Text1.Text
Text3.Text=pi*Text2.Text*Text2.Text
End Sub
①删除程序中多余的语句；
②修改语句“Text2.Text=2 pi*Text1.Text”行中的错误；
③修改语句“Text3.Text=pi*Text2.Text*Text2.Text”行中的错误；
④使用常用工具栏中的“保存工程”按钮保存文件。 -
7、以下程序中的循环体执行的次数是（ ）
For A=1 To 200 Step 4
S=S+A:
Next APrint S
A、48 B、49 C、50 D、51 -
8、在下图所示的VB“代码窗口”中，“对象”“过程”列表分别是（ ）
A、①② B、①③ C、③④ D、②③ -
9、现有VB程序“矩形面积和.vbp”，可计算100个矩形序列的面积和，计算公式为s=1 * 2+2 * 3+…+100 * 101，该程序运行时，单击“计算”按钮，即显示结果。但该程序代码有3处错误，请修改。
Private Sub Command1_Click()
Dim i AS Integer
Dim As Long
For i = 1 To 100
s = s + i *(i+1)
Nest i
Text1. Caption = s
End Sub
(1)、修改“Dim As Long”行中的错误；(2)、修改“Nest i”行中的错误；(3)、修改“Text1. Caption=s”行中的错误； -
10、李强调试“求三角形面积”VB程序时，显示“s=d×g÷2”出错，如下所示，其出错的原因是（ ）
Private Sub Command1_Click()
Dim d As Single, g As Single, s As Single ‘定义程序中使用的变量
d = Val(Text1. Text) ‘在Text1中输入三角形的底
g = Val(Text2. Text) ‘在Text2中输入三角形的高
s = d×g÷2 ‘计算三角形面积
Text3. Text = s ‘在Text3中显示面积值
End Sub
A、变量没有定义 B、语法错误 C、运算符错误 D、关键字错误 -
11、阅读下面一段程序，运行后可能会出现什么结果（ ）
Private Sub Command1_ Click ()
Dim i As Integer
For i=1 To 10
If Not i Mod 2=0 or i Mod 5=0 Then
Print i
Next i
End Sub
A、出现错误：块If没有End if B、在窗体中输出2、4、5、6、8、10 C、出现错误：Next没有For D、在窗体中输出1、3、5、7、9、10 -
12、下列是一个 Visual Basic 程序：
Sub Command1_Click()
x=4
For i=1 To 10 step 3
If x<i Then x=x+i
End If
Next i
Text1.Text=str(x)
End Sub
该程序运行结束，文本框 Text1 中显示（ ）
A、7 B、11 C、21 D、55 -
13、随机产生10个[100，199]之间的整数，依次存储到数组元素a(1)～a(10)中。实现此功能的部分算法流程图如图所示，图中空白处理框①和②处应填入的是（ ）
A、①i←i＋1 ②a(i)←Int((Rnd＋1)*100) B、①i←i＋1 ②a(i)←Int(Rnd＋1)*100 C、①a(i)←Int((Rnd＋1)*100) ②i←i＋1 D、①a(i)←Int(Rnd＋1)*100 ②i←i＋1 -
14、在VB中，与表达式Len("程序设计")的结果相同的是（ ）A、程序设计 B、Str(4) C、19 mod 5 D、Abs(﹣8)
-
15、在Visual Basic程序中，设x为一个大于“0”的三位数，能得到x百位上数字的表达式是（ ）A、Int(x / 10)*10 B、Int(x \ 100)*100 C、x － Int(x / 10)*10 D、Int(x \ 100)
-
16、若用整数型变量K表示某天是星期几（例如：k=1表示该天是星期一，k=2表示该天是星期二，……，k=7表示该天是星期日），则下列能正确表示k的下一天是星期几的VB表达式是（ ）A、k+1 B、k mod 7+1 C、(k+1) mod 7 D、(k+1) mod 7-1
-
17、在VB中，设a=2，b=3，c=4，表达式a<b Or c<=b And Not（3*a>c）值是（ ）A、2 B、3 C、True D、False
-
18、某宾馆的房间号由5位字符组成(例如A0823表示A幢8层23号房间)，末位数字为奇数时表示房间朝南、为偶数时表示房间朝北。字符串变量s中存储了1个房间号，下列能正确判断房间朝南的VB表达式是( )A、Val(Mid(s，5，1))Mod 2＝1 B、Val(Mid(s，5，1))Mod 2＝0 C、Val(Mid(s，5，1))\2＝1 D、Val(Mid(s，5，1))\2＝0
-
19、有如下VB程序段：
s=Text1.Text
ans=0
Text2.Text=Str(ans)
若Text1中输入的内容为“10”则Text2中输出的内容为“2”，加框处代码，不正确的是（ ）。
A、For i=1 To Len(s)t=Val(Mid(s, i, 1))
ans=ans+t*2^(Len(s)-i)
Next i
B、For i=1 To Len(s)t=Val(Mid(s, i, 1))
ans=ans*2+t
Next i
C、For i=Len(s) To 1 step-1t= Val(Mid(s, i, 1))
ans=ans+t*2^(i-1)
Next i
D、For i=1 To Len(s)t=Val(Mid(s, Len(s)-i+1, 1))
ans=ans+t*2^(i-1)
Next i
-
20、编制计算机程序解决问题的过程有：描述问题、算法设计、编写计算机程序、调试等，其中，对算法描述不正确的是（ ）。A、算法是解决问题的步骤集合 B、解题的步骤是有限的 C、算法就是解题的算式 D、算法是可以被表述和实现