在線網絡對戰，設置服務器IP，端口和用戶名。
///button BTN _ vs man的Click事件
private Sub BTN _ vs man _ Click(ByVal sender As System。對象，ByVal e作為系統。EventArgs)處理btn_VsMan。點擊
//將主窗體中的UserName變量設置為該窗體中文本控件txt_UserName的輸入值。
主窗體。用戶名= txt _用戶名。文本
//將主窗體中Label_UserName控件的文本設置為該窗體中文本控件txt_UserName的輸入值。
主窗體。標簽_用戶名。Text = txt _用戶名。文本
//顯示主窗口
主窗體。ShowDialog()
末端接頭
離開遊戲並關閉遊戲窗口。
//單擊退出按鈕的事件
private Sub BTN _ Exit _ Click(ByVal sender As System。對象，ByVal e作為系統。EventArgs)處理btn_Exit。點擊
//退出程序
申請。退出()
末端接頭
遊戲描述
//幫助按鈕的Click事件
private Sub BTN _ Help _ Click(ByVal sender As System。對象，ByVal e作為系統。EventArgs)處理btn_Help。點擊
//顯示壹個消息框
MsgBox("本遊戲為益智遊戲" &；vbCrLf & amp；vbCrLf & amp；_
“——遊戲規則&；vbCrLf & amp；vbCrLf & amp；_
“遊戲規則:每個遊戲有十個話題，”&；vbCrLf & amp；vbCrLf & amp；_
“答對了就100分，答錯了就扣50分。”& ampvbCrLf & amp；vbCrLf & amp；_
"題目是選擇題，請選擇正確答案."& ampvbCrLf & amp；vbCrLf & amp；_
“@剪刀程序設計。2009.03.30", _
msgboxstyle . ok only+msgboxstyle . question，“遊戲說明”)
末端接頭
//加載登錄表單
private Sub log in _ Load(ByVal sender As System。對象，ByVal e作為系統。EventArgs)處理MyBase。負荷
末端接頭
結束類
-
百度VB2010(VB。NET)的建設和發展需要您的支持和幫助！！！
來加入我們吧！把妳的問題，經歷，流程公布出來，分享壹下。..
讓我們壹起進步吧！