诗词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，就是当前局数）

这个注册名自动生成器的vb代码应该如何写？我？

建立text1,text2,text3,text4,text5，并且设置Text5的Multiline属性为True，代码如下。

================================= Private Sub Command1_Click() Dim i As Long, t As Long t = Val(Text2.Text) For i = 0 To Val(Text3.Text) Text5.Text = Text5.Text Text1.Text t i ＂ Text4.Text vbCrLf Next End Sub Private Sub Form_Load() Text1.Text = ＂＂ Text2.Text = ＂＂ Text3.Text = ＂＂ Text4.Text = ＂＂ Text5.Text = ＂＂ End Sub

求VB代码啊！

完成了！！！我自己试过，没啥问题自己创建控件（两个图像框，两个计时器），把Form1的KeyPreview属性改为True粘贴代码，运行即可（上下左右移动）代码Option ExplicitDim Right1 As Integer, Left1 As Integer, UP1 As Integer, Down1 As Integer '用于判断P2方向Dim Right2 As Integer, Left2 As Integer, UP2 As Integer, Down2 As Integer '用于判断P1的方向Dim R As Boolean, L As Boolean, U As Boolean, D As Boolean '用于判断是否接触Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '获取PIcture2的方向 Select Case KeyCode Case 38 If Picture2.Top 0 Then UP1 = 1 Else UP1 = 0 End If Case 40 If Picture2.Top + Picture2.Height 0 Then Left1 = 1 Else Left1 = 0 End If Case 39 If Picture2.Left + Picture2.Width 0 Then MoveL End If End If If UP1 = 1 Then If Picture2.Top 0 Then MoveU End If End If If Down1 = 1 Then If Picture2.Top + Picture2.Height = Picture2.Left Then R = True If U = True Or D = True Then MsgBox ＂追到了＂ End End If End If End IfEnd SubPrivate Sub MoveL（) '设置左移 If Left1 = 1 Then Picture2.Left = Picture2.Left - 100 End If If Left2 = 1 Then Picture1.Left = Picture1.Left - 100 If Picture1.Left = Picture2.Top Then D = True If L = True Or R = True Then MsgBox ＂追到了＂ End End If End If End IfEnd SubPrivate Sub Direction（) '用于判断P1与P2的相对位置，用于判断P1的追击方向 If Picture1.Top = Picture2.Top + Picture2.Height Then 'P1在P2下方 UP2 = 1 U = False Else UP2 = 0 End If If Picture1.Top + Picture1.Height = Picture2.Left + Picture2.Width Then 'P1在P2右方 Left2 = 1 L = False Else Left2 = 0 End If If (Picture1.Top + Picture1.Height = Picture2.Top And _ Picture1.Top + Picture1.Height = Picture2.Top And _ Picture1.Top = Picture2.Left And _ Picture1.Left + Picture1.Width = Picture2.Left And _ Picture1.Left = Picture2.Left + Picture2.Width) Then 'P1在P2左右之间 R = True L = True End IfEnd Sub做的有点简陋粗糙，有问题不满意再找我改改，希望对你有帮助~~

求VB一代码：用VB创建一文本文件并往里写入一段代码数据要写入的 ...

你可以学最简单的，就是切换文本。

插入一个文本控件，再插入一个命令按钮，命令按钮的作用是-如果被鼠标点击执行代码，先给你的文本控件起个名字，系统给予文本控件默认名是：lable1.如果又出现一个文本控件名字就是：lable2.如果你还是第一个文本控件的话就输入Private Sub Command1_Click()lable1.caption=＂（你要输的文字）＂end subcaption是属性里面的一个值，你也可以在属性栏里找到caption属性值，后面有一个lable1那是默认的文字，你想改的话，就把那个lable1改成你想输入的文字，我们只不过在指令中修改它的文字而已，如果你想修改名字为lable2的文本控件里的文字，只需把指令中的lable1改成lable2就行了，要根据实际情况填。

有情况追问我就行了。

vb函数源代码

Len 函数返回 Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。

语法Len(string | varname)Len 函数的语法有下面这些部分：部分 说明 string 任何有效的字符串表达式。

如果 string 包含 Null，会返回 Null。

Varname 任何有效的变量名称。

如果 varname 包含 Null，会返回 Null。

如果 varname 是 Variant,Len 会视其为 String 并且总是返回其包含的字符数。

说明两个可能的参数必须有其一（而且只能有其一）。

如为用户定义类型，Len 会返回其写至文件的大小。

注意 LenB 函数作用于字符串中的字节数据，如同在双字节字符集（DBCS）语言中一样。

所以 LenB 返回的是用于代表字符串的字节数，而不是返回字符串中字符的数量。

如为用户自定义类型，LenB 返回在内存中的大小，包括元素之间的衬垫。

对于使用 LenB的示例代码，请参阅示例主题中的第二个示例。

注意 当在用户自定义数据类型中使用变长字符串时，Len 可能不能确定实际存储所需的字节数目。

Mid 函数返回 Variant (String)，其中包含字符串中指定数量的字符。

语法Mid(string, start[, length])Mid 函数的语法具有下面的命名参数：部分 说明 string 必要参数。

字符串表达式，从中返回字符。

如果 string 包含 Null，将返回 Null。

start 必要参数。

为 Long。

string 中被取出部分的字符位置。

如果 start 超过 string 的字符数，Mid 返回零长度字符串 （＂＂）。

length 可选参数；为 Variant (Long)。

要返回的字符数。

如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。

说明欲知 string 的字符数，可用 Len 函数。

注意 MidB 函数作用于字符串中包含的字节数据，如同在双字节字符集（DBCS）语言中一样。

因此其参数指定的是字节数，而不是字符数。

对于使用 MidB的示例代码，请参阅示例主题中的第二个示例。

节选自 MSDN 6.0中文版 源代码就没有了