VB题目 A="abcd" B="bcde" E=right(a,3) F=mid(b,2,3) if e<f then print e+f else print F+e

VB作业 求帮忙~

1.C 2.D 3.B 4.D 5.A
6.D 7.C 8.A 9.C 10.A

A\B\C\D
A
B
C
D\A\B

呵呵，开始了
a="abcd" 代表了 a中有abcd
b的原理一样
e=right(a,3) right代表从右向左截取 ，这里截取3个 e=bcd
f=mid(b,2,3) mid 代表从b中第2个位置取3个 ，这里截图的是cde
后面的判断语句
print 打印
你应该了解一下vb的字符串对比
字符串对比是比较ascii码
1.如果 字符串1的第n位的ASCII码值 等于 字符串2的第n位的ASCII码值
则 继续比较下一位
2.如果 字符串1的第n位的ASCII码值 大于 字符串2的第n位的ASCII码值
则 输出结果:1,表示字符串1 > 字符串2;
3.如果 字符串1的第n位的ASCII码值 小于 字符串2的第n位的ASCII码值
则 输出结果:-1 表示字符串1 < 字符串2;
4.如果 每一位的ASCII码值都相等,而且长度相同,
则 输出结果:0 表示字符串1 == 字符串2;
5.如果 字符串1是字符串2的前m位,例如 abcd 与abcdef 比较,
则 字符串1<字符串2.
最后就会得出你想知道的结果，呵呵

e=bcd，f=cde
因为e<f (比的是ascii码，即bcd与cde，依次从左往右比，因为asc(b)<asc(c)，所以"bcd"<"cde")
所以print e+f ，即bcdcde

A="abcd" B="bcde" E=right(a,3) F=mid(b,2,3) if e<f then print e+f else print F+e
E=right(a,3) 即E="bcd"
F=mid(b,2,3) 即F="cde"
不难看出，E<F
所以执行 print e+f 这句，，结果为bcdcde

right（a,3）是左取，mid（b，2,3）是中间取。知道了吧！

---

厦门市18219273396： VB题目 A=＂abcd＂ B=＂bcde＂ E=right(a,3) F=mid(b,2,3) if e<f then print e+f else print F+e - ？
拱彦腹膜： 呵呵,开始了 a=＂abcd＂ 代表了 a中有abcd b的原理一样 e=right(a,3) right代表从右向左截取 ,这里截取3个 e=bcd f=mid(b,2,3) mid 代表从b中第2个位置取3个 ,这里截图的是cde 后面的判断语句 print 打印 你应该了解一下vb的字符串对比 字符...

厦门市18219273396： VB简单题目 - ？
拱彦腹膜： 双引号中的是字符串, ＂abcd＂如果 a = ＂abcd＂ 3>2>1不符合VB编码规则.如果要比较三个数,应该写成这样: 3>2 And 2>1

厦门市18219273396： 如何用VB程序设计做出下列题?编程题第1题某四位数ABCD能够被78整除,它的千位数字与百位数字相同,十位数字与个位数字相同(即:A=B,B=D),... - ？
拱彦腹膜：[答案] Private Sub Command1_Click() Dim a, b, c, d For a = 1 To 9 For c = 0 To 9 b = a d = c If (a * 1000 + b * 100 + c * 10 + d) Mod 78 = 0 Then Print a & b & c & d Next Next End Sub 答案是7722

厦门市18219273396： 请教一道二级VB题目,请详解,谢谢! - ？
拱彦腹膜： abcd是function函数的函数名窗体单击事件就是调用function函数 abcd...

厦门市18219273396： vb 第一行一个A 第二行ABC第三行ABCD第四行ABC第五行A 如何编程 - ？
拱彦腹膜： Private Sub Form_Load() Me.AutoRedraw = True Print ＂A＂ & vbCrLf & ＂ABC＂ & vbCrLf; ＂ABCD＂ & vbCrLf & ＂ABC＂ & vbCrLf & ＂A＂ End Sub

厦门市18219273396： 运行VB程序题,1有如下程序 A=1 B=2 C=3 A=B B=C C=A 程序运行后ABC分别等于? - ？
拱彦腹膜： 232

厦门市18219273396： 关于VB的一道题 - ？
拱彦腹膜： Sub abcd(ByVal n As Integer)中的n叫做形参,Call abcd(n%) 中的n叫做实参.规定:声明函数或过程里,用到的参数称为形参,而调用语句里用到的参数称为实参.用法或注意:调用语句中的实参类型与形参一致. 你这个例子,是用ByVal声明的形参,所以调用语句里的实参可以是表达式.

厦门市18219273396： VB编程中怎样解数学灯谜ABCD - ？
拱彦腹膜： Private Function IsPrime(ByVal n As Integer) As Boolean Dim pb As Integer pb = n - 1 IsPrime = True For i = 2 To pb If n Mod i = 0 Then IsPrime = False Exit For End If Next i End Function Private Sub Command1_Click() Dim m As Integer m = 0 ...

厦门市18219273396： VB程序设计题:任意三个数ABC,将其按由大到小的顺序显示出来 - ？
拱彦腹膜： '假设要比较的三个数输入在Text1,text2,text3,结果放在text4 Private Sub Command1_Click() Dim a, b, c, d As Double a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a < b Then d = a: a = b: b = d If b < c Then d = b: b = c: c = d If a < b Then d = a: a = b: b = d Text4.Text = a & ＂ , ＂ & b & ＂ , ＂ & c End Sub

厦门市18219273396： 利用vb一级 编写程序,求满足下列条件的所有四位数ABCD的个数,该四位数是8的倍数,且A+B=B+C - ？
拱彦腹膜： num=0 str=＂＂ for i = 1000 to 9999 if i mod 8= 0 then if Cint(left(Cstr(i),1))+Cint(right(left(Cstr(i),2),1))=Cint(right(left(Cstr(i),2),1))+Cint(left(right(Cstr(i),2),1)) then str=str&＂,＂&i end if end if nextResponse.Write(ubound(split(str,＂,＂))-1)109