用vb.net 怎样建立一个mdb数据库及一张表首先在项目的VB.NET界面 , 使用菜单【项目】--【添加引用】--【COM】
选择Microsoft ADO Ext. 2.x for DDL and Security
然后单击【确定】,完成引用 。
完整代码如下:
Imports ADOX
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建空的access数据库文件--数据库文件.mdb,密码为123
Dim Mycat As Catalog = New Catalog()
Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")
'以下代码创建一个名为“实验数据表”
Dim MyTable As ADOX.Table = New ADOX.Table'定义新表
MyTable.Name = "实验数据表"'表命名
'给表“实验数据表” 创建一个字符串字段,字段名“姓名”
MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)
'给表“实验数据表” 创建一个整数字段,字段名“学号”
MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger)'追加一个数字型字段
'给字段“学号”创建一个主键“PimaryKey_Field”
MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")
Mycat.Tables.Append(MyTable) '把所有的新字段追加到表
MyTable = Nothing
Mycat = Nothing
End Sub
End Class
求vb.net的源代码,最好说明其解决问题 , 越多越好,满意加50分 。下面这段代码 , 是我用来计算每个月存500元进银行 , 连续30年,最后连本带利能有多少钱 。这里面涉及复利计算 。界面中右边的文本框用来输出每一次计算的结果 。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nianxian As Integer '年限变量
Dim dingcun As Integer '定存变量
Dim fuli_big As Long '大复利
Dim fuli_small As Long '小复利
Dim i As Integer '循环变量
Dim DATAstring As String '数据字符串
nianxian = Val(年限_TextBox.Text)
dingcun = Val(定存_TextBox.Text)
DATAstring = ""
For i = 1 To nianxian
fuli_small = dingcun * (1 + 0.1875)
dingcun = fuli_small
fuli_big = fuli_big + fuli_small
DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)
'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)
Next
'fuli_big = fuli_small
TextBox1.Text = DATAstring
结果_TextBox.Text = Str(fuli_big) + "元"
End Sub
关于VB.net取整的问题double是双精度 有效数值位52位 表示成指数vb.net实验代码的形式 即指数11位 即表示成
所以180.89305用2进制表示是10110100.1110010010011110111011001011111110110001010110110101
即
180.89305在double中存在vb.net实验代码的实际数值是
1.01101001110010010011110111011001011111110110001010110110101 *2^7
取小数点后 52位有效值后 等于10进制vb.net实验代码的180.893049999999998
所及加最后变成vb.net实验代码了 1808930.99999999998
第一次当然输出近似值1808931
第二次int函数去掉了小数点后vb.net实验代码的数int就是只取整数的部位的不是四舍五入 所以少了1
【包含vb.net实验代码的词条】vb.net实验代码的介绍就聊到这里吧 , 感谢你花时间阅读本站内容,更多关于、vb.net实验代码的信息别忘了在本站进行查找喔 。
推荐阅读
- 裴小峰虎牙直播骂人,虎牙裴裴是谁
- c语言浮点如何取整数,c语言浮点型取余数
- sapf-28,SAPF28过账放在差异
- 毕业设计网站,毕业设计系统网站
- vb.net中关闭页面 vb关闭网页
- asp.netimageurl格式,aspnet listview
- ppt如何评分,ppt评分标准表
- 电脑多人直播,电脑多开直播
- mysql外键怎么打 mysql外键怎么写