For i=1 To n\2
iMax= i:iMin= i
For j=i+ 1 To n-i+1
If a(j) > a(iMax) Then iMax=j
If a(j) < a(iMin) Then iMin=j
Next j
If iMax= i Then
Else
End If
Next i
上述程序段中方框处可选语句为:
①temp=a(i):a(i)=a(iMin):a(iMin)=temp
②temp=a(iMin):a(iMin)=a(n-i+1):a(n-i+1)=temp
③temp=a(iMax):a(iMax)=a(n-i+1):a(n-i+1)=temp
则方框处的语句依次为( )
key= 2* Int(Rnd * 25)+ 1
For i= 1 To 9
low=i+ 1: high= 10: flag = False
Do While low <= high And Not flag
m= (low + high) \2
If key-a(i)<a(m) Then
high= m- 1
ElseIf key - a(i) > a(m) Then
low=m + 1
Else
flag = True
End If
Loop
If flag Then Exit For 'Exit For表示退出循环
Next i
数组元素a(1)到a(10)的值依次为“7,9,12,12,19,28,32,34,34,40”,执行该程序段后,变量i和m的值可能的是( )
以下说法正确的是 (多选:填字母)
以下说法正确的是 ( 多选,填字母)
请回答下列问题:
Const n= 12
Dim a(1 To n) As Integer, mc(1 To n) As Integer
Private Sub Command1_Click()
'n个用户的ID依次为1到n,读取n个用户的积分和排名数据分别存储到数组a和数组mc中,并在列表框Listl中显示ID、积分、积分排名,代码略
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer, d As Integer
Dim s As String, flag As Boolean, x As Integer, y As Integer
Dim p(1To20) As Integer '存储输入的ID和积分增值,每次输入不超过10组
For i=1 To 20
p(i)=0
Next i
s= Text1.Text
d=0:k=0
For i= 1 To Len(s)
If Mid(s, i, 1)= "," Then
If flag Then
x = Val(Mid(s, i-d, d))
For j= 1 To k Step 2
If p(j) =x Then Exit For
Next j
If j> k Then
p(j)=x:k=k+2
End If
Else
y = Val(Mid(s, i-d, d))
p(i+1)=p(j+ 1)+y
End If
flag= Not flag: d= 0
Else
End If
Next i
For i=1 To k\2
x=p(2*i-1):y=p(2*i)
me(x)= 1
For j= 1 Ton
If j<> x Then
If a(j)<a(x)+y And a(j)>=a(x) Then
End If
If a(j)> a(x) +y Then mc(x)= m(x)+ 1
Next j
Next i
'在列表框List2中显示ID,积分、排名,代码略
End Sub
●若双方已经分出胜负,则显示胜方及连成五子的第一颗棋子的位置(行号及列号)。
●若双方未分出胜负,则显示当前状态下将下棋的一方。
Constn= 10
Dim s(1 To 400) As String
Private Sub Command1_ Click)
‘读取棋盘数据存储在数组s中,●表示黑子,o表示白子,o表示空位,代码略
End Sub
Private Sub Command2_ Click()
Dim i As Integer, j As Integer, fag As Boolean
flag= False:i= 1
Do While i <= n And flag = False
For j= 1 Ton
If Then flag = True: Exit For
Next j
i=i+ 1
Loop
i=i- 1
If flag Then
If (i-1)*n+j) = "o" Then
Label1.Caption = "白方胜" + Str(i) + Str(j)
Else
Label1.Caption = "黑方胜" + St(i) + Str(j)
End If
Else
If counts() Then Label1.Caption="黑方下" Else Label1.Caption ="白方下"
End If
End Sub
Function judge(x As Integer, y As Integer) As Boolean
Dim dx(1 To 4) As Integer, dy(1 To 4) As Integer
Dim flag As Boolean,j As Integer, i As Integer, ux As Integer, uy As Integer
dx(1)= 1: dx(2)= 1: dx(3)= 1:dx(4)= 0
dy(1)= 1: dy(2)= 0: dy(3)=-1: dy(4)= I
flag = False:i= 1
If s((x-1)*n+y) <> "o" Then
Do While i<= 4 And flag = False
flag = True
For j= 1 To 4
ux= dx(i)*j+x
uy=dy(i)*j+y
If Not (ux>= 1 And ux <= nAnd uy>= I And uy <= n) Then flag = False: Exit For
If Then flag = False: Exit For
Next j
i=i+ 1
Loop
End If
judge = flag
End Function
Function counts() As Boolean
Dim iAs Integer, j As Integer, white As Integer, black As Integer
counts = False:white = 0: black= 0
For i=1 To n
For j= 1 Ton
If(i-1)* n+j)= "o" Then white = white+ 1
If((i-1)*n+j)= "●" Then black = black + 1
Next j
Next i
If Then counts = True
End Function