用VS2010打開源代碼,在右側(cè)的解決方案上點(diǎn)擊右鍵》屬性
成都創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)、喀左網(wǎng)絡(luò)推廣、微信小程序、喀左網(wǎng)絡(luò)營(yíng)銷、喀左企業(yè)策劃、喀左品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等,從售前售中售后,我們都將竭誠(chéng)為您服務(wù),您的肯定,是我們最大的嘉獎(jiǎng);成都創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供喀左建站搭建服務(wù),24小時(shí)服務(wù)熱線:18982081108,官方網(wǎng)址:www.cdcxhl.com
然后在編譯中改變框架版本
重新編譯即可。
添加一個(gè)按鈕和一個(gè)文本框,X不要太大,會(huì)溢出的!
Try
Dim i, j As Integer
Dim sum As Long
i = 1
sum = 0
For j = 1 To TextBox1.Text
sum += i
i = i * 2
Next
MessageBox.Show("結(jié)果:" sum.ToString())
Catch ex As Exception
MessageBox.Show(ex.Message, "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
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
你要做一個(gè)考試系統(tǒng)??這可不是小程序,不過如果是超精簡(jiǎn)的話,我倒可以寫個(gè)思路給你。
在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語(yǔ)句根據(jù)questionid將答案和回答比較,然后顯示下一題,同時(shí)更改questionid。。。大概就這樣
command2_Click()就直接顯示下一題和更改questionid
問題結(jié)束后就OK了,之后要加什么可以自己加上去~
如果一個(gè)程序要用Application.exit來退出,那說明太失敗了。。。
一般來說,都是用close關(guān)閉就可以了。
用.NET平臺(tái)開發(fā),只要你在操作數(shù)據(jù)庫(kù)或者IO的時(shí)候沒有忘記關(guān)閉資源連接,一般是不需要你手動(dòng)釋放的。
lblresult是一個(gè)label控件,確定你的設(shè)計(jì)界面加入了一個(gè)label控件并將其命名為lblresult