登录
首页 » VB源码 » VB 石头剪刀布猜拳游戏

VB 石头剪刀布猜拳游戏

于 2023-07-03 发布 文件大小:355.96 kB
0 25
下载积分: 2 下载次数: 1

代码说明:

VB 石头剪刀布猜拳游戏,游戏操作方法:在窗体左下方的石头、剪子、布图标中,单击用户想要出的一种手势,电脑会自动给出该手势,任一方赢了都会给出相应提示图片信息。游戏结果判定逻辑:   将用户和计算机所选的图片的序号合成一个字符串,根据这个字符串判断用户的输赢   00 石头对石头 重来   01 石头对剪子 用户赢   02 石头对布 用户输   10 剪子对石头 用户输   11 剪子对剪子 重来   12 剪子对布 用户赢   20 布对石头 用户赢   21 布对剪子 用户输   22 布对布 重来

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB6.0检查是否有拨号连接
    VB6.0检查你的电脑是否有拨号连接,获取本机的网络连接列表,重点是检测是否有拨号网络连接。
    2022-07-25 20:56:18下载
    积分:1
  • VB.NET 多线程TCP端口扫描工具
    VB.NET 多线程TCP端口扫描工具,使用前请输入要扫描的网段IP和端口,本程序可将扫描到的开放端口数量显示在窗口中,扫描时应用了多线程技术,扫描时显示当前线程数,适时显示扫描进度和扫描时间,以毫秒计时,扫描速度提升了不少。   注:本程序仅能扫描开放的端口,被禁止和未开放的端口不能被扫描到。
    2022-05-25 05:47:04下载
    积分:1
  • VB输入限制:只允许输入汉字
    VB输入限制功能一例:只允许输入汉字,本实例只允许用户输入汉字,如果输入其它类型的字符,程序将不允许输入,且会提醒用户。原理是获取键盘上的ASCII值,并判断是否在中文汉字的范围,若不在,就禁止输入。实现本功能的关键代码,分享给大家:   If KeyAscii > 0 And KeyAscii 13 And KeyAscii 8 Then    KeyAscii = 0    MsgBox "只允许输入汉字!", 48, "提示"   End If   因为是对键盘的控制实现对输入的限制,因此若鼠标复制了一段包含其它字符的文字,则程序无能为力,因为鼠标不在监控范围。
    2023-02-18 18:05:03下载
    积分:1
  • VB为Lable标签着色(填充不同颜色)
    VB6.0为Lable标签着色(填充不同颜色),把标签分别填充上不同的颜色,在显示一些统计数据的时候,可清淅的显示出各种数据类型,提升用户浏览体验。   为Lable着色是非常简单的,你可以从本例子中学会用法。
    2022-02-05 08:55:36下载
    积分:1
  • VB6.0 顺序文件写操作的操作演示
    VB6.0 顺序文件写操作的操作演示,三种方法写数据,包括了完整的源码项目下载,是学习VB文件读写操作的好范例。   这三种方法是:   把文件的内容一次性的写入   把字符一个一个写入   依次写入顺序文件
    2022-01-26 17:24:14下载
    积分:1
  • VB SetWindowRgn创建椭圆形窗口
    VB创建一个个性化的椭圆形窗口界面,使用 SetWindowRgn创建椭圆形窗口的例子。个性的窗口形状可增加程序的趣味性,可以使程序更具吸引力。见惯了方方正正的矩形窗体,椭圆形窗体更会使用户眼前一亮。本实例设计一个椭圆形的窗体,运行程序,窗体为椭圆形,单击窗体,即可退出程序。
    2022-10-27 20:55:03下载
    积分:1
  • VB 利用Tag属性存储用户名
    VB 利用Tag属性存储用户名   If Text1.Text = "" Or Text2.Text = "" Then    MsgBox "用户名或密码不能为空", vbCritical, "信息提示"    Exit Sub   Else    If Text1.Text = "TSoft" And Text2.Text = "111" Then    Me.Tag = Text1.Text    Frm_Main.Show 1    Unload Me    Else    MsgBox "输入的名户名或密码不正确", vbCritical, "信息提示"    End If   End If
    2022-02-04 07:45:58下载
    积分:1
  • vb 通过程序设置系统日期和时间的格式
    vb 通过程序设置系统日期和时间的格式,设定时可以改变长日期格式,短日期格式,改变时间格式,看着很像是以前Windows XP时候的时间设置窗口的功能。请注意,日期格式设置成功,需要重新启动计算机或注销后可以看到新的短日期格式!以下是改变日期格式其中的一个例子代码,仅供参考:   Dim ret2 As Long   Dim sd As String   ret2 = RegOpenKey(HKEY_CURRENT_USER, "Control PanelInternational", hKey)   If ret2 = 0 Then    sd = Combo1.Text    RegSetValueEx hKey, "sShortDate", "0", REG_SZ, ByVal sd, LenB(StrConv(sd, vbFromUnicode))    MsgBox "日期格式已设置成功,重新启动计算机或注销后可以看到新的短日期格式!", , "提示窗口"   End If
    2023-06-21 17:25:03下载
    积分:1
  • 网络五子棋游戏之客户大厅和服务器
    网络五子棋游戏源码之客户大厅和服务器 VB编的
    2023-07-18 23:30:04下载
    积分:1
  • VB Windows文件操作监视程序
    VB Windows操作监视程序,一个 Windows的文件目录操作即时监视程序,可以监视在Explore中的重命名、新建、删除文件或目录;改变文件关联;插入、取出CD和添加删除网络共享都可以被该程序记录下来。源程序来源于国外,注释英文。运行界面效果如图所示。当有文件操作时,在程序运行窗口中会有所提示。
    2023-06-19 19:00:03下载
    积分:1
  • 696518资源总数
  • 104353会员总数
  • 66今日下载