Question

求解题过程 vb题 14题！解题过程！





• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

先说说涉及到的基础知识：
1，英文字母在计算机里以ASCII编码存放；
各个小写字母的ASCII编码转换成十进制数分别为：
a --> 97
b --> 98
c --> 99
......
x --> 120
y --> 121
z --> 122

VB函数Asc()用来返回一个字符的ASCII编码的十进制数值；
例如：
Asc("a") --> 97
Asc("b") --> 98
Asc("c") --> 99
......
Asc("z") --> 122

容易理解：
Asc("a")-96 --> 97-96=1
Asc("b")-96 --> 98-96=2
Asc("c")-96 --> 99-96=3
......
Asc("z")-96 --> 122-96=26

类似：各个大写字母的ASCII编码转换成十进制数分别为：
A --> 65
B --> 66
C --> 67
......
X --> 88
Y --> 89
Z --> 90

同理：
Asc("A") --> 65
Asc("B") --> 66
Asc("C") --> 67
......
Asc("Z") --> 90

容易理解：
Asc("A")-64 --> 65-64=1
Asc("B")-64 --> 66-64=2
Asc("C")-64 --> 67-64=3
......
Asc("Z")-64 --> 90-64=26

2，Len()函数是计算获得字符串里的字符个数。
For i = 1 To Len(s)
......
Next i
通过循环，用来实现对字符串S的每一个字母进行扫描。

3，Mid(s,k,m)函数是从字符串s里的第k个字符开始，取出连续的m个字符
而Mid(s,i,1)就是从字符串s里取出第i个字符。

4，If 语句
'位置A
If x >= "a" And x <= "z" Then
'如果x为小写字母
n = Asc(x) - 96 '计算获得该 小写 字母对应的分值
ElseIf x >= "A" And x <= "Z" Then
'如果x为大写字母
n = Asc(x) - 64 '计算获得该 大写 字母对应的分值
Else
'若既非小写字母又非大写字母，那么在列表框里显示提示错误
List1.AddItem s & " 该英语单词输入有误！"
Exit Sub '这里是退出过程程序，既然有误就不需要再运行下去了
End If

'位置B
If i < Len(s) Then
ss = ss & Str(n) & " +"
Else
ss = ss & Str(n) & " ="
End If
' 位置C

在位置B 或 位置C应该增加一句代码：t = t + n
t用来累加每个字母的分值，得到整个单词的总分值。

最后给出答案：
第1个空填写：Text1.text
第2个空填写：B,C
第3个空填写：是（分析略）

Answer 2

(1)除窗体外，共使用了3类控件：文本框、按钮、列表框
（2）Text1.text，此处是将文本框中文本赋值给变量s
(3)应选择B和C，此处t为“分值”中间值，n为单个字母的分值。A位置还没有进行单个字母的分值n的计算，所以不正确。B位置和C位置，已进行完单个字母的分值n的计算，并且B位置和C位置之间n变量没有发生变化，所以B位置和C位置都可以。D位置在循环外，不能进行循环累加，所以不正确。
（4）stress s->19 t->20 r->18 e->5 s->19 t->19 19+20+18+5+19+19=100