一些VB的小程序 高分

来源：百度知道 编辑：UC知道 时间：2024/05/28 06:28:23
1.将输出的字符串反向输出
2.将字母转换为其后的第四个字母输出,如输入AZ则输出ED
3.打印2~100之间的所有奇数
4.求1/1的平方+1/2的平方+1/3的平方+...+1/N的平方的和不超过4时N的值
5.输入6个数.求它们的最大数
6.任意输出两个整数..并显示他们的最大公约数和最小公倍数
请把程序写完整..谢谢啦..我加分
第三题我打错了..是素数不是奇数..
答案系统说参数不可选啊

1、
str=inputbox("请输入字符串")
for i = len(str) to 1 step -1
newstr=newstr&mid(str,i,1)
next
msgbox "您输入的字符串是：" & str & vbCrLf &"转换后的字符串是：" & newstr,,"输出结果"
2、
str=inputbox("请输入字符串")
for i = 1 to len(str)
newstr=newstr&chr(asc(mid(str,i,1))+4)
next
msgbox newstr,,"变换后的结果"
3、
for i = 2 to 100
if i mod 2 <>0 then print i
next
4、
dim js
while jiguo<4
n=n+1
jieguo=jieguo+(1/n)^2
wend
5、