'写入
公司主营业务:成都做网站、成都网站设计、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联公司推出金安免费做网站回馈大家。
Dim bytes() As Byte = {34, 23, 43, 43, 55, 3}
Dim items = (From item In bytes Select item.ToString("000")).ToArray()
System.IO.File.WriteAllLines("c:\test.txt", items)
'读取
Dim items2 = System.IO.File.ReadAllLines("c:\test.txt")
Dim bytes2 = (From item In items2 Select Byte.Parse(item)).ToArray()
For Each item In bytes2
Console.WriteLine(item.ToString())
Next
这样就可以的
DataGridView1.Rows(i).Cells(0).Value = i + 1
RowS指定行,Cells指定列
1,调用DataTable类,绑定字段就行了
2,借用数据库,保存时将信息插入数据库,DV绑定
下面的程序测试过,运行正确, 加个命令键(command1)和一个标签(label1),每点击命令键一次,表签上就显示产生的4个数字, 而且保证是四个数字。
Private Sub Form_Load()
End Sub
Private Sub Command1_Click()
Dim a As Integer, strR As String
a = 1000 * (Rnd(10000))
strR = Str(a)
Select Case Len(strR) - 1
Case 1
strR = "000" + Right(strR, 1)
Case 2
strR = "00" + Right(strR, 2)
Case 3
strR = "0" + Right(strR, 3)
End Select
Label1.Caption = strR
End Sub