- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- + 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
甲乙双方进行一场球类比赛,一局计分的规则是:赢1球得1分,用“1”表示;输1球失1分,用“0”表示。当任一方得分大于等于6分,且领先对方2分及以上,领先方赢一局。如甲选手一局比赛数据为“101110101”,表示甲选手得6分失3分,局比分
。
小王用一个字符串记录了甲选手多局比赛数据,其中有一处错误,位于连续多个“0”的最后一个。为了找出错误,小王的处理方法如图a所示,对示例中疑似错误位置6和20分别修改数据,并统计每局比分。他编写了VB程序,功能如下:在窗体Form l的文本框Text l中输入记录数据,单击“分析”按钮Command 1,在列表框List 1中输出修改位置以及修改后每局的比分。程序运行界面如图b所示。
(1)下列对象中有Text属性的是________(单选,填字母:
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
(3)程序中加框处代码有错,请改正。

图a 图b
Private Sub Command 1_Click()
Dim sp As String,s As String s s存储甲选手多局比赛的记录数据,长度小于50
Dim a(1 To 50)As Integer,e(1 To 20)As Integer
Dim I As Integer,j As Integer,k As Integer,n As Integer,m As Integer
Dim fl As Integer,f2 As Integer



( ① )
Next i



找出疑似错误位置

Loop
If ② Then

End If

Loop
对每个疑似错误位置分别修改数据,并统计每局比分






If
Then


End If
Next j

List 1.AddItem sp
③
Next i
End Sub

小王用一个字符串记录了甲选手多局比赛数据,其中有一处错误,位于连续多个“0”的最后一个。为了找出错误,小王的处理方法如图a所示,对示例中疑似错误位置6和20分别修改数据,并统计每局比分。他编写了VB程序,功能如下:在窗体Form l的文本框Text l中输入记录数据,单击“分析”按钮Command 1,在列表框List 1中输出修改位置以及修改后每局的比分。程序运行界面如图b所示。
(1)下列对象中有Text属性的是________(单选,填字母:
A.Command 1/ | B.Form 1/ | C.Text 1)。 |
(3)程序中加框处代码有错,请改正。


图a 图b
Private Sub Command 1_Click()
Dim sp As String,s As String s s存储甲选手多局比赛的记录数据,长度小于50
Dim a(1 To 50)As Integer,e(1 To 20)As Integer
Dim I As Integer,j As Integer,k As Integer,n As Integer,m As Integer
Dim fl As Integer,f2 As Integer




Next i





Loop
If ② Then

End If

Loop







If



End If
Next j

List 1.AddItem sp
③
Next i
End Sub
下列表达式的值不等于 6 的是( )
A.Int(6.9) | B.Len("我和我的祖国") |
C.Sqr(Abs(Int(-35.6))) | D.Asc("K") - Asc("F") |
某信息加密程序,对输入的明文(由英文字母或数字组成的字符串)进行加密,输出加密后得到的密文。
数据加密方法为对明文中的每个字符进行如下处理:
1)将该字符的ASCII码转换成对应的8位二进制;
2)将对应的8位二进制数进行按位取反(1变0,0变1);
3)将产生的8位二进制数循环左移3次;

4)最后产生的8位二进制数转换成对应的十六进制数。
例如,明文大写字母“A”通过上述算法加密算法加密后生成的密文是“F5”,信息加密过程如图所示。

小李编写了加密算法的VB程序,在文本框Text1中输入明文,单击“生成密文”按钮Command1,程序对明文数据依次进行加密处理,加密后生成的密文显示在文本框Text2中。程序运行界面如下图所示。

(1)如果输入明文为大写字母“F”,则生成的密文是__________。
(2)实现上述功能的VB程序如下。请在划线处填入合适代码。
Function btoh(m As String) As String '将4位二进制数转换成对应的十六进制数
Dim s As Integer, i As Integer
Dim 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
s = Text1.Text
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
数据加密方法为对明文中的每个字符进行如下处理:
1)将该字符的ASCII码转换成对应的8位二进制;
2)将对应的8位二进制数进行按位取反(1变0,0变1);
3)将产生的8位二进制数循环左移3次;

4)最后产生的8位二进制数转换成对应的十六进制数。
例如,明文大写字母“A”通过上述算法加密算法加密后生成的密文是“F5”,信息加密过程如图所示。

小李编写了加密算法的VB程序,在文本框Text1中输入明文,单击“生成密文”按钮Command1,程序对明文数据依次进行加密处理,加密后生成的密文显示在文本框Text2中。程序运行界面如下图所示。

(1)如果输入明文为大写字母“F”,则生成的密文是__________。
(2)实现上述功能的VB程序如下。请在划线处填入合适代码。
Function btoh(m As String) As String '将4位二进制数转换成对应的十六进制数
Dim s As Integer, i As Integer
Dim 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
s = Text1.Text
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