当前位置:首页 » 操作系统 » 测姓名源码

测姓名源码

发布时间: 2022-06-04 01:47:43

❶ 跪求大神:公司名字测试 网站PHP源代码

个人感觉是自动提交,然后解析网页

❷ 谁能给我个VB的随机抽取器的源码

Private Sub Form_click()
Dim a(3) As String
a(0) = "小王"
a(1) = "小李"
a(2) = "小谢"
a(3) = "小林"
Randomize
MsgBox a(Int(Rnd * 4)), vbOKOnly, "标题"
End Sub

'不用添加任何控件 直接将代码复制进去 点击窗体即可得到效果

❸ 求帮忙修改一个vb抽签程序源码,要求能随机产生三个不重复姓名且可以手动设定3个不参加抽签的编号

我没看出来你代码中的Label2,Label3有什么用。
修改代码如下,已经过调试,在控件都存在的情况下可运行。

Option Explicit
Private Sub Command1_Click() Dim RStr(0 To 29) As String
Dim i, j, k, l, m, p, q, r
p = Text4.Text
q = Text5.Text
r = Text6.Text
RStr(0) = "张三"
RStr(1) = "李四"
RStr(2) = "刘德华"
RStr(3) = "郭富城"
RStr(4) = "黎明"
RStr(5) = "无良"
RStr(6) = "梦梦"
RStr(7) = "张学友"
RStr(8) = "王志和"
RStr(9) = "老干妈"
RStr(10) = "张三1"
RStr(11) = "李四1"
RStr(12) = "刘德华1"
RStr(13) = "郭富城1"
RStr(14) = "黎明1"
RStr(15) = "无良1"
RStr(16) = "梦梦1"
RStr(17) = "张学友1"
RStr(18) = "王志和1"
RStr(19) = "老干妈1"
RStr(20) = "张三2"
RStr(21) = "李四2"
RStr(22) = "刘德华2"
RStr(23) = "郭富城2"
RStr(24) = "黎明2"
RStr(25) = "无良2"
RStr(26) = "梦梦2"
RStr(27) = "张学友2"
RStr(28) = "王志和2"
RStr(29) = "老干妈2"
If Command1.Caption = "开始" Then
Text4.Text = Val(Text4.Text)
Text5.Text = Val(Text5.Text)
Text6.Text = Val(Text6.Text)
Command1.Caption = "结束"
Do While 1
If Command1.Caption = "开始" Then
Label1.Caption = "获奖人:" & vbCrLf & Text1.Text & vbCrLf & Text2.Text & vbCrLf & Text3.Text
Exit Do
End If
DoEvents
Randomize
k = Int(Rnd * 29) + 1
l = Int(Rnd * 29) + 1
m = Int(Rnd * 29) + 1
If k <> Text4.Text And k <> Text5.Text And k <> Text5.Text Then Text1.Text = RStr(k) '屏蔽第一个号码
If l <> Text4.Text And l <> Text5.Text And l <> Text5.Text Then Text2.Text = RStr(l) '屏蔽第二个号码
If m <> Text4.Text And m <> Text5.Text And m <> Text5.Text Then Text3.Text = RStr(m) '屏蔽第三个号码
For i = 1 To 3000
If Command1.Caption = "开始" Then Exit For
DoEvents
Next i
Loop
Else
Command1.Caption = "开始"
End If
End Sub

Private Sub Form_Load() Command1.Caption = "开始"
Label1.Caption = "等待开始"
Text1.Text = "-----"
Text2.Text = "-----"
Text3.Text = "-----"
Text4.Text = "请输入屏蔽序号1"
Text5.Text = "请输入屏蔽序号2"
Text6.Text = "请输入屏蔽序号3"
End Sub

❹ 九型人格测试的网页源码!

搜索九型人格测试点击浏览器工具栏页面-查看源文件
另注ie浏览器

❺ 学生综合测评系统C程序源代码

要期沿简轨替束滔臣月

❻ 自己下载了一个安卓应用程序源码,如何用Eclipse修改它的名字和图标呢

打开之后,把你自己的图标重命名成 ic_launcher~~~或者把AndroidManifest.xml文件里面android:icon="@drawable/ic_launcher"
android:label="@string/app_name"改成自己的图标,和名字~~

❼ 学生信息管理系统最简单源代码。

方法一:

1、创建一个c语言项目。然后右键头文件,创建一个Stu的头文件。

热点内容
oracle导出存储过程 发布:2024-10-30 19:24:24 浏览:433
云服务器虚拟机ip 发布:2024-10-30 19:24:23 浏览:883
访问法又称 发布:2024-10-30 18:52:28 浏览:168
算法dsp 发布:2024-10-30 18:50:47 浏览:936
访问商家 发布:2024-10-30 18:49:48 浏览:474
windowsftp工具 发布:2024-10-30 18:38:55 浏览:898
可压缩暑假 发布:2024-10-30 18:38:22 浏览:531
linux安装软件包 发布:2024-10-30 18:38:00 浏览:716
编译技术第三章课后习题 发布:2024-10-30 18:32:33 浏览:181
数据库包括什么 发布:2024-10-30 18:32:27 浏览:339