Private Sub strlink_Click( )
Dim a As String, b As String
a = “100”
b = “200”
Text1.Text = a + b
End Sub
下列说法正确的是( )
Dim a(1 To 10) As Integer
Dim s(1 To 10) As Integer
Private Sub Form_Load()
a(1) = 3: a(2) = 6: a(3) = 8: a(4) = 4: a(5) = 9
a(6) = 5: a(7) = 3: a(8) = 3: a(9) = 10: a(10) = 5
End Sub
Private Sub Command1_Click()
Dim i As Integer, t As Integer
s(1) = a(1)
For i = 2 To 10
s(i) = s(i - 1) + a(i)
Next i
t = s(8) - s(4)
Text1.Text = Str(t)
End Sub
程序运行后,文本框Text1显示的内容是( )
s=Text.Text
c=0
For i=1 To 26
⑴
Next
For i=1 To Len(s)
⑵
IF d(t)=0 Then d(t)=i
⑶
Next
Text2 Text=Str(c)
填空处的代码可由以下部分组成
①d(i)=0 ②=val(Mid(si, 1) ③IFd(t)<>0Andi-d(t)> c Then c=i-d(t)
④d(i)=1 ⑤t=Asc(Mid(s, i, 1)-Asc("a")+1 ⑥fi-d(t)> c Then c=i-d(t)
代码顺序正确的是( )
i = 1:j = 12:k = 0:s = " "
key = Val(Text1.Text):c = "N":flag = False
Do While i< = j And flag = False
m = (i+j+1)\2:k = k+1
If key = a(m)Then c = "Y":flag = True
If key>a(m)Then j = m-1 Else i = m+1
s = s & Str(a(m))
Loop
Text2.Text = s:Text3.Text = c
数组a(1)到a(12)的值依次为“99,91,85,76,68,61,53,42,34,27,20,13”,执行该程序段后,下列说法正确的是( )
a(1) = 1: a(2) = 1
b(1) = 1: b(2) = 2
For i = 3 To 5
a(i) = a(i - 1) + a(i - 2)
b(i) = b(i - 1) + a(i)
Next i
执行该程序段后,数组元素b(5)的值为( )
X=100
If X<0 then
Y=abs(X)
Else
Y=sqr(X)
End if
步骤一:输入明文字符,将该字符转换成ASCII;
步骤二:将ASCII码转换成十六进制字符串;
步骤三:将产生的十六进制字符串进行头尾互换并输出。
若用Python程序实现上述加密过程,请回答下列问题:
s=input("请输,入明文字符(大写字母或小写字母):")
a= #将字符转换为ASCII
b= #将ASCII码转换成十六进制字符串
B .
C .
D .
提示:int(x,16)函数实现将十六进制字符串x转换成十进制整数ASCII值。
FOR A= 1 TO 100
IF A>9 THEN EXIT FOR
NEXT A
PRINT A