PRIVATE SUB FORM_CLICK
DIM A(4,4) AS INTEGER
FOR I = 1 TO 4
FOR J= 1 TO 4
IF
A(I,J)=1
A(I,J)=0
END IF
PRINT A(I,j);
END SUB
Private Sub Command2_Click( )
Dim f As Integer, i As Long, n As Long
Dim pi As Double, s As Double
s = 0: n = Val(Text1.Text)
For i = 2 To 2*n ①
s = s + ②
Next i
pi = 3 + s * 4
Label2.Caption = Str(pi)
End Sub
n=20:s=""
Do While n<>0
r=n Mod 2
s=Str(r)+s
n=n\2
Loop
Label1.Caption=s
该程序段运行后,标签Label1上显示的内容是( )
i = 1: j = 10: k = 6
Do While i < = j
m = Int ((i +1)/2)
If k= a(m) Then
Exit Do
ElseIf k < a(m) Then
j = m-1
Else
i=m+1
End if
Loop
数组元素a(1)到a(10)的值依次为3,5,7,10,12,15,17,18,21,25,该段程序运行后,在查找数值6的过程中,i,j,m的值分别是( )
a = 5
b = Len("1011")
If a > b Then
Label1.Caption = "请重新输入"
Else
Label1.Caption = "欢迎光临"
End If
该程序段运行后,在标签Label1上显示的是。
sum=0
for i in range(1,6)
sum=sum+i
print(sum, i)
程序的运行结果为( )
比如有7个选手,他们的等级分别是30,17,26,41,19,38,18,要进行3场比赛。最好的安排是选手2对选手7,选手7对选手5,选手6对选手4。此时等级差的总和等于(18-17)+(19-18)+(41-38)=5达到最小。
窗体form1的运行界面如下图所示,用户在文本框Text1中输入各位选手的等级(以逗号分隔),在文本框Text2中输人要对弈的场数k,单击计算按钮Commmand1,在文本框Text3中显示最小等级差总和。程序运行界面如图所示。
Dim a(0 To 1000) As Integer
Dim b(0 To 1000) As Integer
Private Sub Command1_ Click()
Sum=0
k = Val(Text2. Text)
s =Text1. Text
cnt =1
For i=1 To Len(s)
c=mid(s, i, 1)
If c="," Then cnt=cnt+1 Else
Next i
For i=1 To cnt-1
For j=1 To cnt-i
If Then
t = a(j): a(j) = a(j+ 1): a(j+1)= t
End If
Next j
Next i
'计算出各等级选手之间差值
For i=1To cnt- 1
b(i)=a(i+1)-a(i)
Next i
For i=1 To k
Min=i
If b(j) < b(Min) Then Min = j
Next j
Sum = Sum + b(Min)
Next i
Text3. Text = Str(Sum)
End Sub