求vb 程序代码

Private Sub Command1_Click()    '点开始

Timer1Enabled = True

End Sub

Private Sub Command2_Click()    '点暂停

Timer1Enabled = False

If Val(Label1Caption) = 6 Or Val(Label2Caption) = 6 Or Val(Label3Caption) = 6 Then

    Image1Picture = LoadPicture("E:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05ICO")    '笑脸路径自己改

Else

    Image1Picture = LoadPicture("E:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04ICO")    '不笑脸

End If

End Sub

Private Sub Timer1_Timer()

Label1Caption = Int(6  Rnd) + 1

Randomize

Label2Caption = Int(6  Rnd) + 1

Randomize

Label3Caption = Int(6  Rnd) + 1

End Sub

Private Sub Form_Load()

Timer1Enabled = False

Timer1Interval = 1000

End Sub

Private Sub Command1_Click()

Dim a(10) As Integer

Randomize

Max = -1

Min = 100

For i = 1 To 10

  a(i) = Int(Rnd 90) + 10

  Print a(i);

  s = s + a(i)

  If a(i) > Max Then Max = a(i)

  If a(i) < Min Then Min = a(i)

Next i

Print

Print "最大值="; Max

Print "最小值="; Min

Print "平均值="; s / 10

Print

End Sub

'题目有点问题，中间多了一个+1吧

Private Sub Command1_Click()

Dim s As Single

s = 0

Dim i, j, k As Integer

i = 0: j = 1

Do While 1 / j >= 000001

i = i + 1

j = j + i

s = s + 1 / j

Loop

Print "当第" & i; "项时,1/" & j & "值为:"; Format(1 / j, "0##########")

End Sub

加一个WInsock1控件，两个文本框（txtMess、txtSend）和一个按钮，代码如下Private Sub Command1_Click()

Winsock1SendData txtSendText '发送聊天内容

txtSendText = "" '聊天内容清空

End SubPrivate Sub Form_Load()

Dim my As String

Winsock1Protocol = sckUDPProtocol '设置为UDP协义

Winsock1LocalPort = 60 '随便设置，不过两个要一样

Winsock1RemotePort = 60

my = Winsock1LocalIP '取得自己的IP地址，是不要的

Winsock1RemoteHost = my '这里应该是改为别人计算机的IP，由于自己是单机，所以就设置成自己的，自己给自己发信息，可以拿另一台主机试试End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取到数据时发生

Dim Tmp As String

Winsock1GetData Tmp, vbString '取得数据

Tmp = "对方IP地址:" + Winsock1RemoteHostIP + "发送内容为-->" + Tmp

txtMessText = Tmp + Chr$(13) + Chr$(10) + txtMessText '换行输出聊天信息

End Sub语句超简单，我用了几小时才弄出。

以上就是关于求vb 程序代码全部的内容，包括:求vb 程序代码、急求VB程序代码、求一个VB程序代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！