相关试卷
-
1、CALL语句后的参数是（）参数。
-
2、实际参数和形式参数存在对应、对应、对应。
-
3、下列调用子过程不正确的方法是（ ）A、CALL FS（5） B、FS 5 C、FS（5）
-
4、在参数传递过程中，使用关键字（ ）来修饰形式参数，可以使之按值传递。A、ByVal B、ByRef C、Value D、Reference
-
5、为分析数组a中各元素依次变化的情况，进行如下定义：
变化段：数组中相邻两个元素构成一个变化段。变化段有上升段（a(i)>a(i-1)）、下降段（a(i)<a(i-1)）和持平段（a(i)=a(i-1)）。数组a中的n个元素可构成n-1个依次排列的变化段。
波峰：从上升段转到下降段形成一个波峰。波峰的起点是峰顶前所有连续上升段中的第1个，终点是峰顶后所有连续下降段中的最后1个。
对称波峰：上升段与下降段个数相同的波峰称为对称波峰。
下图为一组数据的变化段及波峰示意图。
现要求统计数组a各元素依次变化过程中“对称波峰”的个数。小李依据上述描述设计如下VB程序。请回答下列问题：
(1)、数组元素“1,4,3,3,2,6,8,7,9,3,4,7,9,6,3,1”依次变化过程中“对称波峰”的个数为。(2)、请在划线处填入合适的代码。Const n = 20
Dim a(1 To n) As Integer
Private Sub Form_Load()
'读取数据，并存储到数组a中，代码略
End Sub
Private Sub Command1_Click()
Dim flag As Integer '存储变化段的状态：1表示升，-1表示降，0表示平
Dim count As Integer '存储对称波峰段的个数
Dim steps As Integer
Dim i As Integer
flag = 0: steps = 0: count = 0
For i = To n
If a(i) > a(i - 1) Then
If IsSymPeak(flag, steps) Then count = count + 1
If flag = 0 Or flag = -1 Then
Else
steps = steps + 1
End If
flag = 1
ElseIf a(i) = a(i - 1) Then
If IsSymPeak(flag, steps) Then count = count + 1
steps = 0
flag = 0
Else
steps = steps - 1
flag = -1
End If
Next i
If IsSymPeak(flag, steps) Then count = count + 1
Text1.Text = Str(count)
End Sub
Function IsSymPeak(flag As Integer, steps As Integer) As Boolean
If Then
IsSymPeak = True
Else
IsSymPeak = False
End If
End Function
-
6、给定m个区间和1个数组（有n个元素），现要求根据各区间限定的取值范围，将数组依次分割成m+1个段｡具体分割方法如下：
•第1段是从数组首个元素开始，元素值都属于第1区间的最长连续元素段，如果首个元素不属于第1区间，则第1段元素个数为0；
•第1段分割后的剩余元素，用同样的方法来依次分割第2段､第3段､…､第m段；
•第m段分割后的剩余元素分割到第m+1段（剩余段）｡
若第p（1≤p≤m-1）段末尾连续元素的值也同时属于第p+1区间，则这块连续元素称为第p段“重叠块”，该段其余部分称为第p段“非重叠块”｡由于不存在第m+1区间，这里特别规定：第m段的全部元素都分割到m段“非重叠块”，第m段“重叠块”的元素个数为0｡一个数组分段示例如图｡图中数组第1个元素10不属于第1区间[0，5]，因此第1段的元素个数为0｡10和20属于第2区间，而33不属于第2区间，因此第2段只包含10和20两个元素｡第3段末尾连续3个元素的值也同时属于第4区间，因此，第3段“非重叠块”包含33，58，46，第3段“重叠块”包含55，62，69｡
(1)、给定2个区间，数组各元素为“12，44，34，45，66，50，45，70”，第1段“重叠块”中的元素个数为3个，第1个区间为[10，50]，则第2个区间可能为（单选，填字母A .[30，80] /B .[9，45] /C .[60，90]）｡(2)、小李根据上述描述，设计了一个统计各段“非重叠块”“重叠块”和剩余段中元素个数的算法｡算法的 VB 程序如下，请在划线处填入合适的代码｡Const n = 18: m = 6
Dim a(1 To n) As Integer
Dim b(1 To 2 ∗ m) As Integer
'b(1)､b(2)为第 1 区间的下限和上限，b(3)､b(4)为第2区间的下限和上限，…
Dim c(1 To 2 ∗ m + 1) As Integer
'数组c用于保存统计结果：
'c(1)､c(2)分别存储第1段"非重叠块"和"重叠块"的元素个数，
'c(3)､c(4)分别存储第2段"非重叠块"和"重叠块"的元素个数，…
'c(2m-1)存储第m段"非重叠块"元素个数，c(2m)存储
第m段"重叠块"的元素个数(值为0)
'c(2 m+1)存储剩余段元素个数
Private Sub Command1_Click()
Dim i As Integer, p As Integer, L As Integer, LL
As Integer
'读取n个数据并保存在数组a中，代码略
'读取m个区间的下限和上限并保存在数组b中，代码略
For i = 1 To 2 ∗ m + 1
c(i) = 0
Next i
i = 1: p = 1
L = 0: LL = 0
Do While i <= n And p <= m
If IsIn(i, p) Then
If Then
LL = LL + 1
Else
L = L + LL + 1
LL = 0
End If
i = i + 1
Else
c(2 ∗ p - 1) = L
c(2 ∗ p) = LL
L = 0
p = p + 1
End If
Loop
If i <= n Then
Else
c(2 ∗ p - 1) = L
c(2 ∗ p) = LL
End If
'输出统计结果，代码略
End Sub
'函数IsIn用来判断a(i)值是否属于第p区间
Function IsIn ( i As Integer, p As Integer )
As Boolean
If a(i) >= b(2 ∗ p - 1) And a(i) <= b(2 ∗ p)
And p <= m Then
IsIn = True
Else
IsIn = False
End If
End Function
-
7、如果一个数从左往右读和从右往左读都一样，那么这个数就叫做“回文数”。如果一个数的十进制和二进制表示都是回文数，则把这个数叫做“双重回文数”。例如，十制数33是回文数，将其转化为二进制表示（10001）也是回文数，所以33是双重回文数。编写程序用于查找1000以内的双重回文数。(1)、根据题目描述，十进制数99是否是“双重回文数”（填：是/不是）。(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim n As Integer, d As String, b As String
For i = 1 To 999
n=i
d=CStr(n) 'CStr函数的功能是数值转换为字符串
①
If ishws(d)Aind ishws(b)Then
List1.AddItem Str(i)+" "+b
End If
Next i
End Sub
Function dtob(k As Integer)As String '进制转换
Do While k >0
dtob =CStr(k Mod 2)+ dtob
k=k\2
Loop
End Function
Function ishws(x As String)As Boolean
ishws = True
For j=1 To Len(x) \2
If ② Then
ishws = False
Exit For
End If
Next j
End Function
①②
-
8、学校把各同学选考组合放在一个数据库中，小明编写了一个VB程序，用于查询每个同学的选考组合，程序界面如图所示，在文本框Text1中输入学号，单击“开始查询”按钮（Command1），就开始查找该学号的信息，如果找到对应的信息，就显示所属学生的姓名和选考组合；如果没有找到，则显示“找不到”。学校共有n名学生，数组a、b分别保存了本次考试所有学生的学号和姓名信息。数据库数据按学号从小到大排列，第i个学生的学号保存在a(i)，对应的姓名保存在b(i)，c(i)保存该学生的选考组合。
程序如下，在程序划线处填入适当的代码，把程序补充完整。
Dim n As Integer, a(1000)As String,
Dim b(1000)As String, c(1000)As String
Private Sub Command1_Click()
Dim x As String, pos As Integer
Dim conn As New ADODB. Connection,rs As New
ADODB. Recordset
conn. ConnectionString="provider =Microsoft. AC
A.OLEDB.12.0; data source="&.App. Path&"\students.accdb"
conn. Open
Set rs. ActiveConnection = conn
rs. Open"学生信息"
n=0 '考生数初始化
Do While Not rs. EOF
n =n+1
a(n)=rs. Fields(0)
b(n)=rs. Fields(1)
c(n)=rs. Fields(2)
①
Loop
x = Text1.Text
If pos >0 Then
②
Text2.Text=b(pos)
Text3.Text =c(pos)
Else
Text2.Text="找不到"
End If
End Sub
Function Search(Key As String)As Integer
Dim i As Integer, j As Integer, m As Integer
i=1: j=n: Search =0
Do While i <=j m=Fix((i+j)/2)
If Key =a(m)Then
③
Exit Function
Else lf a(m)> Key Then
j=m－1
Else
i=m+1
End If
Loop
End Function
① ② ③
-
9、在VB中，将一个二进制数转化成十六进制的自定义函数代码如下，请在程序划线处填入合适的代码。
Function btoh(s As String)As String
Dim i As Integer, s1 As String, t As Integer
Dim str As String, j As Integer
str="0123456789ABCDEF"
i= Len(s)
Do While i >=1
If ① Then
s1= Mid(s, i－3, 4)
Else
s1 = Mid(s; 1, i)
End If
t=0
For j =1 To Len(s1)
t= ②
Next j
btoh = Mid(str, t + 1, 1)+btoh
i=i－4
Loop
End Function
① ②
-
10、有VB自定义函数的功能是求两个数之间被3除多2，被5除多3的所有整数个数，请在程序划线处填入合适的代码。
Function f(x1 As Integer, x2 As Integer)As Integer
Dim t As Integer, i As Integer
If x1 <x2 Then t=x1: x1=x2: x2=t
For i= ①
If i Mod 3=2 And i Mod 5 = 3 Then ②
Next i
End Function
① ②
-
11、用26个互不重复的ASCI字符作为密码本，根据英文字母在字母表中位置，替换为密码本该位置的字符。现编写将英文字母加密的VB程序，在文本框Text1中输入明文，单击“加密”按钮Command1，在文本框Text2、Text3中输出产生的密码本和密文。程序运行界面如下图所示。
实现上述功能的VB代码如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim i As Integer, mw As String, jm As String
mw= Text1.Text: Text2.Text = my(26)
For i =1 To Len(mw)
c= Mid(mw, i, 1)
If c>="A" And c<="Z" Or c>="a"
And c<="2"Then
‘①jm =jm+ Mid(Text2.Text, t, 1)
Else
jm=jm +c
End If
Next i
Text3.Text =jm
End Sub
Function my(n As Integer)As String
Dim s As String, i As Integer, x As Integer
s ="ABCDEFGHIKLMNOPQRSTUVWXYZabc-defghijklmnopqrstuvwxyz0123456789"
i=1
Do While i <=n
t=63-i
x =Int(Rnd()*t+1)
‘②s = Mid(s, 1, x－1)+ Mid(s, x+1, t－x)
i=i+1
Loop
End Function
① ②
-
12、数组 a 规模为(m+1)×n,其中 a(1) ~a(m ∗ n)元素中存储数据，数据中m×n个元素按行序排列成一个数字矩阵如图所示｡计算每列数据的和，并依次存储在m+1行对应的数组元素中｡
依据该算法思想，设计一个VB程序，实现该功能的代码如下，请回答下列问题｡
(1)、根据代码可知，该程序的按钮对象名是｡(2)、在程序划线处填上合适代码｡Const m = 6
Const n = 5
Dim a(1 To (m + 1) ∗ n) As Integer
Private Sub Form_Load()
'数组初始化，生成 m×n 个两位数的随机整数并赋值给数组a
Randomize
For i = 1 To m ∗ n
a(i)= ①
Next i
End Sub
Private Sub Cod1_Click()
Dim i As Integer, j As Integer
For i = 1 To n
②
Next i
'将计算后数据，按 m + 1 行，n 列输出到列表框中，代码略
End Sub
Function sum(y As Integer) As Integer '函数功能是计算每列数据和
sum = 0
For i = ③
sum = sum + a(i)
Next i
End Function
① ② ③
-
13、有一数组 a 具有 n（1≤n≤100）个元素，分别为 a(1)到 a(n)，数组元素都为正整数且有可能相等。对于每一个数组元素，如果它后面存在大于或等于该元素的数，则这两个数可以组成一对。每个元素和自己也可以组成一对。例如：{3,7,2,4,8}，可以组成 11 对，分别为（数字为下标）：(1,1)，(1, 2)， (1, 4)， (1, 5)， (2, 2)，(2, 5)， (3, 3)， (3, 4)， (3, 5)， (4, 4)， (4, 5)， (5, 5)。其中(1, 5)是距离最远的一对，距离为4。小明编写了一个VB程序，用于计算n个数组元素的最远距离。具体功能如下：运行程序时，在列表框List1中显示n个数组元素，单击命令按钮Command1，在文本框中显示这n个数组元素的最远距离。运行效果如图所示。
实现上述功能的 VB 代码如下。
Const n = 5 'n=5为例
Dim a(1 To n) As Integer '用于记录每个数组元素的值
Dim b(1 To n) As Integer '用于记录每个数组元素在原数组中的下标
Private Sub Form_Load()
'读取一组正整数，存储在数组 a 中
'将每个数组元素在原数组中的下标存储在数组 b 中
'将数组元素显示在列表框 List1中
'代码略
End Sub
Function Getans() As Integer
Dim left As Integer, ans As Integer
left = 10000: ans = 0
For i = 1 To n
If b(i) < left Then left = b(i)
If b(i) - left > ans Then ans = b(i) - left
Next i
Getans = ans
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
For i = 1 To n
For j = n To i + 1 Step -1
If
Thent = a(j): a(j) = a(j - 1): a(j - 1) = t
t = b(j): b(j) = b(j - 1): b(j - 1) = t
End If
Next j
Next i
Text1.Text =
End Sub
(1)、代码“Private Sub Command1_Click( )”中表示加载在Command1上的事件是。（单选，填字母：A ．Click/B ．_Click/C ．Command1_Click）(2)、程序代码中，IF 语句后加框处代码有误，请改正。(3)、程序代码中，将 Text1.Text 赋值语句补充完整。(4)、如程序运行界面所示数据，单击命令按钮 Command1后，数组元素 b(2)的值为。 -
14、某ASCII字符加密方法算法如下：
⑴计算出该ASCII字符的8位二进制数值
⑵将该数值分割为前4位与后4位两个二进制数
⑶分别将上述两个4位二进制数转换为十进制数
⑷将每个十进制数转换为1个加密字符，对应的“密码表”如下
值（十进制）
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
加密字符
I
1
i
k
e
C
H
N
p
o
s
t
c
a
r
d
根据以上加密算法来推断解密算法，下表显示了字符串中两个字符的解密过程：
小明设计了一个解密程序，功能如下：在文本框Text1中输入密文，单击“解密”按钮Command1，在文本框Text2中输出解密结果。程序运行时界面如下图所示。
实现上述功能的VB程序如下，请回答下列问题：
(1)、请在划线处填入合适的代码。Private Sub Command1_Click()
Dim z As String, a As String, b As String
Dim i As Integer, y As Integer
z = Text1.Text
Text2.Text =" "
For i= 1 To ①
a=Mid(z, i, 1)
b= Mid(z, i+1, 1)
②
Text2.Text = Text2.Text + Chr(y)
Next i
End Sub
Function zn(x As String)As Integer '得出加密字符对应密码表中的十进制数
Dim m As String, i As Integer
m ="IlikeCHNpostcard"
For i =0 To 15
If ③ Then
zn=i
Exit For
End If
Next i
End Function
① ② ③
(2)、若已知字符“a”的ASCI1码值为97（十进制），加密字符HN对应的英文字母是。 -
15、对输人的明文（由英文字母或数字组成的字符串）进行加密，输出加密后得到的密文。数据加密方法为对明文中的每个字符进行如下处理：
1）将该字符ASCI码转换成对应8位二进制；
2）将对应8位二进制数进行按位取反（1变0；0变1）；
3）将产生的8位二进制数循环左移3次；
4）最后产生的8位二进制数转换成对应的十六进制数。
例如：明文大写字母“A”通过上述算法加密算法加密后生成的密文是“F5”，在文本框Text1中输入明文，单击“生成密文”按钮Command1，加密后生成的密文显示在文本框Text2中。
(1)、如果输入明文为大写字母“F”，则生成的密文是。(2)、请在划线处填入合适的代码。Function btoh(m As String)As String ‘将4位二进制数转换成对应的十六进制数
Dim s As Integer, i As Integer, str As String
str ="0123456789ABCDEF": s=0
For i=1 To 4
s=s*2+ Val(Mid(m, i, 1))
Next i
①
End Function
Private Sub Command1_Click()
Dim ans As String, s As String, ch As String, ret As String
Dim i As Integer, asc1 As Integer, n As Integer
②
ans=" "
For i = 1 To Len(s)
ch =Mid(s, i, 1) ‘取出第i个字符存入变量ch
asc1=Asc(ch)
ret" "
For m =1 To 8 ‘完成加密步骤1)和步骤2)
n=(asc1+1)mod 2
ret =n & ret
③
Next m
ret = Mid(ret, 4, 5)+ Mid(ret, 1, 3) ‘完成加密步骤3)和步骤4)
s1=btoh(Mid(ret, 1, 4))
s2 =btoh(Mid(ret, 5, 4))
ans =ans & s1 & s2 ‘将第i个加密后的字符添加到变量ans的末尾
Next i
Text2.Text = ans
End Sub
① ② ③
-
16、小明编写了一个寻找奇妙整数的VB程序。此整数的平方与立方正好用了0~9的10个数且每个数只用一次，例如69的平方为4761，69的立方为：328509，4761和328509刚好用了0~9的10数，并且没有重复使用。现需从1至1000寻找这样的奇妙整数并在列表框List1中显示。实现上述功能的VB程序段如下：
Private Sub.Command1_Click()
Dim n As Integer, k As Integer, f As Boolean ‘判断字符k是否重复出现
Dim s1 As String, s2 As String, i As Integer, j As Integer
For n= 1 To 1000
For i =0 To 9
a(i)= True
Next i
f = True
s1=CStr(n^2)
s2 =CStr(n^3) ‘Cstr()函数的作用是将数字型变量改变成字符型变量
For j = 1 To Len(s1)
①
If a(k)= True Then
a(k)=False
Else
f = False
Exit For
End If
Next j
If ② Then
j=0
Do While j<=9
If a(i)=True Then f=False: Exit Do
j=j+1
Loop
If f = True Then List1. AddItem Str(n)
End If
Next n
End Sub
Function Judge(s As String) As Boolean
Dim i As Integer, k As Integer
i=1: Judge True
Do While ③
k =Val(Mid(s, i, 1))
If a(k)=True Then
a(k)=False
Else
Judge = False
Exit Do
End If
i=i+1
Loop
End Function
请在程序划线处填入合适的代码。
① ② ③
-
17、下列VB程序用于求2个正整数（均小于10000）的最大公约数，请在程序划线处填入合适的代码。
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
x=Val(Text1.Text): y=Val(Text2.Text)
①
Text3.Text=Str(z)
End Sub
Function gcd(a As Integer, b As Integer)As Integer
Do While a< >b
If a>b Then a=a-b Else b=b-a
Loop
②
End Function
① ②
-
18、在VB中，判断一个整数的各位上的数字是否重复的自定义函数，请在程序划线处填入合适的代码。
Private Function judge(t As Long)As Boolean
Dim s As String, s1 As String, i As Integer, j As Integer
s=Str(t): judge =False
For i =1 To Len(s)－1
s1 = Mid(s, i, 1)
For j =i+ 1 To Len(s)
If ① Then Exit Function
Next j
Next i
②
End Function
① ②
-
19、编写一个将十进制数转换为二进制的VB自定义函数，完成划线处应填的语句。
Function dTOb(x As Integer)As String
Dim s As String
Do While x>0
If x Mod 2=0 Then s="0"Else s="1"
x=x\2
Loop
End Function
-
20、编程找出100到1000之间满足以下条件的整数：该数和该数平方合并后的数字串中不存在重复的数字。例如209，其平方数为43681，209和43681合并后的数字串“20943681”中无重复数字，209就是符合条件的数。实现上述功能的VB代码如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim x As Integer, y As Long, st As String
For x=100 To 1000
y=x^2
st=Str(x) & Str(y)
If
Then ‘①List1. AddItem"x: "& Str(x) & "x2: "&Str(y) &"x&y: "& Str(st)
End If
Next x
End Sub
Private Function judge(s As String) As Boolean
Dim a(1 To 100) As String
For i=1 To Len(s)
a(i) =Mid(s, i, 1)
Next i
For i =1 To Len(s)－1
For j=i+ 1 To Len(s)
If
Then Exit Function. ‘②Next j
Next i
Judge=True
End Function