修改时间:2024-07-13 浏览次数:127 类型:期末考试
s = Text1.Text
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "A" And c <= "Z" Then c = ①
If c >= "a" And c <= "z" Then
m = ②
c = Chr(Asc("a") + m)
End If
s1 = s1 + c
Next i
Label1.Caption = s1
程序运行时,在文本框Text1中输入“ABC123xyz”,在标签框Label1中输出“bcd123yza”,则划线处的代码为
图a
请回答下列问题:
图b
场景:主界面 |
进入方式:由“片头”场景单击“进入”按钮进入 |
呈现方式: ⒈大雁挥动翅膀从舞台左下角飞到舞台右上角。 ⒉枫叶从树枝上飘落到草地上。 ⒊白云变换着形状飘向舞台右侧。 ⒋点击退出按钮,停止所有声音,跳转到“片尾”场景第一帧并停止播放。 |
呈现顺序说明: ⒈一开始出现背景图片和“雁飞”动画并播放背景音乐。 ⒉ 1秒后出现 “落叶”动画。 ⒊ 2秒后出现“白云”动画。 ⒋最后出现“退出”按钮,并停止动画播放,背景音乐继续播放。 |
根据制作脚本,背景音乐的同步方式为(数据流/事件)。
Private Sub Command1_Click()
Dim s As String, result As String, m As String
Dim t As Integer, k As Integer
s = Text1.Text
result = ""
m = "0123456789ABCDEF"
t = 0
If Len(s) Mod 4 = 0 Then k = 0 Else ①
For i = 1 To Len(s)
r = Mid(s, i, 1)
k = k + 1
If k = 4 Then
result = result + Mid(m, t + 1, 1)
t = 0
②
End If
Next i
Label1.Caption = result
End Sub
① ②
Private Sub Command1_Click()
Dim i As Integer, m As Integer, f As Integer, tmp As String, flag As Boolean
Dim s As String, ch As String, sex As Integer, cm As Integer, cf As Integer
k = 0: sex = 0: m = 0: f = 0
s = Text1.Text
For i = 1 To Len(s) - 1
ch = Mid(s, i, 1)
If ch = "," And Mid(s, i + 1, 1) = "男" Then
tmp = Mid(s, i + 3, 3)
sex = 1
flag = True
ElseIf ch = "," And Mid(s, i + 1, 1) = "女" Then
tmp = Mid(s, i + 3, 3)
cf = cf + 1
flag = True
End If
If flag = True Then
m = m + sex * Val(tmp)
f =
sex = 0
i = i + 5
End If
Next i
Label1.Caption = "男生平均身高:" + Str(m / cm) + "女生平均身高:" + Str(f / cf)
End Sub
试题篮