例如,共有N=5个景点,每个景点连接的下一个景点分别是2,4,5,5,2。
|
景点号 |
1 |
2 |
3 |
4 |
5 |
|
下一景点号 |
2 |
4 |
5 |
5 |
2 |
则他可以从2号景点出发,最多可以游玩2号、4号、5号三个景点。
程序代码如下:
Private Sub Command1_Click()
Dim a(1 To 100) As Integer, d(1 To 100) As Integer
Dim jd As String, m As String, c As Integer, i As Integer
Dim s As Integer, p As Integer, k As Integer, ans As Integer
jd = Text1.Text + ","
s = 0: c = 0
For i = 1 To Len(jd)
m = Mid(jd, i, 1)
If m <> "," Then
①
Else
c = c + 1: a(c) = s: s = 0
End If
Next i
ans = 0: k = 0
For i = 1 To c
For k = 1 To c
d(k) = 0
Next k
If d(i) = 0 Then
p = i
Do While p <= c
If d(p) = 0 Then
k = k + 1: d(p) = k
Else
②
If y > ans Then ans = y
k = 0
Exit Do
End If
Loop
End If
Next i
Text2.Text = Str(ans)
End Sub
|
A . Private Sub Form_Load() Form1. BackColor = RGB(255, 255,255) End Sub |
B . Private Sub Form_Load() Form1.BackColor = RGB(0, 0, 0) End Sub |
|
C . Private Sub Form1_Load() orm1.BackColor = RGB(255,255,255) End Sub |
D . Private Sub Form1_Load() Form1.BackColor = RGB(0, 0, 0) End Sub |
① ②
Dims As String, c As String, st As String
Dim n As Integer, i As Integer
s ="20zj20sx7":n=0:st=""
For i=1 To Len(s)
c=Mid(s,i,1)
If c>= "a" And c<= "z" Then
st=Chr(Asc("a") *2+25-Asc(c))+st
Else
n=n*10+ Val(c)
End If
Next i
st =st+str(n)
执行该程序段后,变量st的值是( )

Private Sub Command1_Click() ‘不停除2到商为0为止,所得余数倒推
Dim sjzs As Integer ‘sjzs:十进制数
Dim rjzs As String ‘rjzs:二进制数
sjzs = Val(Text1.Text)
rjzs = ""
Do While
rjzs = Str(sjzs Mod 2) + rjzs
Label3.Caption = rjzs
End Sub
要求:
1)将A1:F1单元格区域合并为一个单元格,文字居中对齐。;
2)用函数计算各产业“平均值”(设为数值型,保留2位小数),将A2:F5数据区域设置为自动套用格式“表样式浅色7”;
3)选择表格中部分数据创建如图2所示图表。
|
图1 图2 |
Dim a(1 To 10) As Integer
Dim s As String, n, key As Integer
a(1) = 23: a(2) = 33: a(3) = 44: a(4) = 55: a(5) = 66: a(6) = 77
i = 1: j = 6: c = 0: key = 35
Do While i <= j
c = c + 1
m = (i + j) \ 2
If (j - i + 1) Mod 2 = 0 Then m = m + 1
If a(m) = key Then Exit Do
If key < a(m) Then j = m - 1 Else i = m + 1
Loop
该程序段运行后,下列各变量的值不正确的是:( )

下列说法正确的( )