Question

vb程序设计：随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示。要用两种方法。

VB 6.0程序设计。单击窗体时，随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序）要代码。

Answer 1

数字逆序法：

Private Sub Form_Click()
Dim x As Integer
Dim n1 As Integer, n2 As Integer, n3 As Integer
Randomize
x = Int(Rnd * 900) + 100
n1 = x \ 100
n2 = (x Mod 100) \ 10
n3 = x Mod 10
Print x, n3 * 100 + n2 * 10 + n1
End Sub

字符串逆序法：

Private Sub Form_Click()
Dim x As Integer
Dim n1 As String, n2 As String, n3 As String
Randomize
x = Int(Rnd * 900) + 100
n1 = Left(x, 1)
n2 = Mid(x, 2, 1)
n3 = Right(x, 1)
Print x, Val(n3 & n2 & n1)
End Sub

补充一种最简单的直接函数逆序法：

Private Sub Form_Click()
Dim x As Integer
Randomize
x = Int(Rnd * 900) + 100
Print x, Val(StrReverse(x))
End Sub

Answer 2

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在这方面相对较差。

Answer 3

tmp_num=Int(Rnd() * 899 + 100) 产生 100至999的随机三位数
tmp_num=Int(Right(tmp_num, 1) & Mid(tmp_num, 2, 1) & Left(tmp_num, 1))

Answer 4

你小气啊，不悬赏！

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

Answer 5

num = Int((999 - 100 + 1) * Rnd + 100)
For i = Len(num) To 1 Step -1
num1 = num1 & Mid(num, i, 1)
Next
Print "原始：" & num; "变换" & num1