❶ VB編程：成果輸出到TXT文件中，怎樣設置輸出字體的大小、字體的上標下標
txt文本文復件和字體無關
那是記事制本notepad的設置顯示的問題
txt文件本身不存儲文字的字體（doc、rtf才會儲存）
上下標請去查unicode編碼表 不是所有字體都有上下標符號 具體請自行谷歌解決
❷ 高手進！VB編成！ 求代碼！若成果必重謝！
第一題 單擊窗體 則其隱藏 顯示出窗體2 單擊窗體2則亦然
Private Sub Form_click()
Form1.Hide
form2.Show
End Sub
Private Sub Form2_click()
Form1.show
form2.hide
End Sub
第二題
1、因為我們需要使用到MediaPlayer控制項，所以剛開始就要右擊工具面板並在部件添加窗口裡選擇「Windows MediaPlayer」來添加這個控制項，同時還要添加「CommonDialog」控制項。
2、在窗口設計器中創建一個MediaPlayer控制項、五個Command Button控制項和一個CommonDialog控制項。
3、將Form1的Caption屬性更改為「小叮當的媒體播放器」。
4、分別將五個Command Button控制項的Caption屬性分別命名為「暫停」、「播放」、「停止」、「選擇」和「退出」，然後把它們按照一定的位置放好。
5、選中CommonDialog控制項之後，在右邊屬性的「Filter」對話框中輸入「WAV（*.wav）|*.wav|MIDI（*.mid）|*.mid|MPEG（*.mpeg）|*.mpeg|DAT（*.dat）|*.dat|AVI（*.avi）|*.avi|MP3（*.mp3）|*.mp3」的文件過濾選項，這樣就可以支持各種常見的媒體影像文件了。
小蘑菇：看起來和真正的MediaPlayer差不多呀，還蠻有專業水準的呢。
小叮當：是呀，這全要歸功於MediaPlayer控制項，下面就是代碼編寫部分內容了：
1、首先要雙擊Form1窗口，並選擇「通用」對象，輸入下面的通用代碼：
Option Explicit
Dim playfilename As String /定義播放文件的名稱
Dim playposition As Double /定義當前播放的位置
2、雙擊「暫停」按鍵並輸入下列代碼：
Private Sub Command1_Click()
Command1.Enabled = False /暫停按鍵失效
MediaPlayer1.Pause /暫停播放
playposition = MediaPlayer1.CurrentPosition /當前的播放位置
End Sub
3、雙擊「播放」按鍵並輸入下列代碼：
Private Sub Command2_Click()
Command1.Enabled = True /暫停按鍵有效
Command3.Enabled = True /停止按鍵有效
MediaPlayer1.filename = playfilename /播放媒體文件名稱
MediaPlayer1.SelectionStart = playposition /當前播放的位置
MediaPlayer1.Play /播放媒體文件
End Sub
4、雙擊「停止」按鍵並輸入下列代碼：
Private Sub Command3_Click()
playposition = 0 /停止播放
Command3.Enabled = False /停止按鍵無效
Command1.Enabled = False /暫停按鍵無效
Command2.Enabled = True /播放按鍵有效
MediaPlayer1.Stop /停止播放
End Sub
5、雙擊「選擇」按鍵並輸入下列代碼：
Private Sub Command4_Click()
CommonDialog1.showopen /打開文件對話框
playfilename = CommonDialog1.filename /記錄播放文件名
playposition = 0 /第一次打開文件時候，播放位置為0
End Sub
6、雙擊「退出」按鍵並輸入下列代碼：
Private Sub Command5_Click（）
Unload Me /卸載窗口
End /結束程序
End Sub
第三題
Private Sub Command1_Click()
If Command1.Caption = "顯示" Then
Print "歡迎使用Visual Basic！"
Command1.Caption = "清除"
Else
Me.Cls
Command1.Caption = "顯示"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Command1.Caption = "顯示"
Command2.Caption = "退出"
End Sub