VB點虐 做一個小程序 求教

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

十年建站經驗， 做網站、網站制作客戶的見證與正確選擇。創新互聯提供完善的營銷型網頁建站明細報價表。后期開發更加便捷高效，我們致力于追求更美、更快、更規范。

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim oledbDataAdapter As OleDb.OleDbDataAdapter

Dim oledbData As DataSet = New DataSet

Dim strConnect As String = "Provider= OraOLEDB.Oracle;Data Source=888;User ID=888;Password=888;"

oleDbConnection1 = New System.Data.OleDb.OleDbConnection(strConnect)

Dim strSql As String

strSql = "select *" " from xx"

Dim oledbCommand As OleDb.OleDbCommand

oledbCommand.CommandText = strSql

oledbCommand.CommandType = CommandType.Text

oledbCommand.Connection = oleDbConnection1

oledbDataAdapter.SelectCommand = oledbCommand

oleDbConnection1.Open()

oledbDataAdapter.Fill(oledbData, "gy_bingrenxx")

oleDbConnection1.Close()

'在窗體上添加爛灶一個DataGridView控件,在這個位饑棚扮置和禪加一句代碼

DataGridView1.DataSource = oledbDataAdapter.Tables("gy_bingrenxx")

End Sub

求寫一個VB.Net小程序

隨機生成2-5階逗伏液廳皮方陣山物：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim d(,) As Integer

Dim n As Integer

Dim i As Integer

Dim j As Integer

Randomize()

n = Int(4 * Rnd() + 2)

ReDim d(n, n)

Label1.Text = ""

For i = 1 To n

For j = 1 To n

d(i, j) = Int(Rnd() + 0.5)

Label1.Text = Label1.Text d(i, j) " "

Next

Label1.Text = Label1.Text vbCrLf

Next

End Sub

如何使用VB編寫一個簡單的小程序？

在桌面上，鼠標左鍵雙擊程序，在打開的VB6主界面上，左邊是工具菜單欄，單擊標簽按鈕，兆歲在Form1窗口上，繪制出悔猜臘一Label1，然后在其屬性窗口上改個名字，如Caption為第一數，如下圖所示。

接著，用同樣的方法，在Form1窗口上繪制出第二數，并且在左邊工具菜單欄，單擊文本框按鈕，并繪制出來。在文本框屬性欄的Text屬性上，將其Text1刪除，也就是清空數據，如下圖所示。

然后，反復用第一步驟和第二步驟做成如圖所示的界面來，學習需要反復練習，在練習中不斷進步。這里是做簡單的加法程序，如下圖所示。

接著，加法程序的界面做好后，還不能執行加法運算，必須還要在Form1窗口上繪制出一個命令按鈕來，在左邊工具菜單欄，單擊命令按鈕，并繪制出來。然后給其屬性窗口下Caption改名為計算，如下圖所示。

然后，程序看起來是做好了，單擊如圖所示的運行按鈕，彈出自己做出的Form1窗口，輸入數字3和6，然后單擊計算。可是結果并沒有出現，如下圖所示。

最后，前面5個步驟只是做碧滑了程序的界面，想要程序出結果，那必須加些代碼了，既然是簡單程序，只加一行代碼就可以了。雙擊命令按鈕，在代碼窗口中輸入如下：Text3.Text = Val(Text1.Text) + Val(Text2.Text)后，再單擊運行，輸入數字，單擊計算，此時就出現結果了，如下圖所示。

分享標題：用VBnet做個小程序 vbnet教程
文章網址：http://vcdvsql.cn/article28/ddpicjp.html

成都網站建設公司_創新互聯，為您提供微信公眾號、自適應網站、網站設計公司、網站內鏈、移動網站建設、企業網站制作

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯