诗词vb源码诗词vb源码|

VB的源代码和源文件源文件：指编程者做好的工程文件，包含对程序进行修改、编译所需的全套代码和组件（例如图标、可视界面、第三方控件、数据库）。

【诗词vb源码】

源代码：仅仅是编程者所写的程序代码，不包含界面和控件等，需要用户自行完成相关操作。
可能不完整，一般用于提供编程思路。
【对补充的解答】我上面已经说过了，源代码可能不完整。
可能是整个工程的源代码，也可能只是几个主要窗体的源代码。
究竟是哪种要由提供代码者决定。
考虑到时间、精力等问题，他可能只提供比较难编的主要部分的代码，而将剩下的简单代码留给用户自行完成。
一般提供代码者会同时说明情况。
如果你想要完整的代码，可以搜索其它人提供的代码，或者直接找源文件。
求VB程序代码！天驰写的没有看懂啊！求VB代码？我想编一个小程序 ...不好意思，我没有找到上次那个页面，所以没办法补充（因为我自己不会记得自己写了什么：-P）最近有点忙，所以没有及时回复你。
我不知道我的程序是不是符合你的题意。
你有运行过吗？正题正题。
规律就是指定的时间与2000-1-1相比多了几天（也就是iDiff的意思）。
然后用模4运算取得班次。
关键的一句话我已经打上注释了。
就是DateDiff的意思是：取得两个日期的差值，＂d＂表示以天为单位。
没贴注释的两段话，感觉无法注释，这个是数学功底，不是程序水平。
大意就是为iDiff作模4运算，因为你一共只有4班轮流，取模也就是这个意思。
比如： 1 Mod 4 = 1 2 Mod 4 = 2 3 Mod 4 = 3 4 Mod 4 = 4 5 Mod 4 = 1 6 Mod 4 = 2 …… 至于那个加加减减的计算是线性公式的常数项，完全是在拼凑你的题目要求，没有实际意思。
所以说我觉得已经没办法再注释了。
有不懂的地方请明示哪一句不懂，如果全部不懂那应该是没有仔细思考。
vb小游戏源代码 Dim pFist, cFist, cCount, pCount, dCount, tCount As Integer Private Sub Form_Load() cCount = 0 pCount = 0 dCount = 0 tCount = 1 lblPWinNum.Caption = ＂＂ lblPWinNum.Caption = lblPWinNum.Caption & pCount lblCWinNum.Caption = ＂＂ lblCWinNum.Caption = lblCWinNum.Caption & cCount lblDrawNum.Caption = ＂＂ lblDrawNum.Caption = lblDrawNum.Caption & dCount lblTotalNum.Caption = ＂＂ lblTotalNum.Caption = lblTotalNum.Caption & tCount End Sub Private Sub imgCloth_Click() pFist = 3 cFist = Int(Rnd * 3) + 1 txtPlayer.Text = ＂＂ txtPlayer.Text = txtPlayer.Text & ＂布＂ If cFist = 1 Then txtComputer = ＂＂ txtComputer = txtComputer & ＂石头＂ Else If cFist = 2 Then txtComputer = ＂＂ txtComputer = txtComputer & ＂剪刀＂ Else If cFist = 3 Then txtComputer = ＂＂ txtComputer = txtComputer & ＂布＂ End If End If End If If cFist = 1 Then pCount = pCount + 1 lblPWinNum.Caption = ＂＂ lblPWinNum.Caption = lblPWinNum.Caption & pCount picSusess.Visible = True MsgBox ＂恭喜你，你赢了！＂ Else If cFist = 2 Then cCount = cCount + 1 lblCWinNum.Caption = ＂＂ lblCWinNum.Caption = lblCWinNum.Caption & cCount MsgBox ＂很遗憾，你输了！＂ Else dCount = dCount + 1 lblDrawNum.Caption = ＂＂ lblDrawNum.Caption = lblDrawNum.Caption & dCount MsgBox ＂打平了！＂ End If End If tCount = tCount + 1 lblTotalNum.Caption = ＂＂ lblTotalNum.Caption = lblTotalNum.Caption & tCount End Sub Private Sub imgScissors_Click() pFist = 2 cFist = Int(Rnd * 3) + 1 txtPlayer.Text = ＂＂ txtPlayer.Text = txtPlayer.Text & ＂剪刀＂ If cFist = 1 Then txtComputer = ＂＂ txtComputer = txtComputer & ＂石头＂ Else If cFist = 2 Then txtComputer = ＂＂ txtComputer = txtComputer & ＂剪刀＂ Else If cFist = 3 Then txtComputer = ＂＂ txtComputer = txtComputer & ＂布＂ End If End If End If If cFist = 3 Then pCount = pCount + 1 lblPWinNum.Caption = ＂＂ lblPWinNum.Caption = lblPWinNum.Caption & pCount picSusess.Visible = True MsgBox ＂恭喜你，你赢了！＂ Else If cFist = 1 Then cCount = cCount + 1 lblCWinNum.Caption = ＂＂ lblCWinNum.Caption = lblCWinNum.Caption & cCount MsgBox ＂很遗憾，你输了！＂ Else dCount = dCount + 1 lblDrawNum.Caption = ＂＂ lblDrawNum.Caption = lblDrawNum.Caption & dCount MsgBox ＂打平了！＂ End If End If tCount = tCount + 1 lblTotalNum.Caption = ＂＂ lblTotalNum.Caption = lblTotalNum.Caption & tCount End Sub Private Sub imgStone_Click() pFist = 1 cFist = Int(Rnd * 3) + 1 txtPlayer.Text = ＂＂ txtPlayer.Text = txtPlayer.Text & ＂石头＂ If cFist = 1 Then txtComputer = ＂＂ txtComputer = txtComputer & ＂石头＂ Else If cFist = 2 Then txtComputer = ＂＂ txtComputer = txtComputer & ＂剪刀＂ Else If cFist = 3 Then txtComputer = ＂＂ txtComputer = txtComputer & ＂布＂ End If End If End If If cFist = 2 Then pCount = pCount + 1 lblPWinNum.Caption = ＂＂ lblPWinNum.Caption = lblPWinNum.Caption & pCount picSusess.Visible = True MsgBox ＂恭喜你，你赢了！＂ Else If cFist = 3 Then cCount = cCount + 1 lblCWinNum.Caption = ＂＂ lblCWinNum.Caption = lblCWinNum.Caption & cCount MsgBox ＂很遗憾，你输了！＂ Else dCount = dCount + 1 lblDrawNum.Caption = ＂＂ lblDrawNum.Caption = lblDrawNum.Caption & dCount MsgBox ＂打平了！＂ End If End If tCount = tCount + 1 lblTotalNum.Caption = ＂＂ lblTotalNum.Caption = lblTotalNum.Caption & tCount End Sub Private Sub picSusess_Click() picSusess.Visible = False End Sub 我原来做的一个，按照你的提示加了一个图片， picSusess这个就是图片，里面放着一个苹果的图片，当你赢了就会出现，你点击一下，那个图片就消失，我这个里面除了你这个功能，还有战绩提示，统计你胜负平的局数和第多少局（计算公式是胜负平的局数+1 ，就是当前局数）