据报道,某黑客组织在一个流行的黑客论坛上发布了一份涵盖515000多台服务器、家庭路由器和物联网智能设备的远程登录Telnet凭据列表,内容包含每台设备的IP地址、以及Telnet服务的用户名和密码。Telnet是一种远程访问协议,可用于在互联网上控制设备,允许用户登录进入远程主机系统。据了解,该列表是通过扫描整个Internet来查找暴露其Telnet端口的设备而编制的。研究人员表示,此次事件是迄今为止已知的最大Telnet密码泄漏事件。
(单选,填字母:A . Command1_Click / B . Form_Load / C . Command1_DblCkick)。
Private Sub Command1_Click()
Dim s As String, max As Integer
Dim t As Integer, i As Integer
max = 0: t = 1
s = Text1.Text
i = 1
Do While i <= Len(s) - 1
If Val(Mid(s, i, 1)) < Then
t = t + 1
Else
If t > max Then max = t
End If
i = i + 1
Loop
Label3.Caption = Str(max)
End Sub
x=0
for i in range(1,9,2):
x=x+i
print(x)
该程序段执行后,变量x的值是( )
Private Sub Form Load()
Dims As String
s=Str(Val(“2020”) +Len(“加油!”) )
Label1.Caption=s
End Sub
下列说法正确是( )
For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(j) > a(j - 1) Then
k = a(j): a(j) = a(j - 1): a(j - 1) = k
End If
Next j
Next i
money =
rate=
for
print(“5年以后存款总额:”,money,“元”)
money=
year=
while
print(year,“年后资金被全部取出”)
Private Sub Command1_Click()
Dim s As String
Dim i As Integer, j As Integer, ans As Long
Dim f As Boolean
ans = 0
s = Text1.Text: j = 1:
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch = "," Then
x = Val(Mid(s, j, i - j))
IfThen
ans = ans + x
f = True
j = i + 1
ElseIf ch = "-" Then
f = False
j = j + 1
End If
Next i
Label1.Caption = "完全平方数之和为: " + Str(ans)
End Sub
图1
图2