相关试卷
-
1、有如下VB程序段:
Dim a(1 to 5) as Integer, i as Integer, c as Integer
a(1) = 2 : a(2) = 1 : a(3) = 3 : a(4) = 4 : a(5) = 5
c = 0
For i = 3 to 5
If a(i - 2) + a(i - 1) = a(i) Then c = c + 1
Next i
Text1.Text = Str(c)
该程序运行后,文本框text1中显示的内容是（ ）
A、1 B、2 C、3 D、4 -
2、执行下面的程序段后，x的值为（ ）
x=5
For i=1 To 20 Step 2
x=x+i\5
Next i
A、21 B、22 C、23 D、24 -
3、水仙花数也被称为超完全数字不变数，是指一个3位数，它的每个位上的数字的3次幂之和等于它本身（例如：13+53+33=153）。课堂上老师布置作业要求用VB编写一个程序，找出所有的水仙花数，下面是小丽同学完成的作业，其中有几处错误，请帮她修改。
Private Sub Command1_Click()
Dim i As Long, j As Long, k As long
Dim As long
For i=0 To 9
For j=0 To 9
For k=0 To 9
s=i*100+j*10+k
If(i^3)+(j^3)+(k^3)=s Then
Debug. Print s
End If
Next k
Next j
Next i
End Sub
(1)、修改“Dim As Long”行中的错误；(2)、修改“For i=0 To 9”行中的错误；(3)、修改“If(i^3)+(j^3)+(k^3)= s Then”行中的错误； -
4、有如下程序段：
Dim a(1 To 5) As Integer
a(1) = 3: a(2) = 2: a(3) = 7: a(4) = 5: a(5) = 1
For i = 5 To 2 Step -1
For j = 1 To i - 1
If a(j) > a(j + 1) + Int(Rnd * 2) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
程序运行后，a(1)到a(5)的值不可能是（ ）
A、1 2 3 5 7 B、3 2 1 5 7 C、2 1 3 5 7 D、1 2 5 3 7 -
5、数组a中存储的是两个数列交替排序的n个正整数，下标为奇数的数组元素都是奇数且为升序排列，下标为偶数的数组元素都是偶数且为降序排列。排序示例如下。
a(1)
a(2)
a(3)
a(4)
a(5)
a(6)
a(7)
a(8)
a(9)
a(10)
1
10
3
8
5
6
7
4
9
2
依据对分查找思想，设计一个在数组a中查找数据key的程序，实现该功能的VB程序如下，请回答下列问题：
Private Sub Search_Click()
Const n = 10
Dim a(1 To n) As Integer
Dim i As Integer, j As Integer, m As Integer, f As Boolean, key As Integer
'读取一组正整数，按上述规则存入数组 a 中。代码略
key = Val(Text1.Text)
If key Mod 2 = 1 Then i = 1 Else i = 2
j = n :f = False
Do While i <= j And Not f
If key Mod 2 = 0 Then
m = (i + j) \ 2 - (i + j) \ 2 Mod 2
Else
m = ①
End If
If key = a(m) Then
f = True
ElseIf
Thenj = m - 2
Else
i = ②
End If
Loop
If f Then Label1.Caption = Str(m) Else Label1.Caption = "不存在"
End Sub
(1)、观察程序代码，该事件处理过程名为。(2)、程序加框处代码有错，请改正。(3)、请在划线处填入合适的代码。① ②
-
6、对于数列：1、2、3、4、5，用二分法查找数据“4”，最少的查找次数是（ ）。A、4次 B、3次 C、2次 D、1次
-
7、5个学生的身高（单位：cm）依次为：172，177，180，168，165，采用冒泡排序对这5个学生的身高数据进行从高到低排序，第二遍加工后的数据为（ ）。A、180，177，172，168，165 B、180，172，177，168，165 C、165，172，177，180，168 D、165，168，172，177，180
-
8、对10个数据进行冒泡排序，需要比较的次数是( )A、90 B、110 C、45 D、55
-
9、在 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
-
10、下图是王明同学编写的一段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 -
11、张羽用VB编写了一个程序，保存在计算机中根据图标判断，下面4个文件中，其中为张羽编写的工程文件是（ ）。A、
算法的特征.htm
B、
斐波那契数列问题.vbp
C、
Visua Basic精简版.exe
D、
VB精编程技巧.wmv
-
12、小张同学在学习了选修教材《算法与程序设计》后，准备小试牛刀一下，就编了“判断一个数能否被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”行中的错误。 -
13、张文同学使用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”行中的错误；
④使用常用工具栏中的“保存工程”按钮保存文件。 -
14、以下程序中的循环体执行的次数是（ ）
For A=1 To 200 Step 4
S=S+A:
Next APrint S
A、48 B、49 C、50 D、51 -
15、在下图所示的VB“代码窗口”中，“对象”“过程”列表分别是（ ）
A、①② B、①③ C、③④ D、②③ -
16、现有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”行中的错误； -
17、李强调试“求三角形面积”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、关键字错误 -
18、阅读下面一段程序，运行后可能会出现什么结果（ ）
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 -
19、下列是一个 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 -
20、随机产生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