vb 编写一个抽奖程序

command1用来随机抽取，text2显示

text1用来自己输入

command2用来判断

基本思想：假设连续有a位相同，经过验证如果为真则得出结果，如果为假，则假设a=a-1位相同……直到a=0

也可以自己输入text2数据来检验程序

这段程序不局限于7位数

Private Sub Command2_Click()

Dim a$, b$, i%, j%, k%

a = CStr(Text1)

b = CStr(Text2)

For i = Len(a) To 1 Step -1

For j = 1 To Len(a) - i + 1

If Mid(a, j, i) = Mid(b, j, i) Then

k = i

Exit For

End If

Next

If k <> 0 Then Exit For

Next

Print k, Mid(a, j, i)'输出相同位数和相同数字

If len(a)+1-k>5 Then

MsgBox "对不起，无奖项"

Else

MsgBox Len(a) + 1 - k & "等奖"'判断奖项

End If

End Sub

Private Sub Command1_Click()

a = CStr(Text1)

Text2 = 10 ^ (Len(a) - 1) + Int(Rnd 09 10 ^ Len(a))

End Sub

#data和name_data数据自己添加

import random

# 所有员工数据,字典的key是一个set类型，value是list类型

data = {

('能永年', '甲队'): ['项目队长', '曾经外派抵达x地做出了某事', '曾经外派抵达子公司做出了ss项目'],

('巴伟毅', '乙队'): ['HR'],

('纪文博', '丙队'): ['项目成员', '为xx事做出了重大贡献', '曾经做过AA项目'],

('吉信鸿', '丙队'): ['HR', '为公司面试了XX人次', ],

('沙雅旭', '丙队'): ['财务管理', '针对财务的做出了重要指导'],

}

name_data = ['能永年', '巴伟毅', '纪文博', '吉信鸿', '沙雅旭']  # 参见抽奖人的姓名

random_name = randomchoice(name_data)  # 随机一个中奖的人

for key, value in dataitems():

# print(key,value)

if random_name == key[0]:  # 在字典key中找到这人

print('{}：{}'format(key[0], key[1]))

for item in value:  # 遍历他的信息

print('\t\t' + itemljust(20))

单用C标准里的东西，可能无法做；得借助于 *** 作系统或其他第三方库提供的多线程。单用C++2003及其以前的标准也无法实现，原因同C，如果依据C++2011标准（2011年刚出台的C++标准）到是可以——C++2011标准加入了多线程，要求C++编译器支持多线程，但是现在的编译器估计都还没有支持。

以上就是关于vb 编写一个抽奖程序全部的内容，包括:vb 编写一个抽奖程序、python编写抽奖程序、C语言抽奖程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！