vb编程滚动随机抽取姓名用VB编程，随机抽取两个人的姓名？

2021-03-09知识4

用vb编写了这个随机抽取人名的程序，要求一个文本框，一个按钮 Dim xm，n As IntegerPrivate Sub Command1_Click()Static kk=k+1If k Mod 2=1 ThenTimer1.Interval=20Command1.Caption=\"停ElseTimer1.Interval=0Command1.Caption=\"开始End IfEnd SubPrivate Sub Form_Load()xm=Array(\"张三\"，\"李四\"，\"王五\"，\"赵六\"，\"钱七\"，\"孙八\"，\"周九\"，\"吴十\"，\"郑土\")n=UBound(xm)+1Text1.FontSize=16Text1=\"Command1.Caption=\"开始End SubPrivate Sub Timer1_Timer()x=Int(Rnd*n)Text1=xm(x)End Sub

用VB编程随机抽取姓名 Private Type student<；/p>；<；p>；name As String*10<；/p>；<；p>；End Type<；/p>；<；p>；Private Sub Command1_Click()'写入数据<；/p>；<；p>；Dim stu As student<；/p>；<；p>；Open\"d：\\student.txt。