UC知道【急】VB利用mod和\反序
来源：百度知道 编辑：UC知道 时间：2024/06/21 20:01:09
随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。例如，产生的是735，输出的是537.（程序界面自己设计）
private sub form_click()
dim i as integer,s as integer
randomize
i=int(rnd()*900+100)
print i
s=(i\100)+ ((i\10) mod 10)*10+(i mod 10)*100
print s
end sub
什么控件也不用，只需单击窗体即可。
dim str1 as string
dim i as interger
for i =1 to 3
str1&=cstr((int(rnd()*9+1)))
next
str1=strreverse(str1)
strreverse是逆序输出函数
Private Sub Command1_Click()
Dim n As Integer, m As Integer, s As String, k As Integer
n = Int((999 - 100 + 1) * Rnd + 100)
Print n
s = "": k = n
Do
s = s & k Mod 10
k = k \ 10
Loop Until k = 0
Print s
End Sub