vb.net的小程序

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

用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

'窗體重寫(xiě)處置以清理組件列表。

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

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

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

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

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)單啊，我沒(méi)學(xué)過(guò)VB.net，但以前學(xué)過(guò)點(diǎn)VB，不知道兩者差別大不大。以下為VB代碼，沒(méi)測(cè)試，供參考。

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

代碼全部在按鈕過(guò)程中

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

文章標(biāo)題：VB.NET入門小程序 vb小程序?qū)嵗鯇W(xué)者
新聞來(lái)源：http://chinadenli.net/article6/dodjoig.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供做網(wǎng)站、網(wǎng)站制作、網(wǎng)站收錄、定制開(kāi)發(fā)、品牌網(wǎng)站制作、網(wǎng)頁(yè)設(shè)計(jì)公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)