Question

用vb编写了这个随机抽取人名的程序，要求一个文本框，一个按钮

要求，不重复

Answer 1

Dim xm, n As Integer
Private Sub Command1_Click()
  Static k
  k = k + 1
  If k Mod 2 = 1 Then
    Timer1.Interval = 20
    Command1.Caption = "停"
  Else
    Timer1.Interval = 0
    Command1.Caption = "开始"
  End If
End Sub

Private Sub Form_Load()
  xm = Array("张三", "李四", "王五", "赵六", "钱七", "孙八", "周九", "吴十", "郑土")
  n = UBound(xm) + 1
  Text1.FontSize = 16
  Text1 = ""
  Command1.Caption = "开始"
End Sub

Private Sub Timer1_Timer()
  x = Int(Rnd * n)
  Text1 = xm(x)
End Sub

Answer 2

Option Explicit
Dim jm(35) As String
Dim i, cs As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
cs = cs + 1
Label1.Visible = True
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
jm(i) = jm(32 - cs)
Command1.Enabled = True
Command2.Enabled = False
StatusBar1.Panels.Item(3) = 32 - cs
End Sub

Private Sub Form_Load()
jm(0) = "李珊珊等《西游记》"
jm(1) = "刘泽玉 小王佳《知足》"
jm(2) = "小王佳 王敏《一个像夏天，一个像秋天》"
jm(3) = "李铭 李兵《你是我心内的一首歌》"
jm(4) = "刘泽玉 孙皓晨《因为爱情》"
jm(5) = "赵京城 《寻找》"
jm(6) = "王振远 高磊《寂寞沙洲冷》"
jm(7) = "李宗瑶《小星星》"
jm(8) = "逯鹏 张志远《最美的太阳》"
jm(9) = "李彤彤 葛文芮《BABY DON'T CRY》"
jm(10) = "王敏 杨雪《夜夜夜夜》"
jm(11) = "张月明 李晓雨 大王佳《过火》"
jm(12) = "葛文芮 孙皓晨《Timeless》"
jm(13) = "叶小雨 郭津铭《未完成的歌》"
jm(14) = "逯鹏 孙杰《父亲》"
jm(15) = "王昭政《那些年》"
jm(16) = "叶小雨 高磊《奔跑》"
jm(17) = "顾庆杰 韩曦《我们都一样》"
jm(18) = "张遵策 郭津铭《心跳》"
jm(19) = "张遵策《空城》"
jm(20) = "逯鹏 李宗瑶《江南》"
jm(21) = "郅睿 王敏《会呼吸的痛》"
jm(22) = "韩绍飞 吕典杰《水手》"
jm(23) = "郅睿 张东剑《后会无期》"
jm(24) = "大王佳 韩曦《小酒窝》"
jm(25) = "赵文青 时静璐《遗失的美好》"
jm(26) = "甄岳《没有什么不同》"
jm(27) = "吴巧 李晓慧《我的歌声里》"
jm(28) = "李瑶 李姗姗《最炫民族风》"
jm(29) = "大王佳 侯家慧《星空》"
jm(30) = "三组全体《大笑江湖》"
jm(31) = "大王佳 张锋《肩上蝶》"
End Sub

Private Sub Timer1_Timer()
Randomize
i = Int(Rnd * (32 - cs))
Label1.Caption = jm(i)
If 32 - cs <= 0 Then
Timer1.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
MsgBox "节目已完成，感谢你使用本程序!"
Command3.Value = True
End If
End Sub

Answer 3

代码和效果如图所示

追问

不能重复出现

不能重复出现