vb6修改随机数量
Private Type student
name As String * 10
End Type
Private Sub Command2_Click() '写入数据
Dim stu As student
Open "F:\c.txt" For Random As #1 Len = Len(stu)
For i = 1 To 10
stu.name = InputBox("请输入姓名")
Put #1, i, stu
Next i
Close #1
End Sub
Private Sub Command1_Click()
Randomize
Dim bb As student, n%
n = Int(Rnd * 10) + 1
Open "F:\c.txt" For Random As #1 Len = Len(bb)
Get #1, n, bb
Text1.Text = bb.name
Close #1
End Sub
其中的数值10是固定的,有时候总量不一定是10希望能人性化按照设定来改变数值。比如需要3、5、6等等。用什么控件都可以。
追问:For i = 1 To xx
stu.name = InputBox("请输入姓名")
XX这个数值能改吗?
答案:'定义一个全局变量,如在所有程序之前 Dim Num%,
'把程序中的10换成Num
'运行时让Num等于你想要的总量,如Num=val(text2)
'自己试试吧
其他:用一个文本框作为输入框就可以。
n = Int(Rnd * val(text1.text)) + 1
上一个:Dim info As String = String.Empty和 Dim info As String = “”有什么区别呢?
下一个:怎样用vb作像册