求程序码!!!!!!!!!!!
问题:求随机输出一个21位数,第一位为0,第二位为6-9的数字!(文字编程)实验成功再给20分!
最佳答案： VB的
添加一个文本框，一个按钮
Private Sub Command1_Click()
'输出字符
Dim outstr As String
'计算位数
Dim i As Long
outstr = "0" '第一个为0
AA:
Randomize
i = CInt(Rnd * 9)
If i > 6 Then
outstr = outstr & i '第二个为0-9随机数
Else
GoTo AA
End If
For i = 0 To 21 - Len(outstr) '把剩余的19位数用随机数补上
outstr = outstr & CInt(Rnd * 9)
Next
Text1.Text = outstr
End Sub