Question

用VB设计自动发牌程序

一副扑克有52张牌，打桥牌时应将牌分给四个人。请设计一个程序完成自动发牌的工作。要求:黑桃用S (Spaces)表示;红桃用H (Hearts)表示;方块用D (Diamonds)表示;梅花用C(Clubs)表示。按照打桥牌的规定，每人应当有13张牌。在人工发牌时，先进行“洗牌”，然后将洗好的牌按一定的顺序发给每一个人。为了便于计算机模拟，可将人工方式的发牌过程加以修改:先确定好发牌顺序:西、北、东、南；将52张牌按花色顺序编号:如黑桃用S1-S13表示；红桃用H1-H13表示；红桃用H1-H13表示；红桃用H1-H13表示；然后从52张牌中随机的为每个人抽牌。

Answer 1

用个JMail组件就行了，下一个看看吧！给你个ASP的示例，VB跟ASP差不了多少，调用方法之类都还行，拿过去改改就可以用了！
下载地址：http://down.chinaz.com/S/10368.asp

相信你也找过一些这类的代码，可能你用过的方法中就有可以用的，变通一下方法就好了！提供方法给你，仅供参考！

VB还可以用MAPI进行，核心控件：MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话，MAPI消息控件用于创建和收发邮件消息。此外，程序必须运行在采用遵从MAPI的消息系统（如：Microsoft Exchange、Microsoft Mail、Outlook等）的环境中。

编程需要将MAPI控件加入VB工具箱。全名是:"Microsoft MAPI Controls"。加入后，工具箱中将添上MAPI会话控件和MAPI消息控件的图标。

下面将以简单的VB程序为例，介绍发送邮件程序编制方法。

邮件发送程序的基本处理过程是：根据用户输入信息组成邮件，然后使用MAPI消息控件的Send方法将邮件发出。编程步骤如下：

1、新建一个VB项目。

2、将缺省窗体Form1的Caption属性设置为"发送邮件"。

3、将MAPI控件加入VB工具框。

4、在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessages1。

5、在Form1中加入三个文本框控件，将它们的Name属性分别设置为txtSendTo、txtSubject、txtMessage，并将txtMessage的Multiline属性设置为True。这三个文本框控件将分别用于填写邮件的收件人、主题和内容。

6、在Form1中加入三个标签控件，将它们的Caption属性分别设置为"收件人"、"主题"和"内容"，并将它们放在合适的位置用以标注相应的文本框控件。

7、在Form1中加入一个命令按钮控件，将其Caption属性和Name属性分别设置为"发送"和"cmdSend"。

8、将下列代码加入Form1的Form_Load事件：

Private Sub Form_Load()

MAPISession1.SignOn

End Sub

9、将下列代码加入Form1的Form_Unload事件：

Private Sub Form_Unload(Cancel As Integer)

MAPISession1.SignOff

End Sub

10、将下列代码加入cmdSend的Click事件：

Private Sub cmdSend_Click()

With MAPIMessages1

.MsgIndex = -1

.RecipDisplayName = txtSendTo.Text

.MsgSubject = txtSubject.Text

.MsgNoteText = txtMessage.Text

.SessionID = MAPISession1.SessionID

.Send

End With

MsgBox "邮件发送完毕！", , "发送邮件"

End Sub

在填写完邮件的收件人、主题和内容后，按"发送"命令按钮，如果没有出现运行时错误提示，那么就表明邮件已经成功地发往目的地了，否则，请检查填写的收件人地址是否准确无误以及系统中运行的消息系统工作是否正常