11问答网
所有问题
当前搜索:
vb怎么随机产生不重复的数字
用
vb
做个双色球摇奖工具
答:
Private Sub Command1_Click()Randomize Cls Dim a a = GetRndNotRepeat(1, 33, 6)Print "红球";For i = 0 To UBound(a)Print a(i);Next Print " 蓝球"; Int(Rnd * (17) + 1)End Sub Public Function GetRndNotRepeat(ByVal NumMin As Integer, ByVal NumMax As Integer, ByVal...
用
VB
编辑程序应该
怎么
写
答:
Private Sub Command1_Click()Dim a As Integer Dim b As Integer Dim c As Integer Dim e As Integer Dim f As Integer Dim x As Integer x = Val(Text1)List1.Clear For a = IIf(Val(Text2) = 0, 1, Val(Text2)) To IIf(Val(Text2) = 0, 28, Val(Text2))For b = IIf...
VB中
特殊文件夹的长文件名转换为短文件名.
答:
形成 ABCDEF~1.TXT 这样的名字。2 检查该目录中 ABCDEF~1.TXT 是否存在,若不存在就是它了。若存在 改为 ABCDEF~2.TXT 再检查,直到
出现不重复的
文件名。3 如果第二步重试次数太多(超过4次),就采用
生成随机数
的方式调整 ABCDEF 这一部分形成 ABF424~1.TXT 这样的名字。4 把长文件名和短...
VB
6.0的列表框
怎么
才能
不重复
相同名称的项目??
答:
假设你要添加的字符串变量为str,并从text1.text 中取得,单击command1时添加项目: 列表框的名称为 list1 代码如下: Private Sub Command1_Click() Dim str As String Dim i As Integer, flag As Boolean str = Trim(Text1.Text) flag = False For i = 0 To List1.ListCount - 1 ...
vb中
数据库在下拉列表框中
不重复
同一字段
答:
可以另一个语句 rs2.open "select 餐厅字段 from dcyd where ... gourp by 餐厅字段",cnn,1,1 但是,有的餐厅还没有学生定过餐,你这样也显示不出来吧!所以建议餐厅和学生点餐分两个表,你的餐厅下拉框,从餐厅的表中取值!
棣栭〉
<涓婁竴椤
10
11
12
13
14
15
16
17
18
76
其他人还搜