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表格中，
將數據存放到資料庫中，