vb.net的小程序

你要做一個(gè)考試系統(tǒng)？？這可不是小程序，不過如果是超精簡(jiǎn)的話，我倒可以寫個(gè)思路給你。

南昌縣ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景，ssl證書未來市場(chǎng)廣闊！成為成都創(chuàng)新互聯(lián)公司的ssl證書銷售渠道，可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：18980820575（備注：SSL證書合作）期待與您的合作！

在form添加一個(gè)label 和四個(gè)command1(組成一個(gè)控件組修改index屬性，按順序設(shè)置為ABCD)和一個(gè)command2(可要可不要，這個(gè)是作為跳過用的)

定義全局變量 questions() as string,questionid as integer，answers() as string

在form_load中，將問題和答案讀入questions()和answers()中，然后將第一個(gè)問題顯示在label中，設(shè)置questionid=1

之后在command1_click(index as integer)中用select語句根據(jù)questionid將答案和回答比較，然后顯示下一題，同時(shí)更改questionid。。。大概就這樣

command2_Click()就直接顯示下一題和更改questionid

問題結(jié)束后就OK了，之后要加什么可以自己加上去~

如何使用VB編寫一個(gè)簡(jiǎn)單的小程序？

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

接著，用同樣的方法，在Form1窗口上繪制出第二數(shù)，并且在左邊工具菜單欄，單擊文本框按鈕，并繪制出來。在文本框?qū)傩詸诘腡ext屬性上，將其Text1刪除，也就是清空數(shù)據(jù)，如下圖所示。

然后，反復(fù)用第一步驟和第二步驟做成如圖所示的界面來，學(xué)習(xí)需要反復(fù)練習(xí)，在練習(xí)中不斷進(jìn)步。這里是做簡(jiǎn)單的加法程序，如下圖所示。

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

然后，程序看起來是做好了，單擊如圖所示的運(yùn)行按鈕，彈出自己做出的Form1窗口，輸入數(shù)字3和6，然后單擊計(jì)算?？墒墙Y(jié)果并沒有出現(xiàn)，如下圖所示。

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

誰知道怎樣用ＶＢ制作小程序（具體步驟最好有圖）

用VB.net制作一個(gè)小程序（1）

----制作“Hello.NET”程序

作者：高山

用下面很簡(jiǎn)單的方法，就可以制作一個(gè)“Hello.NET”小程序，同時(shí)可以掌握一些控件的用法。

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows 窗體設(shè)計(jì)器生成的代碼 "

Public Sub New()

MyBase.New()

'該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。

InitializeComponent()

'在 InitializeComponent() 調(diào)用之后添加任何初始化

End Sub

'窗體重寫處置以清理組件列表。

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

End If

MyBase.Dispose(disposing)

End Sub

'Windows 窗體設(shè)計(jì)器所必需的

Private components As System.ComponentModel.IContainer

'注意：以下過程是 Windows 窗體設(shè)計(jì)器所必需的

'可以使用 Windows 窗體設(shè)計(jì)器修改此過程。

'不要使用代碼編輯器修改它。

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()

Me.Button1 = New System.Windows.Forms.Button()

Me.TextBox1 = New System.Windows.Forms.TextBox()

Me.SuspendLayout()

'

'Button1

'

Me.Button1.Location = New System.Drawing.Point(16, 112)

Me.Button1.Name = "Button1"

Me.Button1.TabIndex = 0

Me.Button1.Text = "OK"

'

'TextBox1

'

Me.TextBox1.Location = New System.Drawing.Point(160, 112)

Me.TextBox1.Name = "TextBox1"

Me.TextBox1.TabIndex = 1

Me.TextBox1.Text = ""

'

'Form1

'

Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

Me.ClientSize = New System.Drawing.Size(292, 266)

Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1, Me.Button1})

Me.Name = "Form1"

Me.Text = "Hello,VB.NET"

Me.ResumeLayout(False)

End Sub

#End Region

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

TextBox1.Text = "Hello,VB.NET!"

End Sub

End Class

vb.net的一個(gè)小程序

這個(gè)應(yīng)該很簡(jiǎn)單啊，我沒學(xué)過VB.net，但以前學(xué)過點(diǎn)VB，不知道兩者差別大不大。以下為VB代碼，沒測(cè)試，供參考。

一個(gè)按鈕，一個(gè)列表框，（樓主說要文本框顯示結(jié)果，但VB中用文本框存儲(chǔ)變化的文本很不方便，因此用列表框逐列顯示）

代碼全部在按鈕過程中

z = 0: f = 0 ’正反統(tǒng)計(jì)的變量

For i = 1 To 10

Randomize ’初始化隨機(jī)發(fā)生器

x = Int(Rnd(1) + 0.5) ‘得到0或者1的隨機(jī)數(shù)

If x = 0 Then

List1.AddItem "正"

z = z + 1

Else

List1.AddItem "反"

f = f + 1

End If

Next i

結(jié)果會(huì)以文字形式逐行顯示在列表框中，可利用z,f值輸出正反次數(shù)。

VB.net做一個(gè)小程序 求教

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()

'在窗體上添加一個(gè)DataGridView控件,在這個(gè)位置加一句代碼

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

End Sub