当 i = 1时: b$ = Mid$("A WORKER IS HERE",1, 3) = A W , s = ""
当 i = 2时: b$ = Mid$("A WORKER IS HERE",2, 3) = WO , s = ""
当 i = 3时: b$ = Mid$("A WORKER IS HERE",3, 3) = WOR , s = 1
当 i = 4时: b$ = Mid$("A WORKER IS HERE",4, 3) = ORK , s = 1
当 i = 5时: b$ = Mid$("A WORKER IS HERE",5, 3) = RKE , s = 1
当 i = 6时: b$ = Mid$("A WORKER IS HERE",6, 3) = KER , s = 1
当 i = 7时: b$ = Mid$("A WORKER IS HERE",7, 3) = ER , s = 1
当 i = 8时: b$ = Mid$("A WORKER IS HERE",8, 3) = R I , s = 1
当 i = 9时: b$ = Mid$("A WORKER IS HERE",9, 3) = IS , s = 1
当 i = 10时: b$ = Mid$("A WORKER IS HERE",10, 3) = IS , s = 1
当 i = 11时: b$ = Mid$("A WORKER IS HERE",11, 3) = S H , s = 1
当 i = 12时: b$ = Mid$("A WORKER IS HERE",12, 3) = HE , s = 1
当 i = 13时: b$ = Mid$("A WORKER IS HERE",13, 3) = HER , s = 1
当 i = 14时: b$ = Mid$("A WORKER IS HERE",14, 3) = ERE , s = 1
当 i = 15时: b$ = Mid$("A WORKER IS HERE",15, 3) = RE , s = 1
首先,功能是,查字符串a$中包含WOR的个数.
x = Len(a$) //a$的长度
For i = 1 To x - 1 //循环从第一个开始
b$ = Mid$(a$, i, 3) //从i开始,取3个字符
If b$ = "WOR" Then s = s + 1 //如果等于WOR的话,S就+1
Print s 打印S
结果是1
错误,S没有初始值,怎么知道S+1到底是多少呢??
结果是1
把代码放在VB中运行,看看结果不就知道了
Private Sub Command1_Click()
a$ = "A WORKER IS HERE" '给字符串变量 a 赋值
x = Len(a$) '获得 a 的长度放入 x,x=16(空格也算一个字符)
For i = 1 To x - 1 ' i 从 1 开始,每次+1,一直到 15 作循环
b$ = Mid$(a$, i, 3) '从 a 的第 i 号位置开始取出 3 个字符放在 b 中
If b$ = "WOR" Then s = s + 1 ' 如果本次取出的 3 个字符是 WOR,则 s = s + 1 (s 第一次使用,其初始值=0,所以从现在开始,s = 0 + 1 = 1)
Next ' x+1,开始下一次循环
Print s '在窗体输出 s的值,换行
End Sub
所以结果如一楼所述,一共有15行输出,除了前2行是空白以外,后续的所有行都是 1:
1
1
1
……
Private
Sub
Form_MouseMove(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
If
(Button
And
3)
=
3
Then
Print
"AAAA"
End
If
End
Sub
道题答案应该A因要按下左键和右键再移动鼠标才能满足条件所答案A
而第二道题好象对吧起码窗体事件没有keyMove即键盘移动事件只有键盘按下、键盘弹起及键盘单击三键盘事件没有移动算三事件也能会窗体上输出"AAA"因没有其上下文情况下也没有BUTTON变量存所永远能满足Button
And
3等于3条件所会触发判断语句内些执行语句题答案应该B