永发信息网

求VB高手解释语句

答案:1  悬赏:80  手机版
解决时间 2021-04-21 17:15

s = s & Mid(x, i, 1)什么意思?

全代码如下:

Private Sub Form_Click()
Dim x As Integer
x = InputBox("请输入一个正整数;")
For i = Len(x) To 1 Step -1
s = s & Mid(x, i, 1)
Next i
Print s
End Sub 中间有什么问题?

题目意思是从键盘输入一个正整数,然后把该数的每位数字按逆序输出。

最佳答案

Private Sub Form_Click()
Dim x As Integer
x = InputBox("请输入一个正整数;")
For i = Len(x) To 1 Step -1 'i没有定义
s = s & Mid(x, i, 1) 'S也没有定义
Next i
Print s
End Sub


而且这个程序只能用于小于100的数

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
怎么才能够不失眠啊
乔庄人家喜洋特色菜主题餐厅地址在哪,我要去
迅捷 水星 磊科 腾达TP-LINK 无线路由器150M
郑州轻工学院新校何时解封
邯郸到张家口坐火车需要多长时间,票价多少钱?
华发纸业(福建)股份公司这个地址在什么地方,
形容森林中蘑菇的句子,森林里有蘑菇撑着小伞
为什么T707上不了网(出现通讯故障是什么意思)
DNF的深渊地下城怎么开启?
手指甲上白**域减少或消失了是缺什么啊?
为什么一个月过去了我的粉钻还没有过期啊?
放我鸽子的人,到底我那她怎么办??说好了
如何提高自己的运球能力和弹跳能力
为什么在听歌时电脑频繁弹出你插入了哪个设备
表五笔怎服五笔怎么打,圈的五笔怎么打
推荐资讯
为什么我的好友买卖身价都不显示
西游奇缘2谁有能用的1级存档啊
用几句话概括,工商管理(营销)专业,很急
信丰县思源实验学校地址有知道的么?有点事想
自从知道我男朋友的过去后,我总是内心有种说
什么时候才可以不赔钱
南昌那有有泰国菜,消费怎么样··
什么时候出我是MT第7集?
用爱会感化一个恶人么?
He worrys about his sick mother.
以现在的科学技术臭氧层可以修朴吗?
NBA 08里面怎么在进攻时把持球队员切换成无球
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?