作业帮 > 综合 > 作业

随机产生一个4位正整数,求出该数的倒序数,输出该数及倒序数.如为1234,则倒序为4321.完成以下代码.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/13 11:41:48
随机产生一个4位正整数,求出该数的倒序数,输出该数及倒序数.如为1234,则倒序为4321.完成以下代码.
dim x as integer,s as string,d as string
randomize
x = int(________________)
s = int______________(x)
d = right(s,1) +_____________
show
print "产生的数:"; x,"倒序数:"; d
end sub
Dim x As Integer,s As String,d As String
Randomize
x = Int(Rnd() * 9000 + 1000)
s = Str(x)
d = Right(s,1) + Mid(s,4,1) + Mid(s,3,1) + Mid(s,2,1)
Show
Print "产生的数:"; x,"倒序数:"; d