VB 三组数组成不同的三位数 帮忙更正代码 和加入排序

newshu(i) = Mid(shubiao(Mid(shu, 1, 1), 1), p, 1) & Mid(shubiao(Mid(shu, 2, 1), 2), n, 1) & Mid(shubiao(Mid(shu, 3, 1), 3), p, 1)

改为
newshu(i) = Mid(shubiao(Mid(shu, 1, 1), 1), p, 1) & Mid(shubiao(Mid(shu, 2, 1), 2), n, 1) & Mid(shubiao(Mid(shu, 3, 1), 3), m, 1)

Private Sub Command1_Click()Dim A(1 To 200) As Integer, X As IntegerFor I = 1 To 1999 If I Mod 3 = 0 And I Mod 7 = 0 Then X = X + 1 A(X) = I End IfNext IText1.Text = XFor I = 1 To X If I < X Then Text2.Text = Text2.Text & A(I) & ", " Else Text2.Text = Text2.Text & A(I) End IfNext IEnd Sub

private sub command1_click()
randomize
a=int(rnd*900)+100 '产生100~999之间的随机数
print "随机数："; a
print "百位数："; a\100
print "十位数："; a\10 mod 10
print "个位数："; a mod 10
print "反向输出："; StrReverse(a)
end sub

Private Sub Command1_Click()
Randomize
Dim i As Integer
i = Int(Rnd * 900 + 100)
Print "产生的随机数为：" & i
Print "百位数为：" & Left(i, 1)
Print "十位数为：" & Mid(i, 2, 1)
Print "个位数为：" & Right(i, 1)
Print "反向输出："; StrReverse(i)
End Sub

Private Sub command1_click()
Dim a, s As Single
a = InputBox("请输任意数:", "", 0)
StrReverse (a) '取反函数
s = StrReverse(a) '给S赋值
MsgBox "原位数为：" & a & vbCrLf & "反向数为：" & s, 0 + 64
End Sub

我问你个脑筋急转弯 在什么时候24+36=1
在表示时间的时候。在正常的思维中，两个两位数相加，应该得到一个两位数甚至是三位数，不可能得到一个1位数，但是这是一个脑筋急转弯。24与36相加得到60这个数字，而60在表示时间的情况下才与1相等，也就是60秒等于1分钟，60分钟等于1小时。

输入一个两位数整数,输出其个位和十位.用程序说话
1、首先在电脑中打开powerShell软件，如下图所示。2、进入到ipython中之后，根据自己需要定义一个三位数a = 123，如下图所示。3、然后求a的百位数，利用python3的“\/\/”，如下图所示。4、接着求a的十位数，利用"\/\/"得到12，再将其对10取余数即可，如下图所示。5、最后求a的个位数，求个位数...

儿童珠心算是怎么计算的呢?
后者又可分为课外与课内两种。以兴趣小组形式进行的提高型，由于参加的儿童一般从一个或几个年龄相当的班中挑选出来的各方面素质较好的儿童，所以教师要采取熟练珠算，逐步过渡到珠心算的思路进行教学。从加强珠算的基本功（即记数、拨珠、写数等）和珠算加减法训练着手，待加减算能算10笔两、三位数时...

一个三位数个位上是a十位上是b百位上是c
一个三位数个位上是a十位上是b百位上是c，即为cba。学好数学可以按以下三个步骤：基础打扎实。首先，需要将计算能力在小学阶段给训练好了，每天练习30道左右，花上3-5分钟就能轻松达成100%的正确率。接着，将概念、公式和定理记熟了。光记熟还不够，需要熟知公式和定理的推导过程，简单地说，就是...

动脑筋 一年级数学题: 大白 + 大白 = 白胖胖 求“大、白、胖”分别是...
这题很简单啊。首先分析，两位数想加，得到一个三位数。那么结果的百位，肯定只能是1 故 白=1 所以 白 + 白 =胖 =2 所以结果就是 122 ，故 大=6 综上， 白=1 胖 =2 大=6

c语言编程
题目:打印出所有的“水仙花数”,所谓“水仙花数”是指一个三位数,其各位数字立方和等于该数 本身。例如:153是一个“水仙花数”,因为153=1的三次方+5的三次方+3的三次方。1.程序分析:利用for循环控制100-999个数,每个数分解出个位,十位,百位。2.程序源代码:main(){int i,j,k,n;printf(“’water flower...

用2,0,9这三张数字卡任意摆一个三位数,摆成的三位数是2的倍数的可能性...
5、经过一段获取IP地址的过程，6、场景启用完成以后，点击“完成”即可。7、此时在“搜索网络”中即可显示已经连接的无线设备状态。如何使用闪联任意通4.0快速互联（双机互联）1、打开桌面的“闪联任意通4 .0”或程序组中的“闪联任意通4 .0”程序任意一个：2、“网络连接”中选择“快速互联”；3、...

一个三位数,减去5,正好被5除尽,减去6,正好被6除尽,减去7,正好被7,除...
这个实际上是一个脑筋急转弯，实际上这个数字既是5的倍数又是6的倍数又是7的倍数，实际上就是5.6.7三个数的最小公倍数，就是5乘以6乘以7等于210。所以这个三位数就是210。同时还有420,630,840。类似的题都这么做。祝好运

车牌“50选1”,怎么选
6、自编自选号牌适应的车辆就是小型汽车、货车，其他车型暂未实行。7、自选号牌必须是新车上牌或者从外地转入的车辆，变更过户等不可以自选号牌。8、如果自选号码仍然没选到心仪车牌，那就只能去车管所，进行随机选号了，50个车牌号可能不会一个页面显示，一般会分为5页，每页10个号牌，所以最好方法是...

“任意输入一个三位数,输出这个三位数的百位、十位和个位,并且计算十位...
printf("输入一个三位数:"); scanf("%d", &a); if (a > 999 || a < 100) printf("输入错误!"); else { b = a \/ 100; c = a \/ 10 % 10; d = a % 100 % 10; e = b + c + d; printf ("百位是%d,十位是%d,个位是%d,各个位数的和为%d", b, c, d, e); } return 0...