下列说法正确的是( )
人工智能技术应用实例中,在技术分类上区别于其他项的是( )。
Private Sub Command1_Click( )
Dim a(10) As Integer, n As Integer
a(1) = 1
For i =2 To 10
a(i)=a(i-1)*i
Next i
List1.AddItem Str(a(i))
End Sub
运行该程序,单击命令按钮Command1,弹出的错误信息提示是( )
图a
图b
图1
图2
For i = 1 To 3
k = ""
For j = 1 To 2 * i - 1
k = k + " * "
Next j
List1.AddItem k
Next i
该程序段运行后,在列表框List1中显示的是( )
A.选择“背景”图层,使用“矩形选框”工具选中左边的松树,进行“内容识别”填充,可使松树消失
B.选中“周年华诞”图层,可以直接通过“自由变换”改变“周年华诞”的文字大小
C.选中“周年华诞”图层,可以直接设置图层样式
D.选择“70”图层并解锁后,可用文字工具修改该图层中文字大小
E.选中“背景”图层,可以直接添加滤镜
场景: main | 类别序号: 2 | 进入方式:单击“load"场景的“Play” 按钮进入 | |
呈现方式: ⒈“文字”图层中的文字实例由完全透明到完全显示、再到完全透明,用时2秒。 ⒉“年份”图层的动画由文字“1979~2019”逐渐变为文字“普天同庆”,用时5秒。 ⒊“播放”按钮出现在舞台右下方,单击该按钮,跳转到“end”场景第一帧并停止播放,同时“我和我的祖国”音乐停止。 ⒋其他动画略。 |
呈现顺序说明: ⒈进入场景时,动画停止在第1帧,“我和我的祖国”音乐响起,“开始” 按钮出现。 ⒉单击“开始”按钮后动画开始播放,同时“开始”按钮消失。 ⒊“文字”图层的动画结束后,“年份”“气球”“战斗机”图层的动画开始。 ⒋最后出现“播放”按钮,场景动画停止在最后一帧。 |
①授权码由9位字符组成,前8位为日期的密文,最后1位为验证码;
②取日期各位的字符,若该字符第一次出现,则直接取其对应的加密字符,否则取下一个不重复的加密字符;
③求出所有日期字符数值的和,将和除16取余加1得到一位验证码字符,取得的验证码重复时,处理规则与②相同。
加密字符对应表如下:
值(十进制) |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 |
15 |
加密字符 |
K |
n |
G |
j |
L |
t |
W |
b |
O |
a |
P |
H |
Z |
Q |
Y |
C |
小李设计了一个生成8位日期(YYYYMMDD格式)授权码的VB程序,程序功能如下:在文本框Text1中输入一个8位有效日期,单击“生成”按钮Command1后,在标签Label2中显示该日期的授权码。运行界面如图所示。实现上述功能的VB程序如下。
Dim f(0 To 15)As Integer
Const code ="KnGjLtWbOaPHZQYC"
Private Sub Command1_Click( )
Dim rq As String,sq As String
Dim c As Integer,i As Integer,d As Integer
rq = Textl.Text:sq=""
For i= 1 To 8
c=Val(Mid(rq,i,1))
d=d+c
sq= ①
Next i
yz =GetChar(d Mod 16+1)
Text2.Text = sq + yz
End Sub
Function GetChar(x As Integer) As String
Dim flag As Boolean
flag = False
Do While flag = False
f(x) =f(x) +1
If f(x) =1 Then
②
f(x) =f(x) +1
flag=True
Else
x=(x+1) Mod 16
End If
Loop
End Function
以上程序段运行时,为了实现上述功能,画线处应填入的代码分别为:①;②。