Private Sub Command1_Click()
Dim p As String, k As String, i As Integer
Dim result As String
result = ""
p = Text1.Text
k = Text2.Text
i = 1
Do While i <= Len(p) - Len(k) + 1
If Mid(p, i, Len(k)) <> k Then
i = i + 1
Else
End If
Loop
Text3.Text =
End Sub
(问题求解)设用变量g、m、x三个变量分别存放公鸡、母鸡和小鸡的数量,请阅读如下程序,在空白处填写适当的表达式或语句,使程序完整。
for g in range(1, 20):
for m in :
for x in range(3,98,3):
if and ==100:
print("公鸡:",g,"母鸡:",m,"小鸡:",x)
Dim i As Integer, sum As Integer
Dim a(1 To 6) As Integer, b(1 To 6) As Integer
sum = 0
a(6) = 18: a(5) = 7: b(6) = 14: b(5) = 16
For i = 4 To 1 Step -1
a(i) = a(i + 2) - a(i + 1)
b(i) = b(i + 2) - a(i)
If b(i) Mod 3 = 0 Then sum = sum + b(i)
Next i
Text1.Text = Str(sum)
该程序段运行后,文本框Text1中显示的内容是( )
设备1和设备3为交换器,要实现计算机192.168.0.1与计算机10.0.0.1之间能正常通信,则连接设备2应是。
score = int(input('\n'))
if score>= 90:
grade= 'A'
elif score >= 60:
grade = 'B'
else:
grade= 'C'
print (score, grade)
运行程序,输入“78”后回车,程序的输出结果是( )