当前位置：首页 - 正文

- 信息提示

发布网友发布时间：2022-05-14 06:07

共5个回答

热心网友时间：2023-12-24 09:02

数字逆序法：

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

热心网友时间：2023-12-24 09:03

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

热心网友时间：2023-12-24 09:03

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

热心网友时间：2023-12-24 09:04

你小气啊，不悬赏！

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

热心网友时间：2023-12-24 09:05

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

- 信息提示

最新推荐

猜你喜欢

热门推荐