VB 随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

Dim i As Integer, j As String

i = 100 + Int(Rnd * 900)

a = Int(i / 100)

b = i Mod 100

c = b Mod 10

b = Int(b / 10)

j = c & b & a

MsgBox i & "," & j

End Sub

拓展资料

vb与c的区别：

这二者都市程序开发语言，c语言不支持可视化编程，vb支持可视化编程，从功能上考虑，二者均可完成任何一种开发需求，但是对于做界面，c会变得很麻烦，vb则相对简单。vb语言的语法要求不严格，可以不事先声明变量（当然是个人设置的），c必须先声明后使用，vb是一种事件驱动的程序结构，c的程序必须从一个main函数开始，c支持指针，v b不支持。

c入门相对较难，vb则很容易入门，但是后续的深入学习c会变得相对容易。c可以用来做一些底层的和计算机硬件相关的开发工作，v b在这方面相对较差。

你小气啊，不悬赏！
把产生的随机数转换为字符串，再从右到左分别截取子串，可以利用rnd()函数，len()函数和循环语句等实现

你的程序可以说是正确的，并且还有一定技巧，比如用rnd
*900加100。580逆序结果从数值上看就是85，因此也很正确。如果要求显示085，说明要求以字符形式输出只需改动i句(倒数第四句)即可。我无法用键盘输入，很多符号打不上，请原谅。