求vb大神解答

2025-02-26 15:07:50

推荐回答（1个）

回答1：

Private Sub Form_Click()
Dim b As String
Dim a As String
Randomize
b = Str(Int(Rnd * 900 + 100))
Print b
a = Mid(Trim(Str(b)), 3, 1) & Mid(Trim(Str(b)), 2, 1) & Mid(Trim(Str(b)), 1, 1)
Print a
End Sub

最新问答

EXCEL中实现以下功能。A列，录入日期，B列截至日期，显示为较A列推迟90天后的日期，

她学习非常努力，目的就是考进一所好大学用英语可以怎么说？