這個應該很簡單啊,我沒學過VB.net,但以前學過點VB,不知道兩者差別大不大。以下為VB代碼,沒測試,供參考。
十年的崇左網站建設經驗,針對設計、前端、開發、售后、文案、推廣等六對一服務,響應快,48小時及時工作處理。成都營銷網站建設的優勢是能夠根據用戶設備顯示端的尺寸不同,自動調整崇左建站的顯示方式,使網站能夠適用不同顯示終端,在瀏覽器中調整網站的寬度,無論在任何一種瀏覽器上瀏覽網站,都能展現優雅布局與設計,從而大程度地提升瀏覽體驗。成都創新互聯從事“崇左網站設計”,“崇左網站推廣”以來,每個客戶項目都認真落實執行。
一個按鈕,一個列表框,(樓主說要文本框顯示結果,但VB中用文本框存儲變化的文本很不方便,因此用列表框逐列顯示)
代碼全部在按鈕過程中
z = 0: f = 0 ’正反統計的變量
For i = 1 To 10
Randomize ’初始化隨機發生器
x = Int(Rnd(1) + 0.5) ‘得到0或者1的隨機數
If x = 0 Then
List1.AddItem "正"
z = z + 1
Else
List1.AddItem "反"
f = f + 1
End If
Next i
結果會以文字形式逐行顯示在列表框中,可利用z,f值輸出正反次數。
private sub timer1_timer()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Int(Rnd() * 255)
b = Int(Rnd() * 255)
c = Int(Rnd() * 255)
lblTitle.ForeColor = RGB(a, b, c)
end sub
你要做一個考試系統??這可不是小程序,不過如果是超精簡的話,我倒可以寫個思路給你。
在form添加一個label 和四個command1(組成一個控件組修改index屬性,按順序設置為ABCD)和一個command2(可要可不要,這個是作為跳過用的)
定義全局變量 questions() as string,questionid as integer,answers() as string
在form_load中,將問題和答案讀入questions()和answers()中,然后將第一個問題顯示在label中,設置questionid=1
之后在command1_click(index as integer)中用select語句根據questionid將答案和回答比較,然后顯示下一題,同時更改questionid。。。大概就這樣
command2_Click()就直接顯示下一題和更改questionid
問題結束后就OK了,之后要加什么可以自己加上去~
lblresult是一個label控件,確定你的設計界面加入了一個label控件并將其命名為lblresult
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
您好,1.右擊解決方案中的項目名稱,選屬性-輸出類型改為:類庫。 (由于默認為輸入應用程序,所以這里要改一下輸出類型)
2.按Ctrl+Shift+B
3.到項目下的bin目錄下面的debug或release下面就可以找到剛生成的DLL。
應用:
右擊引用-》"添加引用"-瀏覽-找到剛生成的DLL.點OK即可。
右擊解決方案中的項目名稱,選屬性-輸出類型改為:類庫。 (由于默認為輸入應用程序,所以這里要改一下輸出類型)
這里要設置一下,否則它默認只輸出應用程序可執行文件*.exe,而不輸出*.dll類庫文件。
網頁標題:vb.net小程序設計 VBNET程序設計
標題網址:http://vcdvsql.cn/article2/doodeoc.html
成都網站建設公司_創新互聯,為您提供用戶體驗、品牌網站設計、網站策劃、網站設計、ChatGPT、品牌網站建設
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯