大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
用VS2010打开源代码,在右侧的解决方案上点击右键》属性
成都创新互联公司专注为客户提供全方位的互联网综合服务,包含不限于做网站、成都网站设计、喀左网络推广、微信小程序、喀左网络营销、喀左企业策划、喀左品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;成都创新互联公司为所有大学生创业者提供喀左建站搭建服务,24小时服务热线:18982081108,官方网址:www.cdcxhl.com
然后在编译中改变框架版本
重新编译即可。
添加一个按钮和一个文本框,X不要太大,会溢出的!
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("结果:" 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()
'在窗体上添加一个DataGridView控件,在这个位置加一句代码
DataGridView1.DataSource = oledbDataAdapter.Tables("gy_bingrenxx")
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了,之后要加什么可以自己加上去~
如果一个程序要用Application.exit来退出,那说明太失败了。。。
一般来说,都是用close关闭就可以了。
用.NET平台开发,只要你在操作数据库或者IO的时候没有忘记关闭资源连接,一般是不需要你手动释放的。
lblresult是一个label控件,确定你的设计界面加入了一个label控件并将其命名为lblresult