A. VB如何将程序的数据保存
写入：
Open "D:123.txt" For Output As #1 '打开XXX路径的XXX文件（双引号里表示文件位置和文件名）
Print #1, Text1.Text '写入Text1的Text内容
Close #1 '关闭
读取：
Open "D:123.txt" For Input As #1 '打开打开XXX路径的XXX文件（双引号里表示文件位置和文件名）
Do While Not EOF(1)
Line Input #1, s
Text1.Text = s
Loop 'Do...Loop表示循环读取文件的内容，并让Text1.Text=内容
Close #1 '关闭
① 使用File.ReadAllText 读取
Dim s As String = System.IO.File.ReadAllText("C:a.txt")
② 使用 StreamReader 读取，注意编码格式和写入的编码保持一致。
Dim sr As StreamReader = New StreamReader("C:a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
B. vb 如何保存输入的数据
关于数据保存，有很多方法,常用的有下面三种
1.数据库
(用于要保存的数量非常大，而且需要进行管理）
2.配置文件
（用于数据量不太多，不需要进行管理,能读／写即可）
3.注册表
（用于数据量非常少，不用管理，只要能读／写即可）
根据你的要求，可以用2,3两种方法
在你的界面中，增加一个保存配置的按钮或菜单项，用于保存（也可以在相关内容有变化时自动时时保存）
然后在form_load事件中，或sub_main过程中，先读取相应的保存的信息，再对其相关变量或属性进行赋值，就能达到你的要求了
C. 关于VB存储数据
下面是一个用随机方法读写文件的代码,数据只能写到文件里,不能直接写到文件夹里的-_-#
窗体上需要一个TextBox
Option Explicit
Private Sub WriteData() '写数据
Dim FileNum As Integer
FileNum = FreeFile()
Open "D:\TestFile.dat" For Random As #FileNum
Put #FileNum, 1, "这是个测试"
Close #FileNum
End Sub
Private Sub ReadData()
Dim FileNum As Integer, MyRecord As String
FileNum = FreeFile()
Open "D:\TestFile.dat" For Random As #FileNum
Text1.Text = ""
Seek #FileNum, 1
Get #FileNum, 1, MyRecord
Text1.Text = Text1.Text + Str(MyRecord)
Close #FileNum
End Sub
Private Sub Form_Load()
WriteData
ReadData
End Sub
D. VB编程中如何保存20个数据
利用数组来保存你的数据
dim myval(20) as 数据类型
myval(0) = 数据1
myval(1) = 数据2
.......
myval(19) = 数据20
E. VB中怎样保存数据（保存在VB数据库里）
方法一：在数据库中建一个表，把当前最后的输入值保存在该表里，，每次执行程序都从数据库里读取，
方法二：在程序中建一个文本文件或xml文件，每次都写入文件中，下次从文件中读取
方法三：把输入值存入注册表的某个位置，下次从注册表里读取！
F. vb如何实现存储
窗体上添加button按钮和text1控件，和CommonDialog控件，一共3个
CommonDialog 控件是一种ActiveX控件，一般情况下，启动VB后，在工具箱中没有公用对话框控件。要使用对话框控件，首先要在工具箱中添加公用对话框控件，步骤如下：
1）“工程”----->“部件”：
2）在“部件”对话框中选择“控件”选项卡，在控件列表框中选择“Microsoft common Dialog control 6.0"
3）单击“确定”，公用对话框就被添加到工具箱中
4）再将此控件拖放到窗体上
以下示例将text1中的文本保存到无标题文件中：
Private Sub Command1_Click()
On Error GoTo kk
CommonDialog1.FileName = "无标题.txt"
CommonDialog1.DefaultExt = "Txt"
CommonDialog1.Filter = "(*.txt)|*.txt|(*.*)|*.*"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
kk:
End Sub
建特殊形状的按钮方法有两种，一种是用图片框控件，另一种是用api函数，那比较复杂，建议你先学些基本的api函数的知识，再来解决这个问题，ok?
G. 用vb将数组内的内容存储
六万个数字不到1秒，原创代码
Dim aa(300, 200) As Double
Private Sub Command1_Click()
Dim XlApp As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet
XlApp.Visible = True
Set xlBook = XlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Range(xlSheet.Cells(LBound(aa, 1) + 1, LBound(aa, 2) + 1), xlSheet.Cells(UBound(aa, 1) + 1, UBound(aa, 2) + 1)).Value = aa
Erase aa '要释放数组，免得占用内存
End Sub
Private Sub Form_Load()
For i = LBound(aa, 1) To UBound(aa, 1)
For j = LBound(aa, 2) To UBound(aa, 2)
aa(i, j) = i + j
Next
Next i
End Sub
H. 用vb怎样存储数据我设计了一个窗体，能够输入我的资料（姓名，性别，身份证号码等）。我想把这些资料...
有很多中方法：
创建文本文件，如
open 文件路径 for output as #1print #1,text1
......
close #1
存储到excel表格中，
将数据存放到数据库中，