题型：综合题 题类：模拟题 难易度：困难
浙江省普通高校招生信息技术选考模拟卷（三）
Private Sub Command1_Click()
Dim s As String，c As String
Dim n As Integer，k As Integer
s = Text1.Text
List1.Clear
List1.AddItem ("开始分解姓名" + s + " ,计算内码：")
For i = 1 To
c = mid(s , i , 1 )
k = Asc(c)
List1.AddItem (c + " 十进制ASCII值：" + Str(k))
n = (n + k) Mod 50
n = n + 50 -i
Label2.Caption = Str(n)
End Sub
试题篮
