For i = 4 To 3 Step -1
If a(i) < a(i-1) Then
tmp = a(i)
For j = i-1 To 1 Step -1
If tmp > a(j) Then Exit For
a(j+1) = a(j)
Next j
a(j+1) = tmp
End If
Next i
数组元素 a(1)到 a(6)的值依次为“19,8,96,92,85,88”,经过该程序段“加工”后,数组元素 a(1)到 a(6)的值依次为( )
s1 = Text1.Text
s2=“”
For i=1 To Len(s1)
ch=Mid(s1, i, 1)
If ch>=“A” And ch<=“Z” Then
′提示:“A”的ASCII码值为65,“a”的ASCII码值为97
End If
s2=s2 & ch
Next i
Text2.Text = s2
要使程序实现上述功能,则方框中的代码是( )
flag = True : p = 0
Key = 5
For i = 1 To Key - 1
L = i
Do While
M = (L + R) \2
p = p + 1
If i * i + M * M < Key * Key Then
L = M + 1
ElseIf i * i + M * M > Key * Key Then
R = M - 1
Else
Text2.Text = Str(i) + “” + Str(M) + “” + Str(key)
flag = False
i = Key
End If
Loop
Next i
If flag Then Text2.Text = “没有符合条件的整数勾股数对!”
上述程序段2个划线处的代码分别为( )
图a
图b
若要使图a“湖.psd”中“gz”图层中鸽子出现在夏日.psd中,下列操作可行的是。
图a
(多选,填字母:A . 使用“复制图层”命令将“gz”图层复制到夏日.psd中 /B . 将 “gz”图层直接通过鼠标拖到夏日.psd中 /C . 使用魔棒工具(容差为5)选中“gz”图层中的图像并进行拷贝后复制粘贴到夏日.psd中 /D . 选中 “gz”图层后,执行“全部”选择操作,进行拷贝,在夏日.psd中粘贴。)
图b
小林在“鸽子”图层第50帧设置了动作脚本“stop( )”若要使“声效”图层中的声音在动画播放到第50帧后,仍能持续播放完毕,可设置该声音的同步为(选填:事件/数据流)。
实现上述功能的VB代码如下。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
k = 0:i = 3
Do While i <= 100
If Not prime(i) Then
k = k + 1
End If
i = i + 2
Loop
For i = 2 To k
If ① Then
List1.AddItem Str(a(i-1)) +“和” + Str(a(i))
End If
Next i
End Sub
Function prime(x As Integer) As Boolean
prime = False
For i = 2 To Int(Sqr(x))
If x Mod i = 0 Then
prime = True
Exit For
End If
Next i
End Function
1)找出等式中单个数字的最大值;
2)从最大值加1的数制开始,按该数制的运算规则,把等式中所有数字转换成十进制数;
3)如果等式两边的结论是成立的,那么该数制就是符合上述等式的最小数制,否则从下一个数制重新计算,直到十六进制为止。
小明为此编写了一个VB程序,程序运行时,在文本框Text1中输入一个等式,单击“计算”按钮Command1,在文本框Text2中显示该等式中数字所属的数制。程序运行界面如下图所示。
Private Sub Command1_Click()
Dim s1 As String, ysf As String, t1 As String, t2 As String, t3 As String
Dim ch As String, t As String, max As Integer, jz As Integer, i As Integer
s1=Text1.Text
t1=0: max=0
For i=1 To Len(s1)
ch=Mid(s1, i, 1)
If ch=“+” Or ch=“-” Or ch=“*” Or ch=“\\” Then
ysf=ch: t1=t: t=“ ”
ElseIf ch=“=” Then
t2=t: t=“ ”
ElseIf ch >= “A” And ch <= “F” Then
t=t+ch
temp=
If max < temp Then max=temp
Else
t=t+ch
If max < Val(ch) Then max=Val(ch)
End If
Next i
t3=t: jz=0
Do While i <= 16
If ysf=“+” Then
If XtoD(i, t1)+XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
ElseIf ysf=“-” Then
If XtoD(i, t1) - XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
ElseIf ysf=“*” Then
If XtoD(i, t1) * XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
Else
If XtoD(i, t1) / XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
End If
i=i+1
Loop
If jz <> 0 Then
Text2.Text=“该数属于” +Str(jz)+ “进制”
Else
Text2.Text=“没有找到合适的进制”
End If
End Sub
Function XtoD(x As Integer, s As String) As Integer
Dim j As Integer
j=0
For i=Len(s) To 1 Step -1
XtoD=XtoD+Val(Mid(s, i, 1)) * x ^ j
Next i
End Function