Dim i As Integer,n As Integer,s As String,ch As String ,t As String
s= Text1.Text : t = "”
For i=1ToLen(s)
ch = Mid(s,i,1)
If ch>="0"Andch<="9"Then
t=t+ch
Else
n = Val(t)
If Sqr(n) = Int(Sqr (m)) Then List1.AddItem Str (n)
End If
Next i
在文本框Text1中输入“2,25,64,8,36”,单击“调试"按钮后,程序可能出现的错误提示为( )
t ="”
For i=1 To 10
b(a(i) Mod 10) = b(a(i) Mod 10) + 1
b(a(i)\10) = b(a(i)\10) + 1
Next i
c =2
For i = 0 To 9
If b(i)>c Then t=t+ Str(i)
Next i
Label1.Caption= t
数组b各元素初始值为0,数组元素a(1)到a(10)的值依次是65,99,12,34,40,74, 56,88,30,45,执行程序段,标签Label1上显示的内容是( )
i = 1:j= 8: k=0: flag = False
key = 49
Do while i <= j And Not flag
k=k+1
m=Int((i + j)/2)
If (i+j+1) Mod 2=0 Then m=m+1
If key = a(m) Then flag = True
If key<a(m) Then j=m-1 Else i=n+1
Loop
数组元素a(1)到a(8)的数据依次是“14,28,49,59,67,79,83,95”,该程序执行完毕后,下列各变量的值不正确的是( )
若按照上述可行的方法使得按钮从一开始就显示在舞台井持续至本场景动画结束,则“按钮”图层原第45帧中的帧脚本执行的时间(填:是/否)会发生改变。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, ¥ As Integer
Dim s As String, ch As String, c1 As String, c2 As String
s=Text1.Text:k=1:j=1
For i=1 To Len(s)
ch=Mid(s,i,1)
If ch< "0" Or ch>"g" Then
v= '变量v截取s中的每段数字
j=i+1
If k =1 Then
n1=v:c1=ch
ElseIf k = 2 Then
n2=v:c2=ch
Else
①
If c1 ="*" And c2 = "*" Then
n1=n1*n2:n2=n3
c2=ch
ElseIf c1 = "*" And c2 =" +" Then
n1=n1*n2:n2=n3
c1 ="+": c2= ch
ElseIf c1= "+"And c2 =' "*" Then
②
c2=ch
Else
n1=n1+n2:n2=n3
c2=ch
End If
End If
K=k+1
End If
Next i
If c1="*"Then n1=n1*n2 Else n1=n1+n2
Text2.Text = Str (n1)
End Sub
请回答以下问题。
① ②
Const n = 10
Dim a(1 To 10) As Integer, b(1 To 10) As Integer
Dim k1 As Integer, k2 As Integer 'k1,k2为相同数据的前、后次序
Private Sub Command1_Click ()
Dim i As Integer, tmp As Integer, t As Integer
Randomize
List1.Clear
For i = 1 To 9 '随机生成9个不重复数
b(i) = Int(Rnd * 90) + 10
Do While ①
b(i) = Int(Rnd *90) + 10
Loop
Next i
'以下代码为随机选取数组中的1个数作为第10个数字再随机的插入到原数组的1-9位置
K1 = Int(Rnd *9 + 1)
tmp = b(k1)
k2 = Int(Rnd* 9 + 1)
For i=10 To k2+1 Step -1
b(i)=b(i-1)
Next i
b(k2) = tup
For i =1 To n
a(i) = i
List1. AddItem Str(a(i)) +””+ Str(b(i))
Next i
If k1 >= k2 Then
②
t =k1: k1=k2: k2=t
End If
Text1. Text = Str(k1) + Str (k2)
End Sub
Private Sub Command2 _Click ()
Dim i As Integer, j As Integer, k As Integer, t As Integer
List2. Clear
For i=1 To n-1
k=i
For j=i +1 To n
If b(j) < b(k) Then k= j
Next j
If k<>i Then
t=a(k): a(k)=a(i): a(i)=t
t=b(l): b(k)=b(i): b(i)=t
End If
Next i
For i= 1 To n
List2.AddItem Str (a(i)) +"" + Str (b(i))
Next i
i=1
Do While i<=n-1 And b(i)< b(i+1)
i=i+1
Loop
Text2.Text = Str(a(i)) + Str(a(i + 1))
If ③ Then Label1. Caption="稳定" Else Label1. Caption ="非稳定"
End Sub
Function check(x As Integer, y As Integer) As Boolean
Dim j As Integer
check = False
For j= 1 To y-1
If b(j)=x Then
check = True
Exit For
End If
Next j
End Function
① ② ③