题库 高中信息

题干

S=0
C=0
Do While C <100  
C=C+1
S=S+C
Loop
MsgBox (Str(C) + Str(S))
该程序的运行结果是(  )
A.99 4950B.1  4950C.100 5050D.101 5151
上一题 下一题 0.99难度 选择题 更新时间:2015-11-19 04:03:01

答案(点此获取答案解析)

同类题2

   某种字符加密方法描述如下:
①输入明文、密钥。
②在明文中从左往右每次取连续的8个字符。
③将8个字符围成一圈,从第1个字符开始1,2,3,……数数,数到密钥值时取出该位字符;再由下一个字符开始1,2,3,……数数,数到密钥值时取出该位字符,重复此过程,直至这8个字符被取完。
④依次把取出的8个字符拼接成新的字符串。
⑤重复②-④步骤,直至所有明文字符处理完毕。
编写一个VB程序,实现功能如下:程序运行时从文本框Textl中读入一串明文(长度为8的倍数),从文本框Text2中读入密钥y,单击“加密”按钮Commandl,对明文按上述方法转换后在文本框Text3中显示。程序运行界面如图所示。

(1)运行上述程序,若在文本框Textl中输入“Let's go”,Text2中输入“3”,单击“加密”按钮,则文本框Text3中显示的内容是__________________________。
(2)实现上述功能的VB程序如下,请在划线处填入合适代码。
Const n=1000
Private Sub Commandl_Click()
Dim f (1 To n) As Integer,cq (1 To n) As Integer
Dim a (1 To n) As String,s As String,res As String
Dim y As Integer,p As Integer,begin As Integer
s=Textl.Text:y=Val(Text2.Text)
For i=1 To 8

f(i)=1

Next i
'计算出列顺序
p=0
For i=1 To 8

j=1

Do While j<=y

p=p Mod 8+1
j=___________

Loop

f(p)=0:cq(i)=p

Next i
For i=1 To Len(s)

a(i)=Mid (s,i,1)

Next i
i=1:begin=-8:res=""
Do While i<=Len(s)

If i Mod 8=1 Then___________

res=res+___________

i=i+1

Loop
Text3.Text=res
End Sub