题目

编写VB趣味程序“计算厚道指数”，实现如下功能：在文本框Text1中输入姓名，单击“试一试”按钮Command1，在列表框List1依次求解并显示姓名中的每一个字符的ASCII码，并按程序中给定方式进行运算，得出厚道指数。运行界面如图所示，程序代码如下。 （1） 为实现上述功能，请在划线处填入合适的代码。 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 （2） 程序中的代码“List1.AddItem ”的“AddItem”是。（单选，填字母：A .对象名/B .属性名/C .事件名/ D .方法名） （3） 若在文本框中输入姓名是“jam”这3个字符，点击“试一试”按钮，在label2上显示的“厚道指数”值为。 答案： 【1】Len(s)【2】Next i 【1】D 【1】58

查看本题答案和解析