VB初学者也能搞定,求助

来源：百度知道 编辑：UC知道 时间：2024/09/20 04:23:36
在网页里面写VB
要实现如下功能
a,b,c三个变量d临时变量
当b="呵呵" 或者 c="呵呵"时,让a和b 或 a和c 交换值
并且当a="哈哈" 时让a和c交换值
.
另述:当出现"呵呵"时,让它一定是a的值,并且当出现"哈哈"时,它一定不是a
.
问题问完了 谢谢大家帮忙解决 我没学过VB 在网上查了写到这幅德行了...(不能实现)
----------------------------
a = inputbox("1.请输入","")
b = inputbox("2.再输入","")
c = inputbox("3.再输入","")
If b = "呵呵" Then
d = a
a = b
b = d
Elseif c = "呵呵" Then
d = a
a = c
c = d
Elseif a = "哈哈" Then
d = a
a = c
c = d
End if
我叙述的太乱了,二楼的朋友误解了吧,最后abc不能重复...

把中间的elseif去掉,然后交换2个值写一个过程代替
dim a,b,c as string
do
a = inputbox("1.请输入","")
b = inputbox("2.再输入","")
c = inputbox("3.再输入","")
loop while a<>b and a<>c and b<>c '防止abc值重复
if c="呵呵" then jh(a,c)
if b="呵呵" then jh(a,b)
if a="哈哈" then jh(a,b)

SUB jh(ByRef x as string ,ByRef y as string)
dim z as sting
z=y : y=x : x=z
End SUB

汗～！本来我想回答的，但，，我不算初学者，，所以，只有路过，， :)))

Dim a, b, c, d, e
a = InputBox("请输入A值", "A")
b = InputBox("请输入B值", "B")
c = InputBox("请输入C值", "C")

d = a
If b = "呵呵" Or c = "呵呵" Then

a = b
MsgBox "你输入的B值是 " & b & " 现在A值是 " & a
a = c
MsgBox "你输入的C值是 " & c & " 现在A值是 " & a
End If
If