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在这方面相对较差。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2020-05-17
你小气啊，不悬赏！
把产生的随机数转换为字符串，再从右到左分别截取子串，可以利用rnd()函数，len()函数和循环语句等实现
把产生的随机数转换为字符串，再从右到左分别截取子串，可以利用rnd()函数，len()函数和循环语句等实现
第2个回答 2019-05-18
你的程序可以说是正确的，并且还有一定技巧，比如用rnd
*900加100。580逆序结果从数值上看就是85，因此也很正确。如果要求显示085，说明要求以字符形式输出只需改动i句(倒数第四句)即可。我无法用键盘输入，很多符号打不上，请原谅。
*900加100。580逆序结果从数值上看就是85，因此也很正确。如果要求显示085，说明要求以字符形式输出只需改动i句(倒数第四句)即可。我无法用键盘输入，很多符号打不上，请原谅。