1)以字节为单位对ASCII字符进行加密处理;
2)8位二进制数最高位不处理;
3)后7位做如下处理:先按位取反,再右移3位,最高位用右移出的最低位填充;
所得的8位二进制数即为密文的编码。已知某字符的密文为“i”,其对应的原文字符是( )
s1 = Text1.Text
s2 = ""
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If c >= "0" And c <= "9" Then
c = Chr((Asc(c) - Asc("0") + 1) Mod 10 + Asc("0"))
s2 = s2 + c
ElseIf c >= "A" And c <= "Z" Then
c = Chr(Asc(c) + 32)
s2 = c + s2
End If
Next i
Text2.Text = s2
执行该程序段,在文本框Text1中输入“GoLand,19”,则文本框Text2中显示的内容为( )
p = Val(Text1.Text)
t = 0: j = 2: flag = True
s = Text1.Text + "="
Do While p > 1 And flag
If p Mod j = 0 Then
t = t + 1
p = p \ j
s = s + Str(j) + "*"
Else
If t = 1 Then flag = False
t = 0: j = j + 1
End If
If p = 1 And t = 1 Then flag = False
Loop
If flag Then
Text2.Text = Mid(s, 1, Len(s) - 1)
Else
Text2.Text = Text1.Text + "不是漂亮数"
End If
执行该程序段,在文本框Text1中输入6,则文本框Text2中显示的内容为( )
Key = Val(Text1.Text)
i = 1: j = 10: flag = False
Do While
m = Int((i + j) / 2 + 0.5)
If Then m = m - 1
If a(m) = Key Then
flag = True
ElseIf Then
i = m + 2
Else
j = m - 2
End If
Loop
If Not flag Then
Text2.Text = "查无数据"
Else
Text2.Text = "该数位置为" + Str(m)
End If
方框①②③中的代码依次为( )
(提示:SUMIF函数用于对满足条件的单元格求和。例如“=SUMIF(B4:B33,G3,E4:E33)”,用于统计2020年11月类别为“服饰”的金额总和。)
图b
图b
以下操作肯定不会改变声音播放效果的是(单选:填字母:A .将声音的效果设置为“淡入”/B .将声音的同步属性修改为“数据流”/C .在“声音”图层第60帧执行“插入帧”操作)
请回答下列问题:
Dim n As Integer
Dim a(1 To 20) As Integer
Dim b(1 To 20) As Integer
Dim c(1 To 20) As Integer
Private Sub Command1_Click()
Dim i As Integer, t As String, ch As String
n = 0: t = ""
Do While i <= Len(Text1.Text)
ch = Mid(Text1.Text, i, 1)
If ch = "," Then
n = n + 1
b(n) = n
t = ""
Else
t = t + ch
End If
i = i + 1
Loop
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, t As Integer
For i = 1 To n - 1
For j = n To i + 1 Step -1
If Then
t = b(j): b(j) = b(j - 1): b(j - 1) = t
End If
Next j
Next i
For i = 1 To n
Label1.Caption = Label1.Caption + Str(b(i))
Label2.Caption = Label2.Caption + Str(c(i))
Next i
End Sub
n个正整数由文本框Text1输入,依次存储到a数组中,b(1 to 25)中存储100内的素数,c数组存储每一组的数字个数及对应数字,d数组存储每一组内所含的质因子,相同质因子只存储一次,最后分组情况显示在列表框List1中。
c数组初始状态:
组别 |
第一组 |
第二组 |
… |
||||||||||||
位置 |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
… |
值 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
… |
d数组初始状态:
组别 |
第一组 |
第二组 |
… |
|||||||||||||
位置 |
1 |
2 |
3 |
4 |
5 |
6 |
… |
25 |
26 |
27 |
28 |
29 |
30 |
… |
50 |
… |
值 |
0 |
0 |
0 |
0 |
0 |
0 |
… |
0 |
0 |
0 |
0 |
0 |
0 |
… |
0 |
… |
若第一个数据为70,确定分组的过程为:先查找第一组内所含的质因子中是否含有70的质因子,未找到,则c数组中表示第一组数据个数的值加1,并将70添加到c数组的第一组内,同时在d数组第一组中依次添加70所含的各个质因子。
c数组变化情况:
组别 |
第一组 |
第二组 |
… |
||||||||||||
位置 |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
… |
值 |
1 |
70 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
… |
d数组变化情况:
组别 |
第一组 |
第二组 |
… |
|||||||||||||
位置 |
1 |
2 |
3 |
4 |
5 |
6 |
… |
25 |
26 |
27 |
28 |
29 |
30 |
… |
50 |
… |
值 |
2 |
5 |
7 |
0 |
0 |
0 |
… |
0 |
0 |
0 |
0 |
0 |
0 |
… |
0 |
… |
尝试将第2~n个整数分组。在确定某数分组的过程中,若已有的组内不存在该数所含的质因子,则将其分到第一个符合条件的组;否则,将其分到新生成的组中。
分组完毕后数组存储情况如下表。
c数组:
组别 |
第一组 |
第二组 |
… |
||||||||||||
位置 |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
… |
值 |
2 |
70 |
99 |
0 |
0 |
0 |
0 |
3 |
25 |
54 |
11 |
0 |
0 |
0 |
… |
d数组:
组别 |
第一组 |
第二组 |
… |
|||||||||||||
位置 |
1 |
2 |
3 |
4 |
5 |
6 |
… |
25 |
26 |
27 |
28 |
29 |
30 |
… |
50 |
… |
值 |
2 |
5 |
7 |
3 |
11 |
0 |
… |
0 |
5 |
2 |
3 |
11 |
0 |
… |
0 |
… |
按照上述要求编写一个VB程序,其运行界面如图所示。
Const n = 6 '数据个数
Dim a(1 To n) As Integer '存储原始数据
Dim b(1 To 25) As Integer '存储100以内的素数
Dim c(0 To (n + 1) * n) As Integer '存储每一组的数字个数及对应数字
Dim d(1 To 25 * n) As Integer 'd数组存储每一组内含有的质因子
Private Sub Command1_Click()
Dim t As Integer, i As Integer, j As Integer
Dim k As Integer, m As Integer, p As Integer
Dim y As Integer, zu As Integer
Dim st As String
For t = 1 To n
k = 1
i = 1
Do While d((k - 1) * 25 + i) <> 0
If a(t) Mod d((k - 1) * 25 + i) = 0 Then
i = 0
End If
i = i + 1
Loop
m = (k - 1) * (n + 1) '每一组存储数字个数的所在位置
c(m) = c(m) + 1
For j = 1 To 25
If a(t) Mod b(j) = 0 Then
i = i + 1
End If
Next j
Next t
p = 0
Do While c(p) > 0
st = ""
For i = 1 To c(p)
st = st + Str(c(p + i))
Next i
zu = p \ (n + 1) + 1
List1.AddItem "第" + CStr(zu) + "组为:" + st
'Cstr的功能:将数值型转为字符串型
p = p + n + 1
y = y + 1
Loop
List1.AddItem "至少分:" + CStr(y) + "组"
End Sub
Private Sub Form_Load()
'读取文本框Text1中的各个数据依次存储到数组a中,存储100以内的素数到数组b中,代码略
End Sub