甲乙双方进行一场球类比赛,一局计分的规则是:赢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属性的是________(单选,填字母:
A.Command 1/B.Form 1/C.Text 1)。
(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
当前题号:1 | 题型:None | 难度:0.99
下列表达式的值不等于 6 的是( )
A.Int(6.9)B.Len("我和我的祖国")
C.Sqr(Abs(Int(-35.6)))D.Asc("K") - Asc("F")
当前题号:2 | 题型:选择题 | 难度:0.99
某信息加密程序,对输入的明文(由英文字母或数字组成的字符串)进行加密,输出加密后得到的密文。
数据加密方法为对明文中的每个字符进行如下处理:
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
当前题号:3 | 题型:填空题 | 难度:0.99