希望懂得VB语言的人帮个小忙（高分！）

显示全部楼层 · 2009-6-7 12:30:26

一个聊天程序客户端：Dim a As IntegerPrivate Sub Command1_Click()If a = 0 Thenwskclient.RemoteHost = Text1.Textwskclient.RemotePort = Text4.Textwskclient.Connecttext2.Enabled = Falsea = 1ElseMsgBox "请不要多次连接！"End IfEnd SubPrivate Sub Command2_Click()If a = 1 ThenDim sendmsg As Stringsendmsg = text2.Te...

千问 · 2009-6-7 12:30:26

我编的打地鼠游戏，试试看。以下代码是FRM文件，也就是说保存下面的代码到一个后缀名是FRM的文件中，再用VB打开即可。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝VERSION 5.00Begin VB.Form Form1
BorderStyle
= 1 'Fixed Single Caption
= "打地...

千问 · 2009-6-7 12:30:26

石头剪刀布游戏，窗体创建三个单选框按钮，Option1、Option2、Option3，设计时使用默认属性：Private Sub Form_Activate()Option1.Caption = "石头"Option2.Caption = "剪刀"Option3.Caption = "布"Option1.Value = False...

千问 · 2009-6-7 12:30:26

计算机器程序Dim ope As String Dim tecla As String Dim numero1, numero2 As String Dim resultado As String Private Sub about1_Click() MsgBox ("calculadora hecho por S...