计算机二级VB问题急急急！！！

2024-12-16 09:44:40

推荐回答（6个）

回答1：

当 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

回答2：

首先,功能是,查字符串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

回答3：

错误，S没有初始值，怎么知道S+1到底是多少呢？？

回答4：

结果是1

把代码放在VB中运行，看看结果不就知道了

回答5：

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
……

回答6：

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

最新问答

胆囊切除术后，如何饮食调理？

英雄联盟潮汐海灵菲兹在游戏里都说什么

华硕笔记本原来是win10系统。用u盘重新装了win7系统后。开不了机。。怎

我一直在重庆上学，但是户口是河南的，爸妈也在河南上班，我能在重庆高考吗？

活佛济公3里面的乌金好帅好萌啊啊，爱死了~~~，有他资料吗？

计算机二级VB问题 急急急！！！

计算机二级VB问题急急急！！！