s1 = "51577": s2 = "75929"
i = 1: j = 1: k = 0
Do While i <= Len(s1) And j <= Len(s2)
c1 = Mid(s1, i, 1): c2 = Mid(s2, j, 1)
If Abs(Val(c1) - Val(c2)) < 4 Then
i = i + 1
Else
k = k + 1
End If
j = j + 1
Loop
执行该程序段后,变量k的值是( )
Private Sub Command1_Click( )
Dim x As Integer
x = Val(Text1.Text)
x = x \ 2 + 1
Text1.Text = Str(x)
End Sub
程序运行时,在文本框Text1输入13时,连续两次单击命令按钮Command1后,文本框Text1中显示的内容是( )
sum=0
while i<=100 :
sum=sum+1/i
i=i+1
print(sum)